Sumowanie godzin w VBA

Question

Cześć,

Tworzę arkusz do obliczania czasu pracy. Chciałbym zsumować ilość godzin z kliku komórek i zapisać to do zmiennej. Na przykład:

Komórka A1 = 5:00

Komórka A2 = 23:00

Zmienna Suma = A1+A2 (czyli 28 godzin)

Dopiero zaczynam przygodę z VBA i nie wiem jak to zrobić :(

 

Z góry dziękuję za pomoc :)

Answer 1

np. tak - ale nie bój się googlac - w necie znajdziesz mnóstwo przykładów

 Dim suma As Integer
 ' bepośrednie indeksy ( row,col)
 suma = Cells(1, 1).Value + Cells(2, 1).Value
 Cells(3, 1) = suma
 ' tzw range
 suma = Range("A2").Value + Range("A3").Value
 Range("A3").Value = suma

 

Comments

Wiedziałem że można zrobić to w taki sposób. Ale ja w wyniku dostaje 00:00. Myślałem że trzeba coś z formatowaniem kombinować

---

zmień na

Dim suma As Double

rozumiem że komórki masz sformatowane jako czas ?

---

Zmieniłem Dim na Double, utworzyłem nowy arkusz, przepisałem makra i działa :) Musiałem zepsuć coś kiedy próbowałem znaleźć źródło problemu. Dzięki za pomoc :D

---

Function w_sum4(arg33, Optional delimiter33 As String = "x")
 
 Dim rng As Range
 Dim i As Integer
 Dim j As Integer

 For Each rng In arg33
    i = (Split(rng, delimiter33)(0)) + (i)
    j = (Split(rng, delimiter33)(1)) + (j)
 Next rng
 
 w_sum4 = Trim(i) & delimiter33 & Trim(j)
 
    
End Function

Pierwszy argument to adres komórki, np.: A1, a drugi argument to delimiter, czyli, to co wpiszesz pomiędzy dwiema liczbami.

20:20

40:01

10:20

Tutaj pomiędzy liczbami stoi dwukropek, więc trzeba napisać tak:

=w_sum4(A1:A3,":")

Rezultat:

70:41

Jeśli będzie stał "x", to nic nie trzeba będzie wpisać na miejsce drugiego argumentu.

50x10

10x70

=w_sum4(A1:A2)

Rezultat:

60x80