以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何定位某值在单元格中的坐标  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68778)

--  作者:2
--  发布时间:2015/5/25 8:54:00
--  [求助]如何定位某值在单元格中的坐标
我要导入一个结构比较复杂的Excel表,需要定位特定值的行号和列号,不知道用VBA怎么写代码!
哪位会的,谢谢赐教一下!谢谢,谢谢,谢谢

比如在表中,定位“伸臂方式”
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150525085142.png
图片点击可在新窗口打开查看


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工作簿1.xlsx



--  作者:Bin
--  发布时间:2015/5/25 8:55:00
--  
VBA不懂,狐表里怎么获取倒是简单.
--  作者:2
--  发布时间:2015/5/25 9:00:00
--  
您说是像这样?http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52744&skin=0
--  作者:大红袍
--  发布时间:2015/5/25 9:26:00
--  

 必须循环所有的单元格。

 

 Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For Each cl As object In Rg
    If cl.Value = "123" Then
        msgbox(cl.address)
    End If
Next
App.Quit


--  作者:2
--  发布时间:2015/5/25 10:35:00
--  
没有Find  之类的方法可用吗?
--  作者:大红袍
--  发布时间:2015/5/25 10:39:00
--  

 1、find,你首先得知道列吧?

 

 2、你是全表查询,肯定要循环所有的单元格。