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

• #47329 Delila_1 veterán andreas49 #47327

  Új Válasz 2021-09-08 14:40:45 #47329

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

  Több tételnél ez a makró az utolsó karaktert felső indexbe teszi.
  Ebben az esetben az A1:A10 tartományban működik.

  Sub FelsoIndex()
    Dim kezd As Integer, sor As Integer
    For sor = 1 To 10
        If Len(Cells(sor, 1)) > 1 Then
            kezd = Len(Range("A" & sor))
            Cells(sor, 1).Characters(Start:=kezd, Length:=1).Font.Superscript = True
        End If
    Next
End Sub

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