回答編集履歴

1

追記

2016/06/16 02:16

投稿

kaz.Suenaga
kaz.Suenaga

スコア2037

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
+ ```