SG Fórum - Excel kérdés - #804

SG Fórum - Excel kérdés - #804

Fórum / Felhasználói programok

Delila1 2010. feb. 16. 18:07 | válasz | #804
Az elõzõ makróban a Dim sor, oszlop As Integer felesleges, hagyd ki.

Itt egy másik makró, ahova fixen beírhatod az összegzendõ tartományt, ami nálam most A1:B10. Az eredményt az A15 cellába írja ki.

Sub másik()

Dim sz As Double

Dim ter As String

Dim CV As Object

ter = "$A1:$B$10"

For Each CV In Range(ter)

sz = sz + CV.Value

Next

Cells(15, 1) = sz

End Sub

Válasz 'petx' üzenetére (#800)