ID非公開

2022/6/20 3:07

11回答

エクセルで次のようなマクロを作りたいです。 写真のようなウィンドウをシート上に常に表示させておき、 数字を直接入力または矢印で増減。

エクセルで次のようなマクロを作りたいです。 写真のようなウィンドウをシート上に常に表示させておき、 数字を直接入力または矢印で増減。 印刷実行ボタンを押すことで、数字分の枚数が印刷されるようにしたいです。

画像

Excel | Visual Basic・396閲覧

ベストアンサー

0
tak********

2022/6/20 8:37

ユーザフォームでいいのであれば、以下のようなものでしょうか？ ・それぞれの名前は、数値表示は label1、スピンボタンは SpinButton1、ボタンは CommandButton1の前提です。 ・印刷をどのようにするのかがわかりませんので、適宜に対応してください。 ◆ユーザーフォームでのコード Private Sub CommandButton1_Click() Dim iCopyCount As Long iCopyCount = Me.Label1.Caption Unload Me 'ActiveSheet.PrintOut preview:=True ActiveSheet.PrintOut copies:=iCopyCount End Sub Private Sub SpinButton1_SpinDown() With Me.Label1 .Caption = .Caption - 1 If .Caption < 1 Then .Caption = 1 End If End With End Sub Private Sub SpinButton1_SpinUp() Me.Label1.Caption = Me.Label1.Caption + 1 End Sub Private Sub UserForm_Initialize() Me.Caption = "印刷枚数は？" Me.Label1.Caption = 1 End Sub