- Excel VBA 質問スレ Part33
668 ：663[sage]：2014/06/11(水) 21:44:28.79 ID:FYp71EYH - 遅れましたが>>664さんありがとうございます
何度も申し訳ないですが
枚数 = Range("A2").Value
If 枚数 > 0 Then Workbooks.Open Range("A1").Value & ".xls"
If 枚数 > 0 Then Sheets("sheet1").PrintOut Copies:=枚数
Ifの条件を
枚数 = 1〜65535（印刷で設定可能な数）
に変えたいです
具体的な書き方を教えていただけないでしょうか
|
- Excel VBA 質問スレ Part33
669 ：デフォルトの名無しさん[sage]：2014/06/11(水) 21:58:07.88 ID:FYp71EYH - If 枚数 >= 1 And 枚数 <= 65535 Then
こんなで良いのでしょうか
|
- Excel VBA 質問スレ Part33
671 ：デフォルトの名無しさん[sage]：2014/06/11(水) 22:17:48.49 ID:FYp71EYH - >>670
そんな簡単なのがあったんですね
そっちにします ありがとうございます
|
- Excel VBA 質問スレ Part33
672 ：デフォルトの名無しさん[sage]：2014/06/11(水) 22:19:55.78 ID:FYp71EYH - ああ
初めから0より大きいだったんですね
申し訳なかったです
|