回答編集履歴
1
追記
test
CHANGED
@@ -43,3 +43,45 @@
|
|
43
43
|
|
44
44
|
|
45
45
|
※ただし、初期値が8以降、つまり終わりまでの間に12月→1月という表示がある場合はそれを踏まえた書き方をする必要があります。13月にならないように。
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
----
|
52
|
+
|
53
|
+
# 追記
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
```VBA
|
58
|
+
|
59
|
+
Private Sub cmb期_AfterUpdate()
|
60
|
+
|
61
|
+
Dim i As Long ' ループ変数
|
62
|
+
|
63
|
+
Dim lngStart As Long ' 初期値
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
Const H1 = "01"
|
68
|
+
|
69
|
+
Const H2 = "07"
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
If Me!cmb期.Value = H1 OR Me!cmb期.Value = H2 Then ' 一応正しい選択肢なのかだけチェック
|
74
|
+
|
75
|
+
lngStart = CLng(Me!cmb期.Value) ' この時点で lngStart は 1 か 7なはず
|
76
|
+
|
77
|
+
For i = 0 to 5
|
78
|
+
|
79
|
+
Forms![メインフォーム名]![サブフォーム名].Form.Controls("label月_" & CStr(i+1)).Caption = CStr(lngStart + i) & "月" ' ラベルを変数を利用して指定、月を初期値+ループ変数として指定
|
80
|
+
|
81
|
+
Next
|
82
|
+
|
83
|
+
End If
|
84
|
+
|
85
|
+
End Sub
|
86
|
+
|
87
|
+
```
|