No.1ベストアンサー
- 回答日時:
Public Sub 集計()
Dim x As Range, sum
sum = 0
For Each x In Sheets("Sheet1").Range("A2:A9")
If x.Value = 201 And (x.Offset(0, 2).Value = 1 Or x.Offset(0, 2).Value = 2) Then
sum = sum + x.Offset(0, 1).Value
End If
If x.Value = 202 And (x.Offset(0, 2).Value = 3 Or x.Offset(0, 2).Value = 4) Then
sum = sum + x.Offset(0, 1).Value
End If
Next
Sheets("Sheet2").Range("A1").Value = sum
End Sub
この回答へのお礼
お礼日時:2005/11/25 21:53
ご回答頂きましてありがとうございます。
おかげさまで問題を解決することが出来ました^^
とても勉強になりました。
ありがとうございました!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) VBAで自動集計(特定セルコピー月ごとに値貼り付け)したい。 6 2023/06/25 11:37
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル vbaについて教えてく...
-
Excel 複数列 A列B列C列一致 D...
-
【マクロ】名前を保存する際に...
-
エクセルであるセルに数字を入...
-
エクセルファイルがファイルの...
-
Excelについて教えてください
-
エクセル マクロ チェックボックス
-
【Excel】数字を3倍にし、なお...
-
エクセルVBA、別ブックへ転記す...
-
Excel分析ツールでのポアソン回...
-
Excelでセルの値が同じか...
-
エクセルで年休を管理する方法...
-
エクセル共有したが、アクセス...
-
エクセルのデーターが2か月前の...
-
【マクロ】顧客番号にて一致さ...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセル②
-
UNIQUE関数が使えないバージョ...
-
【マクロ】その時、その時で変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報