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

• #21823 Delila_1 veterán bagira82 #21818

  Új Válasz 2014-05-30 12:09:49 #21823

  Ú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 bagira82 #21818 üzenetére

  Sub mm()
  Dim Tomb, i As Integer, j As Integer, a As Variant
  
  For i = 1 To 5
  Tomb = Split(ActiveSheet.Cells(i, 4).Value, ",")
  For j = 0 To UBound(Tomb)
  a = Tomb(j)
  MsgBox a
  Next
  Next
  End Sub

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