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

• #47333 Delila_1 veterán andreas49 #47332

  Új Válasz 2021-09-09 06:40:22 #47333

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

  Ha nem számként vitted be eleve az adatokat, akkor nem lenne probléma. Azzal, hogy szöveg formátumúra alakítottad a cellákat, még számok maradtak.
  Beszúrunk egy sort, ami egyenként szöveggé konvertálja a számokat, így már működni fog.

  Sub FelsoIndex_1()
    Dim CV As Object, koztes
    For Each CV In Range("E4:AL169")
        CV = CV & ""
        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