[已解决]請教指定範圍表格變動, 運行宏的方法

010203400

求一個宏:
指定範圍內的單元格, 內容有變化時, 開始RUN宏.

關鍵是: 我要如何設定指定範圍, 請幫忙給一段代碼.

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-3 15:33

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row: c = Target.Column
    '假设指定范围是 B2:D3
    If r > 1 And r < 4 And c > 1 And c < 5 Then MsgBox "指定范围中，发生了值改变"
End Sub





Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, [d5:f8]) Is Nothing Then MsgBox "指定范围中，发生了值改变"
    'Application.Intersect 方法
    '返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。
    '假设指定范围是 D5:F8

End Sub



两种常见方式。
如果需要，再加条件 target.count
2.rar (8.6 KB, 下载次数: 3)

2015-7-3 15:33 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

工作表事件

010203400

qh8600 发表于 2015-7-3 14:18
工作表事件

這個知道, 但我想要的不是這個工作中所有單元格有變化, 就RUN宏.
我想限制區域.

對這塊我不熟, 能幫忙給個代碼嗎.

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row: c = Target.Column
    '假设指定范围是 B2:D3
    If r > 1 And r < 4 And c > 1 And c < 5 Then MsgBox "指定范围中，发生了值改变"
End Sub





Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, [d5:f8]) Is Nothing Then MsgBox "指定范围中，发生了值改变"
    'Application.Intersect 方法
    '返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。
    '假设指定范围是 D5:F8

End Sub



两种常见方式。
如果需要，再加条件 target.count
2.rar (8.6 KB, 下载次数: 3)

2015-7-3 15:33 上传

点击文件名下载附件

010203400

爱疯 发表于 2015-7-3 15:33
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row: c = Target.Co ...

非常感謝.