Mission UD：白血病等のがん患者を救え！213Ligands

954 ：名無しさん？：2006/01/21(土) 19:27:58 ID:???

>>949
気が向いたらでいいですから、37行の
sum(slot-1) = sum(slot-1) + csng(TimeValue(CutOut(Mes, "(+ ", ")" )))
を
If IsDate(CutOut(Mes, "(+ ", ")" )) then
sum(slot-1) = sum(slot-1) + csng(TimeValue(CutOut(Mes, "(+ ", ")" )))
Else
msgbox Lines(I)
End If
に変えて何が表示されるか教えてください。

> あと、処理中にエクセルクリック、未知の実行時エラーで止まるね

の件はエクセルのバージョンによってはそうなるようです。