マクロ（Ｅｘｃｅｌ）で伝票入力

質問

はじめてのマクロ挑戦で頓挫しています。

「伝票入力」を作成しマクロの記録で作成しましたがうまく動きません。
以下のマクロをご指導頂けないでしょうか。
----------------------------------------------------------
セルＥ６（得意先コード）入力
セルＣ１６（日付）入力
セルＤ１６（品名コード）入力
セルＦ１６（｛数量｝入力
セルＩ１６（適用）入力
以上　セルＣ１６～セルＩ１６を入力後、1行下がりながら
（2行目Ｃ１７～Ｉ１７、３行目Ｃ１８～ｉ１８・・・・と６回繰り返し）後
セルＨ２５（前回請求額）入力
セルＨ２６（前回入金）入力
以上でまたセルＥ６で入力待ちになる。
--------------------------------------------------------------
以上の内容でご理解して頂けるか心配ですがよろしくお願い致します。
（使用バージョン2003）

回答No.2

ASIMOV · ベストアンサー

＞下記のエラーメッセージが表示され実行出来ませんでした

すいません、行が長すぎてうまく行かなかったようです
これならどうでしょう？

Sub Macro()
MyRange = "C16:D16,F16,I16,C17:D17,F17,I17,C18:D18,F18,I18,C19:D19,F19,I19,C20:D20,F20,I20,C21:D21,F21,I21,H25:H26,E6"
Range(MyRange).Select
Range("E6").Activate
End Sub

お礼

度々ご面倒をお掛けして申し訳ありませんでした。
お陰様で希望通りの動きをする事が出来ました。
内容も分かり易く今後の参考にもなります。
本当にありがとうございました。

回答No.3

2koma2

勝手な判断ですが、初心者と見てよろしいでしょうか？
初心者と見て話を進めます。

まず、マクロとVBAとは全く性質が異なります。
マクロは単純にユーザーの動作を模倣するだけです。
例えば「A1に『ジュース』と入力しB1に移動する」と言う
動作をすれば、その通りの行動を行います。

貴殿の質問でマクロでは無理ではないかと思われるところ
があります。
それは、
>>（2行目Ｃ１７～Ｉ１７、３行目Ｃ１８～ｉ１８・・・・　という
ところです。

この場合自動で次の行に移動する場合、「条件分岐」が必要になります。
マクロの中に条件分岐はできませんので、無理であると言うことです。
また、
>>以上でまたセルＥ６で入力待ちになる。
も同じく条件分岐が必要であると思いますので、恐らく無理であると
思います。

マクロとVBAの性質をもう少しネットでググッて見たほうが
貴殿の為にもなると思います。
但し、VBAで作れと言うならば簡単です。

がんばってください。

お礼

大変貴重なお話ありがとうございました。
お察しの通りＥＸＣＥＬは一部の関数利用程度の初心者です。

　ご指示の様にのようにマクロとＶＢＡを混同して理解？しておりました。
「マクロの記録」で記録された内容をＶＢＡで修正する。または「初めからＶＢＡで作成」すると考えて宜しいのでしょうか。

　確かに「マクロの記録」では条件分岐（例えば３行目以降入力がいらない場合はセルＨ２１へ移動等など）はどうするのだろうと漠然と考えていました。
　今回の質問は「ＢＶＡで伝票…」とするべきでした。

この度は大変勉強になりました。
ありがとうございました。

回答No.1

ASIMOV

Sub Macro()
　　Range( _　　"C16:D16,F16,I16,C17:D17,F17,I17,C18:D18,F18,I18,C19:D19,F19,I19,C20:D20,F20,I20,C21:D21,F21,I21,H25:H26,E6" _
　　　).Select
　　Range("E6").Activate
End Sub

このマクロを Ctrl+Q などに登録しておきます
データーを入力したらセル移動は「Tab」キーで行います

補足

早速のご指導ありがとうございました。
早速新規にマクロへコピーしトライしてみましたが、下記のエラーメッセージが表示され実行出来ませんでした。
２行目の　Range　～　Select　間が選択され
コンパイルエラー（構文エラー）
何か小生の操作に間違いがあるのでしょうか。
お時間がありましたら再度ご指導頂けたら幸いです。