EXCEL VBA チェックボックスについて

Question

仕事上システムを作り始めたVBA初心者です。すみませんが、ご享受下さい。

ユーザーフォームにてチェックボックスを作成後、セルへ転載するものを作っております。
その中でチェックボックスが15個ほどあり、onの場合にはその行の25列目に"有"、OFFの場合は"無"と表示させたいのです。

現状はTRUEといった表示はされるところまではいったのですが、その先がどうしてもできません。

見よう見まねで始めた初心者ですので、コードもどこが必要かもあまりわからないのが現状です。お答え頂く上で必要であればアップしますので、よろしくお願い致します。尚、作ろうとしてるのはデータベースで設備項目に有、無をつける予定です。

hana-hana3 · Accepted Answer

＞Cells(GYO, 25).Value = (.CheckBox1.Value) 'チェックボックス*

単純には、
If .CheckBox1.Value Then
Cells(GYO, 25).Value = "有"
Else
Cells(GYO, 25).Value = "無"
End If
のようにIF文で判断して記入するだけです。
「１５個のチェックボックス」と書かれていましたが、個別に値を参照して記入するのでしょうか？
それとも、１５個のうち１個でもチェックが付いて居れば・・・と判断するのでしょうか？

Private Sub CheckBox1_Click()
End Sub
のプロシージャは削除してかまいません。
チェックボックスがクリックされた時に何らかの処理が必要な場合を除いて通常は使う事はありません。

複数のコントロールをまとめて処理する方法があります。
http://itpro.nikkeibp.co.jp/article/COLUMN/20070 …

-------ざっと修正（予想も含めて）して見ました。
不具合等はご自身で修正してください。

Public g_swOK As Byte ' フォームで登録が押されたかを判定するスイッチ

' ユーザー情報の登録処理
Public Sub TOUROKU(GYO As Long)
Dim i As Integer

' 現在選択行を取得
GYO = ActiveCell.Row
' ユーザー情報の登録のフォームを表示
Load UserForm2

With UserForm2
If ((GYO = 1) Or (Cells(GYO, 1).Value = "")) Then
' 見出しか未登録行の場合は新規登録と判断
GYO = 0
For i = 1 To 25
.Controls("TextBox" & i).Text = ""
Next

Else
' 既存行の場合は修正と判断
For i = 1 To 35
If i <= 3 Then
.Controls("TextBox" & i).Value = Cells(GYO, i).Value
ElseIf i <= 8 Then
.Controls("TextBox" & i).Value = Cells(GYO, i + 1).Value
ElseIf i <= 24 Then
.Controls("TextBox" & i).Value = Cells(GYO, i + 2).Value
Else
.Controls("TextBox" & i).Value = Cells(GYO, i + 16).Value
End If
Next

For i = 1 To 15
If Cells(GYO, 25).Value = "有" Then
.Controls("CheckBox" & i).Value = True
Else
.Controls("CheckBox" & i).Value = False
End If

.ComboBox1.Text = Cells(GYO, 4).Value
.ComboBox2.Text = Cells(GYO, 9).Value

End If

' フォームを表示
g_swOK = 0
.Show
' 登録ボタンが押されていない場合は以降の処理はしない
If g_swOK <> 1 Then GoTo TOUROKU_EXIT
' 新規登録の場合は未登録行を探す
If GYO = 0 Then
GYO = 2
' 氏名列未登録を判定
Do While Cells(GYO, 1).Value <> ""
GYO = GYO + 1
Loop
End If

' シート上に登録
ActiveSheet.Unprotect

For i = 1 To 35
If i <= 3 Then
Cells(GYO, i).Value = Trim(.Controls("TextBox" & i).Value)
ElseIf i <= 8 Then
Cells(GYO, i + 1).Value = Trim(.Controls("TextBox" & i).Value)
ElseIf i <= 24 Then
Cells(GYO, i + 2).Value = Trim(.Controls("TextBox" & i).Value)
Else
Cells(GYO, i + 16).Value = Trim(.Controls("TextBox" & i).Value)
End If
Next

For i = 1 To 15
If .Controls("CheckBox" & i).Value Then
Cells(GYO, i + 25).Value = "有"
Else
Cells(GYO, i + 25).Value = "無"
End If
Next

Cells(GYO, 4).Value = Trim(.ComboBox1.Text)
Cells(GYO, 9).Value = Trim(.ComboBox2.Text)

ActiveSheet.Protect

End With

' オブジェクト廃棄のための行ラベル
TOUROKU_EXIT:
' FRM_USERをアンロードしオブジェクトを解放
Unload UserForm2
Set UserForm2 = Nothing

End Sub

hana-hana3 · Answer

間違えました
-----------------
For i = 1 To 15
If .Controls("CheckBox" & i).Value Then
Cells(GYO, i + 25).Value = "有"
Else
Cells(GYO, i + 25).Value = "無"
End If
Next
----------------
を
For i = 1 To 15
If .Controls("CheckBox" & i).Value Then
Cells(GYO, i + 24).Value = "有"
Else
Cells(GYO, i + 24).Value = "無"
End If
Next

---------------
For i = 1 To 15
If .Controls("CheckBox" & i).Value Then
Cells(GYO, i + 25).Value = "有"
Else
Cells(GYO, i + 25).Value = "無"
End If
Next
------------------
を
For i = 1 To 15
If .Controls("CheckBox" & i).Value Then
Cells(GYO, i + 24).Value = "有"
Else
Cells(GYO, i + 24).Value = "無"
End If
Next
としてください。
（[25]を[24]とするだけ）

hana-hana3 · Answer

＞現状はTRUEといった表示はされるところまではいったのですが、その先がどうしてもできません。

だいたいの想像は出来ますが、コードを提示して頂く方がよりよい回答を得られると思います。

Teue/False をＩＦ文で判断して、"有"/"無"の文字としてセルに記入するのが通常かと思います。

EXCEL VBA チェックボックスについて

＞Cells(GYO, 25).Value = (.CheckBox1.Value) 'チェックボックス*

間違えました

＞現状はTRUEといった表示はされるところまではいったのですが、その先がどうしてもできません。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング