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

• #54732 Mutt senior tag Lasersailing #54730

  Új Válasz 2025-11-12 18:33:24 #54732

  Ú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

  

  Mutt

  senior tag

  válasz Lasersailing #54730 üzenetére

  Két megoldás:
  1) Sheets(sob).Cells(3, sob_om).Comment.Text Sheets(sob).Cells(3, sob_om).Comment.Text & vbNewLine & "új megjegyzés"

  2) Sheets(sob).Cells(3, sob_om).Comment.Text vbNewLine & "új megjegyzés", Len(Sheets(sob).Cells(3, sob_om).Comment.Text)+1

• #54731 Fferi50 Topikgazda Lasersailing #54730

  Új Válasz 2025-11-12 18:31:21 #54731

  Ú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

  

  Fferi50

  Topikgazda

  válasz Lasersailing #54730 üzenetére

  Szia!
  Pl.:
  ktext=Range("A1").Comment.Text
Range("A1").Comment.Text Text:=chr(10) & "Új comment", Start:=len(ktext)+1, Overwrite:=False
  A := kombinációval a paramétereknek tudunk értéket adni.
  Üdv.

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