| |
長文失礼します。
コマンドボタンで実行していたマクロを任意のセルで実行したいです。
下記は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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
