Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3026 / 76807

←次へ　｜　前へ→


	【79421】Findステートメントからsumで合計金額をだす。

ノンボ

- 17/10/17(火) 20:36 -


	引用なし

	パスワード

　はじめまして、VBA初心者です。
　worksheetに複数の店舗データーがあり、店舗（A列)ごとに品目(B列)と金額(C列)があります。店舗ごとに金額の合計をだすため下記コードをかきました。
　sub Test()
　 dim rng as range
　 set rng=cells.find(what:="A店",lookin:=xlValues, lookat:=xlWhole)
　 if not rng is nothing then
　　 with rng.cells(3,3)
　　 .End(xlDown).offset(1,0)= _
　　 "=sum(" & range(.address, .End(xlDown)).address(False,False) & ")"
　　End With
　 End if
End sub
複数行データーがある場合は問題なく合計金額がでますが、データーが1行だけの場合、
エラーになります。xlUPなどいろいろためしてみましたが、うまくいきません。どのようにコードをなおしたらいいか、ご教授ください。よろしくお願いします。

3 hits

▼

【79421】Findステートメントからsumで合計金額をだす。 ノンボ 17/10/17(火) 20:36