- 帖子
- 534
- 主題
- 59
- 精華
- 0
- 積分
- 615
- 點名
- 262
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2026-11-2
             
|
[發問] Excel 2010 Range/Cells 儲格值設定錯誤,err.number= 1004
請專家大大指導：
謝謝
儲存格A1 = testqq(B1) 函數
利用此函數設定 儲存格 A3、B3、C3； 但是錯誤 如附圖
- Public Function testqq(ByVal cc As Double) As Double
- Dim aa As Single, bb As Single
- aa = 5#
- bb = 6#
- Call qq(aa, bb)
- testqq = cc
- End Function
- Public Sub qq(ByVal aa As Single, ByVal bb As Single)
- Worksheets("RRE").Select
- Worksheets("RRE").Activate
- Err.Clear
- On Error GoTo errHandler
- Range("C3") = aa
- Cells(3, "A").Value = aa
- Cells(3, "B") = bb
-
- errHandler:
- If Err.Number <> 0 Then
- Debug.Print Err.Number, Err.Description, Err.Source
- Resume Next
- End If
-
- End Sub
|
|
發表於 2014-2-18 21:59
| 
