currentregion当做参数传给自定义函数该怎么写（已解决）

迪尼索斯

比如自定义函数textfind(ft as string,arr as range)
我在主程序里有个arr对象是range("A1").currentregion,需要传到textfind里面去.
上面的写法会报错.
怎么样写语法才是正确的.

xiangbaoan

call   textfind (  Somwstring,  range("A1").currentregion)
主程序中这样应该可以

迪尼索斯

xiangbaoan 发表于 2022-8-23 11:38
call   textfind (  Somwstring,  range("A1").currentregion)
主程序中这样应该可以

请老师看下，我上传了附件。
我的思路是有很多张表格，储存到arr当中。
根据需要找到某个arr中某一列对应的数值，所以传参是用的arr对象。
用object,range,ranges都报错。

加了set传过去就不是数组了

xiangbaoan

Function textFind(ft As String, arr)

364337151

大神你好，上次你帮我解决了一个关于VBA的问题，现在进行了部分修改就无法运行了，提示下标越界，我也不懂得如何修改代码，试过很多次了，你愿意帮我修改一下嘛？或者翻译一下代码的意思，我感觉这应该是一个很小的问题，但无奈我看不懂代码

364337151

Sub test()
Dim str As String
For i = 2 To Range("A1").CurrentRegion.Rows.Count
str = Cells(i, 1)
If Cells(i, 2) = "否" Then Worksheets(str).Visible = False
If Cells(i, 2) = "是" Then Worksheets(str).Visible = True
Next

End Sub

Private Sub CommandButton1_Click()
Call test
End Sub


这是你给我写的代码，现在新增了表格，就无法通过点击按钮来隐藏表格了，显示下标越界，我看不懂代码，烦请你解答一下，如果可以的话，谢谢您！