指定した字がある行の値を合計させたい VBA

エクセルで、B列内（B6から下方向）の文字列にアスタリスク*を追加した場合、その行のD列のセルの文字を合計して、表示させたいのですが、教えていただけませんか？
合計はF3セルに表示させます。

No.2 ベストアンサー 回答者： chiune 回答日時： 2018/02/13 14:15

D列のセルの文字

ではなくて
D列のセルの数値
として回答します。

ThisWorkbook 内で

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim c As Variant
Dim myNum As Double
Cells(3, 6).Value = 0
myNum = 0
For Each c In Range("B6:B100")
If InStr(1, c.Value, "*") > 0 Then
myNum = myNum + Val(Cells(c.Row, 4).Value)
End If
Next
Cells(3, 6).Value = myNum
End Sub

途中、 Range("B6:B100")は適宜 Range("B6:B500")とか変えて下さい。

この回答へのお礼

ありがとうございます、文字じゃなくて数値ですね！

お礼日時：2018/02/13 14:21

No.1 回答者： GOMΛFU 回答日時： 2018/02/13 14:05

合計するものが「文字」と「値」ではやり方が若干違いますが。