2020-08-23から1日間の記事一覧
■ On Error Go To 行ラベル エラー発生時に指定した行ラベルに記述されたエラー処理を行う ■On Error Resume Next 実行時エラーが発生してもプログラムを中断せず発生個所の次にステートメントから処理を継続する ■On Error GoTo 0 エラートラップを無効化す…
■Redimステートメントで要素数を変更する ■Redimステートメントで要素数を変更すると、それまで格納されていた値は全て消える ■既存の値を残したまま要素数のみ変更する場合はRedimステートメントにキーワードPreserveをつけて実行する Sub testArray() '配…
Option Explicit '--------------------------------------------------------------- '各種定数の宣言 Public Const strToolSheetName As String = "Sheet1" Public Const strMasterSheetName As String = "マスタ" Public Const strConfigSheetName As Str…
Option Explicit Sub Main() '----------------------------------------- '各モジュールの呼び出し順序 '①checkBlankcell '②fncIsExistsDir '①GetSbfoleder '②fncCheckPdfFileName '③fncCheckExcelFileName '③fncSheetExists '④outputPDF '----------------…
Option Explicit Sub selectFolderPath() '------------------------------------------------------ '機能:ダイアログを表示し、選択したフォルダのパスを返す '------------------------------------------------------ Dim targetPath As String Dim obj…