質問編集履歴
1
コードの挿入を行った。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,7 +26,9 @@
|
|
|
26
26
|
以下に作成したコードを載せます。
|
|
27
27
|
作成した内容は親フォルダをパス指定し、その中にあるサブフォルダを上から順に貼付けるという内容です。
|
|
28
28
|
|
|
29
|
+
```ここに言語を入力
|
|
30
|
+
コード
|
|
29
|
-
Sub 写真貼り付け()
|
|
31
|
+
```Sub 写真貼り付け()
|
|
30
32
|
|
|
31
33
|
Dim alert As VbMsgBoxResult
|
|
32
34
|
alert = MsgBox("実行してよろしいですか？", vbYesNo + vbQuestion, "実行確認")
|