[已解决]帮忙修改下代码，多谢

fggf

要实现如果C4单元格为空时，则跳出提示窗口，退出窗口后C4返回原来的值：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" And Cells(4, 3) = "" Then
MsgBox "该单元格内容不能为空，请重新设置!"
Application.ActiveDocument.Undo  ‘要让此撤消操作并返回C4单元格原来的内容。
End If
End Sub

请问红色部分代码怎么修改。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-11 09:56

1. Dim tmp
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Application.EnableEvents = False
   
4.     If Target.Address = "$C$4" Then
   
5.         If Len(Target) > 0 Then
   
6.             tmp = Target
   
7.         Else
   
8.             MsgBox "该单元格内容不能为空，请重新设置!"
   
9.             Target = tmp
   
10.         End If
    
11.     End If
    
12.     Application.EnableEvents = True
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16.     If Target.Address = "$C$4" Then tmp = Target
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Dim tmp
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Application.EnableEvents = False
   
4.     If Target.Address = "$C$4" Then
   
5.         If Len(Target) > 0 Then
   
6.             tmp = Target
   
7.         Else
   
8.             MsgBox "该单元格内容不能为空，请重新设置!"
   
9.             Target = tmp
   
10.         End If
    
11.     End If
    
12.     Application.EnableEvents = True
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16.     If Target.Address = "$C$4" Then tmp = Target
    
17. End Sub
    

复制代码

fggf

grf1973 发表于 2016-5-11 09:56

如果要在同一个工作表中的D4单元格达到一样的效果，请问要怎么做呢

grf1973

把两段代码里的
If Target.Address = "$C$4" 改成

if not intersect(target,[c4:d4]) is nothing
或者
If Target.Address = "$C$4" or Target.Address = "$D$4"