＜分類：値抜き取り＞ ＜使用例：123.4567という小数点を含む値を整数部下2桁(23)と小数部上3桁(456)に分ける＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim rtn1 As String Dim rtn2 As String '123.4567 s = "123.4567" Call 部品_小数分離(s, rtn…

＜分類：値抜き取り＞ ＜使用例：123.456という小数点を含む値を整数部(123)と小数部(456)に分ける＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim rtn1 As String Dim rtn2 As String '123.456 s = "123.456" Call 部品_小数分離(s, rtn1, rtn2) Msg…

＜分類：値抜き取り＞ ＜使用例：文字列から特定の文字の抽出＞＜プログラム例＞ 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…