質問編集履歴
1
具体的なコードを入れました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -14,5 +14,22 @@
|
|
|
14
14
|
dateA = cdate(inputbox("yyyy/mm/ddの形で入力"))
|
|
15
15
|
<<省略>>
|
|
16
16
|
|
|
17
|
+
追記
|
|
18
|
+
実際にはこのようなコードを使用しています。
|
|
19
|
+
一回目は、文字列を入力すると、入力しなおすように警告が出るのですが、
|
|
20
|
+
2回目さらに間違えるとエラー13 型が一致しません が出てきます。
|
|
21
|
+
```vba
|
|
22
|
+
<<省略>>
|
|
23
|
+
R1:
|
|
24
|
+
On Error GoTo R2
|
|
25
|
+
dateA = InputBox("新しい期限を決めてください。(2018/11/15 の形で入力)")
|
|
26
|
+
On Error GoTo R2
|
|
27
|
+
dateA = CDate(dateA)
|
|
28
|
+
<<省略>>
|
|
29
|
+
R2:
|
|
30
|
+
msgbox("入力しなおし")
|
|
31
|
+
goto R1
|
|
32
|
+
コード
|
|
33
|
+
```
|
|
17
34
|
|
|
18
35
|
```
|