質問編集履歴

2

画像を追加。

2023/01/06 08:57

投稿

koburon
koburon

スコア29

test CHANGED
File without changes
test CHANGED
@@ -4,6 +4,13 @@
4
4
 
5
5
  ### 該当のソースコード
6
6
  「組織マスター」シートおよび「組織DB」シートを参照して、「現在の組織」シートに今日現在の組織リストを作成するコードです。
7
+
8
+ 【組織マスター】
9
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-01-06/2b99f438-a1d2-4b08-ad6a-5879082a7c80.jpeg)
10
+ 【組織DB】
11
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-01-06/4ef97f8e-1316-4809-8c4e-660419eb16d4.jpeg)
12
+ 【現在の組織】
13
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-01-06/5ef52206-e48a-4b03-97d0-791890c7bd16.jpeg)
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
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-01-06/fe35b48e-89d9-4e03-8325-9640da192ff3.jpeg)
62
71
  ```VBA
63
72
  Sub ninikosin()
64
73
  '任意の日の組織リストを出力する

1

エラーになる動作の追記。

2023/01/06 08:45

投稿

koburon
koburon

スコア29

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':