返回列表 上一主題 發帖

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

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-3-23 16:59 | 只看該作者

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

請教各位大大：
小的我嚐試作了一個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
但是找不到好的時間點來做這個，不知道各位前輩能不能給我一些建議呢？感謝您。
收藏 分享
clio

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
8#
發表於 2016-3-25 16:31 | 只看該作者
回復 5# jackyq

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

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
7#
發表於 2016-3-25 16:27 | 只看該作者
回復 6# stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2016-3-24 19:40 | 只看該作者
回復 3# clio
你的意思是想再把Output_AR傳回Test內?

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

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

問的不夠明確我也只能這樣回答啦。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
5#
發表於 2016-3-24 19:36 | 只看該作者
不, 那是很普通的方法
其他大大都會
我常搞烏龍才私下跟你說
老實說
大大沒有把問題表達清楚
不然其他大大早就告知你寫法

我也只是猜的, 你想幹麻

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

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
4#
發表於 2016-3-24 18:50 | 只看該作者
jackyq前輩：
感謝您的回覆，由於我權限不足，如法私訊您，沒有經過妳的同意，我也不敢把妳的方法PO出來
照您說的方法，那Output_AR就要設成全區域變數，才能做到，是嗎？
clio

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2016-3-24 10:50 | 只看該作者
回復 2# stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-3-23 19:05 | 只看該作者
回復 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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題