Thêm nút spin button bằng mã lệnh VBA theo điều kiện (1 người xem)

[ThaiDieuAnh]

Mấy hôm nay em nghiên cứu trong bài viết: http://www.giaiphapexcel.com/forum/...ch-In-hàng-loạt-với-dữ-liệu-có-sẵn-trên-Excel của bác dhn46 thấy rất hay và cần thiết cho công việc của mình, tuy nhiên khi chọn xem in theo số thứ tự hoặc in tùy chọn rất bất tiện. Đặc biệt là khi dữ liệu một ô ở sheet Data nhiều thì khi sang sheet Form bị tràn trang in rất khó sửa. Bởi vậy em muốn gán ở sheet Form một nút Spin Button để có thể next theo số thứ tự tại cột A của sheet Data, next đến đâu thì Form tự động nhảy đến đấy. Rất mong sự giúp đỡ của các anh chị!
P/s: Đáng lẽ bài viết phải đăng đúng địa chỉ trên, tuy nhiên vì sự cần thiết của công việc và cảm thấy bác dhn46 bận không thể trả lời hết nên em lập topic này. Có gì mong mọi người lượng thứ, chân thành cảm ơn

 

[befaint]

Bạn làm theo hình:


Rồi hủy chế độ Design Mode > click spinbutton
p/s: In theo STT, nếu chỉ nhập ở một ô From or To thì lỗi...
Nếu chỉ in mỗi cái form Tờ khai thì bạn tham khảo bài này xem phù hợp không?
Bài #9:
http://www.giaiphapexcel.com/forum/...oạt-phiếu-lương-của-nhân-viên-trong-1-lệnh-in

 

[ThaiDieuAnh]

Bạn làm theo hình:

View attachment 164060
Rồi hủy chế độ Design Mode > click spinbutton
p/s: In theo STT, nếu chỉ nhập ở một ô From or To thì lỗi...
Nếu chỉ in mỗi cái form Tờ khai thì bạn tham khảo bài này xem phù hợp không?
Bài #9:
http://www.giaiphapexcel.com/forum/...oạt-phiếu-lương-của-nhân-viên-trong-1-lệnh-in

Cảm ơn bác, ý mình muốn tận dụng file của bác dhn46 khi next spin button thì sheet form tự nhảy.

 

[ThaiDieuAnh]

Các bác cho em hỏi cách để khống chế giá trị MIN tại ô A4 được không ạ, em chỉ khống chế được giá trị MAX tại ô A5 khi sử dụng Spin Button

 

[befaint]

Min ở ngay dưới max đó.....

 

[ThaiDieuAnh]

Ý em là khi ấn nút Click Me thì ô A4 trả về giá trị Min, A5 trả về Max. Khi ấn spin Button thì tự động chỉ chạy được từ Min đến Max

 

[befaint]

Ý em là khi ấn nút Click Me thì ô A4 trả về giá trị Min, A5 trả về Max. Khi ấn spin Button thì tự động chỉ chạy được từ Min đến Max

Ý của em nhưng em để trong đầu em thì ai biết được?

Sub clickme()
With Sheet1
    .Range("A4").Value = .SpinButton1.Min
    .Range("A5").Value = .SpinButton1.Max
End With
End Sub

 

[ThaiDieuAnh]

Nếu chỉ in mỗi cái form Tờ khai thì bạn tham khảo bài này xem phù hợp không?
Bài #9:
http://www.giaiphapexcel.com/forum/...oạt-phiếu-lương-của-nhân-viên-trong-1-lệnh-in

   Sub preview_PL()Dim p1, p2, i&
p1 = Sheet3.Range("L3").Value
p2 = Sheet3.Range("L4").Value


If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("So code 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 Or p2 < 1 Then
tb = MsgBox("So code phai >= 1.", , "Thông báo")
Exit Sub
End If
If p1 <= p2 Then
    For i = p1 To p2
    Sheet3.Range("K2").Value = i
    Sheet3.PrintPreview
    Next
End If
End Sub

Trong file ở link đính kèm em hơi khó hiểu ở chỗ:

 If p1 <= p2 Then
    For i = p1 To p2
    Sheet3.Range("K2").Value = i
    Sheet3.PrintPreview

Tạo sao lại là Rande("K2").Value=i; em thử đổi sang địa chỉ khác thì khi Rreview chỉ được 1 trang. Còn để K2 thì lại chạy được, mọi người giúp em với

 

[befaint]

 If p1 <= p2 Then
    For i = p1 To p2
    Sheet3.Range("K2").Value = i
    Sheet3.PrintPreview

Sheet3.Range("K2").Value = i. Tức là ta gán i xuống cell K2 của sheet3
Cell K2 là cell dùng để tham chiếu cho các đối tượng khác (mã, họ tên...) trong form in đó.