Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7 / 13327 ツリー ←次へ | 前へ→

【80993】エクセル2016ですがクラッシュします goushi 19/7/4(木) 18:05 質問[未読]
【80994】Re:エクセル2016ですがクラッシュします γ 19/7/4(木) 22:25 発言[未読]
【80995】Re:エクセル2016ですがクラッシュします goushi 19/7/4(木) 23:07 お礼[未読]
【80997】Re:エクセル2016ですがクラッシュします goushi 19/7/5(金) 17:19 質問[未読]
【80998】Re:エクセル2016ですがクラッシュします γ 19/7/5(金) 18:15 回答[未読]
【80999】Re:エクセル2016ですがクラッシュします goushi 19/7/5(金) 18:56 お礼[未読]

【80993】エクセル2016ですがクラッシュします
質問  goushi  - 19/7/4(木) 18:05 -

引用なし
パスワード
   セルに数式を記入し隣のセルに答えが出るマクロをデータとしていただいたのですが最近答えが出てしばらくするとエクセルがクラッシュするようになりました。マクロ初心者ですのでどこが問題かわかりません。よろしくお願いいたします

Dim NowR As Integer
Dim NowC As Integer
Dim siki

Sub 小計()

 NowR = ActiveCell.Row
 NowC = ActiveCell.Column
 rr = Cells(NowR - 1, 4).Value
 If NowC = 4 And IsEmpty(Cells(NowR - 1, 4)) = False And rr <> "計" Then
  siki = Cells(NowR - 1, 4).Value
  Cells(NowR - 1, 5).Formula = "=ROUND(" & siki & ",2)"
 End If

End Sub

【80994】Re:エクセル2016ですがクラッシュします
発言  γ  - 19/7/4(木) 22:25 -

引用なし
パスワード
   そのコードがクラッシュの原因とは思えないですね。
その他のイベントプロシージャとか動いていませんか?
また、新しいブックで同じことをしても、クラッシュが再現しますか?
そのあたりを検討してみてはどうでしょうか。

【80995】Re:エクセル2016ですがクラッシュします
お礼  goushi  - 19/7/4(木) 23:07 -

引用なし
パスワード
   ありがとうございます
とりあえず新しいブックで再確認してみます

【80997】Re:エクセル2016ですがクラッシュします
質問  goushi  - 19/7/5(金) 17:19 -

引用なし
パスワード
   新しいブックで確認したところ以下のコードが原因のようでした
イベントプロシージャの部分の
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Call 小計
End Sub

それを以下のように変更すると
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Call 小計
End Sub

クラッシュしなくなりました
エクセル2013だと問題なく動くようなのですが
よろしければお教えいただけないでしょうか

【80998】Re:エクセル2016ですがクラッシュします
回答  γ  - 19/7/5(金) 18:15 -

引用なし
パスワード
   小計 の処理のなかでセル内容を変更すると
それがchangeイベントを発生させ・・
と繰り返しが起きるからじゃないですか?
回避するには
Application.EnableEvents=False
セル変更
Application.EnableEvents=True
とするとよいでしょう。
ネットで検索してみてください。

【80999】Re:エクセル2016ですがクラッシュします
お礼  goushi  - 19/7/5(金) 18:56 -

引用なし
パスワード
   早速のご回答ありがとうございます
再度調整してみます

7 / 13327 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free