Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
346 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

クラッシュしなくなりました
エクセル２０１３だと問題なく動くようなのですが
よろしければお教えいただけないでしょうか
【80998】Re:ｴｸｾﾙ2016ですがｸﾗｯｼｭします
回答  γ  - 19/7/5(金) 18:15 -
引用なし
パスワード
   小計 の処理のなかでセル内容を変更すると
それがchangeイベントを発生させ・・
と繰り返しが起きるからじゃないですか？
回避するには
Application.EnableEvents=False
セル変更
Application.EnableEvents=True
とするとよいでしょう。
ネットで検索してみてください。
【80999】Re:ｴｸｾﾙ2016ですがｸﾗｯｼｭします
お礼  goushi  - 19/7/5(金) 18:56 -
引用なし
パスワード
   早速のご回答ありがとうございます
再度調整してみます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
346 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free