yazi tiplerini örnekli listele Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub yazitipleri()
  Dim SchrNr As Integer, Schriftliste As Object, Text As Variant
  Set Schriftliste = Application.CommandBars("formatting").FindControl(Id:=1728)
  Application.ScreenUpdating = False
  On Error Resume Next
  [A:D].ClearContents
  For SchrNr = 0 To Schriftliste.ListCount - 1
    Cells(SchrNr + 1, 1).Value = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 2).Value = "€"        'Eurosymbol
    Cells(SchrNr + 1, 3).Value = "abcdefghijklmnopqrstuvwxyzäöü"
    Cells(SchrNr + 1, 4).Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
    Cells(SchrNr + 1, 2).Font.Name = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 3).Font.Name = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 4).Font.Name = Schriftliste.List(SchrNr + 1)
  Next
  [A:D].EntireColumn.AutoFit
  Application.ScreenUpdating = True
  
  ' Warnmeldung zuviele Schriften hier einstellbar:
  If SchrNr > 200 Then
    Text = Chr(13) & Chr(13) & "Achtung!" & Chr(13) & _
    "Sie haben viel zu viele Schriftarten installiert"
  End If
  MsgBox "     Es wurden insgesamt " & SchrNr & " Schriftarten gefunden." _
    & Chr(13) & "Im Feld mit der Roten Schrift sieht man das Eurosymbol," _
    & Chr(13) & "                     wenn die Schrift Eurofähig ist," _
    & Chr(13) & "                           sonst nur ein Kästchen" & Text
End Sub

Benzer Sonuçlar
No	Makro Adı
1	yazi tiplerini örnekli listele
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
4	renkleri listeleme
5	dosya arama 2
6	"Web Seçenekleri Yazı Tipleri" Dialog Penceresi
7	hücre biçimlendir/yazı tipleri penceresi
8	yazi tipleri penceresi
9	forma otomatik resim getirme
10	bazı sayfaların listelenmesini engelleme
11	toplama formülü makro örnekleri
12	a1 hücresini b1 hücresine yapıştır c1 gitsin
13	hücrelerde font, renk yazı tipi değiştirme
14	text dosyası 1 oluşturma
15	hücre biçimini ayarlamak
16	gizli sayfada makro çalışır mı
17	hücredeki yazi karakterinin rengine göre filtreleme
18	renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)
19	tek hücrede yer alan "ad soyad" bilgisini ayrı hücrelere alma
20	hücreye şifre vermek

Benzer Sonuçlar

Makro Adı

yazi tiplerini örnekli listele

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

renkleri listeleme

dosya arama 2

"Web Seçenekleri Yazı Tipleri" Dialog Penceresi

hücre biçimlendir/yazı tipleri penceresi

yazi tipleri penceresi

forma otomatik resim getirme

bazı sayfaların listelenmesini engelleme