Board logo

標題: [發問] Excel 2010 Range/Cells 儲格值設定錯誤,err.number= 1004 [打印本頁]
作者: Scott090    時間: 2014-2-18 21:59     標題: Excel 2010 Range/Cells 儲格值設定錯誤,err.number= 1004

請專家大大指導：
謝謝

儲存格A1 = testqq(B1) 函數
利用此函數設定 儲存格 A3、B3、C3； 但是錯誤 如附圖
[attach]17520[/attach]
  1. Public Function testqq(ByVal cc As Double) As Double
  2. Dim aa As Single, bb As Single
  3. aa = 5#
  4. bb = 6#
  5. Call qq(aa, bb)
  6. testqq = cc
  7. End Function

  9. Public Sub qq(ByVal aa As Single, ByVal bb As Single)
  10. Worksheets("RRE").Select
  11. Worksheets("RRE").Activate
  12. Err.Clear
  13. On Error GoTo errHandler
  14. Range("C3") = aa
  15. Cells(3, "A").Value = aa
  16. Cells(3, "B") = bb

  18. errHandler:
  19.     If Err.Number <> 0 Then
  20.         Debug.Print Err.Number, Err.Description, Err.Source
  21.         Resume Next
  22.     End If
  23.         
  24. End Sub
複製代碼
作者: GBKEE    時間: 2014-2-19 07:12

回復 1# Scott090
工作表上使用自定函數:會忽略VBA對工作表方法,屬性...,但不可給儲存格值.
如沒 On Error GoTo errHandler  工作表上的 testqq 傳回錯誤值

VBA程序上使用自定函數則沒限制到
  1. Sub Ex()
  2.     testqq 5
  3. End Sub
複製代碼
作者: Scott090    時間: 2014-2-19 14:17

回復 2# GBKEE


    謝謝大大的指導，茅塞頓開；
敢問大大是否有其他迂迴的方法可以在 worksheet 呼叫 自訂函數而能間接的把結果(2個以上的結果值)放到某多數個存格內?
作者: GBKEE    時間: 2014-2-19 14:39

回復 3# Scott090
VBA程序上使用自定函數則沒限制到
作者: Scott090    時間: 2014-2-19 23:22

回復 4# GBKEE

感恩

最後，在工作表設命令按鈕解決；可惜每次變換函數參數都要按一次按鈕
作者: GBKEE    時間: 2014-2-20 11:45

本帖最後由 GBKEE 於 2014-2-20 11:47 編輯

回復 5# Scott090

ThisWorkbook模組,
  1. Option Explicit
  2. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '活頁簿中工作表重算(預設)程序
  3.     Dim F As Range
  4.     With Sh
  5.         Set F = .Cells.Find("=testqq", Lookat:=xlPart, LookIn:=xlFormulas)
  6.         If Not F Is Nothing Then
  7.         Application.EnableEvents = False
  8.             testqq (15)   '可惜每次變換函數參數都要按一次按鈕
  9.             '按鈕的程式碼
  10.         Application.EnableEvents = True
  11.           Exit Sub
  12.         End If
  13.     End With
  14. End Sub
複製代碼
作者: Scott090    時間: 2014-2-20 13:52

回復 6# GBKEE


    感謝 超級高明的大大給予詳盡的解答



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