viết code chạy tự động toàn bộ hay tạo hàm người dùng?
Cách cộng giờ phút (11 người xem)
- Thread starter phulien1902
- Ngày gửi
Người dùng đang xem chủ đề này
có 3 cách làm:
1/ dùng công thức, không cần cột phụ
2/ dùng code VBA viết lệnh, bấm nút lện nó sẽ chạy tự đông toàn bộ kết quả, bạn phải cho biết vị trí cụ thể mới viết tốt được
3/ dùng code VBA tạo hàm người dùng theo 2 cách:
- nhập ở dòng đầu và copy xuống, tương tự như dùng công thức
- Nhập ở 1 dòng bất kỳ những dòng khác không cần, bạn phải cho biết vị trí cụ thể, phải có file với sheet chuẩn
bạn chọn cách nào?
Lần chỉnh sửa cuối:
Dạ em cảm ơn bác nhiều, bác dùng code VBA giúp em nhập ở dòng bất kỳ ở các cột và các dòng phía bên cạnh tự động hiện theo. vd em nhập là 30s 50tt thì cột bên cạnh tương ứng sẽ chạy ra kết quả .thời gian bắt đầu là 0 phút 0s và 00tt ạ, bác cho em một phím tắt luôn ạ. khi em nhập em chỉ cần sử dụng phím tắt là có kết quả . em cảm ơn bác đã rất nhiệt tình giúp đỡ!!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("$A$3:B" & Range("A65000").End(xlUp).Row)) Is Nothing Then
r = Target.Row
If Range("A65000").End(xlUp).Row = Range("B65000").End(xlUp).Row Then
Range("C" & r).Value = Application.Sum(Range("A2:A" & r - 1)) / 1440 + Application.Sum(Range("B2:B" & r - 1)) / 86400
Range("D" & r).Value = Application.Sum(Range("A3:A" & r)) / 1440 + Application.Sum(Range("B3:B" & r)) / 86400
Range("E" & r).Value = Range("A" & r).Value / 1440 + Range("B" & r).Value / 86400
Range("C" & r & ":E" & r).NumberFormat = "h:mm:ss.00"
End If
End If
End Sub
Nếu bảng dữ liệu thay đổi bạn chỉnh lại chổ chữ màu đỏ
nhập cột A và B sẽ tự tính dòng tương ứng, nhưng không tính lại các dòng khác
If Not Intersect(Target, ActiveSheet.Range("$A$3:B" & Range("A65000").End(xlUp).Row)) Is Nothing Then
r = Target.Row
If Range("A65000").End(xlUp).Row = Range("B65000").End(xlUp).Row Then
Range("C" & r).Value = Application.Sum(Range("A2:A" & r - 1)) / 1440 + Application.Sum(Range("B2:B" & r - 1)) / 86400
Range("D" & r).Value = Application.Sum(Range("A3:A" & r)) / 1440 + Application.Sum(Range("B3:B" & r)) / 86400
Range("E" & r).Value = Range("A" & r).Value / 1440 + Range("B" & r).Value / 86400
Range("C" & r & ":E" & r).NumberFormat = "h:mm:ss.00"
End If
End If
End Sub
Nếu bảng dữ liệu thay đổi bạn chỉnh lại chổ chữ màu đỏ
nhập cột A và B sẽ tự tính dòng tương ứng, nhưng không tính lại các dòng khác
songlodiemhen86
Thành viên mới
- Tham gia
- 26/5/12
- Bài viết
- 1
- Được thích
- 0
bạn xem dùm cho mình sao cột bên mình làm lại không ra được nhỉ
Trong file đính kèm, thấy trên sheet1:
+ Cột C là đúng. Bạn đã định dạng để có chữ h. Kết qủa cộng bằng SUM cũng đúng.
+ Cột F bạn nhập văn bản chứ không phải số vì có chữ h. Công thức chắc đùng
+ Cột I có các số liệu được định dạng để có chữ h nên dùng SUM được. Nhưng tôi đã chép định dạng của ô C11 sang thì đúng.
Tôi cũng gửi lại file
Nhận xét: Excel đã có định dạng số theo dạng hh:mm:ss. Ta nên sử dụng để dùng các phép toán cộng, trừ (cho số không âm) một cách bình thường.
Cũng kg cần định dạng lại theo kiểu 16h25. Bạn thấy các đồng hồ hiện số đều có định dạng hh:mm:ss, tức là định dạng này là khá quen thuộc.
+ Cột C là đúng. Bạn đã định dạng để có chữ h. Kết qủa cộng bằng SUM cũng đúng.
+ Cột F bạn nhập văn bản chứ không phải số vì có chữ h. Công thức chắc đùng
+ Cột I có các số liệu được định dạng để có chữ h nên dùng SUM được. Nhưng tôi đã chép định dạng của ô C11 sang thì đúng.
Tôi cũng gửi lại file
Nhận xét: Excel đã có định dạng số theo dạng hh:mm:ss. Ta nên sử dụng để dùng các phép toán cộng, trừ (cho số không âm) một cách bình thường.
Cũng kg cần định dạng lại theo kiểu 16h25. Bạn thấy các đồng hồ hiện số đều có định dạng hh:mm:ss, tức là định dạng này là khá quen thuộc.
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,434
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
ý bạn sao? đọc file chưa hiểu lắm?
quocgiacan
-⍟-
- Tham gia
- 22/3/08
- Bài viết
- 3,392
- Được thích
- 5,909
- Giới tính
- Nam
Thử
PHP:
C2=SUMPRODUCT(LEFT(C$3:C$2921,FIND("'",C$3:C$2921)-1)*60+MID(C$3:C$2921,FIND("'",C$3:C$2921)+1,2))/(24*60)Ra kết quả có đơn vị giờ
Chúc bạn ngày vui.
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,434
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
trong công thức của Anh, em ráp ra kết quả là những số này:
C2: 234.2840278 H2: 240.4708333
Em chưa hiểu lắm, Mong Anh chỉ dạy thêm.
Em chúc Anh ngày vui!
quocgiacan
-⍟-
- Tham gia
- 22/3/08
- Bài viết
- 3,392
- Được thích
- 5,909
- Giới tính
- Nam
Ý của chủ thớt nói: em hãy cộng toàn bộ dữ liệu theo số phút và giây của cột C và cột H, nhưng do nó là chuỗi thì em phải đổi nó ra số rồi cộng lại.
Do cách diễn đạt về từ ngữ thôi em!
Chúc em ngày vui.
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,434
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
góp thêm công thức mảng
Mã:
C2 =SUM(--SUBSTITUTE(SUBSTITUTE(C3:C2921,"'",":"),"""",""))Format cell theo dạng: [h]:mm
hoặc
Mã:
C2 =SUMPRODUCT(--SUBSTITUTE(SUBSTITUTE(C3:C2921,"'",":"),"""",""))/60Format cell theo dạng: [m]:ss
chúc các bạn 1 ngày vui
Lần chỉnh sửa cuối:
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,434
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
Công thức kinh điển, đúng là tuyệt chiêu hay, em mới thấy lần đầu,
chúc Anh ngày vui!
Bài viết mới nhất
- Question
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
(2 người xem)
- Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
(1 người xem)
NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ
(1 người xem)
