Hỏi Code So Sánh Dữ Liệu Giữa 2 Sheet (1 người xem)

[nad582]

Chào các anh trong GPE! em có 2 sheet: sheet "chucai" và sheet "so"; Vậy nhờ các anh giúp e là:
-Tại cột "A" sheet "so": đếm số hàng có chứa dữ liệu (1)
-Tại cột "A" sheet "chucai": đếm số hàng có chứa dữ liệu (2)
Vậy nếu (1) >= (2) thì hiện Msgbox là: "Rút gọn lại"
nếu (1) < (2) thì hiện Msgbox là: "thank you dien dang exce!!l"
Cảm ơn rất nhiều....

 

[leonguyenz]

Chào các anh trong GPE! em có 2 sheet: sheet "chucai" và sheet "so"; Vậy nhờ các anh giúp e là:
-Tại cột "A" sheet "so": đếm số hàng có chứa dữ liệu (1)
-Tại cột "A" sheet "chucai": đếm số hàng có chứa dữ liệu (2)
Vậy nếu (1) >= (2) thì hiện Msgbox là: "Rút gọn lại"
nếu (1) < (2) thì hiện Msgbox là: "thank you dien dang exce!!l"
Cảm ơn rất nhiều....

Tham khảo code này xem (chưa hiểu mục đích của bạn là gì) :
[gpecode=vb]
Private Sub CommandButton1_Click()
Dim sR As Integer, cR As Integer
sR = Sheets("so").Range("A65535").End(3).Row - 5
cR = Sheets("chucai").Range("A65535").End(3).Row - 5


MsgBox "So dong Sheet(so) la: " & sR & vbLf & _
"So dong Sheet(chucai) la: " & cR
If sR >= cR Then
MsgBox "Rut Gon Lai"
Else
MsgBox "Thank You"
End If
End Sub
[/gpecode]

 

[VetMini]

Tham khảo code này xem (chưa hiểu mục đích của bạn là gì) :
[gpecode=vb]
Private Sub CommandButton1_Click()
Dim sR As Integer, cR As Integer
sR = Sheets("so").Range("A65535").End(3).Row - 5
cR = Sheets("chucai").Range("A65535").End(3).Row - 5


MsgBox "So dong Sheet(so) la: " & sR & vbLf & _
"So dong Sheet(chucai) la: " & cR
If sR >= cR Then
MsgBox "Rut Gon Lai"
Else
MsgBox "Thank You"
End If
End Sub
[/gpecode]

@Leo:

Chỉ cần như vầy đủ rồi:

Msgbox IIF(Sheets("so").Range("A65535").End(3).Row >= Sheets("chucai").Range("A65535").End(3).Row, _
"Rút gọn lại", "thank you dien dang exce!!l")
(tôi cóp lại câu chào của chủ thớt, gõ từ ra sao đều phải lỗi của tôi)

(chưa hiểu mục đích của bạn là gì):
Chả có mục đích gì trọng đại cả. Chủ thớt chỉ học VBA nên tự nghĩ ra các tình huống thực tập thôi.
Học kiểu này rất nhanh nhưng chả có cái căn bản nào cả.
Nếu là tôi thì tôi chỉ đè một vài bài ra dùng debug thử tất cả mọi dạng. Sau khi thử xong, sẽ học đượcc gần hết căn bản. Chỗ còn lại chỉ là cách sử dụng các công cụ tiện ích.