4つの選択肢チェックボックスを使用してセルに値を割り当てます。

Question

4つの選択肢チェックボックスを使用してセルに値を割り当ててください。条件が真であれば、値はボックスごとに1です。リンクされたセルの値を合計して、セルの値が変わるようにしたいと思います。インスタンスの場合：すべてのチェックボックスの状態が真である

1. リンクされたセルの値は、それらのいくつかに該当する4
2. リンクされたセルの値は1-3

3. からのすべてを変えることができています彼らが偽でリンクされたセルの値が0

    If CheckBox1.Value = True Then Range("D2").Value = 1 
   
   
       If CheckBox1.Value = False Then Range("D2").Value = 0 etc. 
   

私はVBAマクロを使用してこの問題を解決したいです。

Answer 1

これは私の問題への答えです：

ます。Option Explicit

Sub CheckBox1_Click() 


Dim count As Integer 
If (count = Null) Then 
count = 0 
End If 

count = 0 
If ActiveSheet.Shapes("Check Box 1").ControlFormat = xlOn Then count = count + 1 
If ActiveSheet.Shapes("Check Box 2").ControlFormat = xlOn Then count = count + 1 
If ActiveSheet.Shapes("Check Box 3").ControlFormat = xlOn Then count = count + 1 
If ActiveSheet.Shapes("Check Box 4").ControlFormat = xlOn Then count = count + 1 
Range("A1").Value = count 

End Subの

Answer 2

このようにすることができます。リンクされたセルに基づいて、真の場合は1、偽の場合はゼロを取得します。すべての値を合計します。

VBAソリューションの

Private Sub CheckBox1_Click() 
    Dim str As Integer 
    str = 0 
    If CheckBox1.Value = True Then str = str + 1 
    If CheckBox2.Value = True Then str = str + 1 
    If CheckBox3.Value = True Then str = str + 1 
    If CheckBox4.Value = True Then str = str + 1 
    Range("D2").Value = str 
    End Sub 

Answer 3

ちょうどそれをクリックする前に、マクロのforeachチェックボックスを設定します。

Public count As Integer 

Public Sub btn_Click() 
Dim cbName As String 

If (count = Null) Then 
    count = 0 
End If 

cbName = Application.Caller 

If (Sheets("Tabelle1").Shapes(cbName).ControlFormat.Value = xlOn And count < 4) Then 
    count = count + 1 
ElseIf (count > 0) Then 
    count = count - 1 
End If 
    Range("A1").Value = count 
End Sub