Dim i As Integer, j As Integer
Dim r1 As Integer, r2 As Integer
HR = Sheets("HR").Range("A8:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
ReDim K_HR(1 To UBound(HR, 1), 1 To 1)
For i = 1 To UBound(HR, 1)
If HR(i, 1) = 9 Then
r1 = r1 + 1
K_HR(r1, 1) = HR(i, 2)
End If
MsgBox r1
Next i
If r1 Then
Sheets("Report").Range("R1").Resize(r1, 1) = K_HR
End If
End SubHR = Sheets("HR").Range("A8:B" &Sheets("HR"). Range("B" & Rows.Count).End(xlUp).Row).Value
thử code
HR = Sheets("HR").Range("A8:B" &Sheets("HR"). Range("B" & Rows.Count).End(xlUp).Row).Value
ReDim K_HR( 1 To 1, 1 To UBound(HR, 1))
For i = 1 To UBound(HR, 1)
If HR(i, 1) = 9 Then
r1 = r1 + 1
K_HR(1, r1) = HR(i, 2)
End If
MsgBox r1
Next i
If r1 Then
Sheets("Report").Range("R1").Resize(, r1) = K_HR
End IfThử lệnh
cho nó vào vị trí nào a? a chèn dùm cho em với, cái này em gà lắm! thansk a
nói rỏ lại câu:
Vâng, file excel của em như thế này. Em dùng vba print từ code 1 đến code 7, mỗi lần in chỉ đc 1 bộ. Giờ a có thể chèn giùm em thêm 1 đoạn code vào vba đó để em có thể đánh thêm 1 số là số bộ cần in (ví dụ cần in 7 lần, in từ code 1 đến 7, rồi lặp lại từ 1 đến 7 cho đến khi đủ 7 lần)
Lệnh điều khiển máy in mình không rành, dùng tạm code
Sub preview_td()
Dim p1 As Long, p2 As Long, n As Long, i As Long, j As Long
p1 = Sheet2.Range("P2").Value
p2 = Sheet2.Range("P3").Value
n = Sheet2.Range("P5").Value 'so bo can in
If IsNumeric(p1) = False Or IsNumeric(p2) = False Or IsNumeric(n) = False Then
tb = MsgBox("So code va so bo can in phai la so.", , "Thông báo")
Exit Sub
End If
If p1 > p2 Then
tb = MsgBox("So code sau phai >= so code truoc.", , "Thông báo")
Exit Sub
End If
If p1 < 1 Then
tb = MsgBox("So code phai >= 1.", , "Thông báo")
Exit Sub
End If
If n < 1 Then
tb = MsgBox("So bo can in phai >= 1.", , "Thông báo")
Exit Sub
End If
For i = p1 To p2
Sheet2.Range("O1").Value = i
For j = 1 To n
'Sheet2.PrintOut
Sheet2.PrintPreview
Next j
Next
End SubCảm ơn anh cái code này, đã in đc số lượng bộ nhiều. Nhưng nó ko in 1 lượt từ "p1" đến "p2" mà nó in "p1" 7 lần rồi "p2" 7 lần. Anh có thể chỉnh lại code này sao cho nó in 1 lượt từ p1 đến p2 rồi lặp lại p1 đến p2 với số lần là n đc không ạ? Thanks anh!
Chỉnh lại đoạn cuối
For j = 1 To n
For i = p1 To p2
Sheet2.Range("O1").Value = i
'Sheet2.PrintOut
Sheet2.PrintPreview
Next i
Nextj
Viết hẵn cho bạn 1 hàm tự tạo luôn, đây:
Function SoChuyen(MaDV As String, Tháng As Integer)
Dim Rng As Range, sRng As Range, Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("CK")
Set Rng = Sh.Columns("B:b")
Set sRng = Rng.Find(MaDV, , xlFormulas, xlWhole)
If sRng Is Nothing Then
SoChuyen = "Nothing"
Else
SoChuyen = sRng.Offset(, Tháng).Value
If SoChuyen = "" Then SoChuyen = "GPE.COM"
End If
End Functiontks bạn, để mình thử ạ
