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

• #23039 Delila_1 Topikgazda tgumis #23036

  Új Válasz 2014-08-30 07:52:09 #23039

  Ú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

  Topikgazda

  válasz tgumis #23036 üzenetére

  Rossz hír, hogy a képlettel beírt szöveget nem lehet részenként formázni, csak azt, ahova a képlettel összehozott szöveget értékként beilleszted. Erre alkalmazhatsz egy kis makrót, ami az A11-ben összefűzött szöveget az A13-ba illeszti be. Ebből a makróból indíthatod a formázást.

  Sub Beilleszt()
  Range("A11").Copy
  Range("A13").PasteSpecial xlPasteValues
  Forma
  End Sub

  Sub Forma()
  Dim start As Integer, hossz As Integer, szin As Integer, felk As Boolean
  Dim meret As Integer
  
  With Cells(13, 1).Characters.Font
  .Name = "Arial"
  .ColorIndex = 0
  .Size = 10
  .Bold = False
  End With
  
  start = 1: hossz = Len(Range("A1")): meret = 18: szin = 3: felk = True: GoSub Szinez
  start = start + hossz + 1: hossz = Len(Range("A2")) + 1 + Len(Range("A3")) + Len(Range("A4"))
  meret = 14: szin = 0: felk = True: GoSub Szinez
  Exit Sub
  
  Szinez:
  With Cells(13, 1).Characters(start:=start, Length:=hossz).Font
  .ColorIndex = szin
  .Size = meret
  .Bold = felk
  End With
  Return
  End Sub

  Azt azért megnézném, ahogy a lapát nyelével felásol egy területet.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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