【Excel
Автор: TOKI_0208
Загружено: 2021-12-21
Просмотров: 1942
Excelのマクロ素人が１から覚えた道程を残します！
#vol.3の続きです。
今回は４０名分の個票をマクロで一気に印刷していきます！
フォルダ名や入力するセルを動画と同じにすれば、
そのままパクれるようにしてあるので、ぜひパクってください！！
また、マクロコードのここを変えれば応用できるよ～という動画も出すつもりです。
#vol.1 マクロの記録の仕方を振り返りたい方はこちら
• 【Excel #vol.1】マクロを使ってみよう！～マクロで色塗り～ #Excel ...
#vol.2 個票の作り方(VLOOKUP関数の使い方）を振り返りたい方はこちら
• 【Excel #vol.2】マクロを使ってみよう！～個票をPDFで一括作成～ #Ex...
#vol.3 PDF連続保存マクロを振り返りたい方はこちら
• 【Excel #vol.3】マクロを使ってみよう！～個票をPDFで一括作成～ #Ex...
#Excel #マクロ #VBA #時短 #事務作業 #効率化
#印刷 #一括
今回のマクロコード（全部コピーしてください！！）
↓↓↓
Sub 連続印刷()
Dim i As Integer
Dim Start_Point As Integer
Dim End_Point As Integer
Start_Point = Worksheets("個票").Range("B1").Value
End_Point = Worksheets("個票").Range("B2").Value
For i = Start_Point To End_Point
Worksheets("個票").Range("B3") = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub
【次回予告マクロコード】
Sub ファイル名一覧の取得()
Dim buf As String
Dim cnt As Long
Const Path As String = "D:\ファイル名変更用\"
buf = Dir(Path & "*.*")
Do While buf ◇ ""
cnt = cnt + 1
Cells(cnt + 2, 2) = buf
buf = Dir()
Loop
End Sub
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
