excle vba，如何查找一个已知值的行号和列号

set rng=cellsfind("日期")'查找含有“日期”的单元格

if not rng is nothing then‘如果找到

Ro=rngrow’行号

Co=rngcolumn‘列号

end if

硬盘序列号：

GetObject("winmgmts:")InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMediaTag=""\\\\\\PHYSICALDRIVE0""")SerialNumber

主板的：

    For Each Obj In GetObject("WinMgmts:")InstancesOf("Win32_BaseBoard")

       BBSN = ObjSerialNumber  '主板的序列号

    Next

我也是从Excelhome论坛找的，我自己项目里也是这样用的。

1、第一种方法： ActiveSheetRange("A" & RowsCount)End (xlUp)Row

2、第二种方法：ActiveSheetRange("a1048576")End(xlUp)Row

如果是低版本的OFFICE用ActiveSheetRange("a65536")End(xlUp)Row

3、第三种方法：ActiveSheetCells(RowsCount,1)End(3)Row

4、第四种方法：ActiveSheetrange("A1")CurrentRegionRowsCount

5、第五种方法：ActiveSheetCellsSpecialCells(xlCellTypeLastCell)Row

6、第六种方法：ActiveSheetUsedRangeSpecialCells(xlCellTypeLastCell)Row

7、第七种方法：MaxRow  =ApplicationEvaluate("=MAX((A1:A1048576<>"""")ROW(1:1048576))")

获取方式如下：

获取行号：

CommandButton1TopLeftCellRow

获取列号：

CommandButton1TopLeftCellColumn

按钮名称根据你实际的更改

个人感觉原因如下：

Sheet1Cells(999, 256)

这个语法是错误的，应该改成 worksheets("Sheet1")，最好改成worksheets(1)，以防止sheet1改名。

然后感觉这个太容易破解了，随便打开一个excel把宏给禁止执行，然后打开该表格，读VBA、然后要么替代盘符，要么那个关闭的代码给删了。破解完成~~~

个人觉得还是在打开的时候设置密码更加合适~

1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，

2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，

3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：

4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中：

5、代码编写完成，点击运行子过程按钮（或按下F5），

6、最后返回Excel中，就可以看到得到了当前单元格的行号和列号，

表单控件

Sub 显示行号()

 MsgBox ActiveSheetShapes("按钮 1")BottomRightCellRow

End Sub

存放代码参考

Excel数据如何快速排列

ActiveX控件

Private Sub CommandButton1_Click()

 MsgBox Shapes("CommandButton1")BottomRightCellRow

End Sub

Excel工作表被修改后自动升序排列

代码放在

回答数：2

浏览数：31 vba怎么连机

自己连还有和别人连怎么连机啊,顺便告诉我那个需要下的东西的地址

提问时间: 2006-04-01 15:50:29 评论 ┆ 举报

最佳答案此答案由提问者自己选择，并不代表百度知道知识人的观点

回答：shenmin

新手

4月1日 22:47 楼上是真不懂还是假不懂？VBA是模拟器

VBA1721带有连机功能，可以在局域网，要和别人连机的话只要双方都下个虚拟局域网的软件即可实现

VBA1721版局域网联机教程

1 下载VBA1721版,然后解压缩

2 做主机的先运行vbaserverexe文件(这个好象是172版才有的)然后会d出一个类似DOS命令的窗口

3 窗口中"selece number fo player <2-4>:"意思是选择游戏人数,按游戏的人数在后面输入数字,按回车然后会看到"serveraddress:XXXXXXXXXXXX"这里显示的数字就是主机的IP地址下面一行是"VBALink server running"命令这样就完成服务器建立

4 运行VBA主程序,选择options-->Link,在d出的窗口里不用管其他的直接在SERVER IP 下面的小框中输入主机的IP地址(例如:19216805),点击Connect再点击OK然后在DOS命令窗口里就会看到"Player #1 connected from 19216805"意思是有玩家连接到你的服务器,里面的数字是玩家的IP地址这样就成功连接到你自己的服务器

5 做从机的只要重复第4步的方法就能连接到主机的服务器当连接人数够了以后DOS命令窗口里会出现"OK"

6 开始游戏吧

以上就是关于excle vba，如何查找一个已知值的行号和列号全部的内容，包括:excle vba，如何查找一个已知值的行号和列号、Excel VBA如何获取硬盘物理序列号、如何在vba中得到当前单元格的行号和列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！