Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


47798 / 76738 ←次へ | 前へ→

【33886】Re:FIND
発言  記録マクロに毛が3本  - 06/1/23(月) 11:13 -

引用なし
パスワード
   横から失礼します

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

はずしていたらごめんなさい

0 hits

【33561】FIND ゼロイオン 06/1/15(日) 17:43 質問
【33562】Re:FIND かみちゃん 06/1/15(日) 17:50 回答
【33567】Re:FIND BB 06/1/15(日) 19:43 発言
【33624】Re:FIND ゼロイオン 06/1/16(月) 23:50 お礼
【33867】Re:FIND ゼロイオン 06/1/23(月) 5:16 質問
【33868】Re:FIND プルート 06/1/23(月) 6:13 発言
【33869】Re:FIND プルート 06/1/23(月) 6:37 発言
【33870】Re:FIND ゼロイオン 06/1/23(月) 7:09 質問
【33873】Re:FIND プルート 06/1/23(月) 7:34 発言
【33874】Re:FIND プルート 06/1/23(月) 7:51 発言
【33875】Re:FIND ゼロイオン 06/1/23(月) 8:39 質問
【33876】Re:FIND プルート 06/1/23(月) 9:11 発言
【33877】Re:FIND ゼロイオン 06/1/23(月) 9:18 発言
【33878】Re:FIND プルート 06/1/23(月) 9:24 発言
【33886】Re:FIND 記録マクロに毛が3本 06/1/23(月) 11:13 発言
【33933】Re:FIND ゼロイオン 06/1/24(火) 0:30 質問
【33934】Re:FIND プルート 06/1/24(火) 1:22 発言
【33937】Re:FIND ゼロイオン 06/1/24(火) 2:21 発言
【33935】Re:FIND かみちゃん 06/1/24(火) 1:50 発言
【33938】Re:FIND ゼロイオン 06/1/24(火) 5:36 お礼
【33939】Re:FIND かみちゃん 06/1/24(火) 6:30 発言
【34016】Re:FIND ゼロイオン 06/1/25(水) 5:03 発言
【34018】Re:FIND かみちゃん 06/1/25(水) 7:38 発言
【34019】Re:FIND メカ大好き! 06/1/25(水) 7:53 発言

47798 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free