Q&A
画像は見にくいので、コードは「コードの挿入」で記入した方が良いです。
皆様はじめまして。よろしくお願いいたします。
ＶＢＡやプログラム言語は全く初めてです。
初歩的なことで躓くことが多く、お忙しいとは存じ上げますが、ご教授いただければ幸いです。
画像を添付いたします。
ワークシートチェンジで、単純に、
Ｔ１の内容をＴ10に転記するとしたいのですが、
「Rangeメソッドは失敗しました Worksheetオブジェクト」と何度やっても表示されます。
調べてみると、無限ループしているとか、なんとか、、、でちんぷんかんぷんです。
単純な処理をしているだけと思っているのですが、何が間違っているのか、ご教示いただければ幸いです。
申し訳ありませんでした。以下のコードで入力しています。
Private Sub worksheet_change(Byval As Range)
Dim i As Long
For i = 1 To 30
Dim j As Long
j = 1 + 2
If Sheets("計算表").Range("T2") = i Then
Sheets("計算表").Range("T10") = Sheets("計算表").Range("T1")
End If
Next
End Sub
回答2件
0
ベストアンサー
エラーになるの原因は下記のようなことです。
シートのChangeイベントはシートのどこかが変更されたら発生します。
VBAでシートを更新しても発生します。
Changeイベント内でシートを更新すると、Changeイベントが発生します。
すると永遠にChangeイベントが発生し続けることになり最終的にエラーになります。
Changeイベント内でシートを更新するときは、イベント発生を停止してから更新します。
Application.EnableEvents = Falseでイベント発生を停止できます。
ところで、ちゃんとコードを理解して書いてますか？
ワークシートチェンジで、単純に、
Ｔ１の内容をＴ10に転記するとしたいのですが、
ということなら、下記のコードです。
vba
1Private Sub Worksheet_Change(ByVal Target As Range) 2 Application.EnableEvents = False 3 Range("T10") = Range("T1") 4 Application.EnableEvents = True 5End Sub
投稿2020/09/24 10:59
編集2020/09/24 11:00
総合スコア34064
あまりにも鮮やかな回答をいただいたことに感謝です。
mattuwan様の回答も大変お役に立ちました。
初心者だから何でも許されるとは考えていませんが、ほんとにＶＢＡやってみると、あまりにも？？？？が連続して、前に進めなくなってしまいます。。
感謝の言葉しかお送りできませんが、画面の前で頭下げて合唱です。
0
実行時エラー -'-2147417848（80010108）
んと、
セルに何かを入れる ↓ Cangeイベント発生 ↓ マクロでT10セルに値を入れる ↓ Cangeイベント発生 ↓ マクロでT10セルに値を入れる ↓ Cangeイベント発生 ↓ 以下無限に続く
この流れが分かりますか？
Worksheet_Changeのイベントプロシージャ内で、
セルの内容を変えるようなことを書くと、
次々と無限にイベントが発生してしまい、
最終的にはエクセルが作業するメモリー領域がいっぱいになってしまい、
エラーで止まります。
こういう場合は、
イベントを一時的に無効にしてしまうことで、回避します。
投稿2020/09/24 11:07
総合スコア2145
あなたの回答
tips
プレビュー
