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

こだわりブログをつくるなら【JUGEM PLUS】！

JUGEM PLUSなら月々300円（税抜）で、高機能・フルカスタマイズ対応のブログをご利用
いただけます。

アクセス制限や広告非表示、ケータイ連動など、様々な場面で活用できる機能が
盛りだくさん。

JUGEM PLUSなら、あなたのわがまま、かなえます。






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

人気ブログランキングへ




にほんブログ村


Whileを最後に持ってくる方法


【構文】

Do　

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

Loop　 While　条件式

何が違うかと言えば、条件式を後にすると最低でも1回はプログラムが

実行されることです。

「While　条件式」を前にした場合、最初に条件式が満たされたならば

一度も処理されずに終了します。

これも結果は同じ結果が得られます。

最初と最後の処理が違うだけで見た目の結果は同じものが得られます。



Sub 点数3()

Dim i As Integer

i = 2

Do

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 While Sheets("sheet1").Cells(i, 1) <> ""

End Sub


プロセスを1行ずつ確認するとよく分かります。

下の矢印部分を押すごとに１行ずつプログラムが進んで行きます。

Excelシートを見ながら動作が確認できるので非常に便利です。






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

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

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