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

• #50379 lappy őstag istvankeresz #50377

  Új Válasz 2023-02-02 12:37:56 #50379

  Ú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

  

  lappy

  őstag

  válasz istvankeresz #50377 üzenetére

  Sub mesage()
Dim msg As String
msg = ""
For i = 1 To 3
For Each a In Array("A", "B", "C")
msg = msg & Cells(i, a).Value & vbTab
Next a
msg = msg & vbCrLf
Next i
MsgBox msg
End Sub

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