1

私は Visual Basic を初めて使用し (これまでに 2 日間)、他に行ったプログラミングは MATlab だけです。

ユーザーフォームのチェックボックスがチェックされているかどうかに応じて、プログラムにExcelの異なる列に異なる数字を出力させようとしています。合計で 26 個のチェックボックスがあり、いくつかのテキスト ボックスもあります。For Each Control ループを使用して、すべてのチェックボックスを実行しようとしています。

いくつかのチュートリアルといくつかのフォーラムを調べましたが、テストを実行しようとすると、コードが機能しません。より具体的には、エラーは表示されませんが、「動作するかどうかをテストしていますか?」どこにも印刷されていません。

 Private Sub Add_Button_Click()

 Dim Ctrl As Control

 For Each Ctrl In DataInput.Controls
        If TypeName(Ctrl) = "Checkbox" Then
            If Ctrl.Value = True Then
                Sheets("Data").Range("A1") = "Testing if it Works?" 
            End If
        End If
 Next

 End Sub

私が遭遇した他のすべてのフォーラムまたはチュートリアルと同じセットアップに従いましたが、何も起こっていないようです. アドバイスをいただければ幸いです。

4

1 に答える 1