Buttonla Yorumları Göstermek

[Karanlik1]

Merhaba arkadaşlar,

Aşğıdaki kodları iki button'a atayıp yorumları gösterip gizleyebiliyorum. Merak ettiğim Tek button

üzerinde bu iki kod nasıl kullanılır. Mesela düğmede etiket olarak "göster" yazacak ve tıklayınca

yorumları gösterip etiketi "gizle " haline getirecek, basınca yorumları gizleyip etiketi eski haline

getirecek...

Şimdiden saolun,

Private Sub CommandButton1_Click()
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Private Sub CommandButton2_Click()
Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

 

[Ferhat Pazarçevirdi]

Sayfaya bir adet ToogleButton yerleştirin. Butonu eklediğiniz sheetin VBA kod sayfasını açın ve kodunuzu aşağıdaki gibi değiştirin

Private Sub ToogleButton1_Click()
If ToogleButton1.Value = 0 Then
Application.DisplayCommentIndicator = xlCommentAndIndicator
Else
Application.DisplayCommentIndicator = xlNoIndicator
End If
End Sub

İyi çalışmalar

 

[Karanlik1]

fpc saol ama olmadı, ben,m dediğim gibi yapmanın bi yolu yok mu?

 

[Ferhat Pazarçevirdi]

O zaman, şöyle yapalım; sayfada bir adet commandbuttonunuz olsun. (Ben name özelliğini cmd yaptım, siz kendinize göre düzenleyin) . butonun kodunu görüntüleyerek aşağıdakini uygulayın.

Private Sub Cmd_Click()
If cmd.Caption = "Etiket Göster" Then
Application.DisplayCommentIndicator = xlCommentAndIndicator
With cmd
.Caption = "Etiket Gizle"
.ForeColor = &HFF& '&H00000000&
End With
Else
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
With cmd
.Caption = "Etiket Göster"
.ForeColor = &H0&
End With
End If
End Sub

 

[veyselemre]

Private Sub CommandButton1_Click()
   CommandButton1.Caption = "Açıklama " & IIf(Application.DisplayCommentIndicator = 1, "Göster", "Gizle")
   Application.DisplayCommentIndicator = Application.DisplayCommentIndicator * -1
End Sub

 

[düşünceli]

sayın Karanlık birde buna isterseniz

birde bu örneğe bakın.Sonucu buraya yazarsınız umarım. Kolay gelsin

 

[Karanlik1]

Saolun arkadaşlar 3ü de işimi görüyor... 3'ünden de bişeyler öğrendim...