選択したセルが特定の文字だった場合、複数のセルにそれぞれ違う値を挿入しようとしています、
ですが、実行すると、エラーはなく応答なしにも習うに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
エラーがないため、対応策がなかなかヒットせず....。
なぜ、うまくいかないのでしょうか?
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/05/10 06:26