如何通过vba获取当前单元格所在行和列

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

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

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

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

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

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

如果是,可以,如果不是,就没有办法。

如果您没有安全证书，可以使用 SelfCert 工具（随 Microsoft Office 一起提供）创建一个。

创建自签名证书：

通过浏览找到 Office 专业版 2007 程序文件所在的文件夹。默认文件夹是驱动器:\Program Files\Microsoft Office\Office12（或者是Office工具）（如果您未看到“VBA 项目的数字证书”命令或找不到 SelfCertexe，则可能需要安装 SelfCert。需要原来的安装光盘）

2、在“您的证书名称”框中，键入新测试证书的名称。

3、单击两次“确定”就可以了。

把下边的代码放到模块中，

可以考虑在表格中加一个按钮指向这个宏代码。

你想查找哪一行，就先点击该行中的任意单元格，然后执行代码。

Sub shishi()

  Dim irow&, icol%, ix$

  irow = SelectionRow

  icol = ColumnsCount

  ix = Replace(Cells(1, Cells(irow, icol)End(1)Column)Address(0, 0), 1, "")

  If MsgBox("第" & irow & "行，最末列号为：" & ix & vbLf & vbLf & _

      "是否跳转到 " & ix & irow & " 单元格？", vbYesNo, "提示") = vbNo Then Exit Sub

  Range(ix & irow)Select

End Sub

OLEObject 对象

请参阅 属性 方法 事件 特性

Sheets

OLEObjects (OLEObject)

Borders (Border)

Interior

返回工作表中一个 ActiveX 控件或者一个链接式或内嵌 OLE 对象。OLEObject 对象是 OLEObjects 集合的成员。OLEObjects 集合中包含单张工作表中的所有 OLE 对象。

OLEObject 对象的用法

可用 OLEObjects(index) 返回一个 OLEObject 对象，其中 index 为对象名称或编号。下例删除 Sheet1 中的 OLE 对象一。

Worksheets("sheet1")OLEObjects(1)Delete

下例删除名称为“ListBox1”的 OLE 对象。

Worksheets("sheet1")OLEObjects("ListBox1")Delete

说明

工作表上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样，通过使用控件名称，Visual Basic 代码即可访问这些属性。下例选中复选框控件“MyCheckBox”，将其设为与活动单元格对齐，然后激活此控件。

With MyCheckBox

Value = True

Top = ActiveCellTop

Activate

End With

有关详细信息，请参阅在工作表上使用 ActiveX 控件。

获取指定的工作簿中工作表名称而非本工作簿中表的名称，下面的代码可以使用：

Sub 提取name()

Dim wk As Workbook

Dim sh As Worksheet

Dim rw As Byte

Set wk = WorkbooksOpen("D:\函数习题\第1章 函数基础xls")

For Each sh In Workbooks(2)Worksheets

rw = rw + 1

ThisWorkbookSheets(1)Range("a" & rw) = shName

Next sh

wkClose True

End Sub

新建一个工作簿，在VBA中新建一个模块，将上面的代码复制进去。记住要根据自己指定的工作簿改变一下workbooksopen后面的路径。结果会在新建工作簿中sheets1a列罗列出工作表名称。

1如果一定要获取新添加的工作表的名称，可以强制将新工作表添加到最前面

然后显示第一个工作表（sheets(1)）的名称，即为新添加的工作表的名称，代码如下：

Sub main()

WorksheetsAdd before:=Sheets(1)

MsgBox Worksheets(1)Name

End Sub

2与其获得新添加的工作表的名称，不如在添加新工作表时，直接命名

代码如下：

Sub min()

WorksheetsAdd

ActiveSheetName = "new sheet"

End Sub

获取方式如下：

获取行号：

CommandButton1TopLeftCellRow

获取列号：

CommandButton1TopLeftCellColumn

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

以上就是关于如何通过vba获取当前单元格所在行和列全部的内容，包括:如何通过vba获取当前单元格所在行和列、请问怎么获取VBA数字证书、VBA如何获取某一行中最后一列的字母等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！