|
▼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の相対関係を教えて頂けませんか。
|
|