【Excel】チェックボックス情報取得【VBA】

質問

お疲れ様です。

チェックボックスの現状を取得したいです。
ネットで調べていて色々見つけたのですが、
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_checkbox.html
このサイトの方のVBAが参考になるかと思ったのですが、
頭が回らず、良く分からない状態です。

チェックボックスは

A
B
C
D
E
F

と６つ作成しており、
その隣に

Atext
Btext
Ctext
Dtext
Etext
Ftext

というテキストボックスを作成しています。

ひとつのみチェックがついていた場合と
複数チェックがついていた場合の出力を変更したいと思っています。

例
Aのみにチェックがついていた場合
A1のセルに「a1」と入力

Bのみにチェックがついていた場合
A1のセルに「a2」と入力

A、Bにチェックがついていた場合
Atext～Ftextまでのどこまでデータが入っているかを確かめる
A1のセルに「a1100」（Dまで入っていた場合）
A1のセルに「a11000」（Eまで入っていた場合）

データ出力は、必ず頭に「a」を入力します。
一つだけチェックが入っている場合は、上から順番にAならa１、Bならa２，Cならa３と入力
複数チェックが入っている場合は、テキストボックスに入っているデータの個数を確認し、
「a」と、選択されたデータを「１」テキストボックスに入っているけど選択されていないデータを「0」
とA1セルに表記します。

チェックボックスとテキストボックスの名称は、上から
A　　AText
B　　BText
C　　CText
D　　DText
E　　EText
F　　FText
という名称になっています。

ぐちゃぐちゃした文章で大変申し訳ありませんが、回答よろしくお願いいたします。

回答No.2

mt2008 · ベストアンサー

では、適当に……
・チェックが１つもない時は「A0」と表示します。
・テキストが空でもチェックが入っていればデータありとして扱います。
　例：ABCにチェック、テキストはBだけあり→「A111」と表示

Private Sub CommandButton1_Click()
　　Dim sAF, i, sData, sOne, nCount, nCMax, nTMax, nUMax, nData, vChk, sTxt

　　sAF = Split("A,B,C,D,E,F", ",")　'A～Fを配列に入れる
　　nCMax = 0 'チェック有りの最後
　　nTMax = 0 'テキスト有りの最後
　　nCount = 0 'チェックの総数
　　sData = "" 'セルA1に貼り付ける文字列（頭のAなし）
　　For i = 0 To UBound(sAF)
　　　　vChk = Me.Controls(sAF(i)).Value
　　　　sTxt = Me.Controls(sAF(i) & "Text").Value

　　　　sOne = "0"
　　　　'チェック有り
　　　　If vChk = True Then
　　　　　　sOne = "1"
　　　　　　nCount = nCount + 1
　　　　　　nCMax = i + 1
　　　　End If
　　　　'テキスト有りの最後確認用
　　　　If sTxt <> "" Then nTMax = i + 1
　　　　sData = sData & sOne
　　Next i

　　If nCount <= 1 Then
　　　　'チェックが1個以下の場合
　　　　sData = Format(nCMax, "0")
　　Else
　　　　'チェックが2個以上の場合
　　　　'チェックとテキストの、より後に有る方を使用
　　　　nUMax = nCMax
　　　　If nTMax > nCMax Then nUMax = nTMax
　　　　sData = Left(sData, nUMax)
　　End If
　　Range("A1") = "A" & sData
End Sub

お礼

回答ありがとうございました！
やっと目的のものが作れそうな気がします。

回答No.1

mt2008

補足願います。
チェックがされているが、対応するテキストボックスが空の時は？
例えば、チェックボックスABCにチェックが入っていて、テキストボックスBにしか文字列が入っていない場合。

チェックもテキストも入っていない場合は？

それとも、そういう入力は出来無いようになっている？

補足

回答ありがとうございます。

ATextに何も入力が無い場合は、
Exit Sub　で終了する設定にしていますが、
それ以外のプログラムは入れていません。

必要だとは思いますが、
どんどんプログラム長くなってしまいそうなのと、
今の知識レベルだとそこまで難しいかと思いまして・・・

できれば、mt2008様がおっしゃるような
プログラムも入れたいと思います。

知恵をお借りできればと思います。
よろしくお願いいたします。