値変換

カラムindex値(x座標)をExcelレンジのX部分(アルファベット部分)に変換する

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

時間を数字の羅列に変換する

<分類:値変換> <使用例:時間を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_…

文字列の日付から当月末日の日付(YYYYMMDD)を表示する

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

文字列の日付から当月の1日(初日)の曜日を表示する

<分類:値変換> <使用例:文字列の日付(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 ("文字列の日付" & …

数字の先頭を0(ゼロ)付きの文字列で表示する

<分類:値変換> <使用例:数字(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)を全角(ABCDEF)に変換する> <プログラム例> Sub 使用例 Dim s As String Dim s2 As String s = "ABCDEF" s2 = StrConv(s, vbWide) MsgBox (s & "の文字列を" & s2 & "に変換しました") End…

全角が含まれる文字列を半角に変換する

<分類:値変換> <使用例:全角が含まれる文字列(ABCDEF)を半角(ABCDEF)に変換する> <プログラム例> Sub 使用例 Dim s As String Dim s2 As String s = "ABCDEF" s2 = StrConv(s, vbNarrow) MsgBox (s & "の文字列を" & s2 & "に変換しまし…

Range座標文字をカラムindex値に変換する

<分類:値変換> <使用例:Rangeの座標文字列からカラムindex値に変換する> <プログラム例> Sub 呼び出し() Dim s As String Dim レンジ As String レンジ = "B4" s = 共通_conv_Rx(レンジ) MsgBox ("カラム(x座表)は" & s & "です") End Sub Function …

Range座標文字を行index値に変換する

<分類:値変換> <使用例:Rangeの座標文字列から行index値に変換する> <プログラム例> Sub 呼び出し() Dim s As String Dim レンジ As String レンジ = "B4" s = 共通_conv_Ry(レンジ ) MsgBox ("行(y座表)は" & s & "です") End Sub Function 共通_co…

数字の日付を通常の日付に変換する

<分類:値変換> <使用例:数字の日付を通常の日付に変換する 20180728 → 2018/07/28> <プログラム例> Sub 使用例() Dim d As String Dim s As String d = "20180728" s = 共通_cov_date_9d(d) If s <> "" Then MsgBox (d & " を " & s & " に変換しま…

文字列の日付を数字の日付に変換する

<分類:値変換> <使用例:日付を数字の羅列に変換する 2018/07/28 → 20180728> <プログラム例> Sub 使用例() Dim d As String Dim s As String d = "2018/07/28" s = 共通_cov_date_d9(d) If s <> "" Then MsgBox (d & "を " & s & " に変換しました")…

時間の値からn秒前を計算する

<分類:値変換> <使用例:ログ解析で使用> <プログラム例> Sub 文字列編集_時間の値からn秒前を計算する() Dim n As Long Dim t1 As Date Dim t2 As Date n = -5 t1 = "00:00:00" t2 = Format(DateAdd("s", n, t1), "HH:NN:SS") MsgBox (t1 & "の" & n…