Excel VBA 質問スレ Part53

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2018/04/27(金) 19:02:38.39ID:+ocy8bIv
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK


※前スレ
Excel VBA 質問スレ Part52
http://mevius.5ch.net/test/read.cgi/tech/1517052305/
2018/04/27(金) 19:06:16.81ID:thq99FCt
Excel大好きマンの君たちは普段どんなアプリをExcelで作ってるの?
2018/04/27(金) 20:25:05.91ID:S/hXXJWv
Power shelllの自動生成
2018/04/27(金) 20:37:12.23ID:5jKnhP1D
質問します


最近ティンコが痒いのですが
どうすれば良いですか
教えてくさい
2018/04/27(金) 21:10:28.60ID:CQ9eqs6l
かゆい/時間でグラフ化するといいともう
2018/04/27(金) 21:14:15.97ID:rM2AyKG8
前スレでも教えていただいたコードを変えて

F1の値が5繰り上がるごとに、シート"納品書を"印刷するようにしたいのですが
F1が繰り上がらないです。
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.65ID:CQ9eqs6l
すげえな
前スレで教えてた奴責任取れよ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
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

ニューススポーツなんでも実況