マクロ エラーに関して

質問

９１個のデータを以下のように１０個ずつ横に並べ、
同じ数値のデータＮ列よりグラフを作成し、
A:Jの数値を変更した場合　Ｎ列に同期しグラフが変更される。
また、グラフのプロット（数値）が変更された場合も
Ｎ列が変更され　A:Jの数値と同期し変更するように考えています。
しかし、以下の現象でうまく動作しませんので教えて頂ければと思います。

A1⇒J1 = N1:N10
A2⇒J2 = N11:N20
A3⇒J3 = N21:N30
A4⇒J4 = N31:N40 　　
A5⇒J5 = N41:N50　　⇔　グラフ
A6⇒J6 = N51:N60
A7⇒J7 = N61:N70
A8⇒J8 = N71:N80
A9⇒J9 = N81:N90
A10 　 =　 N91　

【現象】

(1)
A:Jの数値を変更した場合にエクセルがフリーズしたような状態になり操作が出来なくなる。

(2)
グラフのプロット（数値）が変更された場合にA:Jの数値が変更されない
もしくは、以下の部分でメッセージが表示されます。

NFromAJの以下の転記部分

Worksheets("PAT_01").Cells(tmp \ 10, tmp Mod 10 + 1).Value = Worksheets("PAT_01").Cells(i, "N").Value

【エラーメッセージ】

実行時エラー'13’

型が一致しません。

【現在のソース】

'----------------------------------- Sheet1 モジュール
Option Explicit
Private LastTarget As Variant
Private WithEvents Chart1 As Chart '対象埋め込みグラフに関連付けるChartクラス

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Chartクラスを「このワークシートの埋め込みグラフ1」 に関連付ける〔Chartobject 番号★要修正〕
If Chart1 Is Nothing Then
Set Chart1 = Me.ChartObjects(1).Chart
End If

'現在のN列の値を IDプロパティにCopyしておく
If Len(Range("N2").ID) = 0 Then
Dim c As Range
For Each c In Range("N1:N91")
c.ID = CStr(c.Value2)
Next
MsgBox "N列の値を IDプロパティにCopyしました"
End If

End Sub

'(1) A:Jのほうで変更があったとき
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long, tmp As Long

If Not Application.Intersect(Range("A1:J9,A10"), Target) Is Nothing Then

If Target.Value <> LastTarget Then

Application.EnableEvents = False

For i = 1 To 91
tmp = i + 9
Cells(i, "N").Value = Cells(tmp \ 10, tmp Mod 10 + 1).Value

Next

Application.EnableEvents = True

End If

End If

End Sub

'(2) グラフの系列1のPointがドラッグされ値が変更されたとき
Private Sub Chart1_Calculate()

Module1.NFromAJ

End Sub

'----------------------------------- 標準モジュール(Module1)

Option Explicit

Sub NFromAJ()
Dim i As Long, tmp As Long

For i = 1 To 91
tmp = i + 9

Worksheets("PAT_01").Cells(tmp \ 10, tmp Mod 10 + 1).Value = Worksheets("PAT_01").Cells(i, "N").Value

Next

End Sub

回答No.1

ple_mania

こんにちは。ソースをあまりよくみていないのですが、
ご説明の中で気になることがありましたので。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
A:Jの数値を変更した場合　Ｎ列に同期しグラフが変更される。
また、グラフのプロット（数値）が変更された場合も
Ｎ列が変更され　A:Jの数値と同期し変更するように考えています。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

A.「A:Jの数値を変更」したら「Ｎ列を変更」
B.「Ｎ列を変更」したら「A:Jの数値を変更」

これってつながっているように見えませんか？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
(1)
A:Jの数値を変更した場合にエクセルがフリーズしたような状態になり操作が出来なくなる。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

の原因がここにあるということはないでしょうか？
ボタンを二つ用意しておいて、ボタンAを押したらA.の処理、
ボタンBを押したらB.の処理をやっているであればよいのですが。