userforma buton ile label ekleme

[bilisim2010]

merhaba userforma bir buton ile label eklemek istiyorum ancak butona basınca labelin adını bir inputbox a yazayım onu açsın ve labelin konumunuda ben belirleyeyim.

 

[Korhan Ayhan]

Merhaba,

Soru sormadan önce forumda arama yapmanızı öneririm.

Kodları kendi dosyanıza göre uyarlarsınız...

UserForm Üzerine Nesne Ekleme

Merhaba, Aşağıdaki kod bloğu ile Excel Sayfası Referanslar!A3:A39 arasında bulunan verilerden User form üzerine otomatik olarak Label ve bir adet TextBox ekleyebiliyorum. Yapmak istediğim işlem, herbir Label'ın karşısına bir adet TextBox eklemek. Ekli dosyada UserForm üzerinde yapmak istediğim...

www.excel.web.tr

Dinamik Textbox

Selamlar, Bir UserForm yaratmak istiyorum ve icinde "A1"de ne rakam varsa o kadar miktarda alt alta textbox yaratmak istiyorum. Ayrica yeni yaratilan bu Textbox'larin adi Textbox1, Textbox2 olarak degil de Kutu1, Kutu2 vs olarak adlandirilmasini istiyorum. Bunu yapmak mumkunmu? Saygilar

www.excel.web.tr

 

[hamitcan]

Bu da ChatGPT ile...

Private Sub CommandButton1_Click()
Dim labelName As String
    Dim labelTop As Integer
    Dim labelLeft As Integer
    Dim newLabel As MSForms.Label
    
    ' Kullanıcıdan Label adı almak için InputBox
    labelName = InputBox("Label'in adını girin:", , "vv")
    
    ' Eğer kullanıcı bir ad girmezse, çık
    If labelName = "" Then
        MsgBox "Label adı girilmedi!", vbExclamation
        Exit Sub
    End If
    
    ' Kullanıcıdan Label konumu için X (Left) ve Y (Top) koordinatlarını almak
    On Error Resume Next
    labelLeft = CInt(InputBox("Label'in sol (Left) konumunu girin:", , CommandButton1.Left - 100))
    labelTop = CInt(InputBox("Label'in üst (Top) konumunu girin:", , CommandButton1.Top))
    On Error GoTo 0
    
    ' Yeni bir Label oluştur
    Set newLabel = Me.Controls.Add("Forms.Label.1")
    
    ' Label'in özelliklerini ayarlayın
    newLabel.Name = "lbl" & labelName ' Label'in adı
    newLabel.Caption = labelName ' Label'in yazısı
    newLabel.Left = labelLeft ' Sol konum
    newLabel.Top = labelTop ' Üst konum
    newLabel.Width = 100 ' Genişlik
    newLabel.Height = 30 ' Yükseklik
    newLabel.Visible = True ' Label görünür olsun
End Sub