frame içine kod ile label ekleme

[yelgecak]

S.a
Aşağıdaki kod ile form üzerine label ekleyebiliyorum bunu framenin içine nasıl eklerim. Teşekkürler.

Private Sub CommandButton1_Click()
Set ekle = Me.Controls.Add("Forms.label.1")
With ekle
.Top = Me.Label1.Top
.Left = Me.Label1.Left
.Width = Me.Label1.Width
.Height = Me.Label1.Height
.Font.Size = Me.Label1.Font.Size
.BackColor = Me.Label1.BackColor
.BackStyle = Me.Label1.BackStyle
.BorderColor = Me.Label1.BorderColor
.BorderStyle = Me.Label1.BorderStyle
.SpecialEffect = Me.Label1.SpecialEffect
.Caption = " " & Sayfa1.Cells(14, 1).Value
End With

End Sub

 

[yelgecak]

Çok kolaymış kendime güldüm
Set ekle = Me.Controls.Add("Forms.label.1")

Controls yerine frame yazmak yeterliymiş

 

[yelgecak]

Peki bu eklenen label'in ismini nasıl öğrenebiliriz ?

 

[yelgecak]

Konu günceldir arkadaşlarım.

 

[son_savasci]

online arkadaşları görünce sormak istedim.Arkadaşlar excel de tarihleri büyükten küçüğe doğru değilde ayaylara göre sıralamak istiyorum. Mesala 2 ocak 1990, 3 haziran 1975'ten önce gelmeli. Teşekkürler

 

[yelgecak]

filitre ile yapa bilirsin.

Kod ile yapmak istersen. A sütunu ve A1 A400 arası aşağıdaki kodlar.

Range("A1").Select
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("A1:A400")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[yelgecak]

Bu arada benim konu hala güncel.

Set ekle = Me.Frame1.Add("Forms.label.1")

Yukarıdaki formül ile 50 adet label ekliyorum. Eklediğim labellere işlem yapıcam ama label isimlerini bilmediğim için işlem yapamıyorum. Yardımlarınızı bekliyorum

 

[Levent Menteşoğlu]

ad=ekle.name ile eklenen nesne adına ulaşabilirsiniz.

 

[yelgecak]

Hocam hemen deniyorum. Teşekkürler

 

[Levent Menteşoğlu]

Nesne adını tespit ettikten sonra bu nesneye aşağıdaki controls komutuyla işlem atayabilirsiniz.

ad=ekle.name
controls(ad).....

 

[yelgecak]

Hocam

ad = ekle.Name
MsgBox ad

dediğim zaman bana mesal olarak

Label35 diye mesaj geliyor. ama

Label35.BackColor = vbRed diye komut verdiğim zaman

Run-time error 424
Object required

diye hata mesajı veriyor

 

[yelgecak]

Private Sub CheckBox1_Click()
If CheckBox1 = -1 Then
Controls(label35).BackColor = vbRed
Else
Controls(label35).BackColor = &HC0C0C0
End If
End Sub

Hocam yukarıdaki kodu yazıncada Frame ye işlem yapıyor.

dosyayı ekliyorum hocam Userform3'ü çalıştırırsanız anlarsınız sanırım.

CheckBox1 tıklayın frame kırmızı oluyor ama ben en üstteki labelin kırmızı olmasını istiyorum

Teşekkürler

 

[Levent Menteşoğlu]

Yukarıda bir mesaj daha göndermiştim. Sanıyorum dikkatinizden kaçmış. 10 nolu mesajımdaki gibi uygulayın.

 

[yelgecak]

Uyguladım hocam bi sonuç alamadım. dosyaya bakabilirseniz çok sevinirim

 

[Levent Menteşoğlu]

Yapmak istediğiniz sanıyorum ekli dosyadaki gibi bir uygulama. Chexboxlarıda nesne ekleme kodunun içine yerleştirdim ve bu nesneleri class modüle bağladım. Bu dosyada eklenen nesneye ad tanımlaması ile class modül bağlanması uygulamalarınıda görebilirsiniz.