|
いわれたとおり、
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
か、
for x = 1 to シート数
行 = 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 = 持ち金 - 購入金額 'おつり
on error resume next
next x
としてみましたが、結果は変わりませんでした、私の理解がまちがっているのでしょうか?
どなたかコードで教えてもらえるとありがたいです。
|
|