[已解决]求助代码修改 （关于条件方面的）

almeida

我有一段代码意思是，如果选中就打“√”
我想改成如果选中单元格有内容就不要有任何变化，单元格空白就打“√”，请教大家应该如何改

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Not Application.Intersect(Target, Range("D5:AD19")) Is Nothing Then
Target.Value = "√"
End If
End If
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-16 09:41

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Application.Intersect(Target, Range("D5:AD19")) Is Nothing Then
            If IsEmpty(Target) Then
                Target.Value = "√"
            End If
        End If
    End If
End Sub

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Application.Intersect(Target, Range("D5:AD19")) Is Nothing Then
            If IsEmpty(Target) Then
                Target.Value = "√"
            End If
        End If
    End If
End Sub

almeida

爱疯 发表于 2012-11-16 09:41
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
         ...

谢谢版主，我在问一个问题，如果我要把 √ 换成 ♣ 符号，我应该怎么做，直接贴上去他不认的

爱疯

Target.Value = "√"
换成
Target.Value = "♣"

爱疯

最好重选一个能直接显示的字符