|
横から失礼します
goto 0 以下の処理をしないでnext xに行くなら処理をif文で括ってしまっては?
例えば
>>for x = 1 to シート数
>>on error resume next
>>行 = Worksheets(1).Cells.Find("シート名", , xlValues, , , lPrevious).Row
'ここでエラーナンバーを取り出して
atai = Err.Number
>>on error goto 0
>>
if atai = 0 then
>>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 = 持ち金 - 購入金額 'おつり
end if
>>
>>next x
又は
>>for x = 1 to シート数
>>on error resume next
>>行 = Worksheets(1).Cells.Find("シート名", , xlValues, , , lPrevious).Row
>>
if Err.Number = 0 then
>>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 = 持ち金 - 購入金額 'おつり
end if
>>on error goto 0
>>
>>next x
はずしていたらごめんなさい
|
|