E・F列は既に入力されています。
下記のようにG列・H列にマクロで出力できるようにしたいのです
■例
----E-----F-----G-------H
07--名前A --金額---名前A---名前Aの合計金額
08--空白---金額---名前B---名前Bの合計金額
09--名前B --金額---名前C---名前Cの合計金額
10--空白---金額---合計---名前A~名前Cの合計金額
11--空白---金額
12--名前C --金額
13--合計--合計金額
ご教授お願い致しますm(_ _)m
No.4ベストアンサー
- 回答日時:
>下記のところでエラーがでます。
どんなエラーが出たのか不明なので詳しい事は判りませんが,恐らくあなたの実際のワークシートが,ご相談で書かれている内容とは違ってるのが原因です。
変更前:
cells(n, "H") = cells(n, "H") + cells(r, "F")
変更後:
cells(n, "H") = application.sum(cells(n, "H"), cells(r, "F"))
#具体的に「このマクロの行で」「こんな風に書かれてるエラーが現れた」「どこまで進んでマクロが止まった」「止まったときのワークシートはこんな内容が記入されている」などのように,目に見える様子を何でも詳しくご質問に書いて下さい。
この回答への補足
エラー箇所→ cells(n, "H") = application.sum(cells(n, "H"), cells(r, "F"))
エラー出力→「実行時エラー1004:アプリケーション定義またはオブジェクト定義のエラーです」
止まったときのワークシートには、名前Aだけが出力されています。
何度も申し訳ないですが、ご教授お願いします。
すみません。
cells(n, "H") = application.sum(cells(n, "H"), cells(r, "F"))
で解決しました。
宣言した定数が一つ異なっているという単純なミスでした(><)
何度もご丁寧に本当に、ありがとうございました。
No.3
- 回答日時:
マクロでなく、sumif関数で実現できます。
セルH7に式[=sumif(E7:E12,"=名前A",F2:F12)]
セルH8に式[=sumif(E7:E12,"=名前B",F2:F12)]
セルH9に式[=sumif(E7:E12,"=名前C",F2:F12)]
セルH9に式[=sum(H7:H9]
を設定。
No.2
- 回答日時:
7行目から金額が記入してある前提で。
sub macro1()
dim r as long
dim n as long
n = 6
range("H7:H65536").clearcontents
for r = 7 to range("E65536").end(xlup).row
if cells(r, "E") <> "" then
n = n + 1
cells(n, "G") = cells(r, "E")
end if
cells(n, "H") = cells(n, "H") + cells(r, "F")
next r
end sub
みたいな。
この回答への補足
ご回答ありまがとうございます。
分かりやすいプログラムだったのですが、下記のところで
エラーがでます。原因について考えたのですが、分かりません。
お手数ですが、どのようなプログラムを入力すればよいのか、
ご教授お願いできないでしょうか?
宜しかったらお願いします(><)
cells(n, "H") = cells(n, "H") + cells(r, "F")
No.1
- 回答日時:
Sub try()
Dim myDic As Object
Dim r As Range
Dim st As String
Dim v As Variant
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In Range("E7", Cells(Rows.Count, 5).End(xlUp))
st = IIf(r.Value <> "", r.Value, st)
If Not myDic.Exists(st) Then
myDic(st) = Array(r.Value, r.Offset(, 1).Value)
Else
v = myDic(st)
v(1) = Val(v(1)) + r.Offset(, 1).Value
myDic(st) = v
End If
Next
Range("G7").Resize(myDic.Count, 2).Value = _
Application.Transpose(Application.Transpose(myDic.Items))
Set myDic = Nothing
End Sub
一例になれば。
この回答への補足
ご回答ありがとうございます。
ご回答いただいて申し訳ないですが、エラー表示されてしまいます。
配列で構成しているのではと思い考えてみましたが、やはり理解できず。
配列苦手で(^^;) すみません(><)
配列で構成したほうが一番いいと思うので、配列についてはもう少し勉強し直します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Win11で画像ファイルが突然開け...
-
F5アタックとは
-
中華ゲーム機のGame Console R3...
-
Windows版のiTunesを使ってiPho...
-
Windows標準のフォトには写真は...
-
WindowsのパソコンとiPhoneをUS...
-
パソコンがあできなくてもつけ...
-
アガサハークネスを字幕で見た...
-
結構前にパソコン工房で購入し...
-
iTunesは廃止されるらしいです...
-
iOS18にしてからこのようなマー...
-
blenderで両眼立体計測法を用い...
-
パソコンがフリーズする
-
BIOSが破損しているかどうかを...
-
Windows標準のメモ帳でファイル...
-
フリーソフトに「終了」というボ...
-
PCにあるdzentime ってなんです...
-
Windowsは各ソフトにゴミ箱がな...
-
サイトに入ったら文字列ばっかり
-
エクスプローラーでは画像のプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
数百万円って いくらでしょうか?
-
まいばすで働いてたんですが、...
-
【エポスカード】支払金額確定...
-
出産祝いプレゼントを有志であ...
-
なぜ街コンは男性の方が参加費...
-
1976年の7万円は現在だといくら...
-
word&excel 2007での差込印刷で...
-
振込の時の領収書の書き方
-
「初穂料はお志」の「お志」と...
-
FROM句の構文エラー ACCESS SQL
-
見積りNETを伝える時は御社...
-
給与/報酬の「支給額」と「支...
-
VBA テキストボックスに3桁カ...
-
【問題1】 ある仕事をするのに ...
-
クイックペイは、スマホがモバ...
-
源泉徴収票の「給与所得控除後...
-
食べ放題、飲み放題の飲食店で...
-
Excelで原価計算
-
agoda予約サイトについて
おすすめ情報