質問編集履歴
1
誤記訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,10 +1,10 @@
|
|
1
|
-
サンプルコードを参考にさせて頂き、VBAにてリストのファイル名から任意のフォルダにあるPDF図面を順番に自動で印刷するEXCELファイルを作って
|
1
|
+
サンプルコードを参考にさせて頂き、VBAにてリストのファイル名から任意のフォルダにあるPDF図面を順番に自動で印刷するEXCELファイルを作っております。
|
2
2
|
|
3
3
|
ほぼ出来ていると思うのですが、コードの末尾から14,15行目の
|
4
4
|
'文字に取り消し線を設定
|
5
|
-
Cells(i, r).Font.Strikethrough = True
|
5
|
+
**Cells(i, r).Font.Strikethrough = True**
|
6
|
-
で引っ掛かり、何度見直しても有効になりません。
|
6
|
+
で引っ掛かり、何度見直し、分かる範囲で試してみても有効になりません。
|
7
|
-
ENDまで有効にするにはどう変えれば良いかご教示お願い致します。
|
7
|
+
ENDまで有効にするにはどう変えれば良いか、ご存じの方ご教示お願い致します。
|
8
8
|
|
9
9
|
```ここに言語を入力
|
10
10
|
Sub ListPrint() '図面印刷VBA
|