excel中怎么用vba 判断某一行被选中

打开新文档

依次点击菜单“开始”——“程序”——“Microsoft Office”——“Microsoft Office Excel 2007”打开一个新建的excel文档

或同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。

打开VB编辑器

在打开的excle窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。

打开代码编辑窗

双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。

开始编写代码

在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

在过程中写入以下代码：

   If (Target.Columns.Count = Sheet1.Columns.Count) And (Target.Row <= Range("b4").Row) And (Target.Row + Target.Rows.Count > Range("b4").Row) Then

        MsgBox "yes"   

 Else    

        MsgBox "no"    

 End If

其中，Target.Columns.Count表示选区的列数，Sheet1.Columns.Count表示sheet1表列的最大数，如果两都相等，则表示整行选择；

Target.Row 表示选区的开始行号，Target.Row + Target.Rows.Count-1表示选区的结束行号 。

运行测试效果

我们再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。当然，你也可以修改msgbox语句成你需要的代码，进行更多操作处理。B4单元格也可以定义成可变值，如果有需要可以给小编留言。