ここから本文です

チェンジイベントマクロの条件の追加で下記のマクロ記述に、

uye********さん

2018/11/708:52:04

チェンジイベントマクロの条件の追加で下記のマクロ記述に、

もしB1セルの数値が変更された時のみ12151列目に入っている対象列の計算式を12151行目~最終行まですべて再計算を実行できるように追加記述したいのです。B1セルを変更しなければ通常通り下記のマクロのままです。百万セル以上の再計算なので時間は掛かります。今年度用から来年度用に値をすべて再計算させる必要の為です。

End If
With Target
If .Count > 1 Then Exit Sub
If .Row < 12152 Then Exit Sub
If Not Intersect(Target, Range("D:D,E:E,H:H,I:I,K:K,L:L,M:M,N:N")) Is Nothing Then
Range("O12151:AH12151").Copy Cells(.Row, 15)
Range("F12151:G12151").Copy Cells(.Row, 6)
Range("J12151").Copy Cells(.Row, 10)
Range(Cells(.Row, "O"), Cells(.Row, "AH")).Value = Range(Cells(.Row, "O"), Cells(.Row, "AH")).Value
Cells(.Row, "F").Resize(, 2).Value = Cells(.Row, "F").Resize(, 2).Value
Cells(.Row, "J") = Cells(.Row, "J")

End If
End With
With Target
If .Count > 1 Then Exit Sub
If .Row < 12152 Then Exit Sub
If Not Intersect(Target, Range("E:E,I:I,K:K,L:L,M:M,N:N")) Is Nothing Then
'MsgBox "D列を選択"

End If
End With
End Sub

補足最終行のデータ取得はA列でお願いします。

1 Then Exit Sub,Copy Cells,Is Nothing Then,AH&amp;quot,With Target,Worksheet,calculate

閲覧数:
23
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

yok********さん

2018/11/712:42:48

CalculateはWorksheetでもRangeでもありだから記述すればいいと思いますが。
気になるのはイベント禁止しないでセルコピーすると1セル毎に、ここが呼ばれている事を理解されているでしょうか?

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2018/11/7 20:39:14

この度のご回答誠にありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる