質問編集履歴
3
全体像の貼付け
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,6 @@
|
|
|
1
|
-
|
|
2
|
+
ユーザーフォームの全体を貼付けます。
|
|
2
|
-
|
|
3
|
+
◆EXCEL ２０１６
|
|
3
4
|
質問事項
|
|
4
5
|
|
|
5
6
|
１）VBA ニューザーフォーム内でのｎ月後の日付計算について⓵自年月日を入力し「2018/08/01」⓶利用期間「３」入力（ｎｹ月後）③至年月日「2018/10/31」と計算し表示させたい。
|
2
画像の再貼付け
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
◆OS：WINDOWS10
|
|
1
|
+
◆OS：WINDOWS10
|
|
2
2
|
◆ソフト：EXCEL２０１６
|
|
3
3
|
質問事項
|
|
4
4
|
|
|
@@ -41,5 +41,5 @@
|
|
|
41
41
|
⑫ txt至年月日.Text = DateAdd("m", 3, buf) - 1を計算する。」
|
|
42
42
|
等を記載するにはどの様にすればいいのでしょうか？
|
|
43
43
|
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
|
|
44
|
-
|
|
44
|
+
画像の貼付けをしましたが張り付ていますでしょうか？
|
|
45
45
|
宜しくお願い致します。
|
1
入力順番を変更して一応解決です。新たな質問です
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,7 +29,17 @@
|
|
|
29
29
|
⑥ n = val(txt利用期間)の変数「ｎ」を指定しても数値として反応しない、これを変数でクリアできないか悩んでいます。
|
|
30
30
|
|
|
31
31
|
ちなみにVarTypeメソッドで変数「ｎ」を調べた所「文字列ではない」msgboxで確認できました
|
|
32
|
+
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
|
|
33
|
+
※一応解決できました。
|
|
34
|
+
内容入力順番にありました。
|
|
35
|
+
⓵自年月日 ⓶至年月日 ⓷利用期間 この場合 n = val(txt利用期間.Text)
|
|
36
|
+
の場合先に⓶至年月日が処理され「０」とみなされ計算されていました。
|
|
37
|
+
入力順を変更 ⓷→⓵で⓶が「ｎ］を⓵を数値とし計算されました。
|
|
38
|
+
新たなご質問です
|
|
39
|
+
最初の入力順で、ＩＦ文で、「txt利用期間が空白であれば処理をせず、
|
|
40
|
+
入力があった場合に、
|
|
41
|
+
⑫ txt至年月日.Text = DateAdd("m", 3, buf) - 1を計算する。」
|
|
42
|
+
等を記載するにはどの様にすればいいのでしょうか？
|
|
43
|
+
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
|
|
32
44
|
|
|
33
|
-
フォーム画像を添付します。
|
|
34
|
-
|
|
35
|
-
|
|
45
|
+
宜しくお願い致します。
|