質問編集履歴
3
説明文変更
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
vba
|
|
1
|
+
vba 時刻の検索をしたい。
|
body
CHANGED
|
File without changes
|
2
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,9 +8,9 @@
|
|
|
8
8
|
|
|
9
9
|
具体的には、
|
|
10
10
|
リストボックスの値【日付,時刻,ID,セルのaddress,選択されたlistboxのindex】を配列に格納し、それを引数(num2)とした関数を作っています。
|
|
11
|
-
そして、num2(0)の日付(令和3年7月
|
|
11
|
+
そして、num2(0)の日付(令和3年7月5日のような表記)とnum(1)の時刻(12:00のような表記)はString型だと思うので、CDateで変換し、match関数で検索するということをしています。
|
|
12
|
-
日付は、7月
|
|
12
|
+
日付は、7月5日からエンドレスに作成してあり、時刻は、12:10～16:00まで10分刻みで作成しています。
|
|
13
|
-
検索したい箇所は、それぞれ日付(7月
|
|
13
|
+
検索したい箇所は、それぞれ日付(7月5日のような表記)はsheet2の9行目、時刻(12:00のような表記)はsheet2のC列(9～80行)です。
|
|
14
14
|
sheet2の時刻9行～80行は、「12:10, 12:10, 12:10, 12:20, 12:20, 12:20, ・・・, 16:00, 16:00, 16:00」というように同じ時刻を3回ずつ表記してあり、初めにmatchした値(行番号)を取得できれば良いです。
|
|
15
15
|
作ったプログラムでは何故か、「12:20, 13:10, 13:50, 14,40, 15,20」の時刻だけ検索できません。他の時刻は検索できます。
|
|
16
16
|
日付も検索出来ています。(日付はエンドレスの為、全て検索できるのか不安です。)
|
1
画像の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -67,4 +67,16 @@
|
|
|
67
67
|
型は両方Double型(vartypeで確認出力5)で、表記は「12:00」のような表記(msgboxで目視で確認)でした。
|
|
68
68
|
一応、「CDbl(CDate(num2(1)) is Range(対応するセル)」と「CDbl(CDate(num2(1)) is Range(対応するセル)」を行いましたがどちらもFALSEでした。
|
|
69
69
|
|
|
70
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
70
|
+
### 補足情報（FW/ツールのバージョンなど）
|
|
71
|
+
ユーザーフォームのリストボックスはこんな感じです。
|
|
72
|
+
num2(0)に日付
|
|
73
|
+
num2(1)に時刻
|
|
74
|
+
num2(2)にID
|
|
75
|
+
num2(3)に選択されたIDが位置するsheet1のaddress(画像では非表示)
|
|
76
|
+
num2(4)に選択されたリストボックスのindex(画像では非表示)
|
|
77
|
+
|
|
78
|
+
|
|
79
|
+
sheet2はこのような表示になっています。
|
|
80
|
+
|
|
81
|
+
|
|
82
|
+
説明下手で申し訳ございませんが、何卒よろしくお願い致します。
|