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# 跳轉到 » 正序看帖
打印
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

此方式 但無反映
收藏 分享

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

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

  少看=只看不做也枉然

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 
14#
發表於 2012-10-19 14:34 | 只看該作者
回復 13# GBKEE


    測試成功
感謝大大~
抱歉 小弟資質愚昧~

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

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

  少看=只看不做也枉然

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2012-10-19 13:57 | 只看該作者
回復 12# mark15jill
見笑了 2010 尚未摸過
2003 如圖

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-10-19 13:39 | 只看該作者
大大您好
小弟的版本2010 似乎會有些問題產生~(如 CLASS)

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

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

  少看=只看不做也枉然

TOP

GBKEE

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

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

回復 9# mark15jill
CommandButton2 改為UserForm_Click (UserForm_Active 只有表單顯示時才有的  )   將Label1.Caption  顯示目前核選之Checkbox 的  
可也是可以 條件是已有產生 10*10 個 Checkbox控制項

點選任一 Checkbox ，產生效果如同原始 CommandButton2 之效果相同
2#  使用物件類別  2# Private Sub CommandButton1_Click() 名稱 改成
Private Sub UserForm_Activate()  或是 Private Sub UserForm_Initialize()  皆可以
  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.Name
  6.     複選
  7. End Sub
  8. Private Sub 複選()
  9.     Dim xlCcaptionas As String, E As MSForms.Control
  10.     With UserForm1
  11.         For Each E In .Controls
  12.             If InStr(UCase(E.Name), UCase("checkbox")) Then
  13.                 If E.Value = True Then xlCcaptionas = IIf(xlCcaptionas = "", E.Name, xlCcaptionas & "," & E.Name)
  14.             End If
  15.         Next
  16.         If xlCcaptionas <> "" Then
  17.             .Label1.Caption = "現在核選：" & xlCcaptionas
  18.         Else
  19.             .Label1.Caption = ""
  20.         End If
  21.     End With
  22. 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 
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

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

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

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

再次感謝大大的耐心解說

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 看別人不順眼，是自己修養不夠。
12
返回列表 上一主題