combobox textin formatlanması

[besen]

Sayın üstadlar daha önce de sordum cevap alamadım, 200 e yakın bu konudaki önceden sorulmuş konuya baktım, bu soru yok.

Yardımlarınız lütfen.

Örnekteki comboxu hemen sağdaki gibi istediğim şekilde formatlamak mümkün mü?
Ayrıca comboxun uzunluğu içine yazılan yazı büyüklüğüne bağlı olarak otomatik değişebilsin.
selam, sevgi, saygı.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.
ActiveX Denetim araçlarıyla yapılmış örnek ektedir.
Combobox nesnesinin özelliklerini araştırınız.

İşlem Sonucu:

. . .

 

[besen]

Hocam gerçekten çok teşekkür, budur.
"Combobox nesnesinin özelliklerini araştırınız." demişsiniz, araştırdum ancak sa ırım excel bilgim yetersiz olduğu için çözemedim.

Bu yaptığınız çalışmayı başka dosyada nasıl kullanabiliriz.
renk ve font değiştirmek istediğimizde neyi, nasıl değiştirmemiz gerekiyor.

saygılar.

 

[Emir Hüseyin Çoban]

. . .

Userform nesneleri anlatan bir dökümanım vardı ancak bulamadım. Bulursam yine burada paylaşırım. :dusun:

Tasarım modunu açarak, örnek çalışmadan kopyala-yapıştır ile alabilirsiniz.
Örnek bir link, ingilizce ama izleyerek ana işlemi anlamanızı sağlayacaktır.
https://www.youtube.com/watch?v=l8-GaSDBJ18

. . .

 

[besen]

Teşekkürler, biraz çözdüm. Daha önceki bilgilerimde cell link olarak örneğin A11 hücresine numara getiriyorduk.
Siz doğrudan ismi getiriyorsunuz. Bunu nerede tanımladınız.
teşekkürler, saygılar.

 

[Emir Hüseyin Çoban]

. . .

Kırmızı ile belirttiğim kısımda.

Private Sub ComboBox1_Change()
With ComboBox1
.AutoSize = True
.Height = "67,5"
.ListFillRange = ("A2:A4")
[COLOR="Red"]Range("A1") = .Text[/COLOR]
.AutoSize = False
End With
End Sub

. . .

 

[besen]

çok teşekkür.

 

[besen]

Son bir şey sormak istiyorum, textin genişliğini sabit veya uzunluğunu metne göre otomatik ayarlayacak, ama en düşük değeri belirleyeceğim bir genişlikte sabit olacak şekilde mümkün mü?
saygılar.

Örneğin "aaa"yazdığımda tekt genişliği en az 10 karaktere göre olsun.
Ancak" ccccccccccccccccc" yazdığımda otomatikman 18 karakter olsun.

veya belli bir karakterde hep sabit kalsın.

 

[Emir Hüseyin Çoban]

. . .

Şu kodları deneyiniz.
Yaptığı işlem; yapılan seçimin karakter sayısı 10 dan az ise uzunluğu 140 olarak sabit yapar.
Karakter sayısı 10 dan fazla ise uzunluğu otomatik ayarlar.

Private Sub ComboBox1_Change()
With ComboBox1

If Len(.Text) < 10 Then
.Width = "140"
Else
.AutoSize = True
End If

.Height = "67,5"
.ListFillRange = ("A2:A4")
Range("A1") = .Text
.AutoSize = False

End With
End Sub

. . .

 

[besen]

Üstad yaptıklarınızı kendi dosyama uyguladım.
Ancak iki tane sorun var.
1- dosyayı .xlsx e çevirdiğimde makro kayboluyor.
2- text boxtan değişiklik yaptığımda formüller çok yavaş çalışıyor.

Neden?

saygılar.

 

[Emir Hüseyin Çoban]

Üstad yaptıklarınızı kendi dosyama uyguladım.
Ancak iki tane sorun var.
1- dosyayı .xlsx e çevirdiğimde makro kayboluyor.
2- text boxtan değişiklik yaptığımda formüller çok yavaş çalışıyor.
Neden?
saygılar.

1 için;
xlsx formatı içerisinde makro kodlarını barındırmaz. Bunun için dosyanızı
xls veya xlsm olarak kaydetmelisiniz.

2 için;
Kodlarınıza aşağıda kırmızı ile belirttiğim satırı ilave ediniz.

End With
[COLOR="Red"]Calculate[/COLOR]
End Sub

. . .

 

[besen]

tekrar tekrar teşekkürler.
selam, sevgi, saygı.