- 帖子
- 127
- 主題
- 28
- 精華
- 0
- 積分
- 160
- 點名
- 0
- 作業系統
- W7
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-11-1
- 最後登錄
- 2017-5-20
|
9#
發表於 2012-5-12 20:06
| 只看該作者
本帖最後由 icestormer 於 2012-5-12 22:26 編輯
回復 8# oobird
有幾個問題如果oobird 或有高手會 麻煩教一下, 感謝
這個檔是 我把oobird 大提供的,一邊理解語法一邊改的,但也產生了幾個問題
先附上檔案
 微調按鈕練習.rar (9.48 KB)
第一個問題:
Private Sub Workbook_Open()
Dim ctl As Shape
For Each ctl In Sheet1.Shapes
If ctl.Type = 8Then
ctl.OnAction = "Btn_Click" <<此行跟使用 call Btn_click 有什麼我看不出來的差別嗎?(執行起來都是一樣呢)
End If
Next ctl
End Sub
第二個問題:
Sub Btn_Click()
按鈕名 = Application.Caller
n = Val(Right(Application.Caller, 1))<<application.caller 實際作用還是不懂 不知能不能教一下
長度 = Len(Application.Caller)
With Cells(4, n)
If Left(按鈕名, 1) = "微" Then
If Cells(1, n).Value = 1 Then <<此行 原本是想採用直接取 [微調按鈕]的值 但都失敗(我只會使用 spinebutton.value 但又沒法用.) 只好把它的值連結在 工作表上的儲存格上
.Value = "你按了:" & 按鈕名 & "最大值"
.Characters(5, 長度).Font.ColorIndex = 3
.Characters(6 + 長度, 1).Font.ColorIndex = 3
Else
.Value = "你按了:" & 按鈕名 & "最小值"
.Characters(5, 長度).Font.ColorIndex = 3
.Characters(6 + 長度, 1).Font.ColorIndex = 8
End If
Else
.Value = "你按了" & 按鈕名
.Characters(3 + 長度, 1).Font.ColorIndex = 3
End If |
|
發表於 2012-5-12 15:44
| 
