VBA代码编写——自定义函数自动获取指定单元格的数据

slayerkook您好！
好长时间没来了。你提供代码无法使用。A、B、C、D应能用任意字符串如RSI、MA5替换

1103151631d779409558bb5cab.rar (13.48 KB) 本附件包括：

• 001.XLS

2011-6-3 15:07:58 上传

slayerkook您好！
好长时间没来了。你提供代码无法使用。A、B、C、D应能用任意字符串如RSI、MA5替换

slayerkook您好!
代码无法使用
字符串A、B、C、D应能用字符串如rsi、MA5、kd等替换。

Function F(x As String, y)
i = 1

Do While Sheet1.Cells(i, 1) <> ""
a = a + 1
i = i + 1

Loop

j = 1

Do While Sheet1.Cells(1, j) <> ""
If x = Sheet1.Cells(1, j) Then
col = j
Else
End If

j = j + 1
Loop


a = a - y + 1

F = Sheet1.Cells(a, col)
End Function


需要加上双引号
f("rsi",1)=Range("C15")=60