如果偏移值= TRUE，则更改工作表上的消息宏
如果偏移值= TRUE，则更改工作表上的消息宏
提问于 2019-10-18 21:31:41
如果I:I列中的公式燃料电池在D:D列中的单元格更改后更改为TRUE，我想显示一个消息框。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
myRange = Range("D:D")
If Intersect(myRange, Target) Then
If Target.Offset(0, 3).Value = True Then MsgBox "Date Range and Holiday Type Mismatch"
End If
End Sub这是表的一个例子。基本上，我将使用holiday类型更新列D:D。在列I:I中，如果日期范围不可接受，单元格将变为TRUE。如果I:I列中的单元格变为TRUE，我希望显示消息框。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-10-18 21:44:36
一个不错的开始尝试，但是有几个问题，包括在使用Range对象时需要Set，以及似乎...关了。
这里有一种方法：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Set myRng = Intersect(Target, Me.Columns("D:D"))
If myRng Is Nothing Then Exit Sub
Dim myCell As Range
For Each myCell In myRng
If Me.Cells(myCell.Row, "I").Value = True Then
MsgBox "Date Range and Holiday Type Mismatch"
End If
Next
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58451955
复制相关文章
相似问题
腾讯云开发者
