| |
品番、数量、金額とその合計が
入力された表で、Ｂ列の数量とＣ列の金額の値に-1をかけた
数値を表示させるために、下のようなコードが
あります。このコードを実行すると
合計の行まで含まれてしまいます。
合計の行にはＳＵＭ関数が入っているため、
この行は-1をかけたくないのですが、この表は行数が不特定のため、
合計が入力されている行を特定できません。
"Intersect"を使ったコードを今まで使ったことがないので、というどうすれば
いいのかわかりません。
どなかた教えていただけないでしょうか？
よろしくお願いします。
Sub test()
Dim zen1 As Range
Set zen1 = Intersect(Cells(1, 1).CurrentRegion.Offset(1, 1),_
Cells(1, 1).CurrentRegion.Resize(, 3))
For Each a In zen1
a.Value = a * -1
Next
End Sub
****************************************************
品 番 数 量 金 額 数量 金額
1ＣＢＣ 500 10000
2ＣＦＳ 400 10000
3ＨＳＪ 300 10000
4合 計 1200 30000 ←（ＳＵＭ関数が入っている）
*****************************************************
|
|
りんりん
- 04/9/29(水) 8:46 -
