エクセルにボタン表示をつける方法を教えてください。

仕事で使用する表作成について困っています。
とくにボタン表示のさせかたを知りたいと思っています。
＜状況＞
部署内に100名の社員がいます。その100名をAとBの班に
ふらなければいけません。（どちらの班になりたいかは、各人の自由希望）

＜希望＞
私が全員の氏名や班をエクセルに入力するのは大変なので
各人に入力してもらいたい。その際、班をボタンでクリックするだけにしたい。シートはごくシンプルに、氏名、社員番号と班だけを一枚のシートに作成したい。

＜ボタン表示の希望＞
名前の欄の横にボタンを設置（「A・B」と表示させたボタン）。Aをクリックするとその横にA班と自動的に表示させ、なおかつその行を青色にかえたい。
Bをクリックすると、B班と表示、行はうすい青色にかえたい。

＜補足＞
ツールの「コントロールボックス」でボタンは作れるような気がしているのですが、複雑すぎてできませんでした。

どなたか詳しい方がいらっしゃいましたら、是非お願いいたします。よろしくお願いいたします。

No.5 ベストアンサー 回答者： imogasi 回答日時： 2003/11/01 06:44

（１）シートのA1:C1セルに

氏名社員番号班
を入力する。
（２）シートに１つコマンドボタンを貼りつけ、
クリックイベントに
Private Sub CommandButton1_Click()
ActiveSheet.ShowDataForm
End Sub
を作る。
（３）ボタンをクリックすると、データ－フォームの操作するに相当する「フォーム」が出ますので、これに入力させるのはいかがですか
。

No.4 回答者： comv 回答日時： 2003/10/31 23:44

＃１　comv　です

>のような感じで、ひとりずつに行追加ボタンが
>ついていて、どこにでも割り込みで追加できる
>ものをイメージしております。

さすがにこれは一般機能では無理でＶＢＡになります
簡単な方法としては記録マクロで

・適当なセルを選択
・メニューのツール　マクロ　新しいマクロの記録
・メニューの挿入　行
・マクロ記録　停止（■をクリック）
・ツールバーの　フォーム　を表示して　ボタンを配置
・マクロの登録ダイアログが出るので　記録された
　マクロを選択　ＯＫ

前回の入力規則が設定されている間の行、若しくは
直下での行挿入なら、入力規則の設定も引き継がれます。
（ただし入力規則の初期表示は空白です。これも可能にするにはＶＢＥでのマクロ編集が必要です）

もしくは、もうしばらくこのままにしてＶＢＡ使いの
方々のレスをお待ちになれば、綺麗なコードや方法を
提示して頂けるかもしれませんね(^^

No.3 回答者： papayuka 回答日時： 2003/10/30 00:35

いくつか案が出てますが、別の代替案です。

あんまり良い案ではないけど。。

シート名のタブを右クリックし、コードの表示を選択して、出てきたVBE画面を下記に書換えます。

C列の C2 以下をクリックするとメッセージが出ますので、それに答えると選択します。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim msgResult, r As Range
Set r = Target.Cells(1, 1)
If r.Column <> 3 Or r.Row < 2 Or r.Value <> "" Then Exit Sub
msgResult = MsgBox _
　　　　("A班を希望しますか？", vbQuestion + vbYesNoCancel, "希望は？")
Select Case msgResult
Case vbYes
　　　r.Value = "A班"
　　　r.Font.ColorIndex = 2
　　　r.Interior.ColorIndex = 5
Case vbNo
　　　r.Value = "B班"
　　　r.Font.ColorIndex = 0
　　　r.Interior.ColorIndex = 8
End Select
Set r = Nothing
End Sub

ただ、「A班なら 0 、B班なら 1 と打ってね」でも良いと思いますが、、、

この回答へのお礼

シートごと設定する方法があるなんてしりませんでした
ので、とても勉強になりました。
ありがとうございます。
この技はちゃんと保存して、他の表作成のときに
是非使わせていただきます。

丁寧に書き込んでいただき、本当にありがとうございました。とても感謝しております。

お礼日時：2003/10/30 21:55

No.2 回答者： imogasi 回答日時： 2003/10/29 23:03

表示－ツールボックス－オプションボタンをクリック－

ボックス外では、マウスポインタが＋になるから、例えば
Ｄ３で斜め・右肩下がり方向にドラッグするとボタンが
出ます。小四角６つの四角の中で、右クリクしてプロパティウインドウを出し、Ｃａｐｔｉｏｎを例えば「男性」とし、ＬｉｎｋｅｄＣｅｌｌを例えば「Ａ３」と入れます。
デザインモード（三角定規のアイコンの凹みをクリック）を解除します。
同じことをＥ４にもうひとつボタンを作り、Ｃａｐｔｉｏｎを「女性」とします。
Ａ３セルに関数式=IF(D3,"男性","女性")と入れます。
これで男性ボタンをクリックするとＡ３に男性、女性ボタンをクリックすると女性と出ます。
３値ある時は３個ボタンを用意します。
こんなことで良いでしょうか。

この回答へのお礼

書き込みありがとうございました。
これも、他の表でつかえそうです。
最近、こういう表関連の作業が多くて憂鬱になって
いたので、とてもたすかりました。

ご教示いただき、ありがとうございました。

お礼日時：2003/10/30 21:54

No.1 回答者： comv 回答日時： 2003/10/29 22:50

こんばんは

>ツールの「コントロールボックス」でボタンは作れる
>ような気がしているのですが
オプションボタンのことだと思いますが
作れますが、各社員行ごとに２つ配置して全ての
ボタンのプロパティの設定作業もしくはＶＢＡでの
記載が伴います。

一般機能での代案としては
　　　Ａ　　　　Ｂ　　　Ｃ
１　氏名　社員番号　班
２
３
：

班を表示させたいセルの最初の行（Ｃ２）を選択して

メニューのデータ　入力規則　設定タブ
　入力値の種類：リスト▼
　元の値欄に　選択,Ａ班,Ｂ班　と記載　ＯＫ
　（とりあえず　選択　を表示しておく）

上記と同じ行の「氏名、社員番号と班」の範囲（Ａ２：Ｃ２）を選択して
　書式　条件付き書式
　　数式が▼　=$C2="Ａ班"　（$の付いている位置に注意して下さい）
　　書式ボタン　パターンタブ　青色　を選択　ＯＫ
　追加ボタン
　　数式が▼　=$C2="Ｂ班"
　　書式ボタン　パターンタブ　薄青色　を選択　ＯＫ

Ａ２：Ｃ２を適当な数だけ　下行へ複写

この回答への補足

恐れ入ります、あと一点もし可能でしたら教えていただきたいのですがよろしいでしょうか。

例：
50名分のリストがこの方式で完成したとします。
その後、No2の人のすぐ下に、行を挿入して
新しい人を追加するための、行挿入ボタンも
加えることができるでしょうか？

エクセルに詳しくない人ばかりなので、エクセルの行挿入もボタンでできればと思っています。

　　　Ａ　　Ｂ　　　Ｃ 　　Ｄ
１　氏名　社員番号　班 　行追加
２
３
：

のような感じで、ひとりずつに行追加ボタンが
ついていて、どこにでも割り込みで追加できる
ものをイメージしております。

わがままをいい申し訳ございませんが、もし
可能でしたらご教示いただければと思います。

よろしくお願い申し上げます。

補足日時：2003/10/30 21:56

この回答へのお礼

早速の書き込みありがとうございます。
今試したところうまくいきました。
希望していたとおりのものでした。
ほんとうにありがとうございます。
しかも、わかりやすい解説で感謝しています。

仕事でアップアップしていたので、本当に、本当に
助かりました。
ありがとうございました。

お礼日時：2003/10/30 21:52