Labele klavye ile bilgi girişi yapılabilirmi

[orcunerkek54]

labele textlere bilgi girişi gibi klavye kullanarak yazı yazabilirmiyiz.

 

[Seyit Tiken]

Bu şekilde bir kod kullanabilirsiniz.

Private Sub Label1_Click()
Label1 = "OrcunErkek 54"
End Sub

 

[Seyit Tiken]

Birde bunu bir deneyin. A1 hücresine ne yazarsanız Label'de o yazılır.

Private Sub Worksheet_Change(ByVal Target As Range)
Label1.Caption = [A1]
End Sub

 

[Levent Menteşoğlu]

Label nesnesine bir textboxta olduğu gibi direk yazı yazamazsınız. Bunu, başka bir nesneye yazıp sonra labele yazabildiğiniz gibi bir inputbox ile de yapabilirsiniz. Aşağıdaki kodu labele kopyalayın. Labeli çift tıklayarak metni değiştirebilirsiniz.

[vb:1:14494a054a]Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = InputBox("METNİ YAZINIZ", "veri değiştirme")
End Sub[/vb:1:14494a054a]

 

[orcunerkek54]

syn leventm bey teşekkür ederim.Ayrıca sorununla ilgilenen tüm arkadaşlarada teşekkür ederim :arkadas: