質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

1回答

208閲覧

エクセルのマクロを使って定形書式の名前と通し番号を印刷したい

yushin_5

総合スコア5

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2019/08/23 05:04

前提・実現したいこと

"氏名"というシートにA列=従業員番号、B例=従業員氏名をリスト化しました。
"印刷"というシートのA2セルに上記従業員番号、D2セルに上記従業員氏名を表示させて印刷かけたいです。
今はマクロを下記の通り登録しました。

Sub 差し込み印刷()
Dim i As Integer, j As Integer
Dim IsPrintOut As Integer, IsAutoPrint As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Skip() As Variant, IsSkip As Boolean
Const FromNum As Integer = 1 '印刷を開始する行
Const ToNum As Integer = 96 '印刷を終了する行
Skip = Array() '印刷をスキップする行をコンマで区切って書く
Set WS1 = Worksheets("氏名")
Set WS2 = Worksheets("印刷")
IsPrintOut = MsgBox("処理を選択してください" & vbCrLf & _
"「はい」→印刷" & vbCrLf & _
"「いいえ」→プレビュー" & vbCrLf & _
"「キャンセル」→中止", _
vbYesNoCancel, "処理の選択")
If IsPrintOut = vbCancel Then Exit Sub
IsAutoPrint = vbNo
For i = FromNum To ToNum
IsSkip = False
If UBound(Skip) <> 0 Then
For j = 1 To UBound(Skip)
If i = Skip(j) Then
IsSkip = True
Exit For
End If
Next
End If
If IsSkip = False Then
WS2.Range("D2").Value = WS1.Cells(i, "B").Value
WS2.Range("A2").Value = WS1.Cells(i, "A").Value
If IsPrintOut = vbYes Then
WS2.PrintOut
Else
WS2.PrintPreview
End If
If IsAutoPrint = vbNo Then
IsAutoPrint = MsgBox("続行しますか?" & vbCrLf & _
"「はい→残りを連続して処理" & vbCrLf & _
"「いいえ」→次も確認メッセージを出す" & vbCrLf & _
"「キャンセル」→処理を中止", _
vbYesNoCancel, "印刷の確認")
If IsAutoPrint = vbCancel Then Exit Sub
End If
End If
Next
End Sub

発生している問題・エラーメッセージ

プロシージャの呼び出しまたは引数が無効です (エラー 5)

実行すると上記エラーが出て、デバックボタンを押すと Skip = Array() '印刷をスキップする行をコンマで区切って書くが黄色くは依頼とされています。 ### 試したこと お手上げ状態で何もしていません。 ### 補足情報(FW/ツールのバージョンなど)

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

torisan

2019/08/23 05:25

Excel2010で(プレビューのみですが)特に問題なく動作しましたので報告します。
yushin_5

2019/08/23 06:18

私のマクロはどこも修正せずに出来ましたか!?
torisan

2019/08/23 06:22

インデントを揃えた程度です。使用しているデータはわかりませんが。
yushin_5

2019/08/23 06:31

そうなんですか・・・ありがとうございます。 貴重なお時間を使っていただいたんですね・・・ 他のPCで試してみます!
guest

回答1

0

ベストアンサー

Array の引数になにも入っていないからではないですか?

ここを参照してください

投稿2019/08/23 05:34

編集2019/08/23 05:38
nanami12

総合スコア1015

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問