請教UserForm帶入引數與帶出引數的問題

clio

請教各位大大：
小的我嚐試作了一個UserForm, 裡面有一個ListBox, 一個CommandButton
想說能否在UserForm.Show時能同時載入一個Name_AR() as variant，讓這個內容值倒入ListBox，選取完畢後，按下CommandButton後能帶出一個Output_AR() as variant，讓我知道有那些被選取到，
載入我找到可使用
Public Property Let Value(Data_AR() as variant)
來處理，但是載出時，雖然也可以用
Public Property Get Value() as Variant
但是找不到好的時間點來做這個，不知道各位前輩能不能給我一些建議呢？感謝您。

stillfish00

回復 1# clio
通常呼叫表單就是在一般模組呼叫
Load Userform1
和
Userform1.Show

如果要傳一些初始化的資料給表單，可在表單程式碼新增如Sub InitForm(arInput)

1. Public Sub InitForm(arInput)
   
2.     ListBox1.List = arInput
   
3. End Sub

複製代碼

一般模組Show之前呼叫InitForm傳遞給表單

1. Sub Test()
   
2.     Dim ar
   
3.     ar = Array("A", "B", "C")
   
4.    
   
5.     Load UserForm2
   
6.     UserForm2.InitForm ar
   
7.     UserForm2.Show
   
8. End Sub

複製代碼

Userform 按鈕後取得已選項目

1. Private Sub CommandButton1_Click()
   
2.     Dim Output_AR(1 To ListBox1.Count)
   
3.     Dim i As Integer, cnt As Integer
   
4.    
   
5.     For i = 1 To ListBox1.ListCount
   
6.         If ListBox1.Selected(i) Then
   
7.             cnt = cnt + 1
   
8.             Output_AR(cnt) = ListBox1.List(i)
   
9.         End If
   
10.     Next
    
11.     If cnt > 0 Then
    
12.         ReDim Preserve Output_AR(1 To cnt)
    
13.         '至此 Output_AR 已取得選擇的項目
    
14.     End If
    
15. End Sub

複製代碼

clio

回復 2# stillfish00

是的，這樣寫確實沒有錯，但是我要怎麼把Output_AR由UserForm送出來到Function內來呢？
這點讓我想不出來

clio

jackyq前輩：
感謝您的回覆，由於我權限不足，如法私訊您，沒有經過妳的同意，我也不敢把妳的方法PO出來
照您說的方法，那Output_AR就要設成全區域變數，才能做到，是嗎？

jackyq

不, 那是很普通的方法
其他大大都會
我常搞烏龍才私下跟你說
老實說
大大沒有把問題表達清楚
不然其他大大早就告知你寫法

我也只是猜的, 你想幹麻

你是不是想從 Sheet1 or Sheet2 ...  外部去控制那個 UserForm1
當某某使用者按下  UserForm1 上的  CommandButton 後
你希望能從  Sheet1 抓到那個使用者的 Listbox 上的選取項目 ?
如果是 Output_AR  不用設成全區域變數

stillfish00

回復 3# clio
你的意思是想再把Output_AR傳回Test內?

通常我是不會再傳回Test啦，既然我已經有Output_AR，如果我要做甚麼分析或處理，就在Click內呼叫我要處理的Function 並把Output_AR傳到我要處理的Function內不就好了?

堅持要傳回Test的話，就在一般模組宣告一個模組層次的公用(Public)變數，前面的Output_AR都改成直接用這個公用變數，這樣Test內也能看到這個變數就不用傳了。
不過，你要先注意的是預設的表單，當你呼叫UserForm2.Show後，表單顯示出來，程式會停留在該行，會一直等到表單關閉才會跳到下一行。

問的不夠明確我也只能這樣回答啦。

clio

回復 6# stillfish00

感謝前輩的回覆，因為我是要給一串人名，讓使用者勾選掉不要的人，所以我才會需要再把結果傳回，好讓程式接下去處理這些人的後續動作，這樣看起來用公用變數是比較好的選擇，感謝您的回覆，謝謝

clio

回復 5# jackyq

感謝大大，我大致上是要做這件事，我的Outlook有很多個Mail 群組，每一個群組裡面的人數不同，當我新增一個人時，我會將他作分類，依據他的分類到到各別的群組內，但是要是有同一家公司的人，我則希望跳出一個清單，讓我勾選掉，不要的人，所以我才需要有傳回值，好讓我知道那些人該從群組內刪掉，不知道我這樣說明是否清楚，感謝您