Rất mong mọi người sửa giúp em code sau ạ (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)
K

kimboiquetoi

Thành viên chính thức
Tham gia
7/11/15
Bài viết
99
Được thích
3
Nghề nghiệp
Tự do
em có đoạn code sau em viết được rồi nhưng giờ muốn thêm điều kiện
A6 thấp hơn <=13, b6 <= 15, C6<=69 trong code thì làm thế nào ạ, em làm mãi mà không ra, trước em có nhờ một anh nhưng chưa sửa được ạ.

Sub Button2_Click()
With Sheet2
If .Range("A" & 6) >= 15 Or .Range("B" & 6) >= 17 Or .Range("C" & 6) >= 71 Then
MsgBox "xin vui long nhap lai vi ti le cao hon thuc te"


If .Range("A" & 6) >= 15 Then
MsgBox "xin vui long nhap lai ti le A"
End If
If .Range("b" & 6) >= 17 Then
MsgBox "xin vui long nhap lai ti le b"
End If
If .Range("c" & 6) >= 71 Then
MsgBox "xin vui long nhap lai ti le c"
End If
Else
MsgBox "ty le da phu hop"
End If
End With
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
kimboiquetoi đã viết:
em có đoạn code sau em viết được rồi nhưng giờ muốn thêm điều kiện
A6 thấp hơn <=13, b6 <= 15, C6<=69 trong code thì làm thế nào ạ, em làm mãi mà không ra, trước em có nhờ một anh nhưng chưa sửa được ạ.

Sub Button2_Click()
With Sheet2
If .Range("A" & 6) >= 15 Or .Range("B" & 6) >= 17 Or .Range("C" & 6) >= 71 Then
MsgBox "xin vui long nhap lai vi ti le cao hon thuc te"


If .Range("A" & 6) >= 15 Then
MsgBox "xin vui long nhap lai ti le A"
End If
If .Range("b" & 6) >= 17 Then
MsgBox "xin vui long nhap lai ti le b"
End If
If .Range("c" & 6) >= 71 Then
MsgBox "xin vui long nhap lai ti le c"
End If
Else
MsgBox "ty le da phu hop"
End If
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn xem file đính kèm xem được chưa nhé !
 

File đính kèm

Upvote 0
được rồi ạ nhưng ten1, ten2,ten3, ten4 ở đây vậy ạ, em muốn sửa dòng chữ nhưng ko biết ở đâu mà sửa ạ
 
Upvote 0
kimboiquetoi đã viết:
được rồi ạ nhưng ten1, ten2,ten3, ten4 ở đây vậy ạ, em muốn sửa dòng chữ nhưng ko biết ở đâu mà sửa ạ
Nhấp chuột vào đây để mở rộng...
Bạn bấm Ctr+F3 vào cửa sổ Name để sửa . Đây là cách sử dùng Msgbox tiếng việt của thày NDU không cần code, đơn giản, dễ sử dụng và nó có thể hiện bất kỳ thứ ngôn ngữ nào đó !
 
Upvote 0
Ngoai Thanh đã viết:
Bạn xem file đính kèm xem được chưa nhé !
Nhấp chuột vào đây để mở rộng...
em nghĩ code chỉ cần vậy thôi chứ đâu cần dài "thoòng" như thế
Mã: 
Sub Button2_Click()
With Sheet1
If .Range("A6") >= 15 Or .Range("B6") >= 17 Or .Range("C6") >= 71 Then
MsgBox "Vui long nhap lai ty le"
Else
MsgBox "Ty le da phu hop"
End If
End With
End Sub
vì trong file có nêu là 1 trong 3 ô đó thì cho nó xử lý cả 3 luôn chứ cần gì chia ra nhiều if với end if như thế
 
Upvote 0
vâng được rồi ạ em cảm ơn rất nhiều các anh các thầy ạ, đã học được thêm một điều rất chi là bổ ích ạ. Đặc biệt là anh Ngoai Thanh ạ, nhưng mong anh giúp em một tí nữa ạ, giờ khi ấn nó cứ hiện tỷ lệ đã phù hợp rồi mặc dù trước đó thông báo các tỉ lệ kia ạ, giờ phải sửa ở dòng bôi đỏ như thế nào cho đúng ạ, có phải sửa như dòng xanh không ạ, mong các anh giúp em nốt vụ này ạ
Sub Button2_Click()
With Sheet1
If .Range("A" & 6) >= 15 Or .Range("A" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")


End If
If .Range("b" & 6) >= 17 Or .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("c" & 6) >= 71 Or .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If

Nếu tât cả điều kiện trên thỏa mãn thì ( Cái này phải sử dụng code gì, hàm and như thế nào à)
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")


End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
langtuchungtinh360 đã viết:
em nghĩ code chỉ cần vậy thôi chứ đâu cần dài "thoòng" như thế
Mã: 
Sub Button2_Click()
With Sheet1
If .Range("A6") >= 15 Or .Range("B6") >= 17 Or .Range("C6") >= 71 Then
MsgBox "Vui long nhap lai ty le"
Else
MsgBox "Ty le da phu hop"
End If
End With
End Sub
vì trong file có nêu là 1 trong 3 ô đó thì cho nó xử lý cả 3 luôn chứ cần gì chia ra nhiều if với end if như thế
Nhấp chuột vào đây để mở rộng...
Bạn xem lại Yêu cầu của chủ topic xem code của bạn có đáp ứng được không ?
"em có đoạn code sau em viết được rồi nhưng giờ muốn thêm điều kiện
A6 thấp hơn <=13, b6 <= 15, C6<=69 trong code thì làm thế nào ạ, em làm mãi mà không ra, trước em có nhờ một anh nhưng chưa sửa được ạ"
Và người ta yêu cầu phải hiện Msgbox cụ thể theo từng ô khi không đạt yêu cầu .
 
Lần chỉnh sửa cuối:
Upvote 0
Sub Button2_Click()
With Sheet2
If .Range("A" & 6) >= 15 Or .Range("B" & 6) >= 17 Or .Range("C" & 6) >= 71 Then
MsgBox "xin vui long nhap lai vi ti le cao hon thuc te"
If .Range("A" & 6) >= 15 Then
MsgBox "Ti le A cao hon muc cho phep xin vui long chinh sua lai"
End If
If .Range("A" & 6) <= 13 Then
MsgBox " Ti le A thap hon muc cho phep xin vui long chinh sua lai"
End If
If .Range("b" & 6) >= 17 Then
MsgBox "Ti le B cao hon muc cho phep xin vui long chinh sua lai"
End If
If .Range("b" & 6) <= 15 Then
MsgBox "Ti le B thap hon muc cho phep xin vui long chinh sua lai"
End If
If .Range("c" & 6) >= 71 Then
MsgBox "Ti le C cao hon muc cho phep xin vui long chinh sua lai"
End If
If .Range("c" & 6) <= 69 Then
MsgBox "Ti le C thap hon muc cho phep xin vui long chinh sua lai"
End If
Else
MsgBox "ty le da phu hop"
End If
End With
End Sub


khả năng là chỉ có cách này, cách kia có vẻ khó dùng hơn
 
Upvote 0
kimboiquetoi đã viết:
vâng được rồi ạ em cảm ơn rất nhiều các anh các thầy ạ, đã học được thêm một điều rất chi là bổ ích ạ. Đặc biệt là anh Ngoai Thanh ạ, nhưng mong anh giúp em một tí nữa ạ, giờ khi ấn nó cứ hiện tỷ lệ đã phù hợp rồi mặc dù trước đó thông báo các tỉ lệ kia ạ, giờ phải sửa ở dòng bôi đỏ như thế nào cho đúng ạ, có phải sửa như dòng xanh không ạ, mong các anh giúp em nốt vụ này ạ
Sub Button2_Click()
With Sheet1
If .Range("A" & 6) >= 15 Or .Range("A" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")


End If
If .Range("b" & 6) >= 17 Or .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("c" & 6) >= 71 Or .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If

Nếu tât cả điều kiện trên thỏa mãn thì ( Cái này phải sử dụng code gì, hàm and như thế nào à)
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")


End With
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn Bấm Ctr+f3 để xem Name và sửa trong tên "Ten1"...."Ten4".Lần sau bạn hỏi ở topic nào thì hỏi lại ở topic ấy cho đến bao giờ thỏa đáng thì thôi . Tránh trường hợp 1 vấn đề hỏi nhiều topic.
 
Lần chỉnh sửa cuối:
Upvote 0
vâng anh, tên thì em sửa được theo chỉ dẫn của anh nhưng giờ nó cứ hiện tên 4 lên theo các tên kia mặc dù chưa thỏa mãi điều kiện giờ muốn sửa theo câu lệnh em bôi xanh ấy, thì làm thế nào thêm else vào chỗ nào cho thỏa đáng ạ.
 
Upvote 0
Sau một hồi vận dụng của các anh em đã làm được, theo các phương pháp của các anh

Sub Button2_Click()
With Sheet1
If .Range("a" & 6) >= 15 Or .Range("b" & 6) >= 17 Or .Range("c" & 6) >= 71 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")
If .Range("a" & 6) >= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("a" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If
If .Range("b" & 6) >= 17 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")
End If
If .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten5") & """,2)")
End If
If .Range("c" & 6) >= 71 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten6") & """,2)")
End If
If .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten7") & """,2)")
End If
Else
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten8") & """,2)")
End If
End With
End Sub
 
Upvote 0
rất rất cảm ơn ý kiến đóng góp chỉ bảo của anh Ngoai Thanh nhé
 
Upvote 0
kimboiquetoi đã viết:
vâng anh, tên thì em sửa được theo chỉ dẫn của anh nhưng giờ nó cứ hiện tên 4 lên theo các tên kia mặc dù chưa thỏa mãi điều kiện giờ muốn sửa theo câu lệnh em bôi xanh ấy, thì làm thế nào thêm else vào chỗ nào cho thỏa đáng ạ.
Nhấp chuột vào đây để mở rộng...
Bạn chú ý điều kiện nhé ! Bạn nhập số để text thử thế nào mà bảo chưa thỏa mãn . Nói ví dụ cụ thể các trường hợp không chính xác . Bạn dùng code tại Bài #6 nhé , Dùng code khác rồi la lên là sao ?
 
Lần chỉnh sửa cuối:
Upvote 0
thì cái ấy là code của anh mà, em áp dụng thấy chưa tối ưu lắm nên em kết hợp cả cái em viết nữa tạo nên cái#11 ạ, nhờ anh mà em học hỏi được rất nhiều, em ghi rõ ràng là em kết hợp mà hì
 
Upvote 0
kimboiquetoi đã viết:
thì cái ấy là code của anh mà, em áp dụng thấy chưa tối ưu lắm nên em kết hợp cả cái em viết nữa tạo nên cái#11 ạ, nhờ anh mà em học hỏi được rất nhiều, em ghi rõ ràng là em kết hợp mà hì
Nhấp chuột vào đây để mở rộng...
Bạn sửa cho tối ưu rồi thì cứ thế mà dùng ! La chi nữa ? Tạm biệt .
 
Upvote 0
em có la đâu ạ, anh xem lại xem em kết luận rồi mà, bye and thánks
 
Lần chỉnh sửa cuối:
Upvote 0
Ngoai Thanh đã viết:
Bạn chú ý điều kiện nhé ! Bạn nhập số để text thử thế nào mà bảo chưa thỏa mãn . Nói ví dụ cụ thể các trường hợp không chính xác . Bạn dùng code tại Bài #6 nhé , Dùng code khác rồi la lên là sao ?
Nhấp chuột vào đây để mở rộng...

Trong cái code sau, dòng ttoo đỏ khong được đặt trong điều kiện nào cả cho nên nó luôn thực hiện.
Người dùng sẽ thấy một câu cảnh báo
"Tỉ lệ tại A6 ngoài giới hạn thực tế rồi , cha nội !"
Tiếp theo là câu
"Tỉ lệ đã phù họp !"
Mặc dù chả chỉnh sửa gì cả.

Sub Button2_Click()
With Sheet1
If .Range("A" & 6) >= 15 Or .Range("A" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")

End If
If .Range("b" & 6) >= 17 Or .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("c" & 6) >= 71 Or .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If

Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")

End With
End Sub
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
VetMini đã viết:
Trong cái code sau, dòng ttoo đỏ khong được đặt trong điều kiện nào cả cho nên nó luôn thực hiện.
Người dùng sẽ thấy một câu cảnh báo
"Tỉ lệ tại A6 ngoài giới hạn thực tế rồi , cha nội !"
Tiếp theo là câu
"Tỉ lệ đã phù họp !"
Mặc dù chả chỉnh sửa gì cả.
Nhấp chuột vào đây để mở rộng...
Đúng rồi, phải nói rõ như bạn thì mới biết chưa đạt ở chỗ nào chứ ! Thật ra theo điều kiện thì ý 1 <= 13 và >= 15 (tức 14), ý 2 <=15 và >=17(tức là 16), ý 3 <=69 và >= 71(tức là 70) . Vậy cần chi cót két chi cho mệt ... cuối cùng chắc cũng chẳng đi tới đâu . còn code thì :

Sub Button2_Click()
With Sheet1
If .Range("A" & 6) >= 15 Or .Range("A" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")
End If
If .Range("b" & 6) >= 17 Or .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("c" & 6) >= 71 Or .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If
If .Range("A" & 6) = 14 And .Range("B" & 6) = 16 And .Range("C" & 6) = 70 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")
End If
End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
hì, đúng đấy anh, tức là 14:16:70 nhưng không biết làm sao nên đành chia ra thế ạ, nhưng như thế nó mới tính được trong khoảng, còn cho nó bằng 14, 16, 70 thì tuyệt đối quá, tức là nó có thể là 13,5 hoặc 13,3 đều đúng, nhưng <=13 thì lại sai anh ạ, tức lấy giá trị xấp xỉ chứ không phải là tuyệt đối ạ
 
Lần chỉnh sửa cuối:
Upvote 0
kimboiquetoi đã viết:
hì, đúng đấy anh, tức là 14:16:70 nhưng không biết làm sao nên đành chia ra thế ạ, nhưng như thế nó mới tính được trong khoảng, còn cho nó bằng 14, 16, 70 thì tuyệt đối quá, tức là nó có thể là 13,5 hoặc 13,3 đều đúng, nhưng <=13 thì lại sai anh ạ, tức lấy giá trị xấp xỉ chứ không phải là tuyệt đối ạ
Nhấp chuột vào đây để mở rộng...
Bạn copy code sau thay cho code trên :

Sub Button2_Click()
With Sheet1
If .Range("A" & 6) >= 15 Or .Range("A" & 6) <= 13 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten1") & """,2)")
End If
If .Range("b" & 6) >= 17 Or .Range("b" & 6) <= 15 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten2") & """,2)")
End If
If .Range("c" & 6) >= 71 Or .Range("c" & 6) <= 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten3") & """,2)")
End If
If .Range("A" & 6) < 15 And .Range("A" & 6) > 13 And .Range("b" & 6) > 15 And .Range("b" & 6) < 17 And .Range("c" & 6) < 71 And .Range("c" & 6) > 69 Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("ten4") & """,2)")
End If
End With
End Sub

Thôi thì giúp nốt cho bạn !
 
Lần chỉnh sửa cuối:
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

PhanTuHuong
Nên chọn điện thoại nào? (1 người xem)
2
Trả lời
20
Đọc
1K
dungluyen2119
dungluyen2119
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
9
Đọc
386
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Manhhung90
Tạo nút bấm để xoá nhanh trang trong file word.
Trả lời
3
Đọc
82
PhanTuHuong
PhanTuHuong
H
Hàm Evaluate bị lỗi khi mở lại
2
Trả lời
23
Đọc
279
ptm0412
ptm0412
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết (1 người xem)
    • Buồn
    • Cười
Trả lời
5
Đọc
213
SA_DQ
SA_DQ
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move...
    • Cảm ơn
    • Thích
Trả lời
4
Đọc
300
quyenpv
quyenpv
hungmanh.th1
Lỗi không trả về Giá trị 0 trong excel
    • Cười
Trả lời
5
Đọc
68
hungmanh.th1
hungmanh.th1
HeSanbi
  • Question Question
VBA nâng cao: Nhúng tập tin vào trang tính hoặc trích xuất chúng nhanh chóng
    • Thích
    • Cảm ơn
Trả lời
0
Đọc
119
HeSanbi
HeSanbi
nguyễn tiến tú
file CALCULATING rất chậm em nhờ các anh chị xem giúp em ạ
Trả lời
7
Đọc
373
tranhungdao12a3
T
T
  • Question Question
Xin thầy/cô và anh chị giúp đỡ cách điền thông tin ca kíp trực trong bảng Excel bằng VBA (1 người xem)
Trả lời
2
Đọc
149
tiennd67
T
vnxgiokinhtoi
Nhờ giúp đỡ công thức lưu dữ liệu và mở lại dữ liệu cũ đã save
Trả lời
2
Đọc
105
le_vis
L
H
HELP! HÀM LẤY THÁNG/ NĂM TRONG EXCEL
Trả lời
5
Đọc
128
ptm0412
ptm0412
H
Em hỏi vì sao khi file googlesheet của em thì code chạy
Trả lời
2
Đọc
57
Hoale85
H
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB
Trả lời
9
Đọc
272
4545
4
T
Nhờ ACE chỉ giáo công thức Gộp nhiều dữ liệu vào một ô trong excel
Trả lời
9
Đọc
232
Hoàng Tuấn 868
H
H
Phân quyền xem trên từng trang tính của googlesheet
Trả lời
6
Đọc
149
tranhungdao12a3
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL (1 người xem)
    • Buồn
2 3
Trả lời
50
Đọc
14K
HeSanbi
HeSanbi
GPE-Trợ Lý
CHÚC MỪNG NGÀY QUỐC TẾ PHỤ NỮ 08/03/2025
    • Yêu thích
    • Thích
Trả lời
0
Đọc
58
GPE-Trợ Lý
GPE-Trợ Lý
M
  • Question Question
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
6
Đọc
285
hoangtuan.net
hoangtuan.net
K
Không đăng nhập được MS Teams sau khi tải về (chỉ cho sử dụng bản trên web)
Trả lời
4
Đọc
116
ptm0412
ptm0412
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
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom