加载宏函数如何调取加载宏表格中的数据？

jok22

如题，已做好加载宏函数HT()，此加载宏名为"回弹计算.xla"，在加载宏里有一个工作表，加载宏函数用的数据在这个工作表中，宏函数已测试正确，就是在做成加载宏时出错，个人认为应该是引用数据不对，（arr1 = Sheets(1).[a4:z404]）但这些代码都是依葫芦画瓢做的，不会改，所以请大神帮忙，谢谢！

1. Option Explicit
   
2. Function HT(回弹值 As Double, 碳化深度 As Double, 角度 As String, 浇筑面 As String) As String
   
3.    
   
4. Dim i%, j1%, j2%, j%, r%, m%, m1%, m2% ', 回弹值 As Double, 碳化深度 As Double, 角度 As String, 浇筑面 As String '定义变量
   
5. Dim arr, arr1, arr2, arr3, arr4 '定义数组
   
6.     arr1 = Sheets(1).[a4:z404]
   
7.     arr2 = Array(0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6)
   
8.     arr3 = Array(90, 60, 45, 30, 0, -30, -45, -60, -90)
   
9.     arr4 = Array("侧面", "表面", "底面")
   
10.         For j1 = 0 To UBound(arr4)
    
11.             If 浇筑面 = arr4(j1) Then
    
12.             m1 = j1 + 24
    
13.             End If
    
14.         Next j1
    
15.         For j2 = 0 To UBound(arr3)
    
16.             If 角度 = arr3(j2) Then
    
17.             m2 = j2 + 15
    
18.             End If
    
19.         Next j2
    
20.         For j = 0 To UBound(arr2)
    
21.             If 碳化深度 = arr2(j) Then
    
22.             m = j + 2
    
23.             End If
    
24.         Next j
    
25.        For i = 1 To UBound(arr1)
    
26.     If 回弹值 = arr1(i, 1) Then
    
27.         r = i
    
28.     End If
    
29.      Next i
    
30.     If arr1(r, m) = "<10" Then
    
31.         HT = "<10"
    
32.     ElseIf arr1(r, m) = ">60" Then
    
33.         HT = ">60"
    
34.     Else
    
35.         HT = arr1(r, m) + arr1(r, m1) + arr1(r, m2)
    
36.     End If
    
37. End Function

复制代码

回弹计算.rar (32.13 KB, 下载次数: 9)

2018-8-21 21:58 上传

点击文件名下载附件

不知何故

把加载宏中的 arr1 = Sheets(1).[a4:z404] 改为：

arr1 = ThisWorkbook.Sheets(1).[a4:z404]

jok22

不知何故 发表于 2018-8-22 11:03
把加载宏中的 arr1 = Sheets(1).[a4:z404] 改为：

arr1 = ThisWorkbook.Sheets(1).[a4:z404]

谢谢