エクセル（Excel）の技。知ってましたか・・・。

カラーミーショップはリアルな店舗を持っていなくても、ネットを通じて商品を販売する楽しみを多くの人に実感してもらえるショッピングカートです。これまでに23万を超えるユーザー様からお申込みをいただいております。

カラーミーショップなら誰かに（大手に）頼らなくても、あなた好みのネットショップを作れます。あなたがセレクトした商品や作った商品の魅力を伝え、それを欲しいと思ってくれる人にお届けしてみませんか。

30日間、無料でお試しいただけるので、初心者の方やネットショップ作成サービスで悩んでいる方も、安心してご利用いただけます。





マイクロソフトアクセスの記事はこちら

人気ブログランキングへ




にほんブログ村


Do〜Loopステートメント


条件によって繰り返す場合は「Do〜Loopステートメント」を使用します。

【構文】

Do　While　条件式

　条件を満たすまで繰り返し

Loop

例）


Sub 点数3()

Dim i As Integer

i = 2

Do While Sheets("sheet1").Cells(i, 1) <> ""

If Sheets("sheet1").Cells(i, 2) < 50 Then

Cells(i, 3).Value = "不可"

ElseIf Sheets("sheet1").Cells(i, 2) < 75 Then

Cells(i, 3).Value = "良"

ElseIf Sheets("sheet1").Cells(i, 2) < 100 Then

Cells(i, 3).Value = "優"

End If

i = i + 1

Loop

End Sub

最初の「Do While Sheets("sheet1").Cells(i, 1) <> ""」ですが、

Cells(i, 1)というのはA2のことですね。

「A2が空白でなければ処理を実行せよ」という意味です。

Loopの前に「i = i + 1」と入れて変数を増やしています。

そして変数が増えていき「i=7」になったとき

「Do While Sheets("sheet1").Cells(i, 1) <> ""」の条件が

満たされなくなりLoopは終了します。

このように繰り返し回数が不明な場合はDo〜Loopステートメントを

使用して条件で繰り返しを終了させます。




┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘
気軽に・お得に・稼ぎたいなら「A8.net」に登録！！
https://px.a8.net/svt/ejp?a8mat=2TAC5M+14HJGI+1N3S+6AAFLV
┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘