＜分類：値抜き取り＞ ＜使用例：文字列( 123456789 ABCDEF )から(123456789 ABCDEF)＞ ＜プログラム例＞ ＜分類：値抜き取り＞ Sub 使用例() Dim s As String s = " 123456789 ABCDEF " MsgBox (共通_文字列抜出し両端空白削除(s)) End Sub Function 共通_…

＜分類：値取得＞ ＜使用例：①上から下方向へデータの入った連続した行の最終行を取得、また、②Excelの最大行から上方向にデータが存在する行まで調べて最終行を取得 ①と②お互い一致したら正常、不一致だったら、データの行間に隙間があるので異常（最終行取…

＜分類：値取得＞ ＜使用例：対象範囲(開始)の日付(2019/8/16)時間(02:00:00)～対象範囲(終了)の日付(2019/8/16)時間(13:00:00)の平均値(30.375)を取得する＞ ＜注意：サンプルデータを作成するプログラムになっていますので、Sheet1は何もデータがないシー…

＜分類：判定＞ ＜使用例：対象範囲(開始)の日付と時間、対象日付と時間、対象範囲(終了)の日付と時間(13:00:00)をセットして、範囲内の場合は内、範囲外の場合は外と判定する＞ ＜具体例：対象範囲(開始)の日付(2019/8/16)時間(02:00:00)≦対象の日付(2019/8…

＜分類：判定＞ ＜使用例：時間が何時ジャストであるか判定する＞ ＜00:00:00 → 判定結果：ジャスト＞ ＜00:00:01 → 判定結果：ジャストではない＞ ＜23:00:00 → 判定結果：ジャスト＞ ＜23:30:00 → 判定結果：ジャスト＞ ＜23:00:30 → 判定結果：ジャストで…

＜分類：判定＞ ＜使用例：時間が何時ジャストであるか判定する＞ ＜00:00:00 → 判定結果：ジャスト＞ ＜00:00:01 → 判定結果：ジャストではない＞ ＜23:00:00 → 判定結果：ジャスト＞ ＜23:30:00 → 判定結果：ジャストではない＞ ＜23:00:30 → 判定結果：ジ…

＜分類：値変換＞ ＜使用例：時間をT＋数字羅列の時間に変換する 00:01:02 → T000102＞ ＜なぜTをつけるか？先頭0の時が数字として変換されてしまうのであえてTをつけて完全文字列となるようにする＞ ＜プログラム例＞ Sub 使用例() Dim t As String Dim s A…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から当月第何週目の何曜日か(日5)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn1 As String date_moji = "20190324" rtn1 = 共通_文字列の日付から当月第何週目の何曜日(d…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から当月何回目の何曜日か(日4)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn1 As String date_moji = "20190324" rtn1 = 共通_文字列の日付から当月何回目の何曜日(date_…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から当月末日の日付(20190331)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn1 As String Dim rtn2 As String date_moji = "20190324" rtn1 = 共通_文字列の日付から末日(d…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から当月1日の日付(20190301)の曜日(金)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim date_moji2 As String Dim rtn1 As String date_moji = "20190324" date_moji2 = Left(d…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から年(2019)月(3)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn_date As Date Dim rtn1 As String Dim rtn2 As String date_moji = "20190324" rtn_date = 共通_cov_date…

＜分類：値変換＞ ＜使用例：文字列の日付(20190324)から年(2019)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn_date As Date Dim rtn1 As String date_moji = "20190324" rtn_date = 共通_cov_date_9d(date_moji) rtn1 = (Y…

＜分類：値変換＞ ＜使用例：文字列の日付(20190223)から曜日(土)を表示する＞ ＜プログラム例＞ Sub 使用例() Dim date_moji As String Dim rtn1 As String date_moji = "20190223" rtn1 = 共通_文字列の日付から曜日(date_moji) MsgBox ("文字列の日付" & …

＜分類：値変換＞ ＜使用例：数字(3)を任意の桁(4)に合わせて先頭から0(ゼロ)を設定して文字列表示(0003)する＞ ＜プログラム例＞ Sub 使用例() Dim suuji As Long Dim keta As Long Dim rtn1 As String suuji = 3 keta = 4 rtn1 = 数字の先頭0埋め(suuji, k…

＜分類：値変換＞ ＜使用例：小文字が含まれる文字列(abcdef)を大文字(ABCDEF)に変換する＞ ＜プログラム例＞ Sub 使用例 Dim s As String Dim s2 As String s = "abcdef" s2 = StrConv(s, vbUpperCase) MsgBox (s & "の文字列を" & s2 & "に変換しました") …

＜分類：値変換＞ ＜使用例：大文字が含まれる文字列(ABCDEF)を小文字(abcdef)に変換する＞ ＜プログラム例＞ Sub 使用例 Dim s As String Dim s2 As String s = "ABCDEF" s2 = StrConv(s, vbLowerCase) MsgBox (s & "の文字列を" & s2 & "に変換しました") …

＜分類：値変換＞ ＜使用例：半角が含まれる文字列(ABCDEF)を全角(ＡＢＣＤＥＦ)に変換する＞ ＜プログラム例＞ Sub 使用例 Dim s As String Dim s2 As String s = "ABCDEF" s2 = StrConv(s, vbWide) MsgBox (s & "の文字列を" & s2 & "に変換しました") End…

＜分類：値変換＞ ＜使用例：全角が含まれる文字列(ＡＢＣＤＥＦ)を半角(ABCDEF)に変換する＞ ＜プログラム例＞ Sub 使用例 Dim s As String Dim s2 As String s = "ＡＢＣＤＥＦ" s2 = StrConv(s, vbNarrow) MsgBox (s & "の文字列を" & s2 & "に変換しまし…

＜分類：ステータスバー制御＞ ＜使用例：ステータスバーに処理中...を表示する。ステータスバー表示時間間隔はパラメータで調整可能現在10000000で設定＞ ＜プログラム例＞ Sub 使用例() Dim i As Long Application.StatusBar = False For i = 1 To 50 Call…