回答編集履歴
2
コード修正
test
CHANGED
@@ -19,7 +19,7 @@
|
|
19
19
|
Case TimeValue("15:00") To TimeValue("17:59")
|
20
20
|
Range("I3") = "D"
|
21
21
|
Case TimeValue("18:00") To TimeValue("21:59")
|
22
|
-
If
|
22
|
+
If Range("G3") = "東京" Then
|
23
23
|
Range("I3") = "E1"
|
24
24
|
Else
|
25
25
|
Range("I3") = "E"
|
1
コード追記
test
CHANGED
@@ -26,3 +26,39 @@
|
|
26
26
|
End If
|
27
27
|
End Select
|
28
28
|
```
|
29
|
+
|
30
|
+
繰り返し文は下記のようになります。
|
31
|
+
|
32
|
+
```vba
|
33
|
+
'最下行まで'
|
34
|
+
Dim lngERow As Integer 'データ最終行番号用変数
|
35
|
+
Dim r As Integer 'ルーチン処理用変数
|
36
|
+
|
37
|
+
'レコード最終行番号取得
|
38
|
+
lngERow = Range("I" & Rows.Count).End(xlUp).Row
|
39
|
+
|
40
|
+
'繰り返し処理
|
41
|
+
For r = 3 To lngERow
|
42
|
+
|
43
|
+
Select Case Range("H" & r)
|
44
|
+
Case TimeValue("7:00") To TimeValue("9:29")
|
45
|
+
Range("I" & r) = "A"
|
46
|
+
Case TimeValue("9:30") To TimeValue("11:59")
|
47
|
+
If Range("G" & r) = "東京" Then
|
48
|
+
Range("I" & r) = "B1"
|
49
|
+
Else
|
50
|
+
Range("I" & r) = "B"
|
51
|
+
End If
|
52
|
+
Case TimeValue("12:00") To TimeValue("14:59")
|
53
|
+
Range("I" & r) = "C"
|
54
|
+
Case TimeValue("15:00") To TimeValue("17:59")
|
55
|
+
Range("I" & r) = "D"
|
56
|
+
Case TimeValue("18:00") To TimeValue("21:59")
|
57
|
+
If TimeValue("G" & r) = "東京" Then
|
58
|
+
Range("I" & r) = "E1"
|
59
|
+
Else
|
60
|
+
Range("I" & r) = "E"
|
61
|
+
End If
|
62
|
+
End Select
|
63
|
+
Next
|
64
|
+
```
|