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

• #20210 Delila_1 veterán tgumis #20207

  Új Válasz 2014-01-24 10:37:15 #20210

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

  Egy példa arra, hogy az összefűzött adatnál hogy lehet cellán belül formázni:

  Sub FormazasCellanBelul()
  Dim kezd As Integer, sor As Integer
  
  'Képletek értékké alakítása
  Columns(3).Copy
  Range("C1").PasteSpecial xlPasteValues
  
  sor = 1
  
  'Formázás
  Do While Cells(sor, "C") <> ""
  'Kötjel helyének megállapítása
  kezd = Application.WorksheetFunction.Search("_", Cells(sor, "C"))
  
  'Kötjel előtti rész színének beállítása
  Cells(sor, "C").Characters(Start:=1, Length:=kezd - 1).Font.ColorIndex = 3
  
  'Kötjel utáni rész félkövérre állítása
  Cells(sor, "C").Characters(Start:=kezd + 1, Length:=100).Font.Bold = True
  
  sor = sor + 1
  Loop
  End Sub

  Az összefűzött adatok nálam a C oszlopban vannak. Az adatokat alsó kötjel beiktatásával fűztem össze. Ezeket csak akkor tudom cellán belül formázni, ha a képletek helyett irányított beillesztéssel átalakítom értékekké.
  Az alsó kötjel előtti karakterek színét pirosra állítottam, a kötjel utániak félkövérek lesznek.

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