EXCEL返回鼠标所选单元格所在行的第三个单元格 值,动态显示VBA按钮文字
例如 点击 D7 A1返回D3
点击B8 A1返回B3
点击C20 A1返回C3
还有另一个问题，如何动态显示VBA按钮上的文字
例如当 A1为完成时 按钮显示为 恢复
A1为未完成时 按钮显示为 中止
假设选中D列的任何一个单元格，如D2,D3,D5,D1,D7等等，只要是D列的单元格，A1中都都显示D3的值，选中F列中的任何单元格，A1都显示F3的值，依此类推。
现在将第一个问题的代码列出，你试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Cells(Target.Row, 3) '选择任何一个单元格，A1都显示该单元格所在行的第3个单元格的值
End Sub
'点击 D7 A1返回D3
If Target.Address = "$D$7" Then [A1] = [D3]
'点击B8 A1返回B3
If Target.Address = "$B$8" Then [A1] = [B3]
'点击C20 A1返回C3
If Target.Address = "$C$20" Then [A1] = [C3]
'A1为完成时 按钮显示为 恢复,假设按钮名称为CommandButton1
If [A1] = "完成" Then
CommandButton1.Caption = "恢复"
'A1为未完成时 按钮显示为 中止
ElseIf [A1] = "未完成" Then
CommandButton1.Caption = "中止"
End If
End Sub追问
点击哪个单元格是不固定的 反正要返回所在行的第三个单元格的值 按钮的好了 谢谢
追答不明白你说的意思，"点击C20 A1返回C3"与“要返回所在行的第三个单元格的值”，这两句话怎么理解。
本回答被网友采纳Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim theCell as Range
set theCell = Range(Target.Row, 3)
End Sub
第二个问题用Change事件
Private Sub Worksheet_Change(ByVal Target As Range)
if target.address="$A$1" and target="完成" then commandbutton1.caption="恢复"
if target.address="$A$1" and target="未完成" then commandbutton1.caption="中止"
End Sub本回答被提问者采纳
Range("A1").Value = Cells(3, Target.Column)
CommandButton1.Caption = "CommandButton1"
If [A1] = "完成" Then CommandButton1.Caption = "恢复"
If [A1] = "未完成" Then CommandButton1.Caption = "中止"
End Sub
EXCEL返回鼠标所选单元格所在行的第三个单元格 值,动态显示VBA按钮文字...
[a1] = Cells(Target.Row, 3) '选择任何一个单元格，A1都显示该单元格所在行的第3个单元格的值 End Sub
EXCEL如何高亮显示当前选中单元格所在行列
在Excel中，高亮显示当前选中单元格所在的行和列，可以通过设置条件格式和VBA代码相结合的方式来实现。以下是具体步骤：1. **设置条件格式**： - 打开Excel表格，选中需要设置高亮显示的区域（或全选）。 - 点击“开始”选项卡，找到“条件格式”选项，点击“新建规则”。 - 在“新建格式规则...
EXCEL如何高亮显示当前选中单元格所在行列
1. **选择数据区域**：首先，选中你希望应用此功能的Excel表格数据区域。2. **打开条件格式设置**：点击Excel菜单栏上的“开始”选项卡，找到“条件格式”按钮并点击，选择“新建规则”。3. **配置公式**：在弹出的“新建格式规则”对话框中，选择“使用公式确定要设置格式的单元格”。在“编辑规则...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
EXCEL如何高亮显示当前选中单元格所在行、列?
1、按Ctrl + A选中整张表格，点击【开始】菜单下的【条件格式】，选择【新建规则】。2、选择【使用公式确定要设置格式的单元格】点击【格式】=CELL("row")=ROW()3、设置好填充的颜色。4、这时会返回条件格式规则建立窗口点击【确定】。5、这时用鼠标点击一个单元格按下F9键，就会高亮这一行。
如何通过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...
Excel Vba 如何将单元格的值,同步显示在窗体中的LABEL或TEXTBOX中...
1、首先，在电脑中找到并打开Excel，在工具栏找到开发工具。2、然后，在开发工具栏下点开VisualBasic。3、然后，使用lable控件来来显示变量内容，接着双击按钮1进入按钮1的代码编写。4、在按钮1中输入：UserForm1.Label1.Caption = a。5、然后，回到form，点击运行窗体。6、最后，lable位置发生了变化，...
vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，如下图所示：2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，如下图所示：3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个...
EXCEL如何高亮显示当前选中单元格所在行列
1. **使用阅读模式**：首先，打开Excel表格，点击工具栏中的“视图”选项，然后找到并点击“阅读模式”的三角下拉按钮。在弹出的颜色选项中选择一个你喜欢的颜色。这样，当你单击表格中的任意单元格时，该单元格所在的行和列就会以所选颜色高亮显示，既直观又方便观察，且不会引入任何表格或图片元素。2...
excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数?
在对应工作表中粘贴以下代码（不要新建模块！！！）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If (Target.Column >= 2 Or Target.Column <= 8) And Target.Row = 1 Then '选定B1:H1时 Range("A1") = Target.Row 'A1显示选定的行数 Range("A2") = Target...
