Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17961 / 76738

←次へ　｜　前へ→


	【64221】Re:Elseの分岐

よろずや - 10/1/26(火) 19:30 -


	引用なし

	パスワード

>　　'数量に空欄がある場合 >　　Else >　　　　For i = 1 To 18 >　　　　　　If Not IsEmpty(Cells(16 + i, 2)) Then　　　 'i行目の品名 >　　　　　　　　If IsEmpty(Cells(16 + i, 9)) Then　　　 'i行目の数量 >　　　　　　　　　　chkStr = "数量が未入力の商品があります。" >　　　　　　　　　　Cells(16 + i, 9).Select >　　　　　　　　　　　　　　　　　　 >　　　　　　　　　　'Forループを抜ける >　　　　　　　　　　Exit For 　　　　　　　　 ElseIf IsEmpty(Cells(16 + i, 10)) Then　　　 'i行目の数量単位　　　　　　　　　　chkStr = "数量単位が未入力の商品があります。" 　　　　　　　　　　Cells(16 + i, 10).Select 　　　　　　　　　　　　　　　　　　　　'Forループを抜ける　　　　　　　　　　Exit For 　　　　　　　　 ElseIf IsEmpty(Cells(16 + i, 11)) Then　　　 'i行目の単価　　　　　　　　　　chkStr = "単価が未入力の商品があります。" 　　　　　　　　　　Cells(16 + i, 11).Select 　　　　　　　　　　　　　　　　　　　　'Forループを抜ける　　　　　　　　　　Exit For 　　　　　　　　End If >　　　　　　End If >　　　　Next >　　End If