Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


69 / 73902 ←次へ | 前へ→

【79473】セルにマクロ登録
質問  SANO  - 17/10/25(水) 17:52 -

引用なし
パスワード
   長文失礼します。
コマンドボタンで実行していたマクロを任意のセルで実行したいです。
下記はsheet1のB8に入力した数値でsheet4を印刷するマクロです。
※5枚以上印刷はメッセージボックスが出ます
このマクロをsheet1のB10を印刷ボタンとしてEnter押した時に実行などできますでしょうか?
ご教示の程宜しくお願いいたします。

Sub 印刷()

With Sheets("Sheet1")
If .Range("B8").Value > 5 Then
If MsgBox("枚数を確認してください" & _
vbLf & "続けますか?", vbYesNo) = vbNo Then
Exit Sub
End If
End If
Sheets("Sheet4").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=.Range("B8").Value, Copies:=1
End With
Application.Goto Sheets("Sheet1").Range("B6")

End Sub

ちなみにsheet1のモジュールに下記の構文をいれましたが、
B10に数値入力しEnterを押すと上記のマクロは作動しました。
B8入力のB10で印刷したいです。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B10")) Is Nothing Then Exit Sub
If IsNumeric(Target) Then
Worksheets("Sheet4").PrintOut Copies:=Target.Value

End If
End Sub

92 hits

【79473】セルにマクロ登録 SANO 17/10/25(水) 17:52 質問[未読]
【79475】Re:セルにマクロ登録 γ 17/10/25(水) 21:28 発言[未読]
【79476】Re:セルにマクロ登録 γ 17/10/26(木) 7:28 発言[未読]
【79477】Re:セルにマクロ登録 SANO 17/10/26(木) 8:29 お礼[未読]
【79478】Re:セルにマクロ登録 マルチネス 17/10/26(木) 9:37 発言[未読]
【79481】Re:セルにマクロ登録 マナ 17/10/26(木) 19:00 発言[未読]
【79482】Re:セルにマクロ登録 γ 17/10/26(木) 20:58 発言[未読]
【79483】Re:セルにマクロ登録 γ 17/10/27(金) 6:55 発言[未読]
【79484】Re:セルにマクロ登録 SANO 17/10/27(金) 8:42 お礼[未読]

69 / 73902 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free