質問編集履歴
2
文の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,6 +13,8 @@
|
|
|
13
13
|
```ここに言語を入力
|
|
14
14
|
Private Sub cmb期_AfterUpdate()
|
|
15
15
|
|
|
16
|
+
Const H1 = "01"
|
|
17
|
+
Const H2 = "07"
|
|
16
18
|
If Me!cmb期.Value = H1 Then
|
|
17
19
|
Forms![メインフォーム名]![サブフォーム名].Form![label月_1].Caption = "1月"
|
|
18
20
|
ElseIf Me!cmb期.Value = H2 Then
|
1
文の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
下期ならば７月、８月、９月…、と、同じコードをずらずら書いていくのは成果物として見栄えが悪い為、関数や変数（例：m１～m6）を使って、①～⑥のラベルに月を加算していけるようなコードに仕上げたい**と思っています。
|
|
28
28
|
|
|
29
29
|
試行錯誤したところ、**DateSerial関数やDateAdd関数**などが当てはまりそうな気はしたのですが、
|
|
30
|
-
この場合どのように記述すればよいのか行き詰ってしまい、質問をさせていただくことにいたしました。
|
|
30
|
+
**この場合どのように記述すればよいのか**行き詰ってしまい、質問をさせていただくことにいたしました。
|
|
31
31
|
この関数を使用したものでも、また他の方法でも、皆様のお考えを伺いたく存じます。
|
|
32
32
|
また、**ラベルに出力したい値は、「○月」のみ**です。
|
|
33
33
|
①**のラベルに1月または7月から始まり、⑥までに一月ずつ加算された値を出したい**です。
|