Lấy dữ liệu theo thứ tự lẻ.

Liên hệ QC

Kool_Kool

Thành viên chính thức
Tham gia
12/6/15
Bài viết
83
Được thích
1
Chào cả nhà,

Hiện tại với mã bên dưới nó lấy dữ liệu theo thứ tự 1 , 2,3,4,... từ dòng đầu đến dòng kết thúc. Giờ mình chỉ muốn lấy dữ lẻ. Khi bấm bắt đầu đến kết thúc nó chỉ lấy 1,3,5,7,.... Mong cả nhà tư vấn. Xin cám ơn


Sub PrintOT()
If MsgBox("Do you want to print this form ?", vbYesNo, "Well note") = vbYes Then
Else
Exit Sub
End If
Dim bd As Integer, kt As Integer, i As Integer
bd = InputBox("Please input row start.!", "Well note!")
kt = InputBox("Please input row end", "Well note!")
For i = bd To kt Step 1
Sheet1.[E7].Value = Sheet2.Range("C" & (i + 6)).Value
Sheet1.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub
 

File đính kèm

  • In phieu.xlsm
    38.5 KB · Đọc: 5
Chắc mình lẩm cẩm quá.
Theo đọc code thì thấy nó bỏ hết dòng đầu tiên đến dòng áp chót, chỉ lấy dòng cuối cùng mà?
 
Chắc mình lẩm cẩm quá.
Theo đọc code thì thấy nó bỏ hết dòng đầu tiên đến dòng áp chót, chỉ lấy dòng cuối cùng mà?
Vâng. Hiện tại nó bỏ 6 dòng đầu. Ý mình là mình chỉ cần lấy dữ lieu lẻ. Ví dụ khi bấm 1 đến 5 . Nó chỉ lấy 1,3,5 . Tư vấn giúp. cám ơn bạn
 
For i = bd To kt Step 2
Sheet1.[E7].Offset((i-1)/2,).Value = Sheet2.Range("C" & (i + 6)).Value
 
Web KT
Back
Top Bottom