Thử cách bình dân này xem sao. Nếu có ô trống ở giữa thì cộng thiếu ráng chịu
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim FirstRow, LastRow
FirstRow = [A65536].End(3).End(3).Row
LastRow = [A65536].End(3).Row
[C3].Formula = "=Sum(A" & FirstRow & ":A" & LastRow & ")"
Application.EnableEvents = True
End Sub
Cho hỏi mục đích của bạn là gì? cái vụ tính tổng này cần gì phải VBA nhỉ ( hoặc nếu cần chỉ việc record Macro là ok ),<--------- hay bạn có 1 điều gì "huyền bí" ,có thể chia sẻ cho mọi người được không ?
Thanks bác ạ, em nghiên cứu tiếp chắc là ổn ạ
Không bạn ơi mình đang học code nhưng mình lại hay tìm những cái gì mình nghĩ mà k làm được để học thôi bạn ạ chứ không có gì thực sự đọc sách chỗ hiểu chỗ không nên nhờ các thầy chỉ giúp bạn ạ.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim FirstRow, LastRow
FirstRow = [A65536].End(3).End(3).Row
LastRow = [A65536].End(3).Row
[C3] = Evaluate("=Sum(A" & FirstRow & ":A" & LastRow & ")")
Application.EnableEvents = True
End Sub
Chỉ là phép cộng thôi thì đơn giản mà. Nếu là muốn nghiên cứu thì mời xem tiếp code dùng vòng lặp. Hy vọng bạn biết áp dụng vào thực tế.
Sub cong()
Dim nguon(), i, kq
nguon = Sheet1.[A1:A65536].Value
For i = 1 To UBound(nguon)
If nguon(i, 1) > 0 Then kq = kq + nguon(i, 1)
Next
Sheet1.[C3] = kq
End SubGửi anh NDU a noi rất đúng và chuẩn nhưng khi anh đã thong thạo về VBA còn với tôi mới chỉ làm quen 1 tháng và chẳng có ai dạy đôi khi 1 điều mình hỏi có thể rất vô tư với mình nhưng lại rất khó chịu đối với người khác, có 1 câu chuyện xảy ra ở cơ quan tôi thế này: 1 anh rất giỏi về nghiệp vụ của mình(anh ấy làm PR) hễ ai nói đến việc của anh ấy là kiểu gì cũng bị giáo huấn, nhưng có 1 điều anh ấy rất dở đó là với gia đình thì anh ấy lại chỉ là gã học việc như tôi mà thôi, với tối có nhiều thứ khác cần thể hiện hơn mà đó chỉ có thể là đời thực chứ k cần thế giới ảo như thế này
. trả lời cho câu hỏi thứ 3 của anh xin thưa với anh Pro cũng hiểu theo nhiều nghĩa anh ạ tiếng anh nghĩa bóng thì e rang còn nhiều người phải học nữa anh ạ, còn chúng nó ở đây anh ám chỉ gì em chẳng "thèm" quan tâm: "Người biết luôn muôn mình là kẻ dại, còn người dại thì luôn muốn mình là kẻ giỏi" mà cũng đúng that giờ internet bùng nổ có ai cầm mấy quyển truyện rách để đọc đâu nói đến đây em lại nhớ đến chuyện đẽo cầy anh ạ.
Gửi anh NDU a noi rất đúng và chuẩn nhưng khi anh đã thong thạo về VBA còn với tôi mới chỉ làm quen 1 tháng và chẳng có ai dạy đôi khi 1 điều mình hỏi có thể rất vô tư với mình nhưng lại rất khó chịu đối với người khác, có 1 câu chuyện xảy ra ở cơ quan tôi thế này: 1 anh rất giỏi về nghiệp vụ của mình(anh ấy làm PR) hễ ai nói đến việc của anh ấy là kiểu gì cũng bị giáo huấn, nhưng có 1 điều anh ấy rất dở đó là với gia đình thì anh ấy lại chỉ là gã học việc như tôi mà thôi, với tối có nhiều thứ khác cần thể hiện hơn mà đó chỉ có thể là đời thực chứ k cần thế giới ảo như thế này
Tôi không có ý đó nhưng học mà k có thầy cung giống như hỏi đường khi đi du lịch mà k biết tiếng bản địa anh ạ, còn biết tiếng rồi thì đon giản lắm a ạ. Tôi cũng đã tâm sự nhiều với Bạn Linh, Em Duy, Anh Hải cả thầy Hướng và THầy Tuân khổ nhất là đi hỏi mọi người qua nhiêu nhưng k biết thì phải hỏi a ạ
Tức là bạn ấy đang hỏi những cái chưa cần đến so với trình độ của mình (giống như hỏi việc tạo cái đồng hồ trên bảng tính, chả biết để làm gì)
