|
keinさんのマクロを使わせて頂いたところ安定して希望通りの動きをしてくれました。対象となるセルを増やした所、実行エラー13 型が一致しません
のエラーが起動時発せします。keinさんのそのままのマクロでは問題がございません。が、対象セルを増やしたら起動時にエラーが発生いたします。その後は問題なく動作はするのですが、起動時気になります。どこを間違っているかお解かりになりますでしょうか?excelは2003です。
Private Data1 As Variant, Data2 As Variant, Data3 As Variant, Data4 As Variant, Data5 As Variant, Data6 As Variant, Data7 As Variant, Data8 As Variant, Data9 As Variant
Private Sub Worksheet_Activate()
Data1 = Range("A1").Value
Data2 = Range("A2").Value
Data3 = Range("A3").Value
Data4 = Range("A4").Value
Data5 = Range("A5").Value
Data6 = Range("A6").Value
Data7 = Range("A7").Value
Data8 = Range("A8").Value
Data9 = Range("A9").Value
End Sub
Private Sub Worksheet_Calculate()
With Range("A1")
If .Value <> Data1 Then
.Speak: Data1 = .Value
End If
End With
With Range("A2")
If .Value <> Data2 Then
.Speak: Data2 = .Value
End If
End With
With Range("A3")
If .Value <> Data3 Then
.Speak: Data3 = .Value
End If
End With
With Range("A4")
If .Value <> Data4 Then
.Speak: Data4 = .Value
End If
End With
With Range("A5")
If .Value <> Data5 Then
.Speak: Data5 = .Value
End If
End With
With Range("A6")
If .Value <> Data6 Then
.Speak: Data6 = .Value
End If
End With
With Range("A7")
If .Value <> Data7 Then
.Speak: Data7 = .Value
End If
End With
With Range("A8")
If .Value <> Data8 Then
.Speak: Data8 = .Value
End If
End With
With Range("A9")
If .Value <> Data9 Then
.Speak: Data9 = .Value
End If
End With
End Sub
|
|