＜分類：値取得＞ ＜使用例：現在の時刻(文字列)を取得する＞ ＜プログラム例＞ Sub 呼び出し() Dim s As String s = 共通_時刻取得() MsgBox ("現在の時刻は " & s & " です") End Sub Function 共通_時刻取得() 共通_時刻取得 = Format(TimeValue(Now), "H…

＜分類：値取得＞ ＜使用例：現在の日付(文字列)を取得する＞ ＜プログラム例＞ Sub 呼び出し() Dim s As String s = 共通_日付取得() MsgBox ("現在の日付は " & s & " です") End Sub Function 共通_日付取得() 共通_日付取得 = Format(DateValue(Now), "y…

＜分類：値取得＞ ＜使用例：x座標 y座標からレンジアドレスを取得する＞ ＜プログラム例＞ Sub 呼び出し() Dim s As String Dim x As Long Dim y As Long x = 2 y = 3 s = 共通_conv_yxA(y, x) MsgBox ("X座標:" & x & " Y座標:" & y & "のレンジアドレスは…

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

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

＜分類：値取得＞ ＜使用例：Excelのバージョンを取得する(番号のみで出力されるので注意＞ ＜プログラム例＞ Sub 呼び出し() Dim s As String s = 共通_Excelバージョン取得 MsgBox ("Excelのバージョンは " & s & "です") End Sub Function 共通_Excelバー…

＜分類：値取得＞ ＜使用例：ＯＳ名を取得する(ＮＴのバージョン番号で出力されるので注意＞ ＜プログラム例＞ Sub 呼び出し() Dim s As String s = 共通_OS名取得 MsgBox ("ＯＳ名は " & s & "です") End Sub Function 共通_OS名取得() 共通_OS名取得 = App…

＜分類：値取得＞ ＜使用例：現在アクティブになっているシート名を取得する＞ ＜プログラム例＞ Sub アクティブになっているシート名を取得する() Dim s As String s = ActiveWorkbook.ActiveSheet.Name MsgBox ("現在アクティブになっているシートは " & s…

＜分類：値取得＞ ＜使用例：Excelブックのシート名の一覧作成(出力シートに出力する)＞ ＜プログラム例＞ Sub このExcelブックのシート名の一覧作成() Dim シート名 As String Dim i As Long シート名 = "出力" For i = 1 To Worksheets.Count Worksheets(…

＜分類：値取得＞ ＜使用例：Excelブックのファイル名を調べる＞ ＜プログラム例＞ Sub このExcelブックのファイル名を調べる() Dim s As String s = ThisWorkbook.Name MsgBox ("このExcelブックのファイル名は" & s & "です") End Sub

＜分類：値取得＞ ＜使用例：Excelブックのフォルダ名を調べる＞ ＜プログラム例＞ Sub このExcelブックのフォルダ名を調べる() Dim s As String 'ThisWorkbook.Pathは、ファイル名は含まれない s = ThisWorkbook.Path MsgBox ("このExcelブックのフォルダ名…