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

• #47636 Delila_1 veterán mdk01 #47632

  Új Válasz 2021-10-24 16:17:01 #47636

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

  Teljes oszlophoz
  Sub Nagy_Kicsi()
    Dim szoveg As String, sor As Integer
    
    For sor = 1 To 8
        Range("A" & sor).Copy
        Range("B" & sor).PasteSpecial xlPasteValues
        szoveg = Range("B" & sor).Value
        Range("B" & sor).Characters(Start:=1, Length:=InStr(szoveg, "(") - 1).Font.Size = 15
        Range("B" & sor).Characters(Start:=InStr(szoveg, "("), Length:=20).Font.Size = 8
    Next
End Sub
  

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