麻辣家族討論版版 » Excel程式區 » 表單Bottom內的程式，如何傳回數值??

返回列表下一主題上一主題發帖

表單Bottom內的程式，如何傳回數值??

中學生 Rank: 2

帖子: 57
主題: 36
精華: 0
積分: 94
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
註冊時間: 2014-9-10
最後登錄: 2024-8-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-12-2 22:19 | 只看該作者

表單Bottom內的程式，如何傳回數值??

大家好
我現在幫同事寫個小程式
其中需要使用者自行挑選需求的顏色
我的方式是在MainProgram中
call ColorList去叫出選單色彩
使用者挑選完之後
按下選單的OK
則OK內的程式碼可以將使用者挑選的顏色和數量紀錄到某個Array中

然後我就卡住了
因為不知道怎麼將判別完成的Array傳回到Main Program中進行後續的計算
想問說板上的大家可否幫忙看看要怎麼解決
thank you!

colortable-20141202.rar (17.73 KB)

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-12-3 07:04 | 只看該作者

回復 1# yenwang

不清楚,Main Program中進行後續的計算.
試試看

Public colorarray()
Sub MainProgram()
Dim Cnt As Variant
ColorList
For Each Cnt In colorarray
MsgBox Cnt
Next
End Sub

複製代碼

Private Sub cmdOk_Click()
Dim i
Dim Cnt As Variant '用來取得共有多少checkbox選上
i = 0
For Each Cnt In Controls
If TypeName(Cnt) = "CheckBox" Then
If Cnt.Value Then
ReDim Preserve colorarray(0 To i)
colorarray(i) = Cnt.Tag
i = i + 1
End If
End If
Next
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 57
主題: 36
精華: 0
積分: 94
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
註冊時間: 2014-9-10
最後登錄: 2024-8-13

3^#

發表於 2014-12-6 16:47 | 只看該作者

感謝，我最後也找到解決方式
用公用變數就可以解決了^^

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題