ray88’s diary

お仕事で困ったとき用の自分用の覚書

2020-08-23から1日間の記事一覧

VBA  On Error Go TOステートメント/Resumeステートメント

■ On Error Go To 行ラベル エラー発生時に指定した行ラベルに記述されたエラー処理を行う ■On Error Resume Next 実行時エラーが発生してもプログラムを中断せず発生個所の次にステートメントから処理を継続する ■On Error GoTo 0 エラートラップを無効化す…

動的配列の要素数を変更する

■Redimステートメントで要素数を変更する ■Redimステートメントで要素数を変更すると、それまで格納されていた値は全て消える ■既存の値を残したまま要素数のみ変更する場合はRedimステートメントにキーワードPreserveをつけて実行する Sub testArray() '配…

Temp_config

Option Explicit '--------------------------------------------------------------- '各種定数の宣言 Public Const strToolSheetName As String = "Sheet1" Public Const strMasterSheetName As String = "マスタ" Public Const strConfigSheetName As Str…

Temp_Module1

Option Explicit Sub Main() '----------------------------------------- '各モジュールの呼び出し順序 '①checkBlankcell '②fncIsExistsDir '①GetSbfoleder '②fncCheckPdfFileName '③fncCheckExcelFileName '③fncSheetExists '④outputPDF '----------------…

Temp_ボタン処理

Option Explicit Sub selectFolderPath() '------------------------------------------------------ '機能:ダイアログを表示し、選択したフォルダのパスを返す '------------------------------------------------------ Dim targetPath As String Dim obj…