麻辣家族討論版版 » Excel程式區 » 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

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

[發問] 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

大學生 Rank: 4

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-30 12:30 | 只看該作者

[發問] 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

MultiPage中有Page1和Page2，每個Page各放一個OptionButton分別是OptionButton1和OptionButton2

當我選取Page1的OptionButton1以後~再去選取Page2的OptionButton2~再回到Page1看OptionButton1卻沒有將選取取消~為什麼呢?

樓主熱帖

收藏

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

2^#

發表於 2012-10-30 13:39 | 只看該作者

回復 1# av8d
這沒錯的.
MultiPage的Page1和Page2，它的OptionButton是個自群組獨立的,沒有關聯

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

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

3^#

發表於 2012-10-30 15:29 | 只看該作者

本帖最後由 mark15jill 於 2012-10-30 15:30 編輯

回復 1# av8d

GBKEE 大大說的沒錯..

正常情況下
頁數                                           Caption(Name)                                                 Caption(Name)
page(1)                   OptionButton1(OptionButton1)                   OptionButton2(OptionButton2)
page(2)                   OptionButton1(OptionButton3)                   OptionButton2(OptionButton4)

試試看程式運行時，另設 OptionButton 1 和 2 ，會變成
頁數                                           Caption(Name)                                                 Caption(Name)
page(1)                   OptionButton1(OptionButton1)                   OptionButton2(OptionButton2)
page(2)                   OptionButton1(OptionButton1)                   OptionButton2(OptionButton2)

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

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

  少看=只看不做也枉然

大學生 Rank: 4

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

4^#

發表於 2012-10-30 16:33 | 只看該作者

本帖最後由 av8d 於 2012-10-30 16:43 編輯

回復 2# GBKEE

如果
Page1有OptionButton1~30
Page2有OptionButton31~60

假如我先選取了Page1的OptionButton5
然後再選取Page2的的OptionButton45
此時如何讓Page1的OptionButton5消失? 感謝各位大大!

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

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

5^#

發表於 2012-10-30 16:43 | 只看該作者

本帖最後由 mark15jill 於 2012-10-30 16:45 編輯

optionbutton核選版本999.rar (21.57 KB)
參考看看吧
將 ftame 相關參數改成 multipage 相關參數就可以了

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

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

  少看=只看不做也枉然

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

6^#

發表於 2012-10-30 16:59 | 只看該作者

回復 4# av8d
表單程式碼

Option Explicit
Private Sub MultiPage1_Change()
Dim p As MSForms.Page, C As Object
For Each p In MultiPage1.Pages
If p.Name <> MultiPage1.SelectedItem.Name Then
For Each C In p.Controls
If C.Name Like "OptionButton*" Then C.Value = False
Next
End If
Next
End Sub

複製代碼

大學生 Rank: 4

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

7^#

發表於 2012-10-31 10:38 | 只看該作者

回復 6# GBKEE

學習了~好用+1

靜思自在 : 多做多得。少做多失。

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