|
▼ゼロイオン さん:
>いわれたとおり、
>for x = 1 to シート数
>on error resume next
>行 = Worksheets(1).Cells.Find("シート名", , xlValues, , , xlPrevious).Row
>
>
>Workbooks("ブック.xls").Worksheets(2).Cells(行, 256).End(xlToLeft).Offset(, 1).Value = 時間 '時間
>Workbooks("ブック.xls").Worksheets(2).Cells(行, 256).End(xlToLeft).Offset(, 1).Value = 野菜値段 * 魚値段 '金額
>Workbooks("ブック.xls").Worksheets(2).Cells(行, 256).End(xlToLeft).Offset(, 1).Value = 持ち金 - 購入金額 'おつり
>
>next x
on error resume nextの使い方はこれでいいと思うんですが。
findで一致が見つからなかったら、行って変数にはなにもいれないってこと?
で、Worksheets(2).Cells(行, 256).End(xlToLeft).Offset(, 1)には何も計算した結果を入れないって事?
その場合は、かみちゃんさんが教えてくれた方法がいいんじゃないですか?
|
|