1、如下图（百度知道问题）：
1、首先打开Microsoft Office Excel 2007，新建文档并保存文件名《Excel选填单元格根据条件在另单元格显示数值.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。
2、鼠标移到当前工作表标签栏“Sheet1”表（需要在哪表计算在哪表），右键，弹出快捷菜单，如下图。
3、在快捷菜单找到【查看代码】并单击，打开VBE（宏）编辑界面，如下图。
4、在右边代码框中复制下面代码到该框中，如下图：
Private Sub Worksheet_Change(ByVal Target As Range)
'2020-9-1 22:45:21
If Target.Address = "$A$8" Then
If Target.Value = "单" Then
Range("D17").Value = 1
ElseIf Target.Value = "双" Then
Range("D17").Value = 5
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'2020-9-1 22:50:12
If Range("A8").Value = "单" Then
If Target.Address = "$B$10" Then
Range("D17").Value = 1
Range("A8").Select
ElseIf Target.Address = "$B$11" Then
Range("D17").Value = 2
Range("A8").Select
ElseIf Target.Address = "$B$12" Then
Range("D17").Value = 3
Range("A8").Select
ElseIf Target.Address = "$B$13" Then
Range("D17").Value = 4
Range("A8").Select
ElseIf Target.Address = "$B$14" Then
Range("D17").Value = 5
Range("A8").Select
ElseIf Target.Address = "$B$15" Then
Range("D17").Value = 6
Range("A8").Select
End If
ElseIf Range("A8").Value = "双" Then
If Target.Address = "$B$10" Then
Range("D17").Value = 5
Range("A8").Select
ElseIf Target.Address = "$B$11" Then
Range("D17").Value = 6
Range("A8").Select
ElseIf Target.Address = "$B$12" Then
Range("D17").Value = 7
Range("A8").Select
ElseIf Target.Address = "$B$13" Then
Range("D17").Value = 8
Range("A8").Select
ElseIf Target.Address = "$B$14" Then
Range("D17").Value = 9
Range("A8").Select
ElseIf Target.Address = "$B$15" Then
Range("D17").Value = 10
Range("A8").Select
End If
End If
End Sub
5、以上操作动态过程如下：
6、回到工作表窗口，填写和选单元格得到问题结果，运行过程如下图。
7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
