標題: 微調按鈕 [打印本頁]

---

作者: sillykin    時間: 2017-3-2 19:21     標題: optionbutton小小問題

不知那邊出問題，能否高手幫看一下

---

作者: Kubi    時間: 2017-3-5 20:40

回復 1# sillykin

請參考
[attach]26766[/attach]

---

作者: GBKEE    時間: 2017-3-6 07:11

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, E
   
4.     For Each Sh In Sheets
   
5.         If Sh.Name <> "工作表1" Then
   
6.             For Each E In Sh.OptionButtons
   
7.                 If Trim(E.Caption) = "空白" Then E.Value = True
   
8.             Next
   
9.         End If
   
10.     Next
    
11. End Sub

複製代碼

---

作者: sillykin    時間: 2017-3-6 23:02

謝謝Kubi、GBKEE的回覆..
茲因在工作表及USERFORM的使用方式都不太一樣
應該是說控制元件的因素吧!!
在這裡學習很多...感謝大大耐心的教導

---

作者: sillykin    時間: 2017-3-6 23:35     標題: 微調按鈕

本帖最後由 sillykin 於 2017-3-6 23:40 編輯

微調按鈕如何歸0呢??
本檔案中僅試做一個微調按鈕,但如何試做多個微調按鈕,要如何一次歸0呢??
單個及多個歸0方式

---

作者: GBKEE    時間: 2017-3-7 08:48

回復 5# sillykin

修改3#的程式碼

1. Sub Ex()
   
2.     Dim Sh As Worksheet, E  As Spinner  '微調按鈕
   
3.     For Each Sh In Sheets
   
4.         If Sh.Name <> "工作表1" Then
   
5.             For Each E In Sh.Spinners
   
6.                 E.Value = E.Min '最小值
   
7.                 'E.Value = E.Max '最大值
   
8.                 'E.Value = E.Max - E.Min
   
9.             Next
   
10.         End If
    
11.     Next
    
12. End Sub

複製代碼

---

作者: sillykin    時間: 2017-3-7 21:03

謝謝GBKEE耐心的回覆

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)