Excel VBA質問箱 IV

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

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


11032 / 13644 ツリー ←次へ | 前へ→

【18538】合計の行以外に-1を掛けたいのですが りんりん 04/9/29(水) 8:46 質問[未読]
【18542】Re:合計の行以外に-1を掛けたいのですが Asaki 04/9/29(水) 9:17 回答[未読]
【18552】Re:合計の行以外に-1を掛けたいのですが りんりん 04/9/29(水) 14:03 お礼[未読]

【18538】合計の行以外に-1を掛けたいのですが
質問  りんりん  - 04/9/29(水) 8:46 -

引用なし
パスワード
   品番、数量、金額とその合計が                    
入力された表で、B列の数量とC列の金額の値に-1をかけた
数値を表示させるために、下のようなコードが
あります。このコードを実行すると
合計の行まで含まれてしまいます。
合計の行にはSUM関数が入っているため、
この行は-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

****************************************************

 品 番   数 量   金 額  数量   金額 
1CBC    500   10000
2CFS    400   10000  
3HSJ    300   10000
4合 計    1200   30000  ←(SUM関数が入っている)

*****************************************************

【18542】Re:合計の行以外に-1を掛けたいのですが
回答  Asaki  - 04/9/29(水) 9:17 -

引用なし
パスワード
   こんにちは。

最終行が合計行だとすると
例えばB65536のセルを選択した状態から、Ctrl+↑の操作で合計行(B列)が選択されます。
2行目から、上記の操作で得られた行の1つ上の行までが処理範囲になるのではないかと思います。

また、空いたセルに、-1と入力して、これをコピー
対象となるセル範囲を選択して右クリック >> 形式を選択して貼り付け で
[演算]で「乗算」をクリックして、「OK」をクリックすると、全体に-1をかけることが出来ます。

以上、2つの操作をマクロの記録で記録してみれば、参考になるのではないでしょうか?

【18552】Re:合計の行以外に-1を掛けたいのですが
お礼  りんりん  - 04/9/29(水) 14:03 -

引用なし
パスワード
   Asaki さん回答ありがとうございます。
Asakiさんの回答を参考にして
別の方法で試してみた結果、うまくできました。
どうもありがとうございました!

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