如何用VB6 查询excel 中一值,并返回值的行号和列号
请教,如何用VB6 查询excel 中一值,并返回值的行号和列号 。谢谢。
myrange = xlSheet.Range("F13:K99")
a = xlApp.WorksheetFunction.Max(myrange)
b = xlApp.WorksheetFunction.Min(myrange)
If Abs(a) > Abs(b) Then
Maxe1 = a
Else
Maxe1 = b
End If
s = xlSheet.Range("F3:K99").Find(Maxe1).Row
y = xlSheet.Range("F3:K99").Find(Maxe1).Column