質問編集履歴

3

全体像の貼付け

2018/08/15 15:38

投稿

masayone
masayone

スコア13

test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,8 @@
1
- ![イメージ説明](58c3f2d07e02240c52efb28250100f85.jpeg)◆OS:WINDOWS10
1
+ ![イメージ説明](bf1830bcbc810a36ea55cc5b84a1b249.png)
2
2
 
3
+ ユーザーフォームの全体を貼付けます。
4
+
3
- ソフト:EXCEL2016
5
+ ◆EXCEL 2016
4
6
 
5
7
  質問事項
6
8
 

2

画像の再貼付け

2018/08/15 15:38

投稿

masayone
masayone

スコア13

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- ◆OS:WINDOWS10
1
+ ![イメージ説明](58c3f2d07e02240c52efb28250100f85.jpeg)◆OS:WINDOWS10
2
2
 
3
3
  ◆ソフト:EXCEL2016
4
4
 
@@ -84,6 +84,6 @@
84
84
 
85
85
  ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
86
86
 
87
-
87
+ 画像の貼付けをしましたが張り付ていますでしょうか?
88
88
 
89
89
  宜しくお願い致します。

1

入力順番を変更して一応解決です。新たな質問です

2018/08/15 11:37

投稿

masayone
masayone

スコア13

test CHANGED
File without changes
test CHANGED
@@ -60,10 +60,30 @@
60
60
 
61
61
  ちなみにVarTypeメソッドで変数「n」を調べた所「文字列ではない」msgboxで確認できました
62
62
 
63
+ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
63
64
 
65
+ ※一応解決できました。
64
66
 
65
- フォーム画像を添付ます
67
+ 内容入力順番にありま
68
+
69
+ ⓵自年月日 ⓶至年月日 ⓷利用期間 この場合 n = val(txt利用期間.Text)
70
+
71
+ の場合先に⓶至年月日が処理され「0」とみなされ計算されていました。
72
+
73
+ 入力順を変更 ⓷→⓵で⓶が「n]を⓵を数値とし計算されました。
74
+
75
+ 新たなご質問です
76
+
77
+ 最初の入力順で、IF文で、「txt利用期間が空白であれば処理をせず、
78
+
79
+ 入力があった場合に、
80
+
81
+ ⑫ txt至年月日.Text = DateAdd("m", 3, buf) - 1を計算する。」
82
+
83
+ 等を記載するにはどの様にすればいいのでしょうか?
84
+
85
+ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
66
86
 
67
87
 
68
88
 
69
- 宜しくお願い致します。
89
+ 宜しくお願い致します。