Excel VBA 質問スレ Part53

**デフォルトの名無しさん** · 2018/04/27(金) 19:02:38.39

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part52
http://mevius.5ch.net/test/read.cgi/tech/1517052305/

**デフォルトの名無しさん** · 2018/04/27(金) 19:06:16.81

Excel大好きマンの君たちは普段どんなアプリをExcelで作ってるの？

**デフォルトの名無しさん** · 2018/04/27(金) 20:25:05.91

Power shelllの自動生成

**デフォルトの名無しさん** · 2018/04/27(金) 20:37:12.23

質問します

最近ティンコが痒いのですが
どうすれば良いですか
教えてくさい

**デフォルトの名無しさん** · 2018/04/27(金) 21:10:28.60

かゆい/時間でグラフ化するといいともう

**デフォルトの名無しさん** · 2018/04/27(金) 21:14:15.97

前スレでも教えていただいたコードを変えて

F1の値が５繰り上がるごとに、シート"納品書を"印刷するようにしたいのですが
Ｆ１が繰り上がらないです。
Ｆ１を繰り上げるにはどうしたらよいでしょうか

Sheets("名簿").Select
For i = Range("F1") To Range("F2") - 1 Step 5
Range("F1") = i
Sheets("納品書").Select
ActiveSheet.PrintOut
Next
End Sub

**デフォルトの名無しさん** · 2018/04/27(金) 21:48:08.65

すげえな
前スレで教えてた奴責任取れよw

**デフォルトの名無しさん** · 2018/04/27(金) 21:49:23.67

>>6
Sheets("名簿").Select
For i = Range("F1") To Range("F2") - 1 Step 5
Range("F1") = i
Sheets("納品書").Select
ActiveSheet.PrintOut
Sheets("名簿").Select
Next
End Sub

まあ下みたいにしたほうがプログラムっぽいかもしれないけど、まずは上の形でいいと思う

Dim wksList As Worksheet
Dim wksSlip As Worksheet
Dim rngF1 As Range

Set wksList = Sheets("名簿")
Set wksSlip = Sheets("納品書")
Set rngF1 = wksList.Range("F1")

For i = rngF1 To wksList.Range("F2") - 1 Step 5
rngF1 = i
wksSlip.PrintOut
Next
End Sub