Excel VBA 如何获得活动单元格所在行的行号

如题所述

'单元格触发事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "当前单元格的行号是:" & Target.Row
End If
End Sub
用命令按钮的宏:
Sub YY()
MsgBox "当前单元格的行号:" & ActiveCell.Row
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-08-11
ActiveCell.Row 活动单元格所在的行数
ActiveCell.Column 活动单元格所在的列数

VBA怎样得到当前行号和列号?
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中:5、代码编写完成,...

Excel VBA 如何获得活动单元格所在行的行号
If Target.Count = 1 Then MsgBox "当前单元格的行号是:" & Target.Row End If End Sub 用命令按钮的宏:Sub YY()MsgBox "当前单元格的行号:" & ActiveCell.Row End Sub

vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,如下图所示:2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,如下图所示:3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单...

excel,如何获取被选中单元格所在的行数
1、ALT+F11,打开VBE对话框 2、双击对应的工作表标签,复制以下代码,粘贴 Private Sub Worksheet_SelectionChange(ByVal Target As Range)[B5] = ActiveCell.RowEnd Sub3、关闭,查看效果

如何通过VBA高亮显示EXCEL活动单元格所在行和列
按ALT+F11,复制粘贴以下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.EntireColumn.Address = Target.Address Then Cells.Interior.ColorIndex = xlNone Exit Sub End If If Target.EntireRow.Address = Target.Address Then Cells.Interior.ColorIndex...

找到单元格所在的行列号Row属性和Column属性
在工作表的左侧边,我们可以看到每一行的行号,在工作表的上方,我们可以看到代表每一列的列字母,因此在工作表中,我们可以很容易知道当前活动单元格处在哪一行哪一列,或者当前活动单元格处在某单元格区域的位置。然而,在VBA中,我们如何知道我们所操纵的单元格的位置呢?这就是下面我们将要介绍的内容...

excel vba如何查询某单元格所在行
1、可以用InStr(查找的单元格或文本,查找的内容)这个来查找,用“.row”来获取行号 假设你要查找A列里包含“中国”内容的单元格可以这么写 For i = 1 To Cells(65536, 1).End(xlUp).Row '获取A列最后一个含有数值单元格的位置,并设定循环数 If InStr(Cells(i, 1), "中国") Then '如...

VBA如何得到选中的多行 的行号和列号
首先要知道行号、列号是已知还是未知的,知道行号、列号确定单元格以后,用CELLS就可以了,把下面的代码复制到VBA里面执行就看出来了: 1 2 3 4 5 6 Sub tt() Dim a, b As Integer a = InputBox("请输入行号") b = InputBox("请输入列号") Cells(a, b).Select End Sub 这上面就是单元格选定。 本...

excel vba中自定义一个函数,该函数需要用到函数所在的那个单元格的列...
使用 vba 编写函数,如果想要获取函数所在单元格的列号(行号),可以考虑以下办法:1、使用参数传递 即在编写函数时,手动将当前单元格传递过去。Function myfunction1(rng As range) myfunction = rng.Row & "," & rng.ColumnEnd Function2、用 ActiveCell 属性 Function myfunction2() my...

excel中vba怎么查找a列最后一个已使用单元格的行号?(数据中间有空格...
一般在VBA中,我们使用End方法来获取最大行号 1、此题中,最大行号=cells(rows.count,1).end(3).row 2、意思是从A列最后一个单元格往上找,第一个非空单元格的行号(row)

相似回答