初めまして。
どうしてもマクロについて分からないので教えてください。例えば、商品に『りんご』と『みかん』があり、それぞれ3行ずつの内訳の個数が書いてあったとします。
りんごの1行目だけに金額15000円が入っていたとして、のこりのりんごの2行目と3行目にはブランクとします。トータルのりんごの個数を分母にして、分子にそれぞれの行の個数にして按分したとします。
端数がでたときには1行目にプラスします。
また次の行には『みかん』が書いてあり、りんごと同様にみかんだけで個数按分するといった仕組みにしたいと考えています。
どのような構文を書いてよいのかが分かりません。
教えてください。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Sub 按分()
Dim 合計個数 As Long
Dim 合計金額 As Currency
Dim i As Long
Dim 行数 As Long
行数 = Cells(1, 1).End(xlDown).Row
合計金額 = Cells(1, 2)
合計個数 = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(行数, 1)))
For i = 2 To 行数
Cells(i, 2) = Round(合計金額 * Cells(i, 1) / 合計個数, 0)
Next
Cells(1, 2) = 合計金額 - WorksheetFunction.Sum(Range(Cells(2, 2), Cells(行数, 2)))
End Sub
1列目に個数、2列目に金額として、1行目2列目に合計金額が入っているっているとして
実際は3行ではないのでしょうからLoopを使いました。
この回答への補足
rivoisuさま
早速のご返信ありがとうございます。こんなにレスポンスが速く来るとは思っていませんでした。小生の説明がよくなかったのですが、(画像添付がうまくいきませんでしたので、直接「補足内容」に入力します。
実際は下記のような感じでシートが作成されております。(二重線以下がエクセルシートです。)
A列は商品(りんご、みかんなど)B列は個数(上から15、10、17)
C列は金額(1行目の『りんご』15000、4行目の『みかん』の2000)です。
*商品名 * 個数 * 金額
=================================
1 *りんご * 15(個) * 15000
---------------------------------
2 *りんご * 10(個) *
---------------------------------
3 *りんご * 17 (個) *
---------------------------------
4 *みかん * 5 (個) * 2000
---------------------------------
5 *みかん * 4 (個) *
---------------------------------
6 *みかん * 3(個) *
---------------------------------
rivoisuさまのやり方でマクロを作成してみたのですが、1行目のりんごの¥15,000で『りんご』と『みかん』のトータル個数で按分する結果になりました。(¥2000を5:4:3で割りたいのですが、うまくできませんでした。)
(行数)りんごは1行目から3行目まで、みかんは4行目から6行目までといったように認識させるにはどのようにしたらよろしいのでしょうか。(商品は常にたくさんありますし、その日その日で行数が変わります。)お手数お掛けしますが、助けてください。お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) vbaマクロについて 次のようなマクロを組みたいです。 自分は初心者なので全くわかりません。 詳しく 8 2023/05/18 18:38
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Amazon 新規でAmazon商品ページ作成方法について 1 2022/03/28 00:22
- Visual Basic(VBA) vbaマクロについて 【1.csv】をもとに【商品.csv】に有るものを【有り.csv】として名前を 1 2023/05/18 07:58
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
数百万円って いくらでしょうか?
-
内金の返却について
-
まいばすで働いてたんですが、...
-
出産祝いプレゼントを有志であ...
-
海外レンタカーの請求書詳細
-
word&excel 2007での差込印刷で...
-
FROM句の構文エラー ACCESS SQL
-
抽出条件でデータが一致しませ...
-
源泉徴収票の「給与所得控除後...
-
こんにちは、資本的支出にあた...
-
源泉徴収票について
-
期日前投票立会人の仕事
-
振込の時の領収書の書き方
-
給与/報酬の「支給額」と「支...
-
「初穂料はお志」の「お志」と...
-
【エポスカード】支払金額確定...
-
源泉徴収票の支払金額について
-
1976年の7万円は現在だといくら...
-
私立高等学校等就学支援金の市...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
数百万円って いくらでしょうか?
-
振込の時の領収書の書き方
-
まいばすで働いてたんですが、...
-
出産祝いプレゼントを有志であ...
-
word&excel 2007での差込印刷で...
-
給与/報酬の「支給額」と「支...
-
【エポスカード】支払金額確定...
-
VBA テキストボックスに3桁カ...
-
「初穂料はお志」の「お志」と...
-
源泉徴収票の「給与所得控除後...
-
1976年の7万円は現在だといくら...
-
クイックペイは、スマホがモバ...
-
内金の返却について
-
Excelで原価計算
-
agoda予約サイトについて
-
期日前投票立会人の仕事
-
FROM句の構文エラー ACCESS SQL
-
数字にカンマを入れる方法
-
未払い給与がある場合の確定申告
おすすめ情報