请问用宏的话具体怎么操作啊.谢谢您解答:)请问用宏的话具体怎么操作啊.比如A1输入X1(1为下标),A2输入Y1(1为下标)B1=1时,B2显示A1内容,即X1(1为下标),B1=2时,B2显示A2内容,即Y1(1为下标

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 20:09:24
请问用宏的话具体怎么操作啊.谢谢您解答:)请问用宏的话具体怎么操作啊.比如A1输入X1(1为下标),A2输入Y1(1为下标)B1=1时,B2显示A1内容,即X1(1为下标),B1=2时,B2显示A2内

请问用宏的话具体怎么操作啊.谢谢您解答:)请问用宏的话具体怎么操作啊.比如A1输入X1(1为下标),A2输入Y1(1为下标)B1=1时,B2显示A1内容,即X1(1为下标),B1=2时,B2显示A2内容,即Y1(1为下标
请问用宏的话具体怎么操作啊.谢谢您解答:)
请问用宏的话具体怎么操作啊.
比如A1输入X1(1为下标),A2输入Y1(1为下标)
B1=1时,B2显示A1内容,即X1(1为下标),
B1=2时,B2显示A2内容,即Y1(1为下标).

请问用宏的话具体怎么操作啊.谢谢您解答:)请问用宏的话具体怎么操作啊.比如A1输入X1(1为下标),A2输入Y1(1为下标)B1=1时,B2显示A1内容,即X1(1为下标),B1=2时,B2显示A2内容,即Y1(1为下标
运行 这个宏就得到结果
sub 判断 ()
if ragne("B1")=1 then
range("A1").copy range("B2")
elseif ragne("B1")=2 then
range("A2").copy range("B2")
end sub
或者用更方便的方法
直接用单元格事件,改变B1的值时,B2自动引用
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Range("B1") = 1 Then
Range("A1").Copy Range("B2")
ElseIf Range("B1") = 2 Then
Range("A2").Copy Range("B2")
End If
End If
End Sub