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