VBA Step2

８．関連するVBA

ステップ２に関連するVBAを説明しますので、シート[VBA説明用]を選択・表示してください。

説明２－１　シートの追加と削除

操作

次の二種類の操作をしましょう。

  • 種類１：操作-(1)と操作-(2)
  • 種類２：操作-(1)と操作-(3)

操作-(1)
1).[シートの追加]をクリックする。
[シートの追加]ボタン
次の2)から5)までは、その時点の「ActiveSheet(アクティブシート)」を表示します。「アクティブ」とは「選択している、操作ができる対象になっている」等を意味し、「シート」だけでなく「セル」にも「ActiveCell」として使用する場合があります。

 

2).[OK]をクリックする。(ActiveSheet：シート「VBA説明用」)
1.ActineSheetは「VBA説明用」

 

3).[OK]をクリックする。(ActiveSheet：シート「Sheet1」)
2.ActineSheetは「Sheet(n)」

 

4).[OK]をクリックする。(ActiveSheet：シート「説明用２－１」；シート名「Sheet1」が変更された)
3.ActineSheetは「説明２－１」

 

5).[OK]をクリックする。(ActiveSheet：シート「VBA説明用」)
4.ActineSheetは「VBA説明用」

 

6).シート[説明用２－１]がシート[VBA説明用]の後ろに追加される。
シート「説明２－１」の追加

操作-(2)
1).[シートの削除１]をクリックする。
[シートの削除１]ボタン

 

2).削除確認用メッセージが表示され、[削除]をクリックする。
削除確認用メッセージは、プロシージャではなく、Excel自体が表示しています。
削除確認メッセージ

 

3).シート[説明用２－１]が削除される。
シート「説明２－１」の削除」

操作-(3)
1).[シートの削除２]をクリックする。
[シートの削除２]ボタン

 

2).シート[説明用２－１]が削除される。
削除確認用メッセージは表示されません。
シート「説明２－１」の削除」

プロシージャ「説明用211_シートの追加」の内容

[シートの追加]ボタンのプロシージャを表示しましょう。

  1. Sub 説明用211_シートの追加()
  2. 　MsgBox "１．現在のActiveSheetは、シート[ " & ActiveSheet.Name & " ]です"
  3. 　Sheets.Add After:=ActiveSheet
  4. 　MsgBox "２．現在のActiveSheetは、シート[ " & ActiveSheet.Name & " ]です"
  5. 　On Error GoTo ERR211
  6. 　ActiveSheet.Name = "説明用２－１"
  7. 　MsgBox "３．現在のActiveSheetは、シート[ " & ActiveSheet.Name & " ]です"
  8. 　Sheets("VBA説明用").Select
  9. 　MsgBox "４．現在のActiveSheetは、シート[ " & ActiveSheet.Name & " ]です"
  10. 　Exit Sub
  11. ERR211:
  12. 　MsgBox "既にシート[説明用２－１]がありますので、このシート［Sheet n］は手作業で削除してください"
  13. End Sub
  • １行目：「Subプロシージャ」の開始
  • ２行目：ダイアログボックスに、現在の「1.ActiveSheet名」を表示
  • ３行目：[Add]命令により、現在のActiveSheetの後ろ([After:=ActiveSheet])にシートを追加
  • ４行目：ダイアログボックスに、現在の「2.ActiveSheet名」を表示
  • ５行目：On Error GoTo以下の処理がエラーになった時に、[ERR211]にジャンプ(制御を移す)
  • ６行目：シート名を [説明用２－１]に変更
  • ７行目：ダイアログボックスに、現在の「3.ActiveSheet名」を表示
  • ８行目：シート[VBA説明用]を選択
  • ９行目：ダイアログボックスに、現在の「4.ActiveSheet名」を表示
  • １０行目：このプロシージャを抜ける
  • １１行目：[ERR211]という行ラベル(プロシージャ内の特定の場所を表す)に[:]を付けて記述
  • １２行目：ダイアログボックスに、エラー時の処理を表示
  • １３行目：「Subプロシージャ」の終了

【On Error GoTo】
プロシージャ内では、次のようにエラーが発生する場合があります。

  • シート[説明用２－１]がある状態で、シート[説明用２－１]を追加
  • シート[説明用２－１]がない状態で、シート[説明用２－１]を削除

この場合、エラー処理を記述しないと異常終了します。
この異常終了を避けるために[On Error GoTo]を使用しましたが、発生したエラーを無視し処理を続行するステートメントとして[On Error Resume Next]を使用する場合もあります。

プロシージャ「説明用212_シートの削除1」の内容

[シートの削除1]ボタンのプロシージャを表示しましょう。

  1. Sub 説明用212_シートの削除1()
  2. 　On Error GoTo ERR212
  3. 　Sheets("説明用２－１").Delete
  4. 　Sheets("VBA説明用").Select
  5. 　Exit Sub
  6. ERR212:
  7. 　MsgBox "シート[説明用２－１]がありません"
  8. End Sub
  • １行目：「Subプロシージャ」の開始
  • ２行目：On Error GoTo以下の処理がエラーになった時に、[ERR212]にジャンプ(制御を移す)
  • ３行目：シート [説明用２－１]を削除
  • ４行目：シート[VBA説明用]を選択
  • ５行目：このプロシージャを抜ける(終了)
  • ６行目：行ラベル
  • ７行目：ダイアログボックスに、エラー時の処理を表示
  • ８行目：「Subプロシージャ」の終了
プロシージャ「説明用213_シートの削除2」の内容

[シートの削除2]ボタンのプロシージャを表示しましょう。

  1. Sub 説明用213_シートの削除2()
  2. 　On Error GoTo ERR213
  3. 　Application.DisplayAlerts = False
  4. 　Sheets("説明用２－１").Delete
  5. 　Application.DisplayAlerts = True
  6. 　Exit Sub
  7. ERR213:
  8. 　MsgBox "２－１シート[説明用２－１]がありません"
  9. End Sub
  • １行目：「Subプロシージャ」の開始
  • ２行目：On Error GoTo以下の処理がエラーになった時に、[ERR213]にジャンプ(制御を移す)
  • ３行目：関する確認メッセージを非表示(False)に設定
  • ４行目：シート [説明用２－１]を削除
  • ５行目：確認メッセージを表示(True)に設定
  • ６行目：このプロシージャを抜ける(終了)
  • ７行目：行ラベル
  • ８行目：ダイアログボックスに、エラー時の処理を表示
  • ９行目：「Subプロシージャ」の終了

【DisplayAlerts】
プロシージャ「説明用212_シートの削除1」と「説明用213_シートの削除2」の大きな違いは、[DisplayAlerts]命令です。
Excelでいろいろな確認、または警告のメッセージが表示された時、表示されたメッセージに対して[OK][キャンセル]等のボタンを押すまでは処理が中断されたままになります。
一連の動作を中断させたくない場合、[DisplayAlerts]を[False]に設定し確認・警告メッセージを非表示にしますが、それ以降も非表示の状態が続きますので、[DisplayAlerts]を[True]に設定し表示の状態に戻しています。

 

次にシート[実習用VBA]で実習を行いましょう。
確認が終わりましたら、VBE画面の左上[Excel]アイコンをクリックしてシート[VBA説明用]に戻りましょう。

 

前に戻る (7.ステップ１・Option Explicitとコメント)

次に進む (8.説明2-2 Select Case)

最初に戻る (株価チャート作成によるExcel VBA入門)

　
　　このエントリーをはてなブックマークに追加

 

スポンサーリンク