Excelチェックボックス応用方法

質問

Excel初心者で困っております…
表現が分かりにくいと思いますがどなたか教えて頂ければと思います。

◆各項目ごとにチェックボックスがついている表を作成中です◆

仮に入口Ａの選択肢ａ１～ａ10として、ａ３を選択したとします。

◆以下が質問です↓
チェックボックスが１つ以上入れば、結果Ｂの値がＡの選択肢(ａ１～ａ10)の範囲内でａ５になる。

※チェックボックスが１つも入らなかった場合に流すメッセージも表示出来たら素晴らしいです。

よろしくお願いします!!

回答No.3

keithin · ベストアンサー

あなたのご質問は
＞チェックボックスが１つ以上入れば、結果Ｂの値がＡの選択肢(ａ１～ａ10)の範囲内でａ５になる。

です。これに対してフォームのチェックボックスで解決する手段は既に回答済みです。

別のご相談です：
＞チェックボックスに１つ以上チェックが入ったら結果はリストの値ａ１～ａ10のいずれかを返すような形です。

「いずれかを返す」じゃ，いったい何を計算したいのかサッパリ判りません。と各回答者から指摘されているのだと言うことをまず理解してください。
いったい「どうしたいのか」（どういうリクツで何を計算したいのか）は，まずアナタがアタマを整理してヒトに判るようにお話し下さいね。
そもそも別のご質問内容は，今のご相談を「解決」で閉じて新しいご相談投稿でお願いします。

しかも：
＞ａ３を選択してａ４(数値UP)になるパターンとａ３を選択してａ２(数値DOWN)パターンがあり、該当するチェック項目によって変化するようなイメージです

「イメージ」ってナンですか。何をしたいのか回答者が勝手にイメージして，（あなたのヤリタイ事と違うことを）回答しても良いって事ですね。

次の通り作成します：添付図参照
A1:A10がリストの元ネタで，これを元にB2セルでリストから選択します
チェックボックスはupとdownの２つを用意しています
結果をD2セルに表示しますが，一体何をしたいのかというと
１．B2でまだ何も選んでいないときは，何も表示したくない
２．B2で何か選んだ場合
a)　upがチェックされていたときは，B2の次を表示する
　ただし「a10」が選択されていた場合は「次」が無いので，a10を表示させる
b)　downがチェックされていた時は，B2の一つ前を表示する
　ただし「a1」が選択されていた場合は「前」が無いので，a1を表示させる
c)　upもdownもチェックされていなかったときは，B2を表示する
d)　upもdownも両方チェックされていたときは，upを優先して次を表示する

upのチェックボックスのリンクするセルはC1
downのチェックボックスのリンクするセルはC3
としておく

D2:
=IF(B2="","",IF(C1,INDEX(A1:A10,MIN(10,MATCH(B2,A1:A10,0)+1)),IF(C3,INDEX(A1:A10,MAX(1,MATCH(B2,A1:A10,0)-1)),B2)))
等のように数式を記入する

＃回答を参考に，「何をどこにどのように用意してあって」「それぞれがどうだったらどうしたい」のか，もう一度全ての場合についてキチンと漏れなく整理し，ご自分でも作成してみてください。

お礼

画像まで添付して頂き、ありがとうございました。
回答を参考にしながら再度自分で試行してみます。

また質問文についても考え直します。確かに意味が分からないですね…
『自分がどうしたいのか』ということを明確にします。

回答No.2

imogasi

これはVBAの質問か。初めに明記のこと。
＞表現が分かりにくいと
表現のこともあるが、勉強不足もあって、必要なことが書けないんだ。
甘えないで、よく文章を推敲すること。
それとチェックボックスを
（１）ワークシートに貼り付ける場合
（２）ユーザーフォームに貼り付ける場合
があるが、どちらか書いてない。ｖVBAでは違いがある。
＞チェックボックスがついている表を作成中です
ということでは、シートにチェックボックスを載せているのかな。
ーー
するとシートのチェックボックスの状態をソフト側がとらえるタイミング（キッカケ）を捉え（教え）ないといけない。
普通はコマンドボタンを貼り付け、クリックイベントでとらえるのだがそんなことも書かれていない。
ーーー
＞結果Ｂの値がＡの選択肢(ａ１～ａ10)の範囲内でａ５になる
結果BのBとは何か？
＞ａ５になる
意味不明。
a5セルの値として、何かをセット刷るのか。
チェックボックスの値は、TRUE、FALSEになるようだが、どう考えているのか。
プロパティのLinkedCellなんて知っていて使っているのか。
ーーー
Sub test07()
For i = 1 To 10
If Left(Worksheets("Sheet1").DrawingObjects(i).Name, 8) = "CheckBox" Then
If Worksheets("Sheet1").DrawingObjects(i).Object.Value Then
myCnt = myCnt + 1
End If
End If
Next
'MsgBox myCnt
If myCnt = 0 Then
MsgBox "チェックがありません"
Else
MsgBox myCnt & " 件チェックがあります"
End If
End Sub
このコードは普通こうするものか自信が無い。ワークシートの上のコントロールについては、私としてはWEBなどでも情報不足と思うし、VBAではすっきりしないようになっていると個人的に思うので苦労する。

補足

勉強不足、ご指摘の通りです。。
Excelシート上でフォームのチェックボックスを作成し、現在リンクでTRUE、FALSEを返しています。
VBAではなく数式で解決したいです。

リストの入力規則の値(ａ１～ａ10)を参照して、チェックボックスとも組み合わせて結果Ｂを表示させたいです。
あるチェックボックスが選択されたら動的に結果Ｂ(同シート内セル)の値がリストから参照されて表示される…というイメージなのですが、、ａ５は例なのでａ１～ａ10のいずれかになるかはチェックボックス次第です。

回答No.1

keithin

説明が足りていないのは，概ね次のような部分です。これら一つ一つについて丁寧に解決していけば，特に難しくなく実現できます。

●エクセルでは「フォーム」のチェックボックスと「コントロールツールボックス（ActiveXコントロール）」のチェックボックスと，２種類のチェックボックスを利用できます。
あなたはどちらを使って，どのようにご質問のモノを作成したいのですか？

●またワークシート上にそういうモノを作りたいのか，それともマクロをバリバリ使ってユーザーフォームを作成しているのですか？

●また「結果Ｂ」とは具体的に何ですか？
ワークシートのどこかのセルで良いのか
何かテキストボックスのようなモノをシート上，あるいはユーザーフォーム上に配置したいのか
など，出来ることが多すぎてアナタが何をしたいのか絞り込めません。

●なぜ「ａ５」なのですか。チェックが一つでも入れば「ａ５」と『無条件に』出せれば良いのでしょうか。まぁこの点は具体的な単にバリエーションなので，後でご自分でまた考えて貰えば良いことですが。

●さらにチェックボックスが「まだ」一つも入っていないと，いつ，どんなタイミングで，誰が何をしたら検知してメッセージを出したいのですか。

●そもそもエクセルのバージョンは幾つを使っているのですか。ご利用のソフトのバージョンに応じて，出来ること出来ないこと具体的な段取りが変わる場合が多くありますので，ご相談投稿では必ずバージョンまで明記することを憶えてください。

作成例：
「フォーム」のチェックボックスを「ワークシート上に」必要数，配置します
それぞれのチェックボックスを右クリックしてコントロールの書式設定を出し，リンクするセルを設定します仮にＡ１からＡ１０セルに。
「結果Ｂ」を仮にＢ１セルに表示します
Ｂ１セルには
=IF(COUNTIF(A1:A10,TRUE()),"ａ５","")
と記入しておきます。

以上で，あなたの「ヤリタイ事」は概ね実現しました。

補足

色々と分かりにくくてすみません。順不同で恐縮ですが補足致します。

◆Excel2007です。
◆結果Ｂはワークシート上で良いです。
◆フォームのチェックボックスです。
◆マクロは使わずに数式でどうにかしたいです。
◆ａ１～ａ10までは入力規則のリストで選択します。
◆結果Ｂはリストで選んだ値とチェックボックスによって動的に変化させたいです。

改めて整理致しますが、リストでａ３を選択して、チェックボックスに１つ以上チェックが入ったら結果はリストの値ａ１～ａ10のいずれかを返すような形です。
ａ３を選択してａ４(数値UP)になるパターンとａ３を選択してａ２(数値DOWN)パターンがあり、該当するチェック項目によって変化するようなイメージです…色々と書きましたが伝わりましたでしょうか。。

※当初の質問では結果欄にａ５を表示とのことでしたが、ａ５を表示する場合はリストでａ４かａ６を選んだ場合になります。