返回列表 上一主題 發帖

[發問] 如何讓Userform 或是 MultiPage 恢復到Userform1.show 的狀態

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-12 21:26 | 顯示全部帖子

[發問] 如何讓Userform 或是 MultiPage 恢復到Userform1.show 的狀態

因為某個選項,選了之後所有資料都要先清空(回到原始狀態)

但因為MultiPage上的原件太多,一個一個清有點辛苦
用物件類別清也可以,但是有許多不同的種類

應該有更輕鬆的程式碼,可以讓她回到userform1.show 的時候吧?(所有資料都清空)
收藏 分享
PKKO

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2015-6-15 14:35 | 顯示全部帖子
本帖最後由 PKKO 於 2015-6-15 14:37 編輯

回復 2# GBKEE
感謝超版大大,根據您的程式碼,我新增了ComboBox 然後加上一個條件,可以完全符合我的需求,感謝哦!
  1.     '清除資料
  2.     Dim i As Integer, f As Control
  3.     With MultiPage1
  4.         .Value = 0: i = 0       'MultiPage1的顯示為 第一頁
  5.             For Each f In .Pages(i).Controls
  6.                 Select Case TypeName(f)  '控制項的名稱
  7.                     Case "OptionButton", "CheckBox", "ToggleButton"
  8.                         f.Value = False
  9.                     Case "TextBox", "ComboBox"
  10.                         If f.Name <> "KEY1" Then f.Value = ""
  11.                 End Select
  12.             Next
  13.     End With
複製代碼
PKKO

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題