[已解决]VBA条件求值

c888

Book1.rar (1.65 KB, 下载次数: 18)

2011-1-9 12:39 上传

点击文件名下载附件
谢谢！
不要使用IF函数。

最佳答案

月排行榜 / 总排行榜

爱疯

2011-1-9 13:17

Private Sub Worksheet_Change(ByVal Target As Range)
    If InStr(Range("F7"), "决赛") Then
        Application.EnableEvents = False
        Range("I7").ClearContents
        Application.EnableEvents = True
    End If
End Sub

Book1d.rar (8 KB, 下载次数: 5)

2011-1-9 13:24 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

为什么要不能用if呢？题目内容就是对条件的处理呀

c888

回复 爱疯 的帖子

谢谢！I7单元格多用，不能设置公式，

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    If InStr(Range("F7"), "决赛") Then
        Application.EnableEvents = False
        Range("I7").ClearContents
        Application.EnableEvents = True
    End If
End Sub

Book1d.rar (8 KB, 下载次数: 5)

2011-1-9 13:24 上传

点击文件名下载附件

Aкon

{:35:}{:35:}{:35:}