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

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

┏━[PR]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　WordPressに特化したクラウドサービス『wpXクラウド』
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DDNP6A+CO4+ZXAN7
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛





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

人気ブログランキングへ




にほんブログ村


エラーについて

エラーが出ても無視したい場合は最初にOn Error Resume Nextを追記します。



最初にOn Error Resume Nextを記述しておけば途中でエラーが出ても

無視して次の処理に進みます。

上の例の場合、数学に良が入っているのは変数「ten」が「国語」の

「65」のままだったので「良」になっています。


エラーはErrオブジェクトにより、エラー内容を知ることが出来ます。

例）下の例はメッセージボックスで表示させる例です。

ジャンプ先に下の記述をすると表示されます。

MsgBox "エラー番号:" & Err.Number・・・・・・エラー番号

MsgBox "エラー内容：" & Err.Description・・・エラー番号に対応する文字列

MsgBox "ヘルプファイル名" & Err.HelpContext・・・ヘルプファイルに対応する

コンテキスト番号

MsgBox "プロジェクト名：" & Err.Source・・・現在のプロジェクト名



これは最初のエラー番号を表示した場合です。



次に「型が一致しません」と表示されます。



ヘルプファイル番号が表示されます。



最後にプロジェクト名が表示され終了します。




A8.netなら！
------------------------------------------------
◇スマートフォンやPCから簡単に広告が掲載可能

◇もちろん会員登録は無料。その後も費用はかかりません！

◇欲しい商品がお得に購入できるセルフバックの利用ができる

◇有名ブランドから高額報酬がもらえる広告を掲載

-----------------------------------------------
アフィリエイトを始めるならA8.net（エーハチネット）
まずは登録→　https://px.a8.net/svt/ejp?a8mat=2NQXR8+BN56NM+0K+ZXXSJ

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[PR]━┓
　高速・多機能・高安定レンタルサーバー『エックスサーバー』
　─────────────────────────────────
・月額900円(税抜)から、大容量200GBからの高コストパフォーマンス
・安定のサーバー稼働率99.99％以上
・高速性を重視し、最新20コアCPU（Xeon E5シリーズ）＋192GBメモリ
　＋RAID10を採用！
・幅広いバージョンのPHPやSSHに対応！
・初心者でも安心の24時間365日メールサポート！
　─────────────────────────────────
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DG1FLE+CO4+5ZU2B
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛




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

人気ブログランキングへ




にほんブログ村

On Errorステートメント


プロシージャ内でエラーが発生した時に使用し、

GoToステートメントによってエラー処理に制御を移します。



今、数学の点数を「良」としています。

Sub 点数4()

On Error GoTo erorr


Dim i As Integer

Dim ten As Integer

i = 2

Do

ten = Sheets("sheet1").Cells(i, 2)

If ten < 50 Then

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

ElseIf ten < 75 Then

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

ElseIf ten < 100 Then

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

End If

i = i + 1

Loop Until Sheets("sheet1").Cells(i, 1) = ""

erorr:

Exit Sub

End Sub

上記のプログラムを見て頂ければ分かるように、

今回は点数を変数（ten）にしています。

そしてtenは数値型の宣言をしています。

ですから当然「数学」の点数が「良」なのでエラーが発生しますね。

最初の「On Error GoTo erorr」はエラーの場合はerorrの場所まで

ジャンプするように指示しています。

もしこの行が無ければ、通常のエラー表示が出ます。



今回「On Error GoTo erorr」を挿入することにより、エラーが発生すると

「erorr:」まで飛び、Exit Subを実行します。

要するにこのプログラムを終了せよということです。

これを実行すると下のように「国語」が「良」になり、

そこでエラーが発生するので、プログラムは終了になります






１００ＧＢ大容量無制限レンタルサーバー、ドメインも激安【Ｘ２】
https://px.a8.net/svt/ejp?a8mat=2NR2G3+DEUKDU+CO4+TWE03

１００ＧＢ、マルチドメインやMySQLが無制限。CGI・PHP高速化機能搭載【Ｘ２】





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

人気ブログランキングへ




にほんブログ村

GoTo ステートメント


プログラム内で処理を分岐させる場合に使用します。

【構文】

GoTo LABEL名

LABEL名：

プログラムの処理の途中で、どこか別の処理に飛ばしたい時などに使用します。

イメージとして、ラベルシートを自動で作るプログラムがあったとします。

１シート８枚のラベルを作れるとして、１００件分のシートを作りたいとします。

８件処理した段階で印刷という処理を繰り返した場合、１２回繰り返すと

９６件の処理が終わったことになりますね。

しかし４件残っています。

ここで４件処理した段階で繰り返し処理を中断して、一気に印刷へ進ませたい、

という場合などに使用できます。

いま、たまたま１００件という数字を出しましたが、

それならば繰り返しが１００回になった時にGoTo ステートメントを使用して

LABEL名まで飛ばせば処理は完了します。







If i=101 Then

　GoTo Print

End If

Print：

Sheets("Sheet2").PrintOut

上記のように変数iが101になったときにPrintという名前がついた場所へ

移動せよという命令文です。

Print：は離れた場所にあるものと仮定します。名前は自由につけて下さい。

ただしGoTo分は1つのプログラム内に多用すると分かりにくくなるので

なるべく使用しない方がいいでしょう。




:*:・゜★゜'・:*:.。.:*:・'゜☆.:*:・゜★゜'・:*:・゜
　　★　人気の法人用ガソリンカードを作ろう！ ★　
======================================================
　とにかく人気の法人向けガソリンカードが作れます。
　クレジット機能が付いていないから新会社でもＯＫ！

https://px.a8.net/svt/ejp?a8mat=2NOYJE+1JYT6Q+3EV2+HVNAR

☆エステ体験「美脚時代コース」エルセーヌ
https://px.a8.net/svt/ejp?a8mat=2NSTUY+9X83QQ+1HK2+1ZJG1V




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

人気ブログランキングへ




にほんブログ村

Exitステートメント


処理の途中でその処理から抜ける場合に使用します。

Exit Do・・・Do〜Loopの処理中に抜ける場合に使用します。

Exit For・・・For〜Next

Exit Sub・・・プログラムの処理から抜けます・・・プログラムが終了します。

その他色々ありますが代表的なものをあげておきます。

例）前回Do〜Loopで紹介したプログラムです。

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

上記で最後のところに

Loop While Sheets("sheet1").Cells(i, 1) <> ""とあります。

これはループを終了する条件式ですね。

ここの代わりに

If i=7 Then

　Exit Do

End If

上記のようにすると変数「i」が7になったときにDoから抜けるという内容になります。

For〜Nextでも同じように使用できます。

Subの場合でも何か条件付けして「この条件」の場合はプログラムを終了させる

という場合に使用します。

例）


Sub msg()

If Sheets("sheet2").Range("b4") = "" Then

MsgBox "入力してください"

Exit Sub

End If

End Sub

上記の場合、B4が空白のままプログラムを実行した場合は

「何か入力してください」というメッセージが表示され、「ＯＫ」を押すと、

Subから抜けてこのプログラムは終了します。

何か入力されている場合はメッセージもなく普通に終了いたします。

上記ようなプログラムはよく使用します。

何項目か入力してもらった後に処理を実行するというプログラムの場合に、

未入力項目があった場合に上記のようなプログラムを入れて入力を

促すような使い方がされます。




┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[PR]━┓
　高速・多機能・高安定レンタルサーバー『エックスサーバー』
　─────────────────────────────────
・月額900円(税抜)から、大容量200GBからの高コストパフォーマンス
・安定のサーバー稼働率99.99％以上
・高速性を重視し、最新20コアCPU（Xeon E5シリーズ）＋192GBメモリ
　＋RAID10を採用！
・幅広いバージョンのPHPやSSHに対応！
・初心者でも安心の24時間365日メールサポート！
　─────────────────────────────────
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DG1FLE+CO4+5ZU2B
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

┏━[PR]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　WordPressに特化したクラウドサービス『wpXクラウド』
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DDNP6A+CO4+ZXAN7
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛





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

人気ブログランキングへ




にほんブログ村

Withステートメント

With〜End　Withステートメント

同じオブジェクトに複数の処理を実行する方法として使用されます。

【構文】

With　オブジェクト名

　　　処理1

処理2

　　　処理3・・・

End　With

何故Withを使用するかというと「With〜End With」間は最初に指定した

オブジェクト名を省略するためです。

本来は「オブジェクト．プロパティ＝値」という形式にしなければならないところを

「．プロパティ＝値」で記載することが出来ます。




例）

Worksheets(“Sheet1”).Range(“A2”)=1

Worksheets(“Sheet1”).Range(“A3”)=2

というところが

With Worksheets(“Sheet1”).Range(“A2”)=1

.Range(“A3”)=2

End With

上記のようになります。

2つ目の「Worksheets(“Sheet1”).Range(“A3”)=2」の部分の

「Worksheets(“Sheet1”)」が省略することが出来、「．」から

書き始めればよいことになります。

項目が多い場合は非常に助かりますし、コードも見やすくなります。

セルの書式設定の際によく使用されます。




A8.netなら！
------------------------------------------------
◇スマートフォンやPCから簡単に広告が掲載可能

◇もちろん会員登録は無料。その後も費用はかかりません！

◇欲しい商品がお得に購入できるセルフバックの利用ができる

◇有名ブランドから高額報酬がもらえる広告を掲載

-----------------------------------------------
アフィリエイトを始めるならA8.net（エーハチネット）
まずは登録→　https://px.a8.net/svt/ejp?a8mat=2NQXR8+BN56NM+0K+ZXXSJ

┏━[PR]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　WordPressに特化したレンタルサーバー『wpXレンタルサーバー』
　─────────────────────────────────
　・最新の高性能サーバーマシン＆高速ネットワーク
　・大容量30GB、月額1,000円(税抜)〜
　・リバースプロキシによるキャッシュなど、専用の高速システムを採用
　・専用の管理ツールから簡単セットアップ
　・過去14日間のデータの自動バックアップ機能
　・独自ドメイン対応 ＆ 1契約につき10個のWordPress運用が可能
　─────────────────────────────────
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DDNP6A+CO4+ZR2VN
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛




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

人気ブログランキングへ




にほんブログ村


Untilを使用する方法


「Until条件式」で「False」である場合に繰り返しが実行されます。

Do　Until　条件式

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

Loop

例）



Sub 点数3()

Dim i As Integer

i = 2

Do Until 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 Until Sheets("sheet1").Cells(i, 1) = ""」の<>が＝になっただけです。

このUntilも条件式を後ろに持っていくことが出来ます。



上記のように同じ結果が得られます。




:*:・゜★゜'・:*:.。.:*:・'゜☆.:*:・゜★゜'・:*:・゜
　　★　人気の法人用ガソリンカードを作ろう！ ★　
======================================================
　とにかく人気の法人向けガソリンカードが作れます。
　クレジット機能が付いていないから新会社でもＯＫ！

https://px.a8.net/svt/ejp?a8mat=2NOYJE+1JYT6Q+3EV2+HVNAR

こだわりブログをつくるなら【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日間、無料でお試しいただけるので、初心者の方やネットショップ作成サービスで悩んでいる方も、安心してご利用いただけます。

カラーミーショップはリアルな店舗を持っていなくても、ネットを通じて商品を販売する楽しみを多くの人に実感してもらえるショッピングカートです。これまでに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
┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘

A8.netなら！
------------------------------------------------
◇スマートフォンやPCから簡単に広告が掲載可能

◇もちろん会員登録は無料。その後も費用はかかりません！

◇欲しい商品がお得に購入できるセルフバックの利用ができる

◇有名ブランドから高額報酬がもらえる広告を掲載

-----------------------------------------------
アフィリエイトを始めるならA8.net（エーハチネット）
まずは登録→　https://px.a8.net/svt/ejp?a8mat=2NQXR8+BN56NM+0K+10EFXF




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

人気ブログランキングへ




にほんブログ村

For〜Nextステートメント

繰り返す回数が決まっている場合は「For〜Nextステートメント」を使用します。

【構文】

　For　変数＝初期値　To　回数

　　繰り返しの処理

　Next

例）


Sub 点数()

Dim i As Integer

For i = 2 To 6

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

Next

End Sub

上記のような記述ですべての教科に結果が表示されます。

先ほどまでセルの表示をRangeで表示していましたが、

セルを変数で表示する場合はCellsを使用します。

上から順番にプログラムが進んで行き、最後のNextに来た時に

変数「i」が「＋1」されます。

そのため行も1行ずつ「＋1」されます。

変数「i」が２から始まって６になったら終了です。




　『絶賛された雲のやすらぎマットレス版が遂に商品化！！』

☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

「雲のやすらぎ」でこだわり抜いたのは『雲に浮いてるような感覚』です。

☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆


　厚さ27cmの極厚13層高反発マットレス！
更に、極上高反発ポケットコイル採用で寝心地抜群！


　13層やすらぎマットレスのもっと詳細が知りたい方はこちら
↓　　　↓　　　↓　　　↓
https://px.a8.net/svt/ejp?a8mat=2NR03N+ZQ12Q+2DDC+4MQ0J7

おすそわけ村のザクザク長崎カステラ






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

人気ブログランキングへ




にほんブログ村


Select Case〜ステートメント


If 〜Elseステートメントと似ています。

【構文】

Select Case 変数

　　Case　値1

　　　変数が値1の場合の処理

　　Case　値2

　　　変数が値2の場合の処理

　　Case　値3

　　　変数が値3の場合の処理

　　Case　Else

　変数が値1〜値3に満たなかった場合の処理

End　Select




例）

Sub 点数2()

Select Case Sheets("sheet1").Range("b2")

Case Is < 50

Range("c2") = "不可"

Case Is < 75

Range("c2") = "良"

Case Is < 100

Range("c2") = "優"

End Select

End Sub

上記の場合も最初のIf 〜Elseステートメントと同じ結果が得られます。



条件により繰り返したい場合に使用するステートメントですが、

色々ありますので一つずつ行きましょう。

VBAで効率アップしたい時に、一番効果が表れるのがこの繰り返しです。

Excelの作業で同じことを何度も繰り返さなければならない場面に

遭遇することがあると思います。

そのような時に「自動化出来ないか」と考えて、

VBAにたどり着くことが多いと思います。





4種の「巡る」ハーブエキス配合【メグリスリコピンプラス】