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

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━[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