[英]Type mismatch error excel VBA
我的代码的目标是采用单元格的旧值,并对照新值(如果已输入)检查它。 并且如果旧值更改为新值,则更新指定单元格中的日期。
我的代码的问题在于,在不破坏我的代码的情况下,我似乎找不到解决该错误的方法,因此我在尝试修复这一行代码时遇到了麻烦。 我在两个工作表中都有这段代码,它们的值都针对不同的单元格进行了更改。 问题是,此代码仅在用于一个工作表时才起作用,但是当我使用两个具有相同代码的代码时,它将引发类型不匹配错误。
这是我的代码:
Dim oldValue As Variant
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
'My other worksheet is referencing cells E2:E100
oldValue = Me.Range("D4:D21").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D4:D21")) Is Nothing Then
Dim c As Range
For Each c In Intersect(Target, Me.Range("D4:D21"))
'Check value against what is stored in "oldValue"
'Type mismatch is on this line here
If oldValue(c.Row - 3, 1) <> c.Value Then
'Update value in column L (8 columns to the right of column D)
c.Offset(0, 7).Value = Date 'or possibly "= Now()" if you need the time of day that the cell was updated
End If
Next
End If
End Sub
我不确定类型不匹配错误的含义,因此我无法自行解决此问题。 我的问题是,如何在不引发不匹配错误的情况下正确更新单元格?
编辑:请记住,一个工作表正在寻找数值数据变化,而另一个工作表正在寻找字符串值变化,我不确定这是否重要。 如果我取出一个工作表的所有代码,则该代码将为另一个工作表工作,但是当我放回工作表时,它们都将停止工作。
谢谢。
您可以尝试以下代码:(将其放入ThisWorkbook
的代码中)
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws1 = ActiveSheet
For Each ws In Worksheets
ws.Activate
ws.Range("A1").Select
Next
ws1.Activate
Application.ScreenUpdating = True
End Sub
一个警告-Workbook_Open事件有时是“有问题的”,因为它有时在所有Worksheets
都完全加载之前触发。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.