Ｐａｇｅ 766 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼合計．．． nann 03/2/19(水) 15:27 ┗Re:合計．．． Jaka 03/2/19(水) 15:55 ┗Re:合計．．． nann 03/2/19(水) 16:37 ─────────────────────────────────────── ■題名 ： 合計．．． ■名前 ： nann ■日付 ： 03/2/19(水) 15:27 -------------------------------------------------------------------------
| すみませんが、教えてください。 シートのセルに数式を使わずに可変で、合計・残高 を出したいのですが， ↓↓実行すると、止まりません。（終わりません） Ｅｎｄ if で、デバッグになったり？？？ 申し訳ないですが、教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim x As Integer, myrange As Long myrange = Range("A50").End(xlUp).Row For x = 5 To myrange If Cells(x, 1) = "合計" Then Cells(x, 2) = Application.WorksheetFunction.Sum(Range("b5", Cells(x, 2).Offset(-1))) End If If Cells(x, 1) = "残高" Then Cells(x, 2) = Range("c2") - Cells(x, 2).Offset(-1) End If Next x End Sub |
| こんにちは。 セルを書き換えた時に、またWorksheet_Changeイベントが発生してしまうからです。 下記コードでイベントの発生を一時的に押さえてください。 Application.EnableEvents = False 処理 Application.EnableEvents = True |
| Jaka さん、こんにちは。 ありがとうございます。 なんか、素直にうれしいです。（関西弁ですが・・・笑） ばっちりですよ！！ やっぱり、寒いぼたちました。へへヘ >こんにちは。 >セルを書き換えた時に、またWorksheet_Changeイベントが発生してしまうからです。 >下記コードでイベントの発生を一時的に押さえてください。 > >Application.EnableEvents = False > 処理 >Application.EnableEvents = True |