[VBA ] 執行階段的錯誤:此處需要物件
我的程式碼如下,有一行出現錯誤,請大家幫小弟我看看是哪裡出問題,感謝萬分!
Dim d As Integer
Dim SpinnerValue As Integer
With 畫圖表 '畫圖表是一個 Sheet
SpinnerValue = .Shapes("Spinner 26").ControlFormat.Value
'上面這行出現 "執行階段錯誤 '424': 此處需要物件"
RightEnd = .Range("$M$2").Value + .Range("$M$3").Value
d = RightEnd - SpinnerValue
If d <= 0 Then
.Shapes("Spinner 26").ControlFormat.Value = SpinnerValue - 1
Exit Sub
End If
.Shapes("Scroll Bar 27").ControlFormat.Value = d
.Shapes("Scroll Bar 27").ControlFormat.Max = .Range("$M$1").Value -
.Range("$M$2").Value
End With
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.171.230.144
※ 編輯: foreverkn 來自: 218.171.230.144 (01/24 21:49)
→
01/24 22:08, , 1F
01/24 22:08, 1F
→
01/24 22:08, , 2F
01/24 22:08, 2F
→
01/25 23:37, , 3F
01/25 23:37, 3F
→
01/25 23:55, , 4F
01/25 23:55, 4F
→
01/27 20:17, , 5F
01/27 20:17, 5F