teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2020/05/20 06:59

投稿

mattuwan
mattuwan

スコア2167

answer CHANGED
@@ -29,4 +29,26 @@
29
29
  たまに結果が変わることがあるので。
30
30
 
31
31
  4)日付をシリアル値で検索するなら、Match関数で検索することもできます。
32
- そうすると、表示形式に影響されることなく検索ができます。
32
+ そうすると、表示形式に影響されることなく検索ができます。
33
+
34
+ ---
35
+
36
+ 一応サンプルです。
37
+ ```ExcelVBA
38
+ Sub test()
39
+ Dim rngDays As Range
40
+ Dim ixRow As Variant
41
+
42
+
43
+ Set rngDays = Range("A9").Resize(31)
44
+ ixRow = Application.Match(#5/2/2020#, rngDays, 0)
45
+
46
+ If IsError(ixRow) Then
47
+ ixRow = Empty
48
+ Else
49
+ ixRow = rngDays(ixRow).Row
50
+ End If
51
+
52
+ Range("E9").Value = ixRow
53
+ End Sub
54
+ ```