Új hozzászólás Aktív témák

• #33127 Delila_1 veterán Juditta_56 #33123

  Új Válasz 2016-11-04 07:08:53 #33127

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Juditta_56 #33123 üzenetére

  A lenti makró a kijelölt tartományban végzi el a számok félkövérre állítását a szövegen belül. Ez a tartomány az eredeti, képlettel előállított szövegnek az értékként beillesztett területe legyen.

  Sub Felkover()
Dim CV As Range, b As Integer

For Each CV In Selection
For b = 1 To Len(CV)
If IsNumeric(Mid(CV, b, 1)) Then CV.Characters(b, 1).Font.Bold = True
Next
Next
End Sub

Új hozzászólás Aktív témák