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

• #13358 Fire/SOUL/CD félisten Oly #13355

  Új Válasz 2012-04-02 01:11:45 #13358

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly #13355 üzenetére

  Én így oldanám meg ezt a feladatot

  Public s As Integer, m As Integer
  
  Sub MySubRoutine(MyIndex_s As Integer, MyIndex_m As Integer, Optional MyValue As Variant, Optional MyString As Variant)
  
  Cells(MyIndex_s + 1, 11).Value = DateValue(Now)
  Cells(MyIndex_s + 1, 12).Value = Cells(MyIndex_m + 1, 1).Value
  Cells(MyIndex_s + 1, 13).Value = "A"
  If Not IsMissing(MyValue) Then Cells(MyIndex_s + 1, 14).Value = MyValue
  If Not IsMissing(MyString) Then Cells(MyIndex_s + 1, 15).Value = MyString
  
  End Sub
  
  
  Sub MyMainCode()
  
  s = s + 1
  MySubRoutine s, m, 48
  s = s + 1
  MySubRoutine s, m, 49
  s = s + 1
  MySubRoutine s, m, 31, "ID"
  s = s + 1
  MySubRoutine s, m
  
  End Sub

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