質問編集履歴
2
画像を追加。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,6 +4,13 @@
|
|
|
4
4
|
|
|
5
5
|
### 該当のソースコード
|
|
6
6
|
「組織マスター」シートおよび「組織DB」シートを参照して、「現在の組織」シートに今日現在の組織リストを作成するコードです。
|
|
7
|
+
|
|
8
|
+
【組織マスター】
|
|
9
|
+
|
|
10
|
+
【組織DB】
|
|
11
|
+
|
|
12
|
+
【現在の組織】
|
|
13
|
+
|
|
7
14
|
```VBA
|
|
8
15
|
Sub sosikikosin(d As Date)
|
|
9
16
|
'今日現在の組織リストを出力する
|
|
@@ -59,6 +66,8 @@
|
|
|
59
66
|
```
|
|
60
67
|
|
|
61
68
|
「menu」シートにボタンを作成、クリックするとダイアログが開き、任意の日付(例：2023/1/1)を入力して「OK」をクリックすると、その日の時点での組織リストが出力されるコードです。
|
|
69
|
+
【ダイアログ】
|
|
70
|
+
|
|
62
71
|
```VBA
|
|
63
72
|
Sub ninikosin()
|
|
64
73
|
'任意の日の組織リストを出力する
|
1
エラーになる動作の追記。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -80,7 +80,8 @@
|
|
|
80
80
|
|
|
81
81
|
### 発生している問題・エラーメッセージ
|
|
82
82
|
ダイアログに正しく日付を入力して「OK」をクリックすると別ファイルで出力されますが、
|
|
83
|
-
「キャンセル」
|
|
83
|
+
「キャンセル」および右上の「×」をクリックすると以下のエラーメッセージが発生してしまいます。
|
|
84
|
+
また、何も入力しないで「OK」をクリックした場合も同様のエラーメッセージが発生します。
|
|
84
85
|
|
|
85
86
|
```
|
|
86
87
|
実行時エラー'13':
|