Tạo nút kiểm tra (1 người xem)

[kimboiquetoi]

em có một bài toán này rất mong mọi người giúp với ạ, tạo nút với code kiểm tra xem tỉ lệ nếu cao hơn só mặc định (15,17,71) thì yêu cầu nhập lại
xem trong file em đã ghi rõ ràng rồi ạ, kể ra thông báo được là nó thừa ở cột thành phần nào thì hay quá, vd: thừa ở cột A thì thông báo là thừa ở đó, hoặc cả 2 A6, B6 ạ

 

[doatmenhhon]

Mình chỉ biết code như này muốn tiếng việt ở Msgbox thì gặp bạn Hoàng Trọng Nghĩa:

[/COLOR]Sub Button1_Click()
If Range("a" & 6) >= 15 And Range("B" & 6) >= 17 And Range("C" & 6) >= 71 Then
      MsgBox "xin vui long nhap lai vi ti le cao hon thuc te"
End If
End Sub[COLOR=#000000]

 

[kimboiquetoi]

cảm ơn anh tiếng việt thì embiết viết nhưng code thì hơn kém tí, à mà nếu như nó cao chỗ nào thì có thể thông báo cao chỗ đó để tiện sửa không ạ

 

[doatmenhhon]

cảm ơn anh tiếng việt thì embiết viết nhưng code thì hơn kém tí, à mà nếu như nó cao chỗ nào thì có thể thông báo cao chỗ đó để tiện sửa không ạ

Nếu chỉ 3 ô thì liếc mắt là thấy nên tôi nghĩ chả cần thiết. Vậy giả thiết là file thật của bạn có nhiều dữ liệu hơn thế thì tốt nhất chi bằng bạn gửi file thật ra đây. Mà msgbox tiếng việt bạn biết viết thật à? Bạn Hoàng Trọng Nghĩa nghĩ trọc đầu mới ra mà bạn làm được thì giỏi quá chắc bạn đang hỏi trêu tôi ^^

 

[kimboiquetoi]

file thật của em nó nặng hơn cho phép ạ, nên không tải lên được ạ, vì em muốn để nó ở sheet khác nhau, em tạo nút này để lúc kiểm tra cho nó tiện thôi ạ, không cứ phải chuyển sheet để kiểm tra phiền phức lắm ạ, mong anh giúp đỡ với ạ

 

[giaiphap]

cảm ơn anh tiếng việt thì embiết viết nhưng code thì hơn kém tí, à mà nếu như nó cao chỗ nào thì có thể thông báo cao chỗ đó để tiện sửa không ạ

Bạn ghi yêu cầu không rõ ràng, nếu thỏa mãn 3 điều kiện thì cả 3 tỉ lệ đều cao hơn thực tế mà thông báo là hiểu rồi còn gì.

 

[kimboiquetoi]

vâng để em ghi rõ lại yêu cầu ạ, thế này là chính xác với bài tập của em nhất ạ, rất mong các anh các thầy giúp đỡ em ạ

 

[doatmenhhon]

Bạn sử dụng code:

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

Mà nếu a6> 15 và b6 >17 và c6>71 thì có hộp thông báo. Vậy có hộp thông báo có nghĩa là cả 3 đều lớn hơn sao còn nếu nếu j nữa. Tôi còn cứ tưởng có nhiều dòng thì thông báo hàng nào không đạt cơ.

 

[kimboiquetoi]

thế là anh chưa hiểu hết ý của em rồi ạ, tức là đầu tiên là kiểm tra hết nếu một trong các điều kiện đó xảy ra thì thông báo và chỉ đúng chỗ cái nào bị lớn hơn ạ, tức là có ít nhất là 2 thông báo: Thông bao thu nhất là như trên
thông bao 2 là bị chỗ nào thì thông báo chỗ ấy ạ, VD : A6 lớn hơn tỉ lệ xin hay diều chỉnh lại
sao em tạo nút cho code ấn vào nó không hiện gì ạ, liệu có sai chỗ nào không ạ, mong anh làm xong gửi lại file cho em đc không ạ

 

[doatmenhhon]

thế là anh chưa hiểu hết ý của em rồi ạ, tức là đầu tiên là kiểm tra hết nếu một trong các điều kiện đó xảy ra thì thông báo và chỉ đúng chỗ cái nào bị lớn hơn ạ, tức là có ít nhất là 2 thông báo: Thông bao thu nhất là như trên
thông bao 2 là bị chỗ nào thì thông báo chỗ ấy ạ, VD : A6 lớn hơn tỉ lệ xin hay diều chỉnh lại
sao em tạo nút cho code ấn vào nó không hiện gì ạ, mong anh làm xong gửi lại file cho em đc không ạ

Bạn xem lại đã thỏa a6> 15 và b6 >17 và c6>71 chưa? thì bấm nút mới hiện chứ

 

[kimboiquetoi]

rồi ạ, ý em là hoặc chứ không phải và ạ, nên em đã sửa and thành or là được rồi ạ, nhưng giờ muốn hiện thông báo thứ 2 VD cao ở A6 thì thông báo là tỉ lệ ở đó cao xin vui lòng điều chỉnh lại,

 

[doatmenhhon]

rồi ạ, ý em là hoặc chứ không phải và ạ, nên em đã sửa and thành or là được rồi ạ, nhưng giờ muốn hiện thông báo thứ 2 VD cao ở A6 thì thông báo là tỉ lệ ở đó cao xin vui lòng điều chỉnh lại,

Bạn sửa lúc nào mà nhanh thế. Hihi vậy theo tôi dùng 3 lệnh if so sánh. 1 lệnh if cho a6, 1 lệnh if cho b6, 1 lệnh if cho c6, bạn thử viết đi rồi tự nhiên quen í mà với lại còn tùy biến theo ý thích của mình.

 

[kimboiquetoi]

em mới làm xong ạ hì,


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
em làm được rồi nhưng mà nó cứ thông báo sau khi ấn ok, giờ em muốn nó hiện luôn thì làm thế nào ạ, mong anh giúp sửa code trên ạ

 

[doatmenhhon]

Code thế này được hem? Cái nào vượt nó thông báo. Không cái nào vượt thì chả có thông báo nào cả?

Sub Button2_Click()
With Sheet2
If .Range("A" & 6) >= 15 Then
    MsgBox "xin vui long nhap lai ti le A"
End If
If .Range("b" & 6) >= 15 Then
    MsgBox "xin vui long nhap lai ti le B"
End If
If .Range("c" & 6) >= 15 Then
    MsgBox "xin vui long nhap lai ti le C"
End If
End With
End Sub

 

[kimboiquetoi]

suýt nữa quên anh ạ, quên mất là cho cái điều kiện thấp hơn nữa, anh có thể cho vào luôn được không, hì
A6 thấp hơn <=13, b6 <= 15, C6<=69 anh ạ


như thế này vẫn phù hợp hơn nhưng thêm điều kiện trên thôi ạ
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

 

[kimboiquetoi]

đã giải quyết xong được cái nút thanks tất cả mọi người