Excel VBA Sample VBA エラートラップとユーザ定義 エラートラップのMyテンプレート同じ処理コードを書くのは嫌だから、すぐにパーツ化するすごく便利だし、メンテナンス性が向上するただ、エラー制御や処理中断した場合が面倒になってくるんだよね。それで、今回は、すっきりで、テンプレートをつくってみた... 2025.06.04 Excel VBA Sampleエラー制御
Excel VBA Sample VBA ファイルオブジェクト利用 コピーと移動 ファイルのコピー(CopyFile)Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFile "C:\MyTest\sample.tx... 2025.06.04 Excel VBA Sampleファイル・フォルダ
Excel VBA Sample VBA ファイルオブジェクト 小ネタ ファイル存在確認(FileExists)' === ▼ 1. ファイル存在確認(FileExists) ===Public Sub Tip_FileExists() Dim fso As Object: Set fso = CreateOb... 2025.06.04 Excel VBA Sampleファイル・フォルダ
Excel VBA Sample VBA Dir関数 vs FileSystemObject(FSO) 比較 どちらを利用したら良いか?NoやりたいことDir関数(標準VBA)例FSO(参照設定要)例備考1ファイルの存在確認If Dir(path) <> "" ThenIf fso.FileExists(path) ThenDirはvbNormal... 2025.06.03 Excel VBA Sampleファイル・フォルダ
Excel VBA Sample VBA エラー制御 VBA エラートラップの基本構文On Error GoTo ラベル名→ エラー発生時に指定のラベルにジャンプ(最も一般的)On Error Resume Next→ エラーを無視して次の行に進む(慎重に使う)On Error GoTo 0→... 2025.06.03 Excel VBA Sampleエラー制御
Excel VBA Sample VBA セルを検索 Findメソッドでセル内を検索するセル範囲内で検索する戻り値:Rangeオブジェクト一致するデータが見つからなかった場合、Nothingを返すRangeオブジェクト.Find(What, After, LookIn, LookAt, Sea... 2025.01.09 Excel VBA Sampleセル
Excel VBA Sample VBA 一次元配列のソート バブルソート隣同士の値を比較、必要があれば入れ替えを繰り返して整列するSub zsBubbleSort1(ByRef dataAry() As Variant) Dim temp As Variant Dim i As Long, j As... 2025.01.09 Excel VBA Sample配列
Excel VBA Sample VBA AdvancedFilter Sub AdvancedFilterSample() Dim dataRng As Range 'データ範囲(見出し要) Dim searchRng As Range '抽出条件範囲(見出し要) Dim copyToRng As Range... 2025.01.05 Excel VBA Sampleシート
Excel VBA Sample VBA ワークシート操作 ワークシートの追加ワークシートオブジェクト.Add(Before, After, Count, Type)Before:指定シートの前に追加After:指定シートの後ろに追加Count:追加するシート数を指定Type:xlChart、xlW... 2025.01.04 Excel VBA Sampleシート
Excel VBA Sample VBA 斜線用のパーツ Excelリボンに登録 '選択範囲の空白とゼロ値に斜線を引く'とりあえず、3000個分Sub myDrawBlankDiagonalLine1() Dim c As Range Dim n As Long For Each c In ActiveWindow.Ra... 2024.12.26 Excel VBA Sampleセル