掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ユーザーフォームのInitialize (ID:151294)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あるサンプルで下記のようなものがありました。 コンボボックスのリスト取得はわかるのですが、 そのあとの「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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.