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
Excel VBA Sample 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...
Excel VBA Sample VBA 斜線
斜線を引くSub zsDrawDiagonalLine() Dim ws1 As Worksheet Dim tRng As Range Dim allRng As Range Dim i As Long, j As Long, k As ...
Excel VBA Sample VBA 配列の中に配列を入れてみた
Sub 配列test() Dim i As Long, j As Long Dim arr1 As Variant Dim arr2 As Variant Dim arrAll(2) As Variant arr1 = Range("A1:...
Excel VBA Sample VBA 戻り値を配列
Function zf配列を戻り値(ByVal dataStr As String) As Variant() Dim returnArr() As Variant Select Case dataStr Case "あ" returnAr...