第1个回答 2016-07-22
第2个回答 2016-07-22
可以使用VBA代码来完成！
详细代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target = 5 Then
Range("A6:A8").NumberFormatLocal = ";;;"
End If
If Target = 3 Then
Range("A4:A8").NumberFormatLocal = ";;;"
End If
If Target = 9 Then
Range("A2:A8").NumberFormatLocal = ";;;"
End If
End If
End Sub
使用方法：
1、ALT+F11-找到对应的工作表
2、粘贴代码
3、关闭VBE，返回工作表，测试本回答被提问者采纳
详细代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target = 5 Then
Range("A6:A8").NumberFormatLocal = ";;;"
End If
If Target = 3 Then
Range("A4:A8").NumberFormatLocal = ";;;"
End If
If Target = 9 Then
Range("A2:A8").NumberFormatLocal = ";;;"
End If
End If
End Sub
使用方法：
1、ALT+F11-找到对应的工作表
2、粘贴代码
3、关闭VBE，返回工作表，测试本回答被提问者采纳
相似回答
