チェックボックスをオンにしましたユーザーフォーム

Question

現在、3つのチェックボックスを持つユーザーフォームを作成しました。これらのチェックボックスは、作成したモジュールをアクティブにします。ユーザーフォームのチェックボックスをオンにすると、チェックボックスをオンまたはオフにします。何かご意見は？

Answer 1

スプレッドシートが開かれている間は、Unload Meの代わりにMe.Hideがトリックを行いますが、一旦閉じてしまうと、スプレッドシートはこれ以上設定を記憶できなくなります。

スプレッドシートに設定を記憶させるには、閉じていても選択設定をどこかにキャプチャする必要があります。

「chkboxVal」という名前のシートを作成したとします。その後、データをOk_Clickイベント/プロシージャを通じて保存し、UserForm_Initialize()セクションからデータを取得することができます。

のコードは次のようになります。

Private Sub Ok_Click() 
    Dim ctrl As Control, i As Integer 
    For Each ctrl In UserForm1.Controls 
     If TypeName(ctrl) = "CheckBox" Then 
      i = i + 1 
      Sheets("chkboxVal").Cells(i, 1) = ctrl.Value 
     End If 
    Next 
    Unload Me 
End Sub 
Private Sub UserForm_Initialize() 
    Dim ctrl As Control, i As Integer 
    For Each ctrl In UserForm1.Controls 
     If TypeName(ctrl) = "CheckBox" Then 
      i = i + 1 
      ctrl.Value = Sheets("chkboxVal").Cells(i, 1) 
     End If 
    Next 
End Sub 

ます。また、ユーザーはそれを再表示することができないような方法で「chkboxVal」シートを非表示にしたい場合があります。その場合は、この行をモジュールに追加するだけです。

Sheets("chkboxVal").Visible = xlVeryHidden 

Answer 2

モジュールを呼び出す前に、「Unload Me」または「Unload Userform＃」がないことを確認してください。これにより、ユーザーフォームがデフォルトにリセットされます。

各チェックボックスのデフォルト（チェックボックスとチェックボックスをオフ）を変更することもできます。ユーザーフォームを作成するときは、チェックボックスをクリックし、プロパティウィンドウでデフォルトとしてtrueまたはfalseに設定するかどうかを選択します。