こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel2000でデータフォームを自動的に表示させたいのですが・・・。

初歩的な質問ですみません。

データ入力ミスを防ぐ為、Excelに付属されているデータフォームを使って
ある表にデータを入力しようと思うのですが、フォームを表示する操作
(範囲選択をする⇒メニューの[データ]-[フォーム]コマンドを選択する)
をマクロに登録して自動化しようとすると、"エラー1004 リストまたは
結合セルを含む範囲に対してこのコマンドは使用できません”というエラー
メッセージが表示されてしまい、マクロを実行することができません。

マクロではなく、通常に操作するとフォームを表示することができます。
尚、データ範囲のどこにも結合されているセルはなく1行目は見出しを
入力しています。

マクロの自動記録で登録したのですがコードは
    Range("A4:O31").Select
    ActiveSheet.ShowDataForm    と記録されています。

私よりさらにExcelに不慣れな人が作業する為、ボタン1つでフォームが
表示できるようにしたいのですが・・・。
何か注意する点はあるのでしょうか? 教えてください。

投稿日時 - 2003-03-14 09:45:45

QNo.497638

すぐに回答ほしいです

質問者が選んだベストアンサー

Sub test01()
Worksheets("sheet1").Range("a2:c2").Select
ActiveSheet.ShowDataForm
End Sub
でどうですか。
第1行目か、第1行がスペースで第2行目に、項目見出しにあたる、例えば住所・氏名・年齢などをA,B,C列以下に入れておけば、上記でOKと思います。警告メッセージが出ますが。
見出しにあたる文字列が無いとエラーになるようです。
表見だしも邪魔になるようです。1行目を住所録にして、Range(”a2:C2”)。Selectにしても、実行するとエラーになるようです。エクセルのデータベースの仮定は他の例でも、表見だし無しで、一番上の行に、項目見だしをおくのが仮定のようです。
第2行目に1つデータを前もって入れておく必要はないようです。

投稿日時 - 2003-03-14 20:40:29

お礼

ご指摘どおり、項目見出しを1行目だけにしたらできました!!
見出しの上に大見出しがあったり、タイトルがあったので
エラーになってしまうのですね。
とても勉強になりました。
ご丁寧な回答ありがとうございました。
今後も何かありましたらよろしくお願いします。

投稿日時 - 2003-03-17 09:27:06

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

2行目に1件データをあらかじめ登録しておけば
大丈夫だと思います。

投稿日時 - 2003-03-14 12:47:12

お礼

ご指摘どおり、1件データを登録しましたがまだエラーメッセージが
出て来てしまいます。
もう少しで原因が分かりそうですので、もうしばらく頑張ってみます。
早速のご回答ありがとうございました。

投稿日時 - 2003-03-17 09:23:57

ANo.1

こちらで検索してみては?
http://search.microsoft.com/default.asp?siteid=japan

検索キー:Excel 実行エラー 1004

投稿日時 - 2003-03-14 11:24:01

お礼

教えて頂いたアドレスで検索してみましたが、残念ながらフォームのことは
載っていませんでした。
でも、このページ今後困った時の参考とさせて頂きます。
早速のご回答ありがとうございました。

投稿日時 - 2003-03-17 09:21:39

あなたにオススメの質問