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...
Excel VBA Sample

VBA 斜線用のパーツ Excelリボンに登録

'選択範囲の空白とゼロ値に斜線を引く'とりあえず、3000個分Sub myDrawBlankDiagonalLine1() Dim c As Range Dim n As Long For Each c In ActiveWindow.Ra...