微調按鈕

sillykin

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

Kubi

回復 1# sillykin

請參考
OptionButton-1.rar (27.81 KB)

下載次數: 6

2017-3-5 20:40

GBKEE

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

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

sillykin

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

GBKEE

回復 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

謝謝GBKEE耐心的回覆