Question

VB做EXCEL指定内容搜索返回行列坐标值

DIM R AS RANGE 显示用户类型未定义
pravite function 不知道怎么弄
程序是VB精简版的 不会做不了吧

Answer 1

显示未定义类型： 需要先引用 excel 。

SUB AAA
    set rng=sheets("sheet1").cells.find("查找的内容",lookat:=xlwhole)
    if rng is nothing then msgbox "找不到数据" : exit sub
    x=r.row
    y=r.column
end sub