エクセルのフォームについて教えてください。（マクロ記録）

質問

エクセルにレコードを入力するのにフォーム機能を使用し、その手順をマクロに記録したいのですが、うまくいきません。（エクセル２０００使用）

　シートの一部分（表自体はＡ列からＱ列まであるのですが、入力部分はＩ列まで）にレコードを入力するので入力部分を範囲指定し、フォーム機能を使用したいのです。

　マクロに登録しなければフォーム画面に入力したい項目が全て表示されるのですが、それをマクロに登録して、それを実行すると、入力項目がＡ列の部分しか表示されません。入力するたび範囲指定するのが面倒なのでマクロに記録させたいのですが・・・。

　マクロの内容はこんな風になってたんですけど。どなたか教えてください。お願いします。
「 Range("A1:I149").Select
　ActiveSheet.ShowDataForm　」

回答No.3

imogasi · ベストアンサー

#1のものです。
（１）一般的にエクセルでデータベース的に利用する時は、項目見出しを第１行目に並べるのが前提になります。ご質問者の場合はどうなのでしょうか。
（２）またhttp://homepage2.nifty.com/housaka/excel/vbafaq21.htmlの中程を見つけました。参考になりませんか。
（３）Worksheets("sheet2").ShowDataFormだけでも上手く行きました。「 Range("A1:I149").Select」は不要ではないでしょうか。入力範囲を指定する必要はない。第１行目に項目名を入力するより他無く、その一部列だけを入力対象にすることが出来ないのではと思います。それをしたい時は ShowDataFormでは無く、フォームにテキストボックスでも貼りつけて、ＶＢＡプログラムを作るより他仕方が無いと思います。
（４）（Ａ）入力列指定、（Ｂ）見だし行のあり場所指定、（Ｃ）入力範囲指定は出来ないようです。もっとも（Ｃ）はデータ入力を止めれば済むことです。行を飛ばすことは出来ないが、新規を選び、Ａ列項目で１スペースを入れてエンタで飛んだようになります。

お礼

問題解決しました！！　お礼が遅くなり、申し訳ありません。（２）により、問題解決させていただきました。ちなみに
（１）１行目は見出しになってました
（３）同様にしてみたつもりですが、やはり思うようになりませんでした。
（４）たしかに、入力の必要がないところは飛ばして入力すればいいんですよね。
ありがとうございました。

回答No.2

ja7awu

データ・フォームのことですね。

これで操作した内容は、記録出来ないと思います。
その必要がないからです。
直接セルを編集するコードを記述すればどうでしょうか。

補足

コードを一から記述する能力がないので「新しいマクロの記録」で手順を登録しました。
　範囲指定をしてからフォーム機能を使えば、入力したくない部分は表示されずに、入力ウインドウがコンパクトですよね。そのままフォーム機能をつかうと、入力の必要のない項目まで、入力ウインドウに表示されてしまうので、範囲指定とフォームをマクロに登録したかったのですが。

回答No.1

imogasi

ShowDataFormでデータを入力するのは、項目をタブキーで
移動し、行（レコード）の移動はエンタキーで行う。
最終行の下へ自動的に、入力しただけ入れてくれるのでは
無いでしょうか。質問のコードで上手く行きましたが。

補足

登録したマクロを実行すると、入力フォームのウインドウにＡ列しか入力項目として出てこないんです。Ａ列からＩ列まで入力したいのに。
　記載したコードで上手く行ったのであれば、コード以外になにか問題があるのでしょうか。