label koşullu clik işlevi

[zulfuernek]

Sayın hocalarım hazırlayacağm bir form için ufak bilgiye ihtiyacım.

Sorum şu: form üzerinde bir adet label var labele tıklayınca istediğim yazıyı labelde gösteriyorum (Label23 = "a") formülü ile fakat ben labele tekrar tıklayınca a yerine b yazsın istiyorum. yani bir tıkladığımda a ikinci tıkladığımda b yazacak ve dönüşümlü devam edecek.

Saygılarımla üstadlar

 

[BedriA]

Aşağıdaki kodu labelin bulunduğu userform içine yapıştırarak deneyiniz.

Private Sub Label23_DblClick

Label23 = "b"

End Sub

 

[zulfuernek]

bedri hocam şu şekilde yazdım ancak b olacak şifrenin başı hata veriyor. kırmızı ile işaretledim

Private Sub Label23_Click()
Label23 = "a"
End Sub
_______________________________________

Private Sub Label23_DblClick()
Label23 = "b"
End Sub

 

[BedriA]

Şunu deneyiniz.

Private Sub Label23_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Label23.Caption = "B"
End Sub

 

[zulfuernek]

bedri hocam emeğine sağlık bu oldu. fakat bufak bi sorunu var b yazması için çift tıklıyoruz bunu bir defa basınca değişmesi mümkünmü yani her tek tıklamada değişmesi?

 

[BedriA]

1- Boş bir modül açarak içine şu kodu yazınız:

Option Explicit

Public Say

2- Userformun kod bölümünün en üstüne de şunu yapıştırınız:

Option Explicit

Private Sub Label23_Click()
    Select Case Say
        Case 1
            Me.Label23.Caption = "A"
            Say = Say + 1
        Case 2
            Me.Label23.Caption = "B"
            Say = Say + 1
     
    End Select
End Sub

Private Sub UserForm_Initialize()
    Say = 1
End Sub

Not: Kodlar Korhan Ayhan'ın mesajlarından alıntıdır.

 

[zulfuernek]

BEDRİ HOCAM BECEREMEDİM YA ((( EK DOSYA
http://dosya.co/3ac6tyx9lx8n/Kitap1.xlsm.html

 

[BedriA]

Boş olan kırmızı labele tıklayarak test ediniz.


http://dosya.co/fa7ecy2epe0k/Kitap1.xlsm.html

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.

İstediğiniz şeyin aşağıdaki şekilde de gerçekleşmesi lazım.
Hangi Label için kullanacaksanız Label adını ona göre değiştirirsiniz.
-- ALT+F11 tuşlarına basarak VBA ekranını açın,
-- Sol taraftan UserForm1'e sağ tıklayıp View Code'yi seçin,
-- Sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- UserForm'u çalıştırıp Label1'e fareyle tıklayarak sonucu gözlemleyin.

Private Sub [B][COLOR="Red"]Label1[/COLOR][/B]_Click()
    If [B][COLOR="Red"]Label1[/COLOR][/B].Caption = "" Or [B][COLOR="Red"]Label1[/COLOR][/B].Caption = "b" Then
        [B][COLOR="Red"]Label1[/COLOR][/B].Caption = "a"
    Else
        [B][COLOR="Red"]Label1[/COLOR][/B].Caption = "b"
    End If
End Sub

 

[zulfuernek]

Bedri hocam eline sağlık. şimdi oldu )) uyarlamam lazım şimdi. şimdi bir sorum olacak mantığını kavramam için. En üstte label 1 yazıyor diğer formlde label 5 yazmasının nedeni nedir.?

 

[zulfuernek]

Bedri hocam tamamdır çzödüm emeğinize sağlık )

 

[zulfuernek]

Sayın mer baran dediğinizide uyguladım. Bedri hocamın formülüde sizin formülünüzde sorunsuz çalışıyor. Emeklerinize sağlık