2017年04月23日
ExcelVBA入門,GoToステートメント
100GB、マルチドメインやMySQLが無制限。CGI・PHP高速化機能搭載【X2】
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
GoTo ステートメント
プログラム内で処理を分岐させる場合に使用します。
【構文】
GoTo LABEL名
LABEL名:
プログラムの処理の途中で、どこか別の処理に飛ばしたい時などに使用します。
イメージとして、ラベルシートを自動で作るプログラムがあったとします。
1シート8枚のラベルを作れるとして、100件分のシートを作りたいとします。
8件処理した段階で印刷という処理を繰り返した場合、12回繰り返すと
96件の処理が終わったことになりますね。
しかし4件残っています。
ここで4件処理した段階で繰り返し処理を中断して、一気に印刷へ進ませたい、
という場合などに使用できます。
いま、たまたま100件という数字を出しましたが、
それならば繰り返しが100回になった時にGoTo ステートメントを使用して
LABEL名まで飛ばせば処理は完了します。
If i=101 Then
GoTo Print
End If
Print:
Sheets("Sheet2").PrintOut
上記のように変数iが101になったときにPrintという名前がついた場所へ
移動せよという命令文です。
Print:は離れた場所にあるものと仮定します。名前は自由につけて下さい。
ただしGoTo分は1つのプログラム内に多用すると分かりにくくなるので
なるべく使用しない方がいいでしょう。
:*:・゜★゜'・:*:.。.:*:・'゜☆.:*:・゜★゜'・:*:・゜
★ 人気の法人用ガソリンカードを作ろう! ★
======================================================
とにかく人気の法人向けガソリンカードが作れます。
クレジット機能が付いていないから新会社でもOK!
https://px.a8.net/svt/ejp?a8mat=2NOYJE+1JYT6Q+3EV2+HVNAR
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
GoTo ステートメント
プログラム内で処理を分岐させる場合に使用します。
【構文】
GoTo LABEL名
LABEL名:
プログラムの処理の途中で、どこか別の処理に飛ばしたい時などに使用します。
イメージとして、ラベルシートを自動で作るプログラムがあったとします。
1シート8枚のラベルを作れるとして、100件分のシートを作りたいとします。
8件処理した段階で印刷という処理を繰り返した場合、12回繰り返すと
96件の処理が終わったことになりますね。
しかし4件残っています。
ここで4件処理した段階で繰り返し処理を中断して、一気に印刷へ進ませたい、
という場合などに使用できます。
いま、たまたま100件という数字を出しましたが、
それならば繰り返しが100回になった時にGoTo ステートメントを使用して
LABEL名まで飛ばせば処理は完了します。
If i=101 Then
GoTo Print
End If
Print:
Sheets("Sheet2").PrintOut
上記のように変数iが101になったときにPrintという名前がついた場所へ
移動せよという命令文です。
Print:は離れた場所にあるものと仮定します。名前は自由につけて下さい。
ただしGoTo分は1つのプログラム内に多用すると分かりにくくなるので
なるべく使用しない方がいいでしょう。
:*:・゜★゜'・:*:.。.:*:・'゜☆.:*:・゜★゜'・:*:・゜
★ 人気の法人用ガソリンカードを作ろう! ★
======================================================
とにかく人気の法人向けガソリンカードが作れます。
クレジット機能が付いていないから新会社でもOK!
https://px.a8.net/svt/ejp?a8mat=2NOYJE+1JYT6Q+3EV2+HVNAR
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/6197739
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック