請教關於程式開頭的相關疑惑(承接 CheckBox 核選問題) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教關於程式開頭的相關疑惑(承接 CheckBox 核選問題)

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

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

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

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()  皆可以

'VBA插入物件類別模組自動命名為Class1 的程式碼
Option Explicit
Public WithEvents xlCheckbox As MSForms.Checkbox
Private Sub xlcheckbox_Click()
' If xlCheckbox = True Then UserForm1.Label1.Caption = "現在核選：" & xlCheckbox.Name
複選
End Sub
Private Sub 複選()
Dim xlCcaptionas As String, E As MSForms.Control
With UserForm1
For Each E In .Controls
If InStr(UCase(E.Name), UCase("checkbox")) Then
If E.Value = True Then xlCcaptionas = IIf(xlCcaptionas = "", E.Name, xlCcaptionas & "," & E.Name)
End If
Next
If xlCcaptionas <> "" Then
.Label1.Caption = "現在核選：" & xlCcaptionas
Else
.Label1.Caption = ""
End If
End With
End Sub

複製代碼

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

高中生 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-10-19 13:39 | 只看該作者

大大您好
小弟的版本2010 似乎會有些問題產生~(如 CLASS)

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

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

  少看=只看不做也枉然

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

13^#

發表於 2012-10-19 13:57 | 只看該作者

回復 12# mark15jill
見笑了 2010 尚未摸過
2003 如圖

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

高中生 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

14^#

發表於 2012-10-19 14:34 | 只看該作者

回復 13# GBKEE

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

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

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

  少看=只看不做也枉然

靜思自在 : 盡多少本份，就得多少本事。

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