EVAで下記の①②④⑤がうまくいかないためご教示お願いしたいです。 よろしくお願いします。 ①C7～C9がうまくリンクが飛ばない 「－」が入っているせいか修正したい Sub 目次作成更新() Dim no As Integer no = 4 Dim wsMain, ws As Worksheet Set wsMain = Worksheets("sheet目次") For Each ws In Worksheets If ws.Name <> wsMain.Name Then wsMain.Hyperlinks.Add _ Anchor:=wsMain.Cells(no, "C"), _ Address:="", _ SubAddress:=ws.Name & "!A1", _ TextToDisplay:=ws.Name wsMain.Cells(no, "B").Value = no - 3 no = no + 1 End If Next ws End Sub ②印刷プレビューのsheet目次を除きたい Sub sheet目次以外全ページ印刷プレビュー() Application.Dialogs(xlDialogPrinterSetup).Show ActiveWorkbook.PrintOut Preview:=True '全ページ印刷プレビュー End Sub ③ Sub 印刷機確認() MsgBox Application.ActivePrinter Range("G4").Value = 1 End Sub ④D列の●をsheet毎印刷プレビューしてから印刷 Sub プリンターの設定後シート毎印刷プレビューし印刷() Dim lRow As Integer Application.Dialogs(xlDialogPrinterSetup).Show With Worksheets("sheet目次") lRow = .Cells(.Rows.Count, "C").End(xlUp).Row For i = 4 To lRow If .Cells(i, "D").Value <> "" Then Worksheets("sheet目次").PrintPreview EnableChanges:=True For j = 1 To 2 Range("G5").Value = j '印刷 ActiveSheet.PrintOut Worksheets(.Cells(i, "C").Value).PrintOut End If Next i End With End Sub End Sub ⑤D列の●をG5の部数を印刷する。 Sub 印刷() Dim lRow As Integer With Worksheets("sheet目次") lRow = .Cells(.Rows.Count, "C").End(xlUp).Row For i = 4 To lRow If .Cells(i, "D").Value <> "" Then Worksheets(.Cells(i, "C").Value).PrintOut End If Next i End With End Sub
Visual Basic
