Sum có điểm dừng (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Y

yen_truy_van

Thành viên mới
Tham gia
12/3/08
Bài viết
4
Được thích
0
Nhờ Anh Chị giúp lập dùm công thức: tổng trong cột nhưng có điểm dừng (file đính kèm).
 

File đính kèm

Lần chỉnh sửa cuối:
yen_truy_van đã viết:
Nhờ Anh Chị giúp lập dùm công thức: tổng trong cột nhưng có điểm dừng (file đính kèm).
Nhấp chuột vào đây để mở rộng...
Bạn dùng hàm Sumif là được.
B5=SUMIF(A:A,A5,B:B)
C9=SUMIF(A:A,A9,B:B)
….
Không biết sao gủi file ko được
Bạn nhớ điền mã CV(AAA..) vào tất cả những dòng liên quan đến CV đó
VD từ dòng A5 đến A8 là AAA
 
Lần chỉnh sửa cuối:
Với bài toán này thì dùng công thức ko hay bằng VBA.. vì nếu tính 1 cách tổng quát thì ta phải làm công thức cho toàn bộ cột C, với điều kiện cột A khác rổng thì sẽ SUMIF theo cột A... như vậy sẽ quá phí...
Bạn xong file này dùng vòng lập nhé.. (Hãy sửa code lại cho đúng với thực tế)
ANH TUẤN
 

File đính kèm

Mấy anh chỉ em, em không hiểu gì hết, vì em chưa biết nhiều về công thức cũng như VBA. Xin các anh giúp trực tiếp trên file em đã gởi kèm. Cám ơn các anh nhiều, cám ơn diễn đàn luôn !!!
 
bc1: bạn mở excel rồi chọn tool-macro-security rồi bạn click vào mục "medium" đóng chương trình excel lại .
b2.bạn mở file đính kèm của anhtuan1066, khi hiện bảng thông báo"bạn click nút "enable". sau đó click nút tổngcộng trong file excel nó sẽ tự tính.

yen_truy_van đã viết:
Mấy anh chỉ em, em không hiểu gì hết, vì em chưa biết nhiều về công thức cũng như VBA. Xin các anh giúp trực tiếp trên file em đã gởi kèm. Cám ơn các anh nhiều, cám ơn diễn đàn luôn !!!
Nhấp chuột vào đây để mở rộng...
 
anhtuan1066 đã viết:
Với bài toán này thì dùng công thức ko hay bằng VBA.. vì nếu tính 1 cách tổng quát thì ta phải làm công thức cho toàn bộ cột C, với điều kiện cột A khác rổng thì sẽ SUMIF theo cột A... như vậy sẽ quá phí...
Bạn xong file này dùng vòng lập nhé.. (Hãy sửa code lại cho đúng với thực tế)
ANH TUẤN
Nhấp chuột vào đây để mở rộng...
Thưa thày có cách nào dùng VBA mà kết quả sau khi chạy xong, tại ô kết quả nó là công thức chứ không phải là giá trị (Value). Em ví dụ sau khi chạy VBA thì ô C11 xuất hiện công thức (=)A6+A7+A8 không ah.
 
Dauthivan đã viết:
Thưa thày có cách nào dùng VBA mà kết quả sau khi chạy xong, tại ô kết quả nó là công thức chứ không phải là giá trị (Value). Em ví dụ sau khi chạy VBA thì ô C11 xuất hiện công thức (=)A6+A7+A8 không ah.
Nhấp chuột vào đây để mở rộng...
Code cũ là:
PHP: 
Sub TongCong()
  Dim Er As Integer, iM As Integer
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    iM = iM + Cells(i, 2).Value
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = iM
       iM = 0
    End If
  Next i
End Sub
Sửa lại tí thôi:
PHP: 
Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = "=SUM(" & Cells(i, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub
 
ndu96081631 đã viết:
Sửa lại tí thôi:
PHP: 
Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 1) <> "" Then
       Cells(i, 3).Value = "=SUM(" & Cells(i, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?
 
Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?
Nhấp chuột vào đây để mở rộng...

Các bác biết, xin làm giùm em với. Em đang rất cần học hỏi VBA
 
Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?
Nhấp chuột vào đây để mở rộng...

Nếu không có giá trị ở cột B để cho ra kết quả ở cột C, thì lấy giá trị nào để xuất kết quả ra cột B, mà ý của bạn lại là công thức hả bạn?
 
Dauthivan đã viết:
Em nghĩ thuật toán từ tối mà không được trong trường hợp em muốn kết quả tổng cộng đặt ngay tại cột B chứ không phải là cột C như bài cũ nữa (tức kết quả tổng tính được đặt ngay trên cùng cột với các thành phần của nó) thì trong trường hợp này code sửa thế nào ah?
Nhấp chuột vào đây để mở rộng...
Cũng chỉ sửa có tí thôi:
PHP: 
Sub TongCong()
  Dim Er As Integer, iM As String
  Er = Range("B10000").End(xlUp).Row
  Range("C5:C" & Er).ClearContents
  For i = Er To 5 Step -1
    If iM = "" Then iM = Cells(i, 2).Address(0, 0)
    If Cells(i, 2) = "" Then
       Cells(i, 2).Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
       iM = ""
    End If
  Next i
End Sub
 
ndu96081631 đã viết:
Cũng chỉ sửa có tí thôi:
PHP: 
....
       Cells(i, 2).Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
Nhấp chuột vào đây để mở rộng...
cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.
 
Dauthivan đã viết:
cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.
Nhấp chuột vào đây để mở rộng...

Còn một cái mà tôi thấy vẫn chưa ổn là nếu giá trị bên trong mà thêm mục vào thì mình Insert hàng, nếu insert ở giữa thì khì OK, nhưng nếu bắt buộc từng mục có số thứ tự thì công thức sẽ không cộng vào những mục vừa insert mà code cũng không chạy vì Kết quả đã không phải là rỗng.

VD:
Mục A
A1
A2
A3
Mục B
B1
B2
B3
Sau khi chạy code, thì kết quả là SUM(A1,A3)

Bây giờ ta thêm vào 2 hàng nữa:

Mục A
A1
A2
A3
A4
A5
Mục B
B1
B2
B3
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.
 
Lần chỉnh sửa cuối:
minhthien321 đã viết:
Còn một cái mà tôi thấy vẫn chưa ổn là nếu giá trị bên trong mà thêm mục vào thì mình Insert hàng, nếu insert ở giữa thì khì OK, nhưng nếu bắt buộc từng mục có số thứ tự thì công thức sẽ không cộng vào những mục vừa insert mà code cũng không chạy vì Kết quả đã không phải là rỗng.

VD:
Mục A
A1
A2
A3
Mục B
B1
B2
B3
Sau khi chạy code, thì kết quả là SUM(A1,A3)

Bây giờ ta thêm vào 2 hàng nữa:

Mục A
A1
A2
A3
A4
A5
Mục B
B1
B2
B3
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.
Nhấp chuột vào đây để mở rộng...
Theo em cái này cũng đơn giản thôi, thêm câu lệnh xóa để thực hiện nguyên tắc dòng nào mà cột A có số thứ tự sẽ lập tức xóa nội dung cột B của dòng đó đi (cho ô B trở về rỗng như bài toán gốc), sau khi xong thao tác này mới thực hiện lện như thày ndu ở trên.
 
Lần chỉnh sửa cuối:
nguyenmanhnam đã viết:
Theo em cái này cũng đơn giản thôi, thêm câu lệnh xóa để thực hiện nguyên tắc dòng nào mà cột A có số thứ tự sẽ lập tức xóa nội dung cột B của dòng đó đi (cho ô B trở về rỗng như bài toán gốc), sau khi xong thao tác này mới thực hiện lện như thày ndu ở trên.
Nhấp chuột vào đây để mở rộng...

OK, vậy thì code sửa một chút nữa như vầy:

PHP: 
Sub TongCong()
    Dim Rng As Range, Er As Long, i As Long, iM As String
    Range([B5], [B65536].End(xlUp)).Font.Bold = False
    For Each Rng In Range([A5], [A65536].End(xlUp))
        If Rng <> vbNullString Then Rng.Offset(, 1).ClearContents
    Next
    Er = [B65536].End(xlUp).Row
    For i = Er To 5 Step -1
        With Cells(i, 2)
            If iM = vbNullString Then iM = .Address(0, 0)
            If .Value = vbNullString Then
                .Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
                .Font.Bold = True: iM = vbNullString
            End If
        End With
    Next i
End Sub

Vậy là xong!
 
Lần chỉnh sửa cuối:
Bài này với những ai mới học VBA tiếp cận là hay, tuy nhiên nó chưa tổng quát lắm, bởi nhiều khi trong công việc các cột số thứ tự và cột cần tính tổng không cố định, năm ngoái em được thày concogia và thày ptm0412 giúp cho bài này http://www.giaiphapexcel.com/forum/...tính-tổng-có-thể-copy-nhanh-không-ạh/page3vào đúng đêm 30 tết năm ngoái, đến giờ em vẫn nhớ như in. Gửi bạn Dauthivan xem tham khảo bài này sẽ giúp cho bạn rất nhiều.
 
Dauthivan đã viết:
cảm ơn thày, em đã tìm ra tại sao em không làm được rồi; tối hôm qua em cũng hình dung như vậy nhưng em quên là vòng lặp đi từ dưới lên trên (step-1) nên thay vì câu lệnh của thày em lại viết là
Cells(i, 2).Value = "=SUM(" & Cells(i -1, 2).Address(0, 0) & ":" & iM & ")" lên nó không ra.
Nhấp chuột vào đây để mở rộng...
Lúc này Cell(i-1,2) chưa xuất hiện thì làm sao mà tính được hả bạn.
 
minhthien321 đã viết:
Vì code đã có kết quả ở trên, tức là không rỗng, thì code chạy sẽ bỏ qua kết quả này, như vậy công thức sẽ không được cập nhật, trừ khi ta NHỚ sau khi insert thì xoá cái SUM ở mục đó để chạy lại code.
Nhấp chuột vào đây để mở rộng...
Lúc trước ta quét từ dưới lên, khi gặp cell rổng thì gán công thức
Giờ ta thêm 1 điều kiện nữa: Quét ngược từ dưới lên, nếu gặp cell rổng hoặc cell chứa công thức thì sẽ gán công thức mới
(chẳng hạn là If Cells(i, 2) = "" Or Cells(i, 2).HasFormula Then)
Đơn giản thế thôi
 
Lần chỉnh sửa cuối:
ndu96081631 đã viết:
Lúc trước ta quét từ dưới lên, khi gặp cell rổng thì gán công thức
Giờ ta thêm 1 điều kiện nữa: Quét ngược từ dưới lên, nếu gặp cell rổng hoặc cell chứa công thức thì sẽ gán công thức mới
(chẳng hạn là If Cells(i, 2) = "" Or Cells(i, 2).HasFormula Then)
Đơn giản thế thôi
Nhấp chuột vào đây để mở rộng...

Uh hen, vậy đâu cần phải 2 vòng lặp làm chi! Cám ơn Thầy!

PHP: 
Sub TongCong()
    Dim Er As Long, i As Long, iM As String
    Range([B5], [B65536].End(xlUp)).Font.Bold = False
    Er = [B65536].End(xlUp).Row
    For i = Er To 5 Step -1
        With Cells(i, 2)
            If iM = vbNullString Then iM = .Address(0, 0)
            If .Value = vbNullString Or .HasFormula Then
                .Value = "=SUM(" & Cells(i + 1, 2).Address(0, 0) & ":" & iM & ")"
                .Font.Bold = True: iM = vbNullString
            End If
        End With
    Next i
End Sub

p/s: Nếu chỉ có công thức SUM ở cột B như vậy thôi thì áp dụng cái thủ tục này, nhưng nếu các mục là công thức cập nhật từ nguồn khác thì dùng thủ tục 2 vòng lặp như bài trước!
 
Lần chỉnh sửa cuối:
minhthien321 đã viết:
p/s: Nếu chỉ có công thức SUM ở cột B như vậy thôi thì áp dụng cái thủ tục này, nhưng nếu các mục là công thức cập nhật từ nguồn khác thì dùng thủ tục 2 vòng lặp như bài trước!
Nhấp chuột vào đây để mở rộng...
Nói chung là tuy từng trường hợp mà viết code
Tuy nhiên xin nói rõ rằng: Mọi code đều dựa trên CSDL thực tế và dữ liệu đương nhiên phải có 1 quy luật nào đó (để bám vào mà viết code) ---> Vậy nên chẳng có 1 code nào có thể đáp ứng cho mọi trường hợp cả (nhất là dạng dữ liệu lung tung)
 
ndu96081631 đã viết:
Lúc trước ta quét từ dưới lên, khi gặp cell rổng thì gán công thức
Giờ ta thêm 1 điều kiện nữa: Quét ngược từ dưới lên, nếu gặp cell rổng hoặc cell chứa công thức thì sẽ gán công thức mới
(chẳng hạn là If Cells(i, 2) = "" Or Cells(i, 2).HasFormula Then)
Đơn giản thế thôi
Nhấp chuột vào đây để mở rộng...

Cư bài nào gặp trên diễn đàn mà do thày Ndu, thày Ptm0412 giải thì gần như là một thương hiệu tốt nhất, có thể coi là chuẩn mực mà mọi người tin tưởng; về mặt thuật toán như câu trên đơn thuần về mặt tư duy thì có thể suy luận được nhưng phần bôi đen ở trên sao em đọc các quyển sách VBA chẳng thấy nói đến. Xin thày chỉ cho em cách tìm các "từ vựng" đó ở đâu ah.
 
Lần chỉnh sửa cuối:
nguyenmanhnam đã viết:
Cư bài nào gặp trên diễn đàn mà do thày Ndu, thày Ptm0412 giải thì gần như là một thương hiệu tốt nhất, có thể coi là chuẩn mực mà mọi người tin tưởng; về mặt thuật toán như câu trên đơn thuần về mặt tư duy thì có thể suy luận được nhưng phần bôi đen ở trên sao em đọc các quyển sách VBA chẳng thấy nói đến. Xin thày chỉ cho em cách tìm các "từ vựng" như thế nào ah.
Nhấp chuột vào đây để mở rộng...
Làm sao biết được cell chứa công thức thì sẽ liên quan đến HasFormula? Thường thì trong cửa sổ VBA, tôi sẽ bấm F1, gõ từ khóa nào đó (mà tôi quan tâm) xem phần trợ giúp trả lời điều gì... Còn như vẫn tìm không ra, ta có google để làm gì? Gõ từ khóa vào mà tìm (có thể bằng tiếng Anh hoặc tiếng Việt)
-------------
Ngoài ra, khi rảnh, tôi vẫn thường "voc" tùm lum trong cửa sổ VBA... Ví dụ tôi viết thế này khi muốn tìm hiểu các thuộc tính có liên quan đến Range

untitled.JPG


Sau khi đã chọn 1 phương thức hoặc 1 thuộc tính, để tìm hiểu thêm, có thể bôi đen nó rồi F1, phần trợ giúp sẽ trả lời cho bạn (thậm chí có cả ví dụ minh họa)
Nói ngắn gọn hơn: Làm nhiều tự nhiên biết nhiều (và cảm thấy... ngu thêm nhiều)
Ẹc... Ẹc...
 
nguyenmanhnam đã viết:
Bài này với những ai mới học VBA tiếp cận là hay, tuy nhiên nó chưa tổng quát lắm, bởi nhiều khi trong công việc các cột số thứ tự và cột cần tính tổng không cố định, năm ngoái em được thày concogia và thày ptm0412 giúp cho bài này http://www.giaiphapexcel.com/forum/showthread.php?45238-có-cách-nào-kết-hợp-lọc-để-tính-tổng-có-thể-copy-nhanh-không-ạh/page3vào đúng đêm 30 tết năm ngoái, đến giờ em vẫn nhớ như in. Gửi bạn Dauthivan xem tham khảo bài này sẽ giúp cho bạn rất nhiều.
Nhấp chuột vào đây để mở rộng...

Hiển nhiên là chủ đề này quá cũ, đến chính tác giả cũng không nhớ chính mình đã từng hỏi.
Nay lấy lại file cũ, vẫn để hàm SubSum như cũ, (có 1 lỗi như hàm subtotal là khi filter nó ra kết quả kỳ cục). Ngoài ra, viết 1 thủ tục chọn ô (hoặc cột) chứa điều kiện tính tổng, chọn ô (hoặc cột) cần tính tổng, chọn ô (hoặc cột) cần để công thức, rồi chạy code.

[video=youtube_share;6Kc4xf1Hsfk]http://youtu.be/6Kc4xf1Hsfk[/video]
 

File đính kèm

nguyenmanhnam đã viết:
Theo em cái này cũng đơn giản thôi, thêm câu lệnh xóa để thực hiện nguyên tắc dòng nào mà cột A có số thứ tự sẽ lập tức xóa nội dung cột B của dòng đó đi (cho ô B trở về rỗng như bài toán gốc), sau khi xong thao tác này mới thực hiện lện như thày ndu ở trên.
Nhấp chuột vào đây để mở rộng...
Xét ô rỗng để gán công thức, hoặc xét ô chứa công thức, xoá đi cho rỗng để gán công thức mới, đó là xét cái ngọn.
Tại sao không xét cái gốc là nếu cột A khác rỗng thì ghi công thức vào cột B? Trống cũng ghi mà có công thức cũ cũng ghi đè lên?

Ngay cả file gốc của anhtuan1066 bài #3 và code của ndu bài #8, cũng xét cái gốc là cột A không rỗng. Càng cải tiến càng đi xa cái gốc. Như code của minhthien, ban đầu thì 2 vòng lặp, 1 vòng để xoá công thức cũ. Sau khi cải tiến thì:
Mã: 
[COLOR=#000000][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Er To 5 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1
        With Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])
            If [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]vbNullString Then iM [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Address[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700])
            If .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][/COLOR][COLOR=#ff0000]vbNullString Or .HasFormula [/COLOR][COLOR=#000000][COLOR=#0000BB]Then
                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"=SUM(" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Address[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]":" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]")"
                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Font[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Bold [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]vbNullString
            End [/COLOR][COLOR=#007700]If
        [/COLOR][COLOR=#0000BB]End With
    Next i[/COLOR][/COLOR]

Tại sao không phải là

Mã: 
[COLOR=#000000][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Er To 5 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1
        [/COLOR][COLOR=#007700]    If [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]vbNullString Then iM [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Address[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700])
            [/COLOR][/COLOR][COLOR=#ff0000]If Cells(i, 1)= vbNullString [/COLOR][COLOR=#000000][COLOR=#0000BB]Then
                [/COLOR][/COLOR][COLOR=#0000cd]Cells(i, 2)[/COLOR][COLOR=#000000][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"=SUM(" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Address[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]":" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]")"
                [/COLOR][/COLOR][COLOR=#0000cd]Cells(i, 2)[/COLOR][COLOR=#000000][COLOR=#007700].[/COLOR][COLOR=#0000BB]Font[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Bold [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]iM [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]vbNullString
            End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]    Next i[/COLOR][/COLOR]
 
Lần chỉnh sửa cuối:
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (1 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
2
Đọc
153
Thanh123s
Thanh123s
D
xin hỏi về lỗi mô đun ẩn. (1 người xem)
Trả lời
5
Đọc
220
YêuCN
Y
S
  • Question Question
Object.close và Set Object = nothing
Trả lời
14
Đọc
1K
nguyendang95
N
H
Lỗi khi sort data xin được hỗ trợ
Trả lời
2
Đọc
82
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm
    • Chấp nhận
Trả lời
9
Đọc
275
Nguyenkhang2404
Nguyenkhang2404
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
389
Đọc
46K
THANHHANGPT
T
8
Theo dõi bán hàng
Trả lời
6
Đọc
132
Maithy46
Maithy46
T
Ngắt kết nối với tệp lệnh đính kèm
Trả lời
2
Đọc
91
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
minhduc1o2
Hình ảnh bị lỗi #VALUE
Trả lời
4
Đọc
96
minhduc1o2
minhduc1o2
S
tỷ lệ % không khớp khi cộng tổng
Trả lời
2
Đọc
71
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet
Trả lời
1
Đọc
246
PhamMaiTB
P
thanhcongdnk
nhờ các cao nhân giúp dùm, xin đa tạ nhiều
    • Buồn
    • Phẫn nộ
Trả lời
2
Đọc
415
misibi
M
N
  • Question Question
Chia sẻ COM DLL giúp tra cứu mã số thuế từ trang web masothue.com
    • Thích
Trả lời
1
Đọc
421
nguyendang95
N
hoidebiet1710
Doanh thu cho nhiều nhân viên bán hàng
Trả lời
1
Đọc
110
BuiQuangThuan
B
V
  • Question Question
Nhờ mọi người giúp cách xóa các mục đã chọn trong Droplist của một nhóm các ô cùng dạy một môn học.
Trả lời
3
Đọc
204
HUONGHCKT
H
L
Trừ lùi nguyên vật liệu nhập - xuất - tồn theo nhiều điều kiện
Trả lời
7
Đọc
766
oanhleqt
O
D
Lọc cột chứa nhiều nhóm từ trong Excel. Mong các bạn giải đáp giúp (1 người xem)
Trả lời
8
Đọc
217
Thai Huyen
Thai Huyen
T
file excel bị lỗi
Trả lời
1
Đọc
62
BuiQuangThuan
B
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định
Trả lời
4
Đọc
174
HUONGHCKT
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom