Alan verildiğinde o alandaki yazıyı kalın, italik veya altı çizili yapmaya yarayan VBA kodu alternatifidir.
Option Explicit
Sub SecilenAlaninYaziBiciminiKalinYap(alan As Range)
alan.Font.Bold = True
End Sub
Sub SecilenAlaninYaziBiciminiItalikYap(alan As Range)
alan.Font.Italic = True
End Sub
Sub SecilenAlaninYaziBiciminiAltiCiziliYap(alan As Range)
alan.Font.Underline = True
End Sub
Sub OrnekKullanim()
Range("A1:C10").ClearFormats
Range("A1:A10") = "Kalın Yazı"
Range("B1:B10") = "İtalik Yazı"
Range("C1:C10") = "Altı Çizili Yazı"
SecilenAlaninYaziBiciminiKalinYap Range("A1:A10")
SecilenAlaninYaziBiciminiItalikYap Range("B1:B10")
SecilenAlaninYaziBiciminiAltiCiziliYap Range("C1:C10")
End Sub