匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 3 個月前

EXCEL巨集發生錯誤訊息?

指令碼如下:

-------------------------------------------------------------------------------------------------------------

Function RangeByName(name, Optional wbkname = 0)

'根據名稱獲得rng,wbkname可指定工作簿, 默認0表示本工作簿

Dim arr

If wbkname = 0 Then wbkname = ThisWorkbook.name

If name Like "*!*" Then '如果名稱是帶sheet的單元格引用

arr = Split(name, "!")

Set RangeByName = Workbooks(wbkname).Sheets(arr(0)).Range(arr(1))

Else

Set RangeByName = Workbooks(wbkname).Names(name).RefersToRange

End If

End Function

-------------------------------------------------------------------------------------------------------------

已更新項目:
2 個已更新項目:

補上該有問題的程式下載位置

http://www.FunP.Net/4426

Attachment image

2 個解答

評分
  • 匿名使用者
    3 個月前
    最佳解答

    妳的圖片解像度太高,根本看不清。我估妳重複用 RangeByName 這個名。試用不同名代表 funcation 同 variable 試用這個。如

    Set rngNameOfRange = ...

    已了解,已補充。試用不同名代表function name 同 variable name。

  • 匿名使用者
    3 個月前

    補上程式碼圖片,問題中間的部分

    Attachment image
還有問題?馬上發問,尋求解答。