Soru checkbox ile "x" yazma

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Private Sub CheckBox1_Click()
TextBox1.Value = IIf(CheckBox1.Value = True, "x", "")
End Sub
Her textbox için yukarıda yer alan kod gibi bir checkbox eklemeden tek checkbox ile 1-17 arasında ki tüm textboxlara "x" işareti aktabilmek için yardımcı olabilmeniz mümkün mü?
 

muratboz06

Destek Ekibi
Destek Ekibi
Katılım
23 Mart 2017
Mesajlar
552
Excel Vers. ve Dili
Office365 TR
Deneyiniz.
Kod:
Private Sub CheckBox1_Click()
    Dim ctrl As Control
    If CheckBox1.Value = TRUE Then
        For i = 1 To 17
            
            For Each ctrl In Me.Controls
                If ctrl.Name = "TextBox" & i Then
                    ctrl.Text = "X"
                End If
            Next ctrl
            
        Next i
    Else
        For i = 1 To 17
            
            For Each ctrl In Me.Controls
                If ctrl.Name = "TextBox" & i Then
                    ctrl.Text = ""
                End If
            Next ctrl
            
        Next i
    End If
End Sub
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Sayın: @muratboz06
TextBox lar Sayfa üzerinde ise kodlarda nasıl bir değişiklik yapmak gerekir
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Tekrar merhabalar
aşağıdaki kod ile çözdüm
Teşekkürler
Kod:
Private Sub CommandButton3_Click()

    If CheckBox1.Value = True Then
    
    For Each obj In ActiveSheet.OLEObjects
        With obj
            If TypeName(.Object) = "TextBox" Then
                
                .Width = 100
                .Height = 15
                .Object.Text = "X"
            End If
        End With
      Next obj
      End If

End Sub
 
Üst