...................................
For i = Tuso To Denso
Unload Mau_In
Set MyR = S2.Range(S2.[B3], S2.[B65000].End(xlUp))
..............................................................................
.........................
Unload Mau_In
For i = Tuso To Denso
Set MyR = S2.Range(S2.[B3], S2.[B65000].End(xlUp))
..........................
Thêm nữa, mấu chốt vấn đề là phải sửa câu If sRng Is Nothing Then thành If Not sRng Is Nothing ThenEm sửa 1 chút từ:
Mã:................................... For i = Tuso To Denso Unload Mau_In Set MyR = S2.Range(S2.[B3], S2.[B65000].End(xlUp)) ..............................................................................
Thành:
Mã:......................... Unload Mau_In For i = Tuso To Denso Set MyR = S2.Range(S2.[B3], S2.[B65000].End(xlUp)) ..........................
Private Sub cmdIn_Click()
Dim sRng As Range, i As Integer
If Not (IsNumeric(Tuso) And IsNumeric(Denso)) Then
MsgBox "Tu so phai la kieu so"
Tuso.SetFocus
Exit Sub
End If
If Tuso > Denso Then
MsgBox "Tu so phai nho hon hoac bang Den so"
Exit Sub
End If
Unload Mau_In
For i = Tuso To Denso
Set sRng = S2.[B:B].Find("PT" & i)
MsgBox sRng.Address
If Not sRng Is Nothing Then
With S4
.Range("D5") = sRng.Offset(, 1)
.Range("C6") = sRng.Offset(, 8)
.Range("B7") = sRng.Offset(, 9)
.Range("B8") = sRng.Offset(, 10)
.Range("B9") = sRng.Offset(, 6) + sRng.Offset(1, 6)
.Range("B11") = sRng.Offset(, 11)
.Range("G11") = sRng.Offset(, 12)
.Range("J6") = sRng
.Range("J7") = sRng.Offset(, 4)
.Range("J8") = sRng.Offset(, 5) & "-" & sRng.Offset(1, 5)
End With
S4.PrintOut
End If
Next i
End Sub
Cám ơn các anh. Nhưng cho em hỏi thêm chút nữa nhé! Nếu in như vậy thì ô D5 của phiếu không hiện rõ ngày (toàn hiện ######## thui)? Vậy phải sửa định dạng ra sao?Thêm nữa, mấu chốt vấn đề là phải sửa câu If sRng Is Nothing Then thành If Not sRng Is Nothing Then
Tóm lại, sau khi sửa thì code sẽ là như vầy:
PHP:Private Sub cmdIn_Click() Dim sRng As Range, i As Integer If Not (IsNumeric(Tuso) And IsNumeric(Denso)) Then MsgBox "Tu so phai la kieu so" Tuso.SetFocus Exit Sub End If If Tuso > Denso Then MsgBox "Tu so phai nho hon hoac bang Den so" Exit Sub End If Unload Mau_In For i = Tuso To Denso Set sRng = S2.[B:B].Find("PT" & i) MsgBox sRng.Address If Not sRng Is Nothing Then With S4 .Range("D5") = sRng.Offset(, 1) .Range("C6") = sRng.Offset(, 8) .Range("B7") = sRng.Offset(, 9) .Range("B8") = sRng.Offset(, 10) .Range("B9") = sRng.Offset(, 6) + sRng.Offset(1, 6) .Range("B11") = sRng.Offset(, 11) .Range("G11") = sRng.Offset(, 12) .Range("J6") = sRng .Range("J7") = sRng.Offset(, 4) .Range("J8") = sRng.Offset(, 5) & "-" & sRng.Offset(1, 5) End With S4.PrintOut End If Next i End Sub
Lạ nhỉ, anh thấy vẫn bình thường, không vấn đề gì cả. Em kéo rộng cột D ra xem sao.Cám ơn các anh. Nhưng cho em hỏi thêm chút nữa nhé! Nếu in như vậy thì ô D5 của phiếu không hiện rõ ngày (toàn hiện ######## thui)? Vậy phải sửa định dạng ra sao?
Lạ nhỉ, anh thấy vẫn bình thường, không vấn đề gì cả. Em kéo rộng cột D ra xem sao.
Trong code trên, em bỏ câu này nhé: MsgBox sRng.Address (tại lúc làm xem thử có tìm thấy không, sau đó lại quên xóa).
1. Bạn chen ngang topic., bạn muốn hỏi bạn tự tạo topic để hỏiEm đang tự học VBA mong anh chị giải thích rõ ràng hơn đoạn code trong ví dụ trên được không ạ. Thanks GPE
Private Sub cmdIn_Click()
Dim sRng As Range, i As Integer
If Not (IsNumeric(Tuso) And IsNumeric(Denso)) Then
MsgBox "Tu so phai la kieu so"
Tuso.SetFocus
Exit Sub
End If
If Tuso > Denso Then
MsgBox "Tu so phai nho hon hoac bang Den so"
Exit Sub
End If
Unload Mau_In
For i = Tuso To Denso
Set sRng = S2.[B:B].Find("PT" & i)
MsgBox sRng.Address
If Not sRng Is Nothing Then
With S4
.Range("D5") = sRng.Offset(, 1)
.Range("C6") = sRng.Offset(, 8)
.Range("B7") = sRng.Offset(, 9)
.Range("B8") = sRng.Offset(, 10)
.Range("B9") = sRng.Offset(, 6) + sRng.Offset(1, 6)
.Range("B11") = sRng.Offset(, 11)
.Range("G11") = sRng.Offset(, 12)
.Range("J6") = sRng
.Range("J7") = sRng.Offset(, 4)
.Range("J8") = sRng.Offset(, 5) & "-" & sRng.Offset(1, 5)
End With
S4.PrintOut
End If
Next i
End Sub
Cụ thể là: sRng là gì? đoạn code nào trộn dữ liệu ở sheet CSDL vào sheet P.THU, còn những vấn đề khác e chưa biết nên chưa có thể hỏi thêm được ah.
1. Bạn chen ngang topic., bạn muốn hỏi bạn tự tạo topic để hỏi
2. bạn muốn mọi người giải thích code là giải thích tất cả hay sao?
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2