[PrzecineQ]

#vba #excel Pierdziele się z tym od godziny.Wie ktoś może jak zsumować kolumnę w excelu i wynik wrzucić do zmiennej za pomocą VBA.

[r.....6]

@PrzecineQ: Application.WorksheetFunction

[PrzecineQ]

@reneq16: suma1 = Application.WorksheetFunction.sum(Range("C1:C" & d))
Przy takim czymś pojawia się komunikat "Sub or function not defined" i wskazuje na Range.

[PrzecineQ]

@PrzecineQ: d to ostatnia pozycja kolumny

[r.....6]

@PrzecineQ:
Option Explicit
Sub licz()
Dim suma1
Dim d: d = 27

suma1 = Application.WorksheetFunction.Sum(Range("a1:a" & d))
MsgBox suma1
End Sub

Mi działa. Sprawdź, czy gdzieś nie masz literówki.

[PrzecineQ]

suma1 = Application.WorksheetFunction.Sum(Range("a1:a" & d))

@reneq16: Czy język excela ma jakieś znaczenia przy funkcjach?

[r.....6]

@PrzecineQ: z tego co wiem nie

[PrzecineQ]

@reneq16: To nie mam pojęcia co może się w tym spierdzielić

[l.....r]

@PrzecineQ:
Function OstatniaPozycja() As Long
OstatniaPozycja = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
End Function
Sub suma_test()
Dim a As Long

a = WorksheetFunction.Sum(Range("D1:D" & OstatniaPozycja))
MsgBox (a)

End Sub

[brak_nicku]

@lukmarr: UsedRange to zdecydowanie nie jest dobry sposób na wyznaczanie ostatniego wiersza, ta właściwość nie powinna istnieć, bo nie nadaje się do niczego w poważnych zastosowaniach.