av8d

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-8-1 00:08 | 只看該作者

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

For i = 1 To 4
If Me.Controls("CheckBox" & i).Value = True

以上是判斷1~4是否有被打勾~但是他每次一定會從1開始判斷~
是否有方法讓他判斷哪一個是我剛打勾的CheckBox

樓主熱帖

GBKEE

超級版主 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兔年全勤獎章

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 陳述式在程序層次中用來重新配置動態陣列變數的儲存空間。

cCBs = cCBs + 1
ReDim Preserve aryCBs(1 To cCBs) ' aryCBs(1 To 1) 只有有1元素

複製代碼

cCBs = cCBs + 1
ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0 To 1) 有2元素多一元素

複製代碼

ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0 To 0) 只有有1元素
cCBs = cCBs + 1 '加上1元素

複製代碼

ReDim Preserve aryCBs(1 To cCBs) ' aryCBs(1 To 0) 會有錯誤
cCBs = cCBs + 1

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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

超級版主 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兔年全勤獎章

18^#

發表於 2012-8-14 06:42 | 只看該作者

回復 17# av8d
7# UserForm1的程式碼是依 2# 的附檔修改
2# 的附檔中aryCBs 變數是 Module1 的公用變數
如今你有4個UserForm 皆須私有的 aryCBs變數

'4個UserForm 的程式碼
Public xlText As String
Dim aryCBs() As New cControlArray
Private Sub UserForm_Initialize()
Dim cCBs As Integer
Dim ctl As Control
cCBs = 0
For Each ctl In Me.Controls
If TypeName(ctl) = "CheckBox" Then
cCBs = cCBs + 1
ReDim Preserve aryCBs(0 To cCBs)
Set aryCBs(cCBs).CheckboxGroup = ctl
End If
Next ctl
End Sub

複製代碼

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

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

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

16^#

發表於 2012-8-13 14:29 | 只看該作者

回復 7# GBKEE
Private Sub CommandButton1_Click()
'說明 UserForm1中 CommednBurron 程式
UserForm1.TextBox1 = UserForm1.xlText
End Sub

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

15^#

發表於 2012-8-13 14:07 | 只看該作者

回復 14# GBKEE

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

TOP

GBKEE

超級版主 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兔年全勤獎章

14^#

發表於 2012-8-8 15:53 | 只看該作者

回復 13# av8d
要了解物件

test.rar (14.43 KB)

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

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

mark15jill

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

高中生 Rank: 3 Rank: 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