ユーザーフォームのInitialize

soumu 2023-11-30 10:25:05 No: 151294

あるサンプルで下記のようなものがありました。
コンボボックスのリスト取得はわかるのですが、
そのあとの「If IsEdit ．．．」の意味が分かりません。
何の意味がある処理でしょうか。

よろしくお願い致します。

Private Sub UserForm_Initialize()
    Dim i As Integer
        LabelFileName.Caption = AbbPath
        i = 1
        Do While Sheets("ComboList").Cells(i, 1) <> ""
            ComboBoxTransactions.AddItem Sheets("ComboList").Cells(i, 1).Value
            i = i + 1
        Loop
        If IsEdit = True Then
            TextBoxDate.Text = Selection.Offset(0, 1)
            TextBoxAmount.Text = Selection.Offset(0, 2)
            ComboBoxTransactions.Text = Selection.Offset(0, 3)
            TextBoxNotes.Text = Selection.Offset(0, 4)
        Else
             TextBoxDate.Text = ""
            TextBoxAmount.Text = ""
            ComboBoxTransactions.Text = ""
            TextBoxNotes.Text = ""

        End If
End Sub

とめ 2023-12-04 09:26:42 No: 151300

Excel VBAのコードのようです。

IsEdit というコマンドは標準ライブラリには無いと思いますので、サンプルとしてコーディングされた
変数だと思います。これを変更しているコードも別の場所に書いてあるのではないでしょうか？

単純に中学生英語と解釈して読めば、(IsEdit＝)編集されている＝ユーザが操作していればアクティブセル
から横に並んだ値を表示。そうでない場合は空白表示ですね。

IsEdit を変更している場所を調べて、提示のコード実行前に変更できれば動作が変えられます。