＜分類：ワークシート操作＞ ＜使用例：ワークシートを追加して名前を設定する＞＜プログラム例＞ Sub 使用例() Call 部品_ワークシート追加("新しいワークシート名") End Sub Sub 部品_ワークシート追加(p1) Dim ws_maxsu As Long Dim i As Long Dim flg As…

＜分類：ワークシート操作＞ ＜使用例：特定のワークシート以外を削除する＞＜プログラム例＞ Sub 使用例() Dim sname As Variant '下記に削除したくないワークシート名を指定 sname = Array("Sheet1", "Sheet2") Call 特定のワークシート以外を削除(sname) …

＜分類：値抜き取り＞ ＜使用例：文字列から特定の文字の抽出＞＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String Dim fr_moji As String Dim to_moji As String Dim fr_ix As Long Dim s0 As String '文字中のダブルコーテーションの書き方…

＜分類：値抜き取り＞ ＜使用例：ファイルパス名からフォルダパス名を取出す＞＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String s = "C:\Users\aaa\Desktop\test.xls" s2 = 共通_ファイルパスからフォルダパス名取出し(s) MsgBox ("フォルダ…

＜分類：値取得＞ ＜使用例：ファイルパスから２階層上のフォルダ名を取出す＞＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String Dim n As String 'フルパス '例 １階層上のフォルダ名はDesktop '例 2階層上のフォルダ名はaaa '例 3階層上の…

＜分類：値取得＞ ＜使用例：ファイルパスから１階層上のフォルダ名を取出す＞＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String Dim n As String 'フルパス '例 １階層上のフォルダ名はDesktop '例 2階層上のフォルダ名はaaa '例 3階層上の…

＜分類：値取得＞ ＜使用例：ファイルパスから下層フォルダを先頭に番号(インデックス)で取出し＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String Dim n As String 'フルパス '例 １階層上のフォルダ名はDesktop '例 2階層上のフォルダ名…

＜分類：値取得＞ ＜使用例：ファイルパスからフォルダの数を調べる＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String s = "C:\Users\aaa\Desktop\test.xls" s2 = 共通_フォルダ階層数(s) MsgBox ("フォルダ階層数は " & s2 & " です") En…

＜分類：値抜き取り＞ ＜使用例：ファイルパスからファイル名取出し＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim s2 As String s = "C:\Users\aaa\Desktop\test.xls" s2 = 共通_ファイルパスからファイル名取出し(s) MsgBox ("ファイル名は " & s2…