12
返回列表 上一主題 發帖

[發問] 請教 關於 程式開頭 的相關疑惑(承接 CheckBox 核選問題)

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 
1# 跳轉到 »
發表於 2012-10-17 15:56 | 只看該作者

關於Checkbox核選判斷

已設 10 * 10 個 Checkbox 控制項
想請問  如何隨機核選時 在Label1.Caption  出現該控制項之Caption 內容。
  1. Private Sub CommandButton1_Click()
  2.     Dim mycheckbox1 As MSForms.CheckBox
  3.     For kk = 1 To 100
  4.         Cells(kk, 1) = "王" & kk
  5.     Next kk
  6.          Columns("c:c").Clear
  7.           Columns("c:c").Select
  8.         Selection.ColumnWidth = 15
  9.    
  10.         For sjy = 1 To 450 Step 45

  12.             For sja = 1 To 900 Step 90
  13.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")
  14.                 With mycheckbox1
  15.                     .Left = 10 + sja
  16.                     .Top = 10 + sjy
  17.                     .Width = 70
  18.                     .Height = 20
  19.                     .TextAlign = fmTextAlignCenter
  20.                     .BackColor = &HFFFFC0
  21.                     .Caption = .Name
  22.                 End With
  23.             Next
  24.         Next
  25.     Dim ct As Control

  27.     r = 1
  28.     For Each ct In Controls
  29.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name
  30.         Cells(r, 3) = ct.Name: r = r + 1
  31.     Next
  32.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
  33.     For hh = 1 To aois
  34.         For kh = 1 To aois
  35.             If Cells(hh, 3) <> "" Then
  36.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then
  37.                     Range("c" & hh).Select
  38.                     Selection.Delete Shift:=xlUp
  39.                
  40.                 End If
  41.             End If
  42.         Next
  43.     Next
  44.         
  45.    
  46.     Cells(1, 3).Select
  47. End Sub
複製代碼
自創checkbox.rar (19.46 KB)

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

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

  少看=只看不做也枉然

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-10-17 16:56 | 只看該作者
本帖最後由 GBKEE 於 2012-10-18 09:15 編輯

回復 1# mark15jill
使用物件類別 試試看
  1. Dim TheCheck() As New Class1  '動態陣列 宣告為新的Class1物件類別物件
  2. Private Sub CommandButton1_Click()
  3.     Dim mycheckbox1 As MSForms.CheckBox
  4.     Dim Sh As Worksheet
  5.      Set Sh = ActiveSheet   
  6.     Sh.Columns("c:c").Clear
  7.     Sh.Columns("c:c").ColumnWidth = 15
  8.     kk = 1
  9.     For sjy = 1 To 450 Step 45
  10.         For sja = 1 To 900 Step 90
  11.             With Frame1.Controls.Add("forms.checkbox.1")
  12.                 Sh.Cells(kk, 1) = "王" & kk
  13.                 Sh.Cells(kk, 3) = .Name
  14.                 .Left = 10 + sja
  15.                 .Top = 10 + sjy
  16.                 .Width = 70
  17.                 .Height = 20
  18.                 .TextAlign = fmTextAlignCenter
  19.                 .BackColor = &HFFFFC0
  20.                 .Caption = Sh.Cells(kk, 1)
  21.                 ReDim Preserve TheCheck(0 To kk - 1)              '重新配置 動態陣列
  22.                 Set TheCheck(kk - 1).xlCheckbox = Controls(.Name)
  23.                 '動態陣列的元素 指定到物件模組內的物件
  24.             End With
  25.             kk = kk + 1
  26.         Next
  27.     Next
  28. End Sub
複製代碼
  1. 'VBA插入 物件類別模組 自動命名為Class1 的程式碼
  2. Option Explicit
  3. Public WithEvents xlCheckbox As MSForms.CheckBox
  4. Private Sub xlcheckbox_Click()
  5.     If xlCheckbox = True Then UserForm1.Label1.Caption = xlCheckbox.Caption
  6. End Sub
複製代碼

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 
3#
發表於 2012-10-18 08:50 | 只看該作者
回復 2# GBKEE

大大 謝謝您的解答。
但出現  ReDim Preserve TheCheck(0 To         變數未定義

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

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

  少看=只看不做也枉然

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-10-18 09:18 | 只看該作者
回復 3# mark15jill
你附檔模組 沒加上  Option Explicit  所以我測試時是沒問題
依你的能力,是可以試著修改的
2#
  1. Private Sub CommandButton1_Click()
  2.     Dim mycheckbox1 As MSForms.CheckBox
  3.     Dim Sh As Worksheet
  4.     Set Sh = ActiveSheet ' **少了這程式碼請加入 **
複製代碼

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 
5#
發表於 2012-10-18 10:09 | 只看該作者
回復 4# GBKEE

抱歉 讓大大您見笑了~
因最近  VB2010 和 VBA 同時用到
有些語法 語串 導致常常會混亂
如 同一事件 兩邊的語法可能就有差異
有試著修正  但跑出來的成果不盡理想

再次感謝大大的耐心解說

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

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

  少看=只看不做也枉然

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 
6#
發表於 2012-10-18 15:23 | 只看該作者

RE: 關於Checkbox核選判斷 [已解決]

感謝 GBKEE  的指教
有找到方法去判別..
  1. Private Sub CommandButton1_Click()
  2.     Dim mycheckbox1 As MSForms.CheckBox
  3.           Columns("a:c").Clear
  4.           Columns("a:c").Select
  5.     For kk = 1 To 100

  7.         Cells(kk, 1) = "王" & kk
  8.          
  9.     Next kk

  11.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count

  13.         Selection.ColumnWidth = 15

  15.    
  16.         For sjy = 1 To 450 Step 45


  19.             For sja = 1 To 900 Step 90

  21.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")

  23.                 With mycheckbox1

  25.                     .Left = 10 + sja

  27.                     .Top = 10 + sjy

  29.                     .Width = 70

  31.                     .Height = 20

  33.                     .TextAlign = fmTextAlignCenter

  35.                     .BackColor = &HFFFFC0

  37.                     .Caption = .Name

  39.                 End With

  41.             Next

  43.         Next

  45.     Dim ct As Control

  47.     r = 1

  49.     For Each ct In Controls

  51.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name

  53.         Cells(r, 3) = ct.Name: r = r + 1

  55.     Next
  56.       aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
  57.     For hh = 1 To aois

  59.         For kh = 1 To aois

  61.             If Cells(hh, 3) <> "" Then

  63.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then

  65.                     Range("c" & hh).Select

  67.                     Selection.Delete Shift:=xlUp

  69.                
  70.                 End If

  72.             End If

  74.         Next

  76.     Next
  77.      
  78.     Cells(1, 3).Select


  81. End Sub
複製代碼

Private Sub CommandButton2_Click()
     Dim mycheckbox1 As MSForms.CheckBox
     aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
     For gosj = 1 To aois
        With Controls("Checkbox" & gosj)
            If .Value = True Then
                Label1.Caption = "現在核選：" & .Name
            
            End If
        End With
     Next
End Sub

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

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

  少看=只看不做也枉然

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 
7# 倒序看帖
打印
tT
發表於 2012-10-19 09:20 | 只看該作者

[發問] 請教 關於 程式開頭 的相關疑惑(承接 CheckBox 核選問題)

想請問
一般而言
Private Sub UserForm_Initialize()
End Sub
為 初始狀態的時候的狀態~
或

Private Sub CommandButton1_Click()
End Sub

但如果今天是想以
Controls("Checkbox" & gosj) 為範圍
以表單自動判斷而不用 CommandButton 模式下

該怎控制什麼比較適合??
程式如下

'主程式區塊
  1. Private Sub CommandButton1_Click()


  4.     Dim mycheckbox1 As MSForms.CheckBox
  5.           Columns("a:c").Clear
  6.           Columns("a:c").Select
  7.     For kk = 1 To 100

  9.         Cells(kk, 1) = "王" & kk
  10.          
  11.     Next kk

  13.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count

  15.         Selection.ColumnWidth = 15

  17.    
  18.         For sjy = 1 To 450 Step 45


  21.             For sja = 1 To 900 Step 90

  23.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")

  25.                 With mycheckbox1

  27.                     .Left = 10 + sja

  29.                     .Top = 10 + sjy

  31.                     .Width = 70

  33.                     .Height = 20

  35.                     .TextAlign = fmTextAlignCenter

  37.                     .BackColor = &HFFFFC0

  39.                     .Caption = .Name

  41.                 End With

  43.             Next

  45.         Next

  47.     Dim ct As Control

  49.     r = 1

  51.     For Each ct In Controls

  53.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name

  55.         Cells(r, 3) = ct.Name: r = r + 1

  57.     Next
  58.       aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
  59.     For hh = 1 To aois

  61.         For kh = 1 To aois

  63.             If Cells(hh, 3) <> "" Then

  65.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then

  67.                     Range("c" & hh).Select

  69.                     Selection.Delete Shift:=xlUp

  71.                
  72.                 End If

  74.             End If

  76.         Next

  78.     Next
  79.      
  80.     Cells(1, 3).Select

  82. End Sub
複製代碼
'需判斷區塊
  1. Private Sub CommandButton2_Click()
  2.      Dim mycheckbox1 As MSForms.CheckBox
  3.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
  4.      For gosj = 1 To aois
  5.         With Controls("Checkbox" & gosj)
  6.             If .Value = True Then
  7.                 Label1.Caption = "現在核選：" & .Name
  8.             End If
  9.         End With
  10.      Next

  12. End Sub
複製代碼
有試驗過

Private Sub UserForm_Activate()

End Sub

此方式 但無反映
收藏 分享

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

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

  少看=只看不做也枉然

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2012-10-19 10:58 | 只看該作者
回復 7# mark15jill
沒附檔,只能猜猜看
主程式區塊   是UserForm中  
Private Sub CommandButton1_Click()   改成  
Private Sub UserForm_Activate()  與 Private Sub UserForm_Initialize() 是一樣的
主程式區塊   是其他模組中
  1. Private Sub CommandButton1_Click()
  2. '
  3. '

  5.   Next
  6.    Cells(1, 3).Select
  7. UserForm1.Show   
  8. End Sub     
複製代碼

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 
9#
發表於 2012-10-19 11:09 | 只看該作者
回復 8# GBKEE

抱歉 小弟說的不清楚~
再次說明小弟 的疑惑點~
如上面程式所示，目前是利用CommandButton2 作為觸發點(即 點CommandButton2  ， Label1.Caption   才會顯示目前核選之Checkbox 的 Caption值 )  
若以UserForm_Active  為首的話，勢必會產生錯誤(因尚未 產生 10*10 個 Checkbox控制項 )

疑惑點如下
1.若想在 10*10 個 Checkbox控制項  產生後，點選任一 Checkbox ，產生效果如同原始 CommandButton2 之效果相同，但不用透過 CommandButton 控制，該用何者方式描寫比較適當。
2.若核選為複選，該如何判斷？

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

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

  少看=只看不做也枉然

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 
10#
發表於 2012-10-19 11:13 | 只看該作者
本帖最後由 mark15jill 於 2012-10-19 11:15 編輯

回復 8# GBKEE
  1. Private Sub CommandButton2_Click()

  3.      Dim mycheckbox1 As MSForms.CheckBox

  5.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count

  7.      For gosj = 1 To aois

  9.         With Controls("Checkbox" & gosj)

  11.             If .Value = True Then

  13.                 Label1.Caption = "現在核選：" & .Name

  15.             End If

  17.         End With

  19.      Next


  22. End Sub
複製代碼

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
12
返回列表 上一主題