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

• #13816 Fire/SOUL/CD félisten concret_hp #13811

  Új Válasz 2012-05-24 09:57:29 #13816

  Ú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 concret_hp #13811 üzenetére

  A makró

  Public Sub FSCD_concret_hp()
  
  Dim MySum As Long
  Dim MyRange_1 As Range
  Dim MyRange_2 As Range
  Dim MyRange_3 As Range
  
  Set MyRange_1 = Range("A1")
  Set MyRange_2 = Range("B1")
  Set MyRange_3 = Range("C1")
  
  If MyRange_1.Offset(MyRange_1.End(xlDown).Row - 1, 0) Then
  MsgBox ("A(z) " & MyRange_1.Address & " oszlop utolsó cellájának értéke 0 kell, hogy legyen!")
  Exit Sub
  End If
  
  MySum = 0
  For i = 0 To MyRange_1.End(xlDown).Row - 1
  If MyRange_1.Offset(i, 0) Then
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = ""
  Else
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = MySum
  MySum = 0
  End If
  Next i
  
  End Sub

  A makró eredménye [link]

  Megjegyzés
  Az oszlop, amelyek a 0-kat is tartalmazzák nem tartalmazhat üres cellát.

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