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

**デフォルトの名無しさん** · 2018/04/27(金) 22:09:27.05

>>6
で、結局仕様がよく分からないんだけど、
A8に1、A9に2、A10に3、A11に4、A12に5、A13に6、A14に7
という形で連続した行番号が入っているの？
空白セルがあったらその前の行が最終行とみなしていいの？
5行ずつの場合、A8(1)からA14(7)までのデータがあったら
印刷するのは3回で、1回目はF1に1を格納して印刷、
2回目はF1に6を格納して印刷、3回目はF1に11を格納して印刷ってことでいいの？
（最初は2行ずつで偶数と言ってたけど、どうやら5行に変わったみたいなので）

**デフォルトの名無しさん** · 2018/04/28(土) 08:11:58.78

この納品書出力アプリってまさに
・入出力とデータが分別できてない
・MVCを理解していない
の典型例だな
VBAerって本当にこういう酷いユーザーが多い
素人の事務員さんならまあ許すけど、本職がプログラマでもExcelになるとなぜかこういう酷いツールを作る人が出てくる