再びエクセルのマクロについて

質問

前回、http://oshiete1.goo.ne.jp/kotaeru.php3?q=1179484で、質問させていただき、
だいぶ前に進みました。ありがとうございました。

さて、imogasiさんに誘導いただいた、
imogasiさんに、こちらのページを誘導していただき
（http://okweb.jp/kotaeru.php3?q=113505）
拝見させていただきましたが、新たに疑問が出たのでまた教えてください。
例もそのまま移させてもらって実行しているつもりなのですが、（５）を自動でマクロで実行する、という部分がどうしても定義されていません。というエラーが出てしまいます。
　また、印刷処理が済んだら、入力リストの欄外にでも、
”済”印をつけるには、どのようにしたら良いのでしょうか。何度も申し訳ありませんが、よろしくお願いいたします。

回答No.3

taocat · ベストアンサー

こんにちは。

＞Sub 楕円1_Click()
＞Worksheets("sheet1").Activate
＞For i = 2 To 3 '300

変数 i に色が付いて「変数が定義されてません」と表示されるんですよね。

モジュールの１行目に、Option Explicitが書かれていますよね。
これが「変数の宣言を強制する」というコードで、今回のように変数の宣言がないとエラーが出ますので下記のように変数宣言文を追加します。

ーーーーーーーーーーーーーーーーーーーーーー
Sub 楕円1_Click()

　　Dim i　　　'●●変数の宣言●●

Worksheets("sheet1").Activate
For i = 2 To 3 '300
ーーーーーーーーーーーーーーーーーーーーーーー

当然のことに、Option Explicitがなければ今回のエラーはでませんが、タイプミスの発見や可読性の為にも必ずOption Explicitはつけておきましょう。
以上です。

お礼

できましたっ！！！！！！！！
taocatさん、ありがとうございました。
助かりました。

回答No.2

taocat

No.1 です。序にサンプルコードをアップ。

ーーーーーーーーーーーーーーーーーーーーーーーー
Sheet1 を「済みリスト」とし、１行は見出しとする

　　　　Ａ　　　　Ｂ
１　　コード　　済欄
２
３

ーーーーーーーーーーーーーーーーーーーーーーーー
Sheet2 を「領収書」とし、Ｂ５に部品コードがあるとする
また、印刷ボタンもここにあるとする

Sheet2のシートモジュールに次のコードを挿入

Private Sub CommandButton1_Click()
　Dim LastRow As Long

　ActiveSheet.PrintOut

　LastRow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row

　With Worksheets("Sheet1")
　.Cells(LastRow + 1, "A").value = Range("B5").value
　.Cells(LastRow + 1, "B").value = "済み"
　End With
End Sub

上記のコードを上記の条件で新しいブックを開き試してみて下さい。お望み？どおり動作するはずです。
以上です。

お礼

どうもありがとうございました。
まだまだ勉強が必要のようです・・・。
またよろしくお願いいたします。

回答No.1

taocat

こんにちは。
Imogasiさんのコードを使用しているみたいですから、この回答の適任者はImogasiさんだろうと思いますが気付いたことをちょっと。

＞（５）を自動でマクロで実行する、という部分がどうしても定義されていません。というエラーが出てしまいます

いくらなんでもこれは誰も答えようがありません。何故ならそのコードが提示されてないのですから。(^^;;;

それから最初の質問は「済みリスト」にコードを１件入力する度にその１件分の領収書を出力するとなってますが、ならば次の方法がよりベターだと思いますが。

（１）「領収書」シートに「印刷ボタン」を配置

（２）「印刷ボタン」押下で「領収書」を印刷

（３）印刷後に「領収書」の部品コードを
　　「済みリスト」のコード欄にもってくると同時に
　　　済み欄に「済み」の文字を入れる

ようするに最初の質問とは逆の発想ですね。
以上です。

お礼

教えていただき、ありがとうございます。
逆の発想の方も、合わせて勉強させていただこうと思います。

Sub 楕円1_Click()
Worksheets("sheet1").Activate
For i = 2 To 3 '300
Cells(1, "F") = i
Range("a1:c8").PrintOut
Next i
End Sub
という、文を教えていただいたのですが、
（丸い図形をクリックしたらマクロがスタートするように設定しています）
この、３行目の
Ｆｏｒ　ｉ　＝　２・・・・の行で、
定義されていませんと、出てしまうのです。