ユーザーフォーム上のリストボックスの選択に応じて配列の値を変更します

Question

私のサブフォームからユーザーフォームを実行する配列の値を変更したいと考えています。これをどうやって行うのですか？

A = [25, 50, 75, 100] 
UserForm1.Show 

UserForm1では、 "1" を選択するとオプション1、2または3
とリストボックスが含まれている "2"、 "3"、または：ここ

は、私が持っているものの一例ですそれらの複数の組み合わせ私はそれに応じてAの値を変更したい。

If "1" is selected Then 
A(0) = 10 
If "2" is selected Then 
A(1) = 0 
If "3" is selected Then 
A(2) = 1000 

どうすればいいですか？助けを前にありがとう。

Answer 1

これは、ListBox_AfterUpdate()イベントでテストされています。 ListBoxオブジェクト（変数lbに割り当てられています）でハンドルを取得し、lb.Listの項目を反復して、それぞれが選択されているかどうかを確認します。選択されている場合は、配列Aに位置値を割り当てます。

配列Aは、ここではモジュール/ユーザーフォームスコープ変数として宣言され、フォームの_Initializeイベント中にデフォルト/初期値が割り当てられます。これらの値は、ユーザーがListBoxで選択すると変更されます。あなたがA配列を初期化するとき/、あなたがこれを修正し、ListBox_ChangeまたはListBox_AfterUpdateイベントから呼び出す、または必要に応じて別のコントロールのイベントプロシージャから呼び出すことができた場所に応じ

Option Explicit 
Dim A() 
Private Sub UserForm_Initialize() 
'Assigns initial values to your array: 
A = Array(25, 50, 75, 100) 
'Assigns the default ListBox items: 
Me.ListBox1.List = Array("1", "2", "3") 
End Sub 
Private Sub ListBox1_AfterUpdate() 
Dim lb As MSForms.ListBox 
Dim i As Long, v As Long 
Set lb = Me.ListBox1 '# Modify as needed 
For i = 0 To lb.ListCount - 1 
    If lb.Selected(i) Then 
     Select Case lb.List(i) 
      Case "1" 
       v = 10 
      Case "2" 
       v = 0 
      Case "3" 
       v = 1000 
     End Select 
     'confirm prev & new values for array: 
     MsgBox (A(i) & " will be changed to: " & v) 
     A(i) = v 
     'Confirm the value in array has changed 
     MsgBox (A(i)) 
    End If 
Next 
End Sub 

。