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

• #47331 Delila_1 veterán andreas49 #47330

  Új Válasz 2021-09-08 18:57:29 #47331

  Ú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 andreas49 #47330 üzenetére

  Óhajod parancs.

  Sub FelsoIndex_1()
    Dim CV As Object
    For Each CV In Range("E5:AL169")
        If Len(CV) = 2 Then CV.Characters(Start:=2, Length:=1).Font.Superscript = True
        If Len(CV) = 3 Then CV.Characters(Start:=2, Length:=2).Font.Superscript = True
    Next
End Sub

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