Excel VBA質問箱 IV

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

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


62881 / 76738 ←次へ | 前へ→

【18458】Re:印刷範囲の設定でエラー
回答  Kein  - 04/9/26(日) 1:59 -

引用なし
パスワード
   >途中で行削除されると
最終的にはブック全体の集計をするのなら、行削除とか挿入の操作は、しないことを
前提に考えた方がいいです。それをして各シートの合計計算をしているセル位置が
変わってしまうと、前にレスした "3D計算" が出来なくなってしまうからです。
そもそも、そんな操作をしなくて良いように、というのが出発点だったはずなんですが。
ま、どうしてもそんな操作をしてしまいそうなら、ブッククローズイベントで、
いちいち計算しているセルの行位置をチェックし、もし所定の位置からずれていたら、
そこを消して所定の位置に入力し直す、というコードを入れておいたら良いでしょう。
仮に 1001行目の B:E列 に 各列4:1000行の合計をする数式を入れているとして

Sub Auto_Close()
  Dim j As Integer
  Dim x As Long

  For j = 2 To Worksheets.Count
   With Worksheets(j)
     x = .Columns(2).SpecialCells(3).Row
     If x <> 1001 Then
      .Rows(x).ClearContents
      .Range("B1001:E1001").Formula = "=SUM(B$4:E$1000)"
     End If
   End With
  Next i
End If

というようなコードを、標準モジュールに入れます。日付シートをループし、各列で
数式の入力されているセルが一つしかない、という前提です。チェックするのは必ず
合計数式のある先頭列としていれば、このように相対参照で一気に同じ数式を
入れられます。

0 hits

【18325】印刷範囲の設定でエラー ackkn 04/9/21(火) 15:19 質問
【18326】Re:印刷範囲の設定でエラー IROC 04/9/21(火) 15:29 回答
【18328】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 15:48 質問
【18332】Re:印刷範囲の設定でエラー IROC 04/9/21(火) 16:31 回答
【18337】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 17:05 回答
【18342】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 18:09 回答
【18351】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 20:23 回答
【18357】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 21:56 質問
【18359】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 22:19 回答
【18413】Re:印刷範囲の設定でエラー ackkn 04/9/22(水) 20:58 発言
【18416】Re:印刷範囲の設定でエラー ackkn 04/9/22(水) 22:42 質問
【18417】Re:印刷範囲の設定でエラー Kein 04/9/23(木) 0:33 回答
【18457】Re:印刷範囲の設定でエラー ackkn 04/9/25(土) 17:42 質問
【18458】Re:印刷範囲の設定でエラー Kein 04/9/26(日) 1:59 回答
【18459】Re:印刷範囲の設定でエラー ackkn 04/9/26(日) 9:27 質問
【18460】Re:印刷範囲の設定でエラー Kein 04/9/26(日) 10:51 回答
【18746】Re:印刷範囲の設定でエラー ackkn 04/10/8(金) 10:32 お礼

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