Hỏi về Form tùy biến chọn đối tượng (1 người xem)

[vova2209]

Như code dưới đây là sẽ in lần lượt 3 sheet. Giờ em muốn như hình bên dưới, mình nhặt 1 loạt những sheet muốn vào bảng tùy chọn. Sau đó khi muốn in sheet nào chỉ việc tích vào như hình vễ.. Nhờ các anh giúp đỡ.. em xin chân thành cảm ơn!

 

[vova2209]

Như code dưới đây là sẽ in lần lượt 3 sheet. Giờ em muốn như hình bên dưới, mình nhặt 1 loạt những sheet muốn vào bảng tùy chọn. Sau đó khi muốn in sheet nào chỉ việc tích vào như hình vễ.. Nhờ các anh giúp đỡ.. em xin chân thành cảm ơn!View attachment 184688

Xin được giúp đỡ.. em xin cảm ơn

 

[befaint]

Hai bạn này (bạn chủ thớt và @sondaubac) kết bạn mới đây... mà hổng chia sẻ tiếp với nhau sao?
Bạn ấy đi hướng mới rồi này:
http://www.giaiphapexcel.com/dienda...g-excel-2017-update-lần-1.130244/#post-819178

 

[VetMini]

Bộ kết bạn trăm năm hay sao mà bảo ngừoi ta chia sẻ nhau.

 

[befaint]

Bộ kết bạn trăm năm hay sao mà bảo ngừoi ta chia sẻ nhau.

Ở đây anh ơi.
http://www.giaiphapexcel.com/diendan/threads/nhờ-viết-code-sắp-xếp-sheet.130023/page-2#post-816564

------
Chụp ảnh lại, lỡ họ sửa bài... mình bị hớ thì xí hổ lắm.

 

[VetMini]

Có lý nhỉ. Mình cũng phải kiếm một đối tượng mát con mắt để mà kết bạn mới được. Bạn có rếch cồm men nhơn vật nào không.

 

[vova2209]

@@! học dần chứ anh .. cái này em đang cần.. các anh giúp em đi ạ

 

[vova2209]

Ở đây anh ơi.
http://www.giaiphapexcel.com/diendan/threads/nhờ-viết-code-sắp-xếp-sheet.130023/page-2#post-816564

------
Chụp ảnh lại, lỡ họ sửa bài... mình bị hớ thì xí hổ lắm.

Anh xem hộ em chỗ này lỗi ở đâu, em duyệt tên Sheets qua ô cell
'CODE IN BIEN BAN

Private Sub OkIn_Click()
Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
Dim i As Long
Dim shNameKL, shNameCD As String

'On Error GoTo Thoat
inStart = TextBox1.Value 'Nêu'ko dùng form > inStart = application.Inputbox("In Tu:")
inFinish = TextBox2.Value 'Nêu'ko dùng form > inFinish = application.Inputbox("In Dên':")
shNameKL = Sheets("BBan").Range("A2")
shNameCD = Sheets("BBan").Range("A3")
For i = inStart To inFinish
Sheets("BBan").Range("Aj1").Value = i
Sheets("BBan").PrintOut 'Vùng in .Range("C2:AF152").PrintOut

Sheets("shNameKL").Select
hidedongproKL
Sheets("shNameKL").Range("J8").Value = i
Sheets("shNameKL").PrintOut

Sheets("shNameCD").Select
hidedongproCD
Sheets("shNameCD").Range("O8").Value = i
Sheets("shNameCD").PrintOut
Next i
'Thoat:
Unload Me
End Sub

 

[vova2209]

à em tìm ra rồi: bỏ ngoặc kép. em vẫn muốn làm ở form nếu được các a ra tay giúp đỡ. em cảm ơn
Sheets("shNameKL").Select
hidedongproKL
Sheets("shNameKL").Range("J8").Value = i

 

[Horse]

Bạn ăn trộm cái form trong add-in "in nhiều sheet" của anh @befaint rồi chế lại xem sao

 

[NguyenNgocThuHien]

Giả sử làm xong rồi, đối với bài toán chọn nhiều phần tử thì chắc chắn thứ tự lựa chọn cũng quan trọng. Tạo 2 listview, một cái hiện danh sách các sheet có sẵn, một cái rỗng, sau đó dùng chuột kéo các item trong listbox 1 qua listbox2. với cách này thì còn có thể một sheet được chọn nhiều hơn một lần. viết code cứ gọi là tưng bừng luôn.

Nhớ là hôm trước có bạn hỏi về di chuyển item giữa 2 listbox, bạn tự tìm và code lại.

 

[vova2209]

Giả sử làm xong rồi, đối với bài toán chọn nhiều phần tử thì chắc chắn thứ tự lựa chọn cũng quan trọng. Tạo 2 listview, một cái hiện danh sách các sheet có sẵn, một cái rỗng, sau đó dùng chuột kéo các item trong listbox 1 qua listbox2. với cách này thì còn có thể một sheet được chọn nhiều hơn một lần. viết code cứ gọi là tưng bừng luôn.

Nhớ là hôm trước có bạn hỏi về di chuyển item giữa 2 listbox, bạn tự tìm và code lại.

em mới biết về form 1 chút. cái đấy gọi là list box à. có bài nào hướng dẫn cho em xin links với, hoặc làm ví dụ cho em với bài của em được không ạ!

 

[vova2209]

Bạn ăn trộm cái form trong add-in "in nhiều sheet" của anh @befaint rồi chế lại xem sao

Anh gửi cho em tham khảo học theo với, em cảm ơn

 

[thuyyeu99]

Code bạn kiếm trên diễn đàn có hết mà

 

[vova2209]

Code bạn kiếm trên diễn đàn có hết mà

Anh cho em xin file này để e nghiêng cứu làm

 

[thuyyeu99]

File này của mình là Dll chứ không phải trong excel

 

[vova2209]

File này của mình là Dll chứ không phải trong excel

Vâng em cảm ơn! em nghiên cứu thêm về form đã