Bác Nào Biết Cách In Này Giúp Tôi Với

[anhteo1002]

Ngày nào tôi cũng phải in vài chục tờ tôi dùng vlookup tìm và in trong 1 sheet ai biết cách chỉ dùng 1 enter mà in được mấy chục tờ không?Cám ơn nhiều!Có file kèm theo.

 

[chibi]

- Tạo một nút ấn bằng Command
- Viết code cho nút: Có tác dụng thay lần lượt các giá trị cho trước vào ô M6 và in luôn. Ví dụ
Private Sub CommandButton1_Click()
Dim k(4)
k(1) = 2
k(2) = 4
k(3) = 6
k(4) = 8
For i = 1 To 4
Cells(6, 12).Value = k(i) 'Thay M6 bang k(i)
PrintOut
Next
End Sub

 

[workman]

- Tạo một nút ấn bằng Command
- Viết code cho nút: Có tác dụng thay lần lượt các giá trị cho trước vào ô M6 và in luôn. Ví dụ
Private Sub CommandButton1_Click()
Dim k(4)
k(1) = 2
k(2) = 4
k(3) = 6
k(4) = 8
For i = 1 To 4
Cells(6, 12).Value = k(i) 'Thay M6 bang k(i)
PrintOut
Next
End Sub

Mạn phép đóng góp chút nhé. Sao lại phải làm bằng mảng k thế? Tôi thử viết lại nhé:

Private Sub CommandButton1_Click()
For i = 2 To 8 step 2
Cells(6, 12).Value = i
PrintOut
Next i
End Sub

 

[chibi]

Gửi workman
Các giá trị nhập vào không theo quy luật, nên phải dùng mảng

 

[Mr Okebab]

Nếu các giá trị nhập không theo thứ tự thì ta cho các giá trị đó vào trong một vùng và đặt name cho nó.
VD : In = range("T4:T31")
Sau đó
Sub InCT()
On Error Resume Next
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

S02.Select
Dim GT As Range
For Each GT In Range("In")
Range("M6").Value = GT
S02.Calculate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
Range("I11").Select

End Sub

Bạn xem thử nhé.
...........................................................................................
Dear Chibi !
Sao lệnh PrintOut trong VBA lại không chạy vậy ??? Hay đây là viết tắt ?

Thân!

 

[anhteo1002]

Xin chân thành cám ơn các bạn!Nhân nhịp năm mới chúc các bạn cùng gia đình mạnh khỏe,hạnh phúc và thành đạt(Lệnh của Chibi tôi thấy không chạy được,bạn xem lại nhe).

 

[chibi]

Mình đang sử dụng Excel 2000, Printout chạy bình thường. Mình không biết cách up file ví dụ của mình lên.

 

[lamho27]

Cho hỏi : nếu các giá trị cho trước không phải ô M6 mà là ô T8 thì phải thay bằng chử gì ? cám ơn

 

[tedaynui]

Cho hỏi : nếu các giá trị cho trước không phải ô M6 mà là ô T8 thì phải thay bằng chử gì ? cám ơn

Thì bạn tìm trong code chữ M6 thay bằng chữ T8

TDN