Excel de Aşağıya açılır Liste Harf Büyüklüğü

[efem67]

Değerli Hocalarım ve Üstadlarım.
Aşağıya doğru açılan Listenin Karakter Büyüklüğünü
arttırma nasıl yapabilirim.
Sayfa görünümünü büyütmek istemiyorum.(%40 olarak )Kullanmam gerekiyor.
Yardımlarınız için şimdiden teşekkürler..

 

[Ömer BARAN]

Merhaba.

FORM DENETİMLERİ bölümündeki Birleşik Giriş Kutusu yerine
(bunda karakter boyutunu değişteremezsiniz diye biliyorum),

ACTIVEX DENETİMLERİ bölümündeki Birleşik Giriş Kutusu
(bunda karakter boyutu/yazıtipi gibi özellekleri değişteribilirsiniz)
kullanmalısınız.

NOT: Bu arada, emanetiniz ulaştı, teşekkürler.
.

 

[efem67]

Örnekleme

Aktivex kutu yaptığımda ilgili alana seçtiremedim.
Örnek belgeyi ekledim.

 

[Ömer BARAN]

Sırasıyla aşağıdaki şekilde işlem yapın;

-- Geliştirici menüsündeki TASARIM MODU düğmesine tıklayın,
-- Açılır Liste kutusuna fareyle sağ tıklayıp ÖZELLİKLER'i seçin,
-- açılan küçük ekranda ListFillRange'nin karşısına Sayfa1!A1:A8 gibi açılır liste kaynak adresini yazın,
-- TASARIM MODU düğmesine tekrar tıklayın.
.

 

[Ömer BARAN]

Sanırım PUANLAMA belgesiyle ilgili olarak uğraşıyorsunuz ve
bu açılır liste o belgede SayfaANA adlı sayfadaki açılır liste.

Bu işlem için,
-- ActiveX denetimleri bölümündeki Combobox değerini hücreye yazdırmaya lüzum yok.
-- Önceden sayfada yer alan açılır listeyi silin.
-- Modül2'deki SATIRACMacro1() adlı makroyu silin,
-- alt taraftan SayfaANA adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
(Combobox'un numarasına dikkat edin, kod'da bu numara kullanılıyor)
-- aynı adı taşıyan ( Private Sub ComboBox1_Change() ) kod varsa onu silin.
.

[B]Private Sub ComboBox[COLOR="Red"]1[/COLOR]_Change()[/B]
Dim sayı As String
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("SONUC"): Set ws2 = Sheets("SayfaANA")
sayı = ComboBox[COLOR="Red"]1[/COLOR].Value
If ComboBox[COLOR="Red"]1[/COLOR] = "" Then Exit Sub
Application.ScreenUpdating = False
sonsat = ws1.[a35].End(3).Row
ws1.Unprotect "" 'koruma kaldır
ws1.Range("B15:CE34").Locked = True
ws1.Range("B15:CE34").FormulaHidden = True
ws2.[D2].Activate
ws1.Range("B15:CE" & sonsat).ClearContents: ws1.Activate
If sayı = 1 Then GoTo 10
ws1.Range("B14:CE14").Copy ws1.Range("B15:CE" & sayı + 13)
Application.CutCopyMode = False
10: son = ws1.Cells(Rows.Count, "B").End(3).Row + 1
ws1.Range("A" & son + 1 & ":CD" & son + 1).Borders(xlEdgeBottom).LineStyle = xlNone
With ws1
   .Range("A" & son & ":CD34").Interior.Color = xlNone
   .Range("A" & son & ":CE34").Borders(xlInsideVertical).LineStyle = xlNone
   .Range("A" & son & ":CD34").Borders(xlInsideHorizontal).LineStyle = xlNone
   .Range("A14").Select
End With
ws1.Protect "" 'koruma ekle
  Application.ScreenUpdating = True
[B]End Sub[/B]