Excel 特定の文字を検索して計算 VBA

質問

急ぎで困っております。

エクセル２０１０にて、表を小計をさせた文字や特定の文字を検索して、別セルに計算式を参照させ表示するマクロを考えております。
表の内容は都度、変更になり小計をかけます。
画像添付しております。
ご教示のほどよろしくお願いします。

回答No.7

mt2015 · ベストアンサー

ANo.5です。

> 実際はG列のG13、G14、G15、G16のセルの値をB列の"みかん集計"の文字を検索して、すべて足し算してG17に入力したいと思います。

Case "みかん 集計◆"の下のコードを以下の様に変更してみてください。

Cells(nRow, 7) = Cells(nRow, 4)
↓
Cells(nRow, 7) = Application.WorksheetFunction.SumIf(Range("B:B"), "みかん", Range("G:G"))

なお、当方のコードは考え方のサンプル程度の内容ですので実際に使用する際にはエラー処理なども考慮してください。

回答No.6

mt2015

訂正(^^;
コードの7行目

誤：Cells(nRow, 7) = Cells(nRow, 5) / 10
↓
正：Cells(nRow, 7) = Cells(nRow, 4) / 10

回答No.5

mt2015

こういう事なのかな？

B列とC列の文字列を◆でつなげた文字列を作り、Select Caseでパターン別けしてみました。
もし、◆を表で使用している場合は別な文字を使用してください。
みかん集計についてはG列に表示するのはD列の値にしました。

Sub Sample()
　　For nRow = 3 To Cells(Rows.Count, "B").End(xlUp).Row
　　　　sSTring = Cells(nRow, 2) & "◆" & Cells(nRow, 3)
　　　　Select Case sSTring
　　　　　　Case "りんご 集計◆"
　　　　　　　　Cells(nRow, 6) = Cells(nRow, 4) * 10
　　　　　　　　Cells(nRow, 7) = Cells(nRow, 5) / 10

　　　　　　Case "メロン◆メロン200円"
　　　　　　　　Cells(nRow, 6) = Cells(nRow, 4)

　　　　　　Case "みかん 集計◆"
　　　　　　　　Cells(nRow, 7) = Cells(nRow, 4)

　　　　End Select
　　Next nRow
End Sub

補足

mt2015さん、早速にありがとうございます。
概ねやりたい事は出来ております。

G17の、G13+G14+G15+G16 は、D17に既に結果が出ていますが、サンプル表が間違えておりますので処理は別で考えたいと思っております。

実際はG列のG13、G14、G15、G16のセルの値をB列の"みかん集計"の文字を検索して、すべて足し算してG17に入力したいと思います。

SUBTOTALのような感じです。
集計した結果表示される、"○○集計"の場所は毎回異なるため、VBAでお願い出来れば助かります。
ご確認よろしくお願いします。

回答No.4

tsubu-yuki

これはアレかなぁ？
セルの塗りつぶし色によって集計方法を変えたいってことかなぁ？
そのあたりの条件やら何やらがわからないと式もマクロも組みようがないですよ？
実際問題、恐らく中身はそんなに難しくないマクロでしょうが・・
それが都度変わるのであればマクロは却って面倒かもしれません。

マクロ以前に、ご自身がやりたいことや条件を明確に補足するなり、
質問しなおすなりなさってくださいませ。

補足

tsubu-yuki 様、ありがとうございます。

マクロで考えております。
imogasi 様の補足で記述させて頂いております。
わかりにくく、恐れ入ります。

回答No.3

ushi2015

こんにちは
セルF4に、=IF(ISERROR(FIND("集計",$B4,1)),$D4,$D4*10)
セルG4に、=IF(ISERROR(FIND("集計",$B4,1)),"",$D4/100)
で、F4:G4を下方にフィルコピーでしょうか？

G17の、G13+G14+G15+G16 は、D17に既に結果が出てますよね？

補足

ushi2015 様、ありがとうございます。

ＶＢＡで考えております。
imogasi 様の補足で記述させて頂いております。
わかりにくく、恐れ入ります。

回答No.2

imogasi

#1の回答（問い合わせ）の補足を見てもよく意味が分からない。
ーー
列は行の誤りでは？初心者によくある間違いだが？
こういうレベルと質問文章の書きぶりで、でＶＢＡをやるの？
ーー
「集計」という文字があるセルを、このシートの中で探し（Ｂ，Ｃ列限定？）、その右列（Ｄ列？）の式を別シートにでも出したいのか。
ーー
エクセルでシートに計算式を表示させる機能がるのを知っているか？
それをつかってはダメ？
ーー
質問のことが実現したとして、目的は何（どう使うのか）？
これを書けば、質問の狙いを、読者は理解しやすいと思う。

補足

imogasi 様

ご指摘ありがとうございます。

毎回集計の内容は変更となりますので、ＶＢＡで考えております。

りんご 集計はＢ列を検索して下記コードで動きますが、
Ｃ列を検索してのメロン２００円の処理と
Ｂ列とＤ列を参照してのみかん集計の処理をご教示頂けると助かります。

よろしくお願い致します。

Sub セルの値を検索して計算()

Dim myRng As Range, c As Range, fAd As String, i As Long
Dim myStr

Set myRng = Range("B3", Cells(Rows.Count, "B").End(xlUp))
'B列の検索範囲設定

For Each myStr In Array("りんご 集計")

Set c = myRng.Find(What:=myStr, LookAt:=xlPart, After:=myRng.Cells(myRng.Count))
'部分一致検索

If Not c Is Nothing Then

fAd = c.Address

Do
i = i + 1
c.Offset(0, 4).Value = c.Offset(0, 2) * 10
c.Offset(0, 5).Value = c.Offset(0, 2) / 10

Set c = myRng.FindNext(c)

Loop Until c.Address = fAd

End If

Next myStr

If i = 0 Then

MsgBox "文字が見つかりません", vbCritical, "対象の列を確認してください。"

Else

End If

Set myRng = Nothing
Set c = Nothing

End Sub

回答No.1

ushi2015

こんにちは
画像のどの部分の話ですか？
D7＊10　とか D7/100 とかG13+G14+G15+G16
という計算式を表示するという事ですか？

補足

ushi2015 様、

早速にありがとうございます。

画像の計算式１・２列のセル場所に、Ｂ列の○○集計や、Ｃ列のメロン２００円などの文字を照合させて、数式の結果をそれぞれのセルに表示させたいと考えております。ご確認よろしくお願いします。