値取得

文字列の両端のみスペースを取り除いて文字列を抜き出す

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

ワークシートのデータの最終行を取得する

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

時間範囲判定応用: A列に日付、B列に時間、C列に値が設定されている履歴データの指定時間範囲内のC列の値の平均値を取得する

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

時間大小判定応用:A列に日付、B列に時間、C列に値が設定されている履歴データの指定時間を超えた直後のC列の値を取得する

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

ファイルパスからフォルダの数を調べる

<分類:値取得> <使用例:ファイルパスからフォルダの数を調べる> <プログラム例> Sub 使用例() Dim s As String Dim s2 As String s = "C:\Users\aaa\Desktop\test.xls" s2 = 共通_フォルダ階層数(s) MsgBox ("フォルダ階層数は " & s2 & " です") En…

現在の時刻(文字列)を取得する

<分類:値取得> <使用例:現在の時刻(文字列)を取得する> <プログラム例> 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(行番号)からレンジアドレスを取得する

<分類:値取得> <使用例: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 & "のレンジアドレスは…

Excelのバージョンを取得する

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

OS名を取得する

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

アクティブになっているシート名を取得する

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

Excelブックのシート名の一覧作成

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

Excelブックのファイル名を調べる

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

Excelブックのフォルダ名(パス名)を調べる

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

MACアドレスを調べる

<分類:値取得> <使用例:IPアドレス別にMACアドレスを調べる> <プログラム例> Sub 共通_MACアドレス調査() Dim objConf, objMACEna, strIP Set objConf = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfig…

IPアドレスを調べる

<分類:値取得> <使用例:ネットワーク内のどのパソコンかを調べる> <プログラム例> Sub 使用例() Dim s As String s = 共通_IP取得() If s <> "" Then MsgBox ("IPアドレスは" & s & "です") End If End Sub Function 共通_IP取得() Dim objConf, objIPE…