Excel VBA質問箱 IV

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

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


62874 / 76732 ←次へ | 前へ→

【18459】Re:印刷範囲の設定でエラー
質問  ackkn  - 04/9/26(日) 9:27 -

引用なし
パスワード
   ▼Kein さん:
Kein さん、おはようございます。
いつもながらの深夜のレスありがとうございます。
(でも、この時間は、まだ熟睡中なのかな?、なんて思ったりもしてます)
話は全く別なんですが、こんな深夜にレスができるKeinさんて、どんな仕事をなさってるんですか?、なんて事をフッと考えてしまいました。
すいません!、話を戻します。
>前にレスした "3D計算" が出来なくなってしまう
色々なお知恵をありがとうございます。
悲しいかな、その日暮らしに慣れているもんで、すっかり忘れておりました。
となると、「行ズレは、致命的です」よね。
で、ブックを閉じる際に、すべてのシートをチェックして正そうと言う訳ですね。

>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
>

>数式の入力されているセルが一つしかない、という前提です。
これが問題です、前にも書きました(下図)ようにB列は品種名で数式はなく、隣のC列〜E列を集計しているのですが、C列は計算式(D列×E列)です。
> A列  B列   C列  D列  E列
> チェック 品種  数量 ケース数 入数
>    つがる 300  5   60
>    ふじ  640  8   80
>    スター 480  12   40
>    合 計 1420  25 ← この行を出す
どうしたもんでしょうか?
それと、Keinさんはよく SpecialCells() を使われますが、()内の数字がxlCellTypeと相対していると思うのですが、Helpに載っていません。
数字とTypeの相対関係を教えて頂けませんか。
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 お礼

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