so sánh và hiện thông báo những số ko thỏa điều kiện

[vanhesing]

Dear All!
Mình có 1 bài mong các bạn giúp đỡ .
Trong file mình có 2 cột "thực xuất " và : thực tồn ".
Nhờ các bạn giúp mình 1 đoạn code so sánh số 2 cột trên lấy cột "thực tồn" làm chuẩn :
- Nếu 1 cell trong "thực tồn " nhỏ hơn cell nằm cùng hàng "thực xuất " thì nó sẽ hiện thông báo (trên Msgbox hay 1 from để có thể chỉnh sửa thì càng tốt ) thiết bị nào ko đủ số lượng để xuất .
Mình đã tô màu vàng demo những chổ có số thực tồn nhỏ hơn số thực xuất .
Chúc các bạn vui vẻ

 

[khoavu87]

Dear All!
Mình có 1 bài mong các bạn giúp đỡ .
Trong file mình có 2 cột "thực xuất " và : thực tồn ".
Nhờ các bạn giúp mình 1 đoạn code so sánh số 2 cột trên lấy cột "thực tồn" làm chuẩn :
- Nếu 1 cell trong "thực tồn " nhỏ hơn cell nằm cùng hàng "thực xuất " thì nó sẽ hiện thông báo (trên Msgbox hay 1 from để có thể chỉnh sửa thì càng tốt ) thiết bị nào ko đủ số lượng để xuất .
Mình đã tô màu vàng demo những chổ có số thực tồn nhỏ hơn số thực xuất .
Chúc các bạn vui vẻ

Với yêu cầu này em nghĩ dùng CF cũng tốt lắm rồi, Nếu code thì thế này:

Sub kiemtra()
Dim rng As Range
For Each rng In Range("i7", [i1000].End(xlUp))
If rng.Value < rng.Offset(, -1).Value Then
MsgBox ("So luong ban nhap vao da sai" & rng.Address)
rng.Interior.Color = vbGreen
Else
rng.Interior.Pattern = xlNone
End If
Next
End Sub

 

[vanhesing]

Với yêu cầu này em nghĩ dùng CF cũng tốt lắm rồi, Nếu code thì thế này:

Sub kiemtra()
Dim rng As Range
For Each rng In Range("i7", [i1000].End(xlUp))
If rng.Value < rng.Offset(, -1).Value Then
MsgBox ("So luong ban nhap vao da sai" & rng.Address)
rng.Interior.Color = vbGreen
Else
rng.Interior.Pattern = xlNone
End If
Next
End Sub

Hi Khoavu !
Mình sinh năm 86 thôi kiu anh hơi bị ngại quá.
Tình hình là chưa nghiên cứu code của khoavu nhưng cho vào file demo thì nó ko có gì cả . ko hiện Msgbox .
Sẵn cho mình hỏi luôn . trong code có đoạn
rng.Interior.Color = vbGreen
Else
rng.Interior.Pattern = xlNone

Phải chăng là gán màu cho cells?
Thanks

 

[khoavu87]

Hi Khoavu !
Mình sinh năm 86 thôi kiu anh hơi bị ngại quá.
Tình hình là chưa nghiên cứu code của khoavu nhưng cho vào file demo thì nó ko có gì cả . ko hiện Msgbox .
Sẵn cho mình hỏi luôn . trong code có đoạn
rng.Interior.Color = vbGreen
Else
rng.Interior.Pattern = xlNone

Phải chăng là gán màu cho cells?
Thanks

Đúng là gán màu. Theo mình hiểu nếu ô nào đó của cột i mà nhỏ hơn ô tương ứng bên cột H thì nó sẽ tự động bôi màu ô đó. Ngược lại thì không có gì.
Bạn thử nhập một cell trong cột i nhỏ hơn một cell tương ứng trong cột H xem sao.

 

[vanhesing]

Đúng là gán màu. Theo mình hiểu nếu ô nào đó của cột i mà nhỏ hơn ô tương ứng bên cột H thì nó sẽ tự động bôi màu ô đó. Ngược lại thì không có gì. Bạn thử nhập một cell trong cột i nhỏ hơn một cell tương ứng trong cột H xem sao.

Dear khoavu! mình đã test và ok rồi . Nhưng file mình gửi chỉ demo thôi chứ thật sự mình mún nó hoạt động trên form . lấy rowsource cho listbox rồi sau đó dò , tìm ra ô nhỏ hơn cột tương ứng sau đó hiện MSbox thông báo thiết bị đó tên gì, tức là nó sẽ hiện toàn bộ thông tin của ô đó từ cột C đến cột I rồi chỉnh sửa lại .chứ không phải hiện vị trí . vì vậy không cần tô màu cũng được . Nói tóm lại mình cần dò tìm ra ô nhỏ hơn cột tương ứng và hiện MSbox thông tin của ô đó từ cột C đến cột I . thanks bạn

 

[khoavu87]

Dear khoavu! mình đã test và ok rồi . Nhưng file mình gửi chỉ demo thôi chứ thật sự mình mún nó hoạt động trên form . lấy rowsource cho listbox rồi sau đó dò , tìm ra ô nhỏ hơn cột tương ứng sau đó hiện MSbox thông báo thiết bị đó tên gì, tức là nó sẽ hiện toàn bộ thông tin của ô đó từ cột C đến cột I rồi chỉnh sửa lại .chứ không phải hiện vị trí . vì vậy không cần tô màu cũng được . Nói tóm lại mình cần dò tìm ra ô nhỏ hơn cột tương ứng và hiện MSbox thông tin của ô đó từ cột C đến cột I . thanks bạn

Xem coi đúng ý không nhé:

 

[vanhesing]

Xem coi đúng ý không nhé:

Dear!
Làm phiền bạn quá . nhưng file bạn gần đúng ý mình
giống như cần thêm 1 nút button để tự nó dò ra 2 dòng đó và hiện trên Msgbox (hoặc 1 usform mới ) chứ không phải click tìm từng cái. vì trong bản định mức thực tế mình có hơn 500 dòng .hic
sỏy vì đã làm phiền thanks

 

[khoavu87]

Dear!
Làm phiền bạn quá . nhưng file bạn gần đúng ý mình
giống như cần thêm 1 nút button để tự nó dò ra 2 dòng đó và hiện trên Msgbox (hoặc 1 usform mới ) chứ không phải click tìm từng cái. vì trong bản định mức thực tế mình có hơn 500 dòng .hic
sỏy vì đã làm phiền thanks

Không biết thế này đúng ý bạn chưa. Xem file đính kèm.

 

[vanhesing]

Không biết thế này đúng ý bạn chưa. Xem file đính kèm.

ok được rồi thanks khoavu nhiều . phần chỉnh sử giá trị sai mình sẽ làm .
Chúc khoavu noen sắp tới vui vẻ nha

 

[vanhesing]

Không biết thế này đúng ý bạn chưa. Xem file đính kèm.

Dear khoavu !
Sau khi xem lại bài của bạn mình thấy bạn lọc những sai số ko thỏa mãn ra 1 vùng name "STT" . cái này mình đồng ý nhưng ko thể chỉnh sửa được . vì chỉnh sửa trên name "STT" cũng ko gán vào file chính được .
nguyên tắc mình làm như sau : load những sai số trên name"GPE"(như bạn đặt tên ) ra form khác và chỉnh sửa trực típ trên vùng name "GPE" , chỉnh sửa xong sẽ nhập liệu ghi lại giá trị đã chỉnh sửa .Bài của bạn chỉ chỉnh sửa trên vùng name "STT" nên thao tác nhập liệu của mình nó sẽ vô ích .
Thanks Bạn