マクロもしくはAcsessで計算できますか？

質問

教えてください。

画像のような表があります。
本来はもっと膨大な数です。

製品の品番がAA969～DD969まであります。
それぞれの品番毎に罫線内の太字（最大値）の合計を出したいのですが、
方法はありますか？

ちなみに、品番毎に違う色を塗るマクロはあります。
現在は色を塗ったあとに電卓で計算しています。

知識のある方ご教示願います。

回答No.1

imogasi

http://okwave.jp/qa/q7126573.htmlと質問者による、同じ質問ではないか。ベストアンサーも決めて（御礼も無くて）締め切っているが、どうしたのか。
ーー
この質問は業務内容を含んでいるし、質問者独自の図表の質問であり、聞いている意味がわかりにくいと思う。
もう少し図表の成り立ち（構成）と仕組みを質問に説明すべきと思う。
何処のセルのどのセルの値を拾って、合計するのか？
忙しい読者に回答をもらうのだから、じっくり読ませるのも限度がある。
画像もぼやけていて読みにくいし、表の一部しか出てない。
ーー
こういうのを回答しようとしてもテストデータが要るが、回答者では非常に作りにくいのだ。出来るなら、テキストで質問文にデータ例を載せておいてくれると使えて助かる。
その際必要のない部分を捨てられる能力も必要だ。
ーー
エクセルの表のようなので、ＡＣＣＥＳＳでやるより、エクセルＶＢＡ利用だろう。
ーー
各行で、太字の数字のセルは１セルしかないようだが、それを捜して、最大値を探すのは、処理ロジックとして十分か？
例データ
Ａ２：Ｈ４
aa - - 12 34 45 67 　　＜－３４が太字
bb - - - 23 45 13 23　＜－４５が太字
cc - - - 22 45 45 65　＜－６５が太字
ーー
コード　標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
t = 0
For i = 2 To d
r = Cells(i, 256).End(xlToLeft).Column
For j = 1 To r
If Cells(i, j) <> "" Then
If Cells(i, j).Font.Bold = True Then
x = Cells(i, j)
MsgBox x
t = t + x
End If
End If
Next j
Next i
MsgBox t
End Sub
ーーー
結果
１４４をメッセージボックスで表示。
こういうのを、質問者向けに修正できる力あるのかな。
コピペ以外は出来ないレベルだと無駄になるが。

補足

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

表に関してはある製品の月別生産計画です。
※表は11月分のみですが。

11月内にどの機種が何台生産されるかを知りたいのですが、今の現状
電卓で計算しております。

表がわかりにくくて申し訳ありません。
計算内の数字は日別生産台数で太字は合計生産台数です。

別の月もある為、同じ行で太字がある場合もあります。

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