＜分類：ハイパーリンク制御＞ ＜使用例：ハイパーリンクがクリックされた座標によって処理を分岐する＞ ＜注意：サンプルデータを作成するプログラムになっていますので、Sheet1は何もデータがないシートをご用意ください＞ ＜プログラム例＞ Sub 使用例() …

＜分類：値変換＞ ＜使用例：カラムindex値(x座標)をExcelレンジのＸ部分(アルファベット部分)に変換する＞ ＜プログラム例＞ Sub 使用例() Dim x As Long Dim s As String 'x座標28はレンジのx部分はAB x = 28 s = 共通_カラムindexをレンジX部分に変換(x) …

＜分類：データベース＞ ＜使用例：MySQLデータベースと接続してExcelのSheet1の内容をテーブルにINSERTする＞ ＜MySQLのサンプルデータベースの構成 ※予め作成しておく＞ ＜データベース：dbtest1＞ ＜テーブル：testtbl1＞ ＜テーブルのフィールド：no_id(…

＜分類：データベース＞ ＜使用例：MySQLデータベースと接続してテーブルの内容をセルに表示する＞ ＜MySQLのサンプルデータベースの構成 ※予め作成しておく＞ ＜データベース：dbtest1＞ ＜テーブル：testtbl1＞ ＜テーブルのフィールド：no_id(int型)とnai…

＜分類：値抜き取り＞ ＜使用例：文字列( 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…

＜分類：値抜き取り＞ ＜使用例：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…

＜分類：値取得＞ ＜使用例：指定時間(15:04:00)を超えた次の行のＣ列の値を取得する＞ ＜注意：サンプルデータを作成するプログラムになっていますので、Sheet1は何もデータがないシートをご用意ください＞ ＜プログラム例＞ A B C 1 2018/11/18 15:00:00 1…

＜分類：判定＞ ＜使用例：比較元の日付(2018/11/10)と時間(23:59:59)、比較先の日付(2018/11/11)と時間(00:00:00)をセットして、時間が比較元より大きいので大と判定する＞ ＜例外：比較元の日付と時間、比較先に日付と時間が同じだった場合は、小にしてい…

＜分類：値抜き取り＞ ＜使用例：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…

＜分類：ファイル作成＞ ＜使用例：Excelファイルのあるフォルダに任意backup￥日付フォルダを作成してワークブックの名前に日付_時間を付けてファイルコピーする＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim rtn As String '作成するフォルダ名 s…

＜分類：ファイル作成＞ ＜使用例：Excelファイルのあるフォルダにbackup￥日付フォルダを作成してその中に日付_時間(yymmdd_hhnnss).txtのテキストファイルを作成＞ ＜プログラム例＞ Sub 使用例() Dim s As String Dim rtn As String '作成するフォルダ名 …