Satır Say. Kadar Runtime Frame ve Bu Frameler İçinde Sütun Say. Kadar Runtime Label Oluşturmak

[altinolmayanuye]

Merhaba,
Forumunuzu uzun süredir takip ediyorum fakat üye olarak yeniyim. Daha önce kendi çabalarımla excel-VBA sorunlarımı çözebildim ama sanırım bir konuda zorlanıyorum. Kısaca:
*Personelin izin günleri ile alakalı bir arayüz yapmaya çalışıyorum. Elimdeki excel bu şekilde;
https://hizliresim.com/hxlsec2

*Yapmak istediğim "C2" hücresinden son dolu hücre örnek veriyorum "AW66" hücresine kadar olan kısmın Frame içerisine aşağıdaki ekran alıntısında gösterdiğim şekilde aktarılması.
https://hizliresim.com/itrrfbn

>Yani C2 den C66 satırına kadar 65 satır olduğundan Runtime olarak 65 adet frame oluşturulmalı ve C2 den AW ye kadar 47 sütun olduğundan oluşturulan her bir runtime frame içine 47 adet runtime label oluşturularak karşılık gelen hücredeki harf caption olarak atanmalı. (Harfe göre renklendirme yapılabiliyorsa daha güzel olur, Ör, X ise mavi, T ise sarı gibi..)

*Son hali aşağıdaki gibi olmalı.
https://hizliresim.com/p97j0mt

Scroll lar hareket ettiğinde üst ve yan frameler senkronize hareket ederek isim ve tarih kesişimini net olarak görebileceğim. Scroll ve diğer iki frame hareketlerini hallettim ama ortadaki frame ve içeriğini şu an için halledemedim. Yardımlarınıza talibim.

Şimdiden Teşekkürler.

 

[DoğanD]

Merhaba,

Frame kullanmanızın özel bir sebebi var mı? Label'ın SpecialEffect kısmındaki ayarı 3-fmSpecialEffectEtched yaptığınızda görüntü neredeyse aynı oluyor. Ayrıca mümkünse bir örnek dosya yükleyebilirseniz üzerinden çalışmak daha kolay olacaktır.

 

[altinolmayanuye]

Merhaba,

Frame kullanmanızın özel bir sebebi var mı? Label'ın SpecialEffect kısmındaki ayarı 3-fmSpecialEffectEtched yaptığınızda görüntü neredeyse aynı oluyor. Ayrıca mümkünse bir örnek dosya yükleyebilirseniz üzerinden çalışmak daha kolay olacaktır.

Merhaba, sanırım tam anlatamadım. Runtime Frame olmadan sıralı halde örnek veriyorum; her bir satırında 100 runtime label bulunan 10 satırlı bir label dizsii oluşturabilmenin bir yolu var mı bilemediğimden bu şekilde düşündüm. Ayrıca labeller halihazırda fmSpecialEffectEtched olarak tanımlı. Labellerin görünümü çok önemli değil. Ben labelleri nasıl oluşturacağımı sormak istemiştim. Sizin bildiğiniz başka bir yöntem varsa onu da deneyebilirim. (Şu an dosya yükleyemiyorum)

 

[DoğanD]

Merhaba,

Aşağıdaki blok ile istediğiniz sayıda ekleyebilirsiniz. Ayarları için açıklamaları yanlarına yazdım.

sub DD()
b = 50
l = 5
s = 5

For i = 0 To 24
t = (WorksheetFunction.RoundDown(i / 5, 0) * b) + 5
If l > b * s Then
l = 5
End If

UserForm1.Frame1.Controls.Add "Forms.Label.1", "Label" & i, True
With UserForm1.Frame1.Controls(i)
.SpecialEffect = 3 'Frame görünütüsü için'
.Caption = "X" 'Label içeriği - bu veriyi cells() metodu ile Excel'den alacaksınız
.FontSize = 15 'Yazı boyutu'
.Font.Bold = True 'yazı tipi bold'
.TextAlign = 2 'yazı ortalama'
.Height = b 'yükseklik'
.Width = b 'Genişlik'
.Top = t 'Frame üst sınıra olan uzaklık'
.Left = l 'Frame sol sınıra olan uzaklık'
End With
l=l+b
next i
end sub

 

[altinolmayanuye]

Bu şekilde yükleyebildim
Bu dosya.xlsm - 25 KB

Sanırım başaramadım. Örneğin 20 satır var ve bu satırlar 100 adet sütun ile kesişiyor. Yazılacak kod 20 satırın dolu olduğunu algılayıp 20 değerini atayıp yirmi satırda 100 er adet olmak üzere toplamda (20 * 100) 2000 label oluşturacak. Satır ya da sütun sayısı arttıkça labeller de otomatik olarak artacak. tek satırda runtime label oluşturmayı becerebildim ama çoklu satırı yapamıyorum.

 

[DoğanD]

Merhaba,

Dosya 'yı inceler misiniz?

 

[altinolmayanuye]

Merhaba,

Dosya 'yı inceler misiniz?

(DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir! )
Başka bir hosta yüklemeniz mümkün mü ? Siteden şu an dosya indiremiyorum.

 

[DoğanD]

Dosya kelimesinde link vardı, aşağıya da bırakıyorum.

Link

 

[altinolmayanuye]

Dosya kelimesinde link vardı, aşağıya da bırakıyorum.

Link

Teşekkür ederim. Gayet güzel görünüyor. İnceleyip dönüş sağlayacağım.