質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

311閲覧

【VBA】複数の指定セルに値が挿入できない

Mr.sijimi

総合スコア21

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2022/05/10 05:35

選択したセルが特定の文字だった場合、複数のセルにそれぞれ違う値を挿入しようとしています、

ですが、実行すると、エラーはなく応答なしにも習うにExcelが終了してしまいます。
他にもRangeやOffsetを使用してみましたが、結果は変わりません。

vba

1 2Private Sub Worksheet_Change(ByVal Target As Range) 3 Dim r As Long 4 r = ActiveCell.Row 5 6 If ActiveCell = "" Then 7 Cells(r, 8).Value = "H列" & r & "です" 8 Cells(r, 9).Value = "I列" & r & "です" 9 Cells(r, 10).Value = "J列" & r & "です" 10 Cells(r, 11).Value = "K列" & r & "です" 11 12 End If 13End Sub 14

エラーがないため、対応策がなかなかヒットせず....。

なぜ、うまくいかないのでしょうか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

これはChangeイベント内でChangeしてしまっているので処理がループしてしまっています。
以下のコードを処理と後に入れましょう。
・Application.EnableEvents = False 'イベント抑制開始
・Application.EnableEvents = True 'イベント抑制終了

vba

1Private Sub Worksheet_Change(ByVal Target As Range) 2 Dim r As Long 3 r = ActiveCell.Row 4 5 If ActiveCell = "" Then 6 Application.EnableEvents = False 'イベント抑制開始 7 Cells(r, 8).Value = "H列" & r & "です" 8 Cells(r, 9).Value = "I列" & r & "です" 9 Cells(r, 10).Value = "J列" & r & "です" 10 Cells(r, 11).Value = "K列" & r & "です" 11 Application.EnableEvents = True 'イベント抑制終了 12 End If 13End Sub

それから余談ですが、ここでActivecellを使うのはナンセンスです。
Changeイベントの場合、変更になったセルについてはTargetを使用するのが普通です。
つまり、3行目でいうと「r=Target.Row」という事です。

投稿2022/05/10 05:56

編集2022/05/10 05:59
Black_Velvet

総合スコア47

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Mr.sijimi

2022/05/10 06:26

ありがとうございます! ご指摘までありがとうございます! 今後の参考になります!
guest

0

ベストアンサー

Worksheet_Change内でセルの値を変更することでWorksheet_Changeが実行され、さらにそれがセルの値を変更することでWorksheet_Changeが実行される……ということが無限に繰り返されるため、Excelがフリーズしています。
以下のようにApplication.EnableEventsを利用することで、Worksheet_Change処理中はセルの値を変更してもWorksheet_Changeが実行されないようにしてみてください。

vba

1Private Sub Worksheet_Change(ByVal Target As Range) 2 3 Application.EnableEvents = False 4 5 Dim r As Long 6 r = ActiveCell.Row 7 8 If ActiveCell = "" Then 9 Cells(r, 8).Value = "H列" & r & "です" 10 Cells(r, 9).Value = "I列" & r & "です" 11 Cells(r, 10).Value = "J列" & r & "です" 12 Cells(r, 11).Value = "K列" & r & "です" 13 14 End If 15 16 Application.EnableEvents = True 17 18End Sub

投稿2022/05/10 05:51

編集2022/05/10 05:52
ku__ra__ge

総合スコア4524

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Mr.sijimi

2022/05/10 06:24

ご回答ありがとうございます! 解決出来ました!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問