Ú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
  

• #47635 Delila_1 veterán mdk01 #47632

  Új Válasz 2021-10-24 14:14:00 #47635

  Ú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

  Képletet tartalmazó cellában nem tudod a karakterek egy részét módosítani.
  Lehet viszont segédcellában, ahova értékként átmásolod a képletet tartalmazó cella adatát. Ezt teszi a lenti makró. Az utolsó előtti sor a zárójel előtti részt 15-ös karakterűre állítja a segédcellában, az utolsó a többi részt 8-asra. Nem kívánt törlendő, a két méret tetszés szerint módosítható.
  Ciklusba is beteheted, hogy egy teljes oszlop adatait átmásolja, és formázza.
  Sub Nagy_Kicsi()
    Dim szoveg As String, kezd As Integer
    
    Range("A1").Copy
    Range("B1").PasteSpecial xlPasteValues
    szoveg = Range("B1").Value
    kezd = InStr(szoveg, "(")
    Range("B1").Characters(Start:=1, Length:=kezd - 1).Font.Size = 15
    Range("B1").Characters(Start:=kezd, Length:=20).Font.Size = 8
End Sub

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