12
返回列表 上一主題 發帖

[發問] 如何判斷我剛所打勾的CheckBox

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
11# 跳轉到 »
發表於 2012-8-8 11:19 | 只看該作者

如何複製UserForm

我想將UserForm1複製到UserForm2

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
12#
發表於 2012-8-8 11:28 | 只看該作者
因不清楚單純全部複製(格式 物件  程式碼) 還是 單一部分  故提幾點建議

方法1.  userform1 匯出後 再匯入.. (name 記得改 還有程式碼內 userform1記得改2
方法2.  userform1 複製後  userform2貼上  (物件一次 程式碼一次)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
13#
發表於 2012-8-8 15:14 | 只看該作者
回復 10# GBKEE

因為只改以下~程式會錯亂!
    Private Sub CheckboxGroup_Click()
    UserForm2.xlText = CheckboxGroup.Caption
    UserForm3.xlText = CheckboxGroup.Caption
    UserForm4.xlText = CheckboxGroup.Caption
    End Sub

是否要對
xlText 和 CheckboxGroup 變數的宣告?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2012-8-8 15:53 | 只看該作者
回復 13# av8d
要了解物件

    test.rar (14.43 KB)

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
15#
發表於 2012-8-13 14:07 | 只看該作者
回復 14# GBKEE


    大大~請問UserForm2.xlText的值是?

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
16#
發表於 2012-8-13 14:29 | 只看該作者
回復 7# GBKEE
Private Sub CommandButton1_Click()
   '說明 UserForm1中 CommednBurron 程式
   UserForm1.TextBox1 = UserForm1.xlText
End Sub

UserForm1.xlText的值~目前我對應不出來~請大大解說~謝謝!

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
17#
發表於 2012-8-13 14:49 | 只看該作者
回復 7# GBKEE


    我在說明詳細一點~大大7樓的正式我要的需求~
但是當UserForm增加~所選取的最後一個CheckBox則無法指向到最後一次點選的~
    Private Sub CheckboxGroup_Click()
    UserForm2.xlText = CheckboxGroup.Caption
    End Sub
以上沒問題

    Private Sub CheckboxGroup_Click()
    UserForm2.xlText = CheckboxGroup.Caption
    UserForm3.xlText = CheckboxGroup.Caption
    UserForm4.xlText = CheckboxGroup.Caption
    End Sub
以上是UserForm增加後~出現了問題!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2012-8-14 06:42 | 只看該作者
回復 17# av8d
7#  UserForm1的程式碼 是依 2# 的附檔修改
2# 的附檔中aryCBs 變數 是 Module1 的公用變數
如今你有4個UserForm 皆須私有的 aryCBs變數
  1. '4個UserForm 的 程式碼
  2. Public xlText As String
  3. Dim aryCBs()  As New cControlArray
  4. Private Sub UserForm_Initialize()
  5. Dim cCBs As Integer
  6. Dim ctl As Control
  7.    cCBs = 0
  8.    For Each ctl In Me.Controls
  9.        If TypeName(ctl) = "CheckBox" Then
  10.            cCBs = cCBs + 1
  11.            ReDim Preserve aryCBs(0 To cCBs)
  12.            Set aryCBs(cCBs).CheckboxGroup = ctl
  13.        End If
  14.    Next ctl
  15. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2012-8-14 12:18 | 只看該作者
回復 18# GBKEE
Test.rar 裏您是使用 ReDim Preserve aryCBs(1 To cCBs)，
而此處您用 ReDim Preserve aryCBs(0 To cCBs)
一個是從 0 開始起算， 另一組是從 1 開始起算，
但 Test.rar  之 aryCBs(1 To  1)  (第一次) 就好像沒意義了？
請多指教！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2012-8-14 14:38 | 只看該作者
本帖最後由 GBKEE 於 2012-8-14 14:42 編輯

回復 19# c_c_lai
一個是從 0 開始起算， 另一組是從 1 開始起算，但 Test.rar  之 aryCBs(1 To  1)  (第一次) 就好像沒意義了？
這問的好!  敬佩了 看的很仔細
ReDim Preserve aryCBs(1 To cCBs)
ReDim 陳述式 在程序層次中用來重新配置動態陣列變數的儲存空間。
  1. cCBs = cCBs + 1
  2. ReDim Preserve aryCBs(1 To cCBs) ' aryCBs(1  To 1) 只有有1元素
複製代碼
  1. cCBs = cCBs + 1
  2. ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0  To 1) 有2元素 多一元素      
複製代碼
  1. ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0  To 0)  只有有1元素
  2. cCBs = cCBs + 1    '加上1元素
複製代碼
  1. ReDim Preserve aryCBs(1 To cCBs) '  aryCBs(1  To 0)    會有錯誤
  2. cCBs = cCBs + 1
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題