Xin trợ giúp code VBA hàm if else và for...

Liên hệ QC
G

GACON_VBA

Thành viên chính thức
Tham gia
30/7/16
Bài viết
79
Được thích
1
Chào các bác. Em đang tự nghiên cứu VBA nhưng chưa rành, mong các bác chỉ bảo cho em vấn đề này với
File sau có dữ liệu và vài code VBA em tự lập,
Em muốn là VBA sẽ sử dụng RWS1 (dòng cuối chứa dữ liệu của cột B) để dò xem đã nhập hết các ô số lượng chưa, nếu chưa nhập hoặc =0, hoặc ký tự khác số thì yêu cầu nhập vào MsgBox "Hay nhap DU SO LUONG thuoc". Nếu đã nhập đầy đủ thì "Da hoan thanh"
Xin cảm ơn!
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Em muốn là VBA sẽ sử dụng RwrB (dòng cuối chứa dữ liệu của cột B) để dò xem đã nhập hết các ô số lượng chưa, nếu (1) chưa nhập hoặc =0, hoặc (2) ký tự khác số thì yêu cầu nhập vào MsgBox "Hay nhâp DU SÔ LUONG thuôc". Nếu đã nhập đầy đủ thì "Da Hoàn thành"
Nhấp chuột vào đây để mở rộng...
Chuyện đầu tiên là xác định dòng cuối của cột 'B' chứa dữ liệu
Ta có thể xài câu lệnh (theo file của bạn)
[B2].End(xlDown).Row Hay [B65500].End(xlUp).Row
Sau đó ta tiến hành dò vùng từ ô [B2] đến Cells(RwrB,"B") để kiểm xem ô bên phải liền kể có nhập số liệu hay chưa.
. . . . .
 
Upvote 0
SA_DQ đã viết:
Chuyện đầu tiên là xác định dòng cuối của cột 'B' chứa dữ liệu
Ta có thể xài câu lệnh (theo file của bạn)
[B2].End(xlDown).Row Hay [B65500].End(xlUp).Row
Sau đó ta tiến hành dò vùng từ ô [B2] đến Cells(RwrB,"B") để kiểm xem ô bên phải liền kể có nhập số liệu hay chưa.
. . . . .
Nhấp chuột vào đây để mở rộng...
Hi. Bác có thể viết code giùm em với được không?
 
Upvote 0
GACON_VBA đã viết:
Hi. Bác có thể viết code giùm em với được không?
Nhấp chuột vào đây để mở rộng...
Bạn thử code này xem được không ạ:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then Exit Sub
        If Application.CountA(.Range("D2:D" & Rws1)) = Application.CountA(.Range("B2:B" & Rws1)) Then
            MsgBox "Hay nhap du lieu don thuoc"
            .Range("B" & Rws1 + 1).Select
        Else
            MsgBox "Hay nhap DU SO LUONG thuoc"
        End If
    End With
End Sub
 
Upvote 0
Nguyễn Hoàng Oanh Thơ đã viết:
Bạn thử code này xem được không ạ:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then Exit Sub
        If Application.CountA(.Range("D2:D" & Rws1)) = Application.CountA(.Range("B2:B" & Rws1)) Then
            MsgBox "Hay nhap du lieu don thuoc"
            .Range("B" & Rws1 + 1).Select
        Else
            MsgBox "Hay nhap DU SO LUONG thuoc"
        End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác đã quan tâm trợ giúp. Code này gần đúng rồi. Còn trường hợp nhập vào không phải là số, hoặc bằng =0 nửa. Bác có thể bổ sung em với không?
 
Upvote 0
GACON_VBA đã viết:
Cảm ơn bác đã quan tâm trợ giúp. Code này gần đúng rồi. Còn trường hợp nhập vào không phải là số, hoặc bằng =0 nửa. Bác có thể bổ sung em với không?
Nhấp chuột vào đây để mở rộng...

Bạn sửa:
Mã: 
If Application.CountA(.Range("D2:D" & Rws1)) = Application.CountA(.Range("B2:B" & Rws1)) Then

Thành:
Mã: 
If Application.CountA(.Range("B2:B" & Rws1)) = Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
 
Upvote 0
Nguyễn Hoàng Oanh Thơ đã viết:
Bạn thử code này xem được không ạ:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then Exit Sub
        If Application.CountA(.Range("D2:D" & Rws1)) = Application.CountA(.Range("B2:B" & Rws1)) Then
            MsgBox "Hay nhap du lieu don thuoc"
            .Range("B" & Rws1 + 1).Select
        Else
            MsgBox "Hay nhap DU SO LUONG thuoc"
        End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Code ok rồi bác. Cho em hỏi thêm chút. Có cách nào hiển thị được tiếng Việt cho MsgBox không nhỉ?
 
Upvote 0
GACON_VBA đã viết:
Code ok rồi bác. Cho em hỏi thêm chút. Có cách nào hiển thị được tiếng Việt cho MsgBox không nhỉ?
Nhấp chuột vào đây để mở rộng...
Tiếng Việt cho MsgBox , trên diễn đàn cũng có nhiều bạn tìm kiếm để tham khảo thêm nhé:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String
    
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbao = "Thông báo!"
    
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then Exit Sub
        If Application.CountA(.Range("B2:B" & Rws1)) = Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
        
            .Range("B" & Rws1 + 1).Select
        Else
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
 
Upvote 0
Nguyễn Hoàng Oanh Thơ đã viết:
Tiếng Việt cho MsgBox , trên diễn đàn cũng có nhiều bạn tìm kiếm để tham khảo thêm nhé:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String
   
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbao = "Thông báo!"
   
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then Exit Sub
        If Application.CountA(.Range("B2:B" & Rws1)) = Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
       
            .Range("B" & Rws1 + 1).Select
        Else
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Bác à. Có 1 chút nhầm lẫn ở đây. Nãy em kiểm tra chưa kỹ. Đó là Rws1, nếu Rws1=1 (tức nếu dữ liệu TÊN THUỐC - HÀM LƯỢNG bị xóa hết từ B2 trở xuống thì "Xin mời nhập dữ liệu đơn thuốc", Còn sau khi hoàn thành kiểm tra số lượng (các điều kiện....) thì báo là "Đã hoàn thành". Em test thử 2 câu lệnh này chưa thấy chạy đến. Bác có thể hoàn thành giúp em với không?
 
Upvote 0
GACON_VBA đã viết:
Bác à. Có 1 chút nhầm lẫn ở đây. Nãy em kiểm tra chưa kỹ. Đó là Rws1, nếu Rws1=1 (tức nếu dữ liệu TÊN THUỐC - HÀM LƯỢNG bị xóa hết từ B2 trở xuống thì "Xin mời nhập dữ liệu đơn thuốc", Còn sau khi hoàn thành kiểm tra số lượng (các điều kiện....) thì báo là "Đã hoàn thành". Em test thử 2 câu lệnh này chưa thấy chạy đến. Bác có thể hoàn thành giúp em với không?
Nhấp chuột vào đây để mở rộng...
Đây Bạn xem ạ:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String
    
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbao = "Thông báo!"
    
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
            .Range("B" & Rws1 + 1).Select
        ElseIf Application.CountA(.Range("B2:B" & Rws1)) <> Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
 
Upvote 0
Em test thử không biết sao thành đăng bài luôn. Làm sao để xóa bài đăng được ạ :(
Mã: 
fdfdfdfdfd
fdfdf
fdfdfdfd
 
Lần chỉnh sửa cuối:
Upvote 0
Nguyễn Hoàng Oanh Thơ đã viết:
Đây Bạn xem ạ:
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String
   
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbao = "Thông báo!"
   
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
            .Range("B" & Rws1 + 1).Select
        ElseIf Application.CountA(.Range("B2:B" & Rws1)) <> Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Hi. Gần được rồi, Thiếu chút nữa bác ơi Còn sau khi hoàn thành kiểm tra số lượng (các điều kiện....) thì báo là "Đã hoàn thành".
 
Upvote 0
GACON_VBA đã viết:
Hi. Gần được rồi, Thiếu chút nữa bác ơi Còn sau khi hoàn thành kiểm tra số lượng (các điều kiện....) thì báo là "Đã hoàn thành".
Nhấp chuột vào đây để mở rộng...
Thế này phải không bạn?
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String, tbHoanThanh As String
    
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbHoanThanh = ChrW(272) & ChrW(227) & " ho" & ChrW(224) & "n th" & ChrW(224) & "nh !"
    tbao = "Thông báo!"
    
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
            .Range("B" & Rws1 + 1).Select
        ElseIf Application.CountA(.Range("B2:B" & Rws1)) <> Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        Else
'            MsgBox "Da Hoan Thanh"
            Application.Assistant.DoAlert tbao, tbHoanThanh, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
 
Upvote 0
Nguyễn Hoàng Oanh Thơ đã viết:
Thế này phải không bạn?
Mã: 
Sub Button17_Click()
    Dim Rws1 As Long, tbOK As String, tbLoi As String, tbao As String, tbHoanThanh As String
   
    tbOK = "Xin m" & ChrW(7901) & "i nh" & ChrW(7853) & "p d" & ChrW(7919) & " li" & ChrW(7879) & "u " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c!"
    tbLoi = "B" & ChrW(7841) & "n c" & ChrW(7847) & "n nh" & ChrW(7853) & "p s" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng " & ChrW(273) & ChrW(417) & "n thu" & ChrW(7889) & "c, gi" & ChrW(225) & " tr" & ChrW(7883) & " nh" & ChrW(7853) & "p v" & ChrW(224) & "o ph" & ChrW(7843) & "i l" & ChrW(224) & " s" & ChrW(7889) & " l" & ChrW(7899) & "n h" & ChrW(417) & "n 0."
    tbHoanThanh = ChrW(272) & ChrW(227) & " ho" & ChrW(224) & "n th" & ChrW(224) & "nh !"
    tbao = "Thông báo!"
   
    With Sheets("Xuat thuoc le")
        Rws1 = .Range("B65536").End(xlUp).Row
        If Rws1 = 1 Then
'            MsgBox "Hay nhap du lieu don thuoc"
             Application.Assistant.DoAlert tbao, tbOK, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
            .Range("B" & Rws1 + 1).Select
        ElseIf Application.CountA(.Range("B2:B" & Rws1)) <> Application.CountIf(.Range("D2:D" & Rws1), ">0") Then
'            MsgBox "Hay nhap DU SO LUONG thuoc"
            Application.Assistant.DoAlert tbao, tbLoi, msoAlertButtonOK, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False
        Else
'            MsgBox "Da Hoan Thanh"
            Application.Assistant.DoAlert tbao, tbHoanThanh, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False
        End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Code ok rồi ạ. Cảm ơn bác đã quan tâm và trợ giúp nhiệt tình!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
71
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
56
vanle33
vanle33
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
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
20
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
114
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
75
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
129
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
121
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
121
VetMini
V
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
51
Đọc
103K
taimeanh
T
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
407
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
551
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
56
Nhattanktnn
Nhattanktnn
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
143
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
9
Đọc
266
Châu Bá Thông
Châu Bá Thông
minhduongct
  • Question Question
Viết code VBA thay cho dùng hàm vlookup
Trả lời
6
Đọc
1K
VetMini
V
N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
0
Đọc
179
nguyendang95
N
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom