Excel VBA質問箱 IV

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

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


31669 / 76734 ←次へ | 前へ→

【50310】Re:合計数値の反映
回答  駿  - 07/7/19(木) 12:14 -

引用なし
パスワード
   たろう さん こんにちは
私はここの方々に比べると回答できるレベルではありませんが、自分の勉強の為に勇気を出して投稿しました。(岳さんを見習ってみました)
Sheet1 が
A B  C     D   E  F   G
? ?? 品名    個数 ???     ????    合算数
   レオ    3        30
   アンソニー    2        96
   アンソニー    6        96
   アミティ    1        12
   ジル    4        24
   キング    2        17
   アンソニー    8         96
   アミティ    1        12
   レオ    2        30

Sheet3 が(累計データ用Sheet)
A  B  C      D       E  F    G    
?1 ?2 ?3 品名    4? 5?   累計数
      レオ            30
      アンソニー        96
      アミティ        12
      ジル            24
      キング            17

質問からこんな風にイメージしました。

Sub てすと()
Dim Sh1, Sh3      As Worksheet
Dim MyRenge3      As Range

Set Sh1 = Sheets("Sheet1")
Set Sh3 = Sheets("Sheet3")
enD_1 = Sh1.Range("D65536").End(xlUp).Row  'Sheet1最終行
enD_3 = Sh3.Range("D65536").End(xlUp).Row  'Sheet3最終行

'Sheet3-G列に合計数
For i3 = 2 To enD_3
  Sh3.Range("G" & i3) = Sh1.Application.WorksheetFunction.SumIf _
     (Sh1.Range("C1:C" & enD_1), Sh3.Range("D" & i3).Value, Sh1.Range      ("D1:D" & enD_3))+ Sh3.Range("G" & i3)
Next

'Shee1-G
For i1 = 2 To enD_1
  Sh1.Range("G" & i1) = Sh3.Application.WorksheetFunction. _
      VLookup(Sh1.Range("C" & i1), Sh3.Range("D2:G" & enD_3), 4, 0)
Next
End Sub

こういう事でしょうか?

で、出来たんですけど、マクロの実行を押す毎に数字がどんどん増えていきます。
ここからは、私の質問になりますけど、一度マクロが実行されたら再計算されないようなマクロの組み方はあるのでしょうか?どなたかご教授下さい。
1 hits

【50289】合計数値の反映 たろう 07/7/18(水) 16:24 質問
【50300】Re:合計数値の反映 りん 07/7/19(木) 8:01 回答
【50324】Re:合計数値の反映 たろう 07/7/19(木) 17:32 発言
【50310】Re:合計数値の反映 駿 07/7/19(木) 12:14 回答
【50311】Re:合計数値の反映 駿 07/7/19(木) 12:26 発言

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