|
かとぼん さん、おはようございます。
>A10からA68で一番大きい数字の値で印刷枚数を指定する場合
>下記では動作しません。
>どこがいけないのでしょうか?
増やしたいのはページ数ではなくて、枚数(部数)ですよね?
>Private Sub CommandKYA4印刷_Click()
>
> Dim i As Integer
> Dim MyR As Range
> Set MyR = Range("A10:A68")
If Application.WorksheetFunction.Count(MyR) = 0 Then
i = 0
Else
i = Application.WorksheetFunction.Max(MyR)
End If
> Set MyR = Nothing
>
>
> Application.ScreenUpdating = False
If i = 0 Then
MsgBox "A10:A68に数値なし", vbExclamation
Else
Sheet4.PrintOut From:=1, To:=1, Copies:=i
End If
>
>
> Application.ScreenUpdating = True
>
>End Sub
|
|