Excel フォームの登録

Excel97でチェックボックスにチェックを入れてもらうと自動的に選択した料金が違うセルに表示できるようにしたいのですが、その場合マクロの登録をすればよいのではないかとおもうのですが、どうすればいいのか教えて下さい。

No.1 ベストアンサー 回答者： nishi6 回答日時： 2002/04/03 18:11

＞チェックボックスにチェックを入れてもらうと自動的に・・・

とありますが、チェックを入れると自動的に何かを決定できるのはオプションボタンでしょう。
オプションボタンとして書いてみます。

＞その場合マクロの登録をすればよいのではないかとおもうのですが・・・
オプションボタンの機能だけを使うならマクロ不要です。


質問について考えると、
（１）表示→ツールバー→フォームのオプションボタン を使う
（２）表示→ツールバー→Visual Basicのコントロールツールボックスのオプションボタン を使う
（３）ユーザーフォームを使用してオプションボタン を使う
の３種類が考えられます。（３）はフォームの表示でコードを書く必要がありますが、（１）、（２）の場合はマクロ不要です。

（１）の場合、例えばオプションボタンを３個使用して
　　　　　１個目のオプションボタンを選択したらセルF2に『100』を表示
　　　　　２個目のオプションボタンを選択したらセルF2に『200』を表示
　　　　　３個目のオプションボタンを選択したらセルF2に『300』を表示 するとします。
　　オプションボタンを１つ選んで、右クリック→コントロールの書式設定→コントロールタブ
　　リンクするセルにJ2を入力(J2は例です。選択結果を格納する場所を指定するわけです)
　　選択状況を表示したいF2に=CHOOSE(J2,100,200,300)と入力します。

（２）の場合、オプションボタンを３個貼り付けます。機能は（１）と同じとします。
　　　　　１個目のオプションボタンを選択して右クリックしてプロパティを選択。
　　　　　LinkedCellにJ2を入力。
　　　　　同様に２つ目のオプションボタンにはLinkedCellにJ3を入力。
　　　　　同様に３つ目のオプションボタンにはLinkedCellにJ4を入力。
　　　　　K2に =IF(J2=TRUE,100,0)
　　　　　K3に =IF(J3=TRUE,200,0)
　　　　　K4に =IF(J4=TRUE,300,0)
　　　　　F2に =SUM(K2:K4) 　とします。

（３）の場合はフォームの表示のためにコードを書く必要がありますがオプションボタンを選択した時の処理は（２）と同じでしょう。

この回答への補足

早速回答していただいてありがとうございます。教えていただいた方法（１）でしてみて確かにこれでできたのですが、１つ質問があります。リンクするセルは１つしか選べないんでしょうか。というのも質問が何問かあり１つの質問に対して１つのリンクというふうにしたいのですができますか？例えば質問１でオプションボタンを５つ使います。質問２で新たにオプションボタンを使用して選択してもらうばあいどのように設定すればいいんでしょう？質問１と質問２はまったく別のものとして考えたいのですがうまくいきませんでした。このような場合（１）ではできないのでしょうか？できるだけ簡単な方法があれば教えて下さい。よろしくお願いします。

補足日時：2002/04/03 23:06

No.4 回答者： nishi6 回答日時： 2002/04/04 11:05

＞グループボックスの外の線は消す事ができないんでしょうか？

基本的にはそのようなオプションはないはずです。でも、見えなくすることはできます。
(1)グループボックスのテキストはテキストの編集で消去してしまう
(2)グループボックスより大きいオートシェイブの四角形を描く。
(3)この四角形の書式を、塗りつぶしは自動、線は線なしにする。
(4)この四角形をグループボックスに重ねる。
(5)四角形を右クリックし、順序→最背面へ移動。
(6)グループボックスを右クリックし、順序→最背面へ移動。
下から、グループボックス→四角形→オプションボタンの順に重ねるわけです。
シートの枠線も非表示（ツール→オプション）にしてしまえば違和感もなくなります。

このフォームのグループボックスやオプションボタンを使うと、それが選択（編集）状態になってしまうことがあります。これを回避するには、シートを保護します。ただ、オプションボタンで変更になるセルは保護を解除しておく必要があります。

上記はフォームのオプションボタンを使う場合ですが、コントロールツールボックスのオプションボタンを使えば、プロパティのGroupNameを『質問1』や『質問2』にすれば区分けができ、グループボックスを使う必要はありません。編集状態になることもありません。

フォームのコントロールは古く、使い勝手も悪いので、私は、コントロールツールボックスのコントロールを使うようにしています。

No.3 回答者： nishi6 回答日時： 2002/04/04 00:13

＞質問２で新たにオプションボタンを使用して選択してもらうばあい

＞どのように設定すればいいんでしょう？

表示→ツールバー→フォームでフォームのダイアログの中にグループボックス（小さいxyzがある）があります。

これをシートに貼り付けて、この中に必要な数のオプションボタンを配置します。
グループボックスの中にあるオプションボタンはそれだけで独立なグループになり、グループボックスの外の他のオプションボタンの干渉を受けません。

したがって、

　質問１用のグループボックスを配置
　　　→その中に質問１に必要な数のオプションボタンを配置
　　　→リンクするセルを決定
　　　→表示用の算式を入力

　質問２用のグループボックスを配置
　　　→その中に質問２に必要な数のオプションボタンを配置
　　　→リンクするセルを決定
　　　→表示用の算式を入力

　質問３用・・・・
　　：
　　：

という手順でできるでしょう。

この回答への補足

ありがとうございます。できました（笑顔）何度も聞いて申し訳ないんですが乗りかかった船だと思って助けてください。グループボックスの外の線は消す事ができないんでしょうか？いろいろこころみたけどだめでした。無理ならしょうがないんですけどなにかいいアドバイスがあれば教えてください。

補足日時：2002/04/04 09:44

No.2 回答者： imogasi 回答日時： 2002/04/03 22:34

表示－ツールバー－VisualBasic－コントロールツールバー（金槌）を順にクリックする。

コントロールツールボックスから、
Sheet1にチェックボックスをドラッグアンドドロップ。もう一つSheet1にチェックボックスをドラッグアンドドロップ。次ぎに
ツール－マクロ－VisualBasicEditorを順にクリックする。
プロジェクトエクスプローラーのSheet1をダブルクリック
General側はCheckBox1をクリック、Declaration側はClickedをクリック
－－－－－－－
Private Sub CheckBox1_Click()
ActiveCell = 100
End Sub
－－－－－－－
Private Sub CheckBox2_Click()
ActiveCell = 200
End Sub
を入力し、実行。
Ｓｈｅｅｔ１の望みのセルをクリックしておいて、CheckBox1をクリックすると１００、CheckBox２をクリックすると２００とセットできる。
CheckBoxは必要なだけ増やし、ActiveCell=の右辺に値段をセット。