Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5120 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52421】連続印刷のバグ はやぶさ 07/11/13(火) 22:15 質問[未読]
【52423】Re:連続印刷のバグ n 07/11/13(火) 23:37 発言[未読]
【52547】Re:連続印刷のバグ はやぶさ 07/11/18(日) 19:31 お礼[未読]
【52421】連続印刷のバグ
質問  はやぶさ E-MAIL  - 07/11/13(火) 22:15 -
引用なし
パスワード
   Private Sub CommandButton2_Click()
'連続印刷マクロ
' マクロ記録日 : 2005/3/3　ユーザー名 : Sakaguti
'
　　　　Sheets("算印").Select
　　　　Range("$S$2").ClearContents
　　　　
　　　　 X = Range("g2").Value
　　　　 Y = Range("i2").Value
　　　 For i = X To Y Step 1

　　　　Range("$S$2").Select
　　　　ActiveCell.FormulaR1C1 = i
　　　　
　　
　　　　ActiveWindow.SmallScroll ToRight:=-6
　　　　Range("$A$4:$Z32").Select
　　　　ActiveSheet.PageSetup.PrintArea = "$A$4:$Z$32"
　　　　Selection.PrintOut Copies:=1, Collate:=True
　　　　
　　Next i
　　　　Range("$S$2").ClearContents
　　　　Range("E2").Select
End Sub

　連続印刷の設定に、上記の変数Xに代入するセルとして最初はG2、Yに代入するセルとしてI2を設定して、該当のコード番号を入力した後、コマンドボタンをクリックして連続印刷のマクロを動かしても、動作しないのですが、上記のようにG2をg2、I2をi2と小文字にするとちゃんとプログラムが動きます。大文字と小文字でマクロは理解できないのでしょうか。いろいろな文献を見てもわからないので質問しました。どなたか教えて下さい。
【52423】Re:連続印刷のバグ
発言  n  - 07/11/13(火) 23:37 -
引用なし
パスワード
   こんにちは。
そんな事はないと思います。下記でもダメですか？

Private Sub CommandButton2_Click()
　　Dim X As Long
　　Dim Y As Long
　　Dim i As Long
　　
　　With Sheets("算印")
　　　　.Range("S2").ClearContents
　　　　.PageSetup.PrintArea = "$A$4:$Z$32"
　　　　X = .Range("G2").Value
　　　　Y = .Range("I2").Value
　　　　For i = X To Y
　　　　　　.Range("S2").Value = i
　　　　　　.PrintOut Copies:=1, Collate:=True
　　　　Next i
　　　　.Range("S2").ClearContents
　　　　Application.Goto .Range("E2")
　　End With
End Sub
【52547】Re:連続印刷のバグ
お礼  はやぶさ E-MAIL  - 07/11/18(日) 19:31 -
引用なし
パスワード
   ▼n さん

変数の定義を教えていただいたようにしたら、問題なく動きました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5120 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free