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になるとなぜかこういう酷いツールを作る人が出てくる

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

こんな基本もわからない奴に迂闊に教えると、そいつの会社へのテロに加担するようなもんだぞ

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

糞みたいな構成のシートとVBAコードでも最終的にやりたいことができて
それまで手動で6時間かかってた作業が3時間で終わるようになったらええやん
その間PCで作業はできないから新聞読んだりダベったりしてればいいよね
ちゃんと作ったらバックグラウンドでPC作業を邪魔せず30分で終わるかもだけど

**デフォルトの名無しさん** · 2018/04/28(土) 09:01:21.06

使い捨てを含めて長期にわたりメンテナンスの必要性がない
運用中に入力のストレスが無い
レスポンスが許容できる
バグが無い

これだけ満たしてれば中身が悲惨でもいい
でも現実にそんなケースは殆ど無い
だから中身をクリーンで改良しやすい状態に保たなければならない

**デフォルトの名無しさん** · 2018/04/28(土) 09:07:58.99

>>13
んなこたあない
無駄や欠点があってこそ雇用が生まれる

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

>>14
なら全部手作業でやれば？
確かに雇用は増えるだろう
国際競走にはぼろ負けするけどな

**デフォルトの名無しさん** · 2018/04/28(土) 09:14:13.80

>>15
1か0かの極論でしか物を考えられないんですね＾＾

**デフォルトの名無しさん** · 2018/04/28(土) 09:17:17.40

やれやれ皮肉も通じないか

**デフォルトの名無しさん** · 2018/04/28(土) 09:58:31.27

ずっと張り付いてる人いるねw

**デフォルトの名無しさん** · 2018/04/28(土) 10:32:10.98

誘導無しのスレ立て直後に>>2をレスしてっから粘着に命かけてるよな
しかもMVCだの国際競争だのと意識高い系が好みそうなワード

そんで小うるさい割に「アプリ」の定義が正確じゃないんで
「なんかかっこいいから」っていうふざけた理由でSEになって心が折れたタイプで
かつて自分が言われてた事を内容を理解せずにそのまま吐き出してるとかなんじゃないの

**デフォルトの名無しさん** · 2018/04/28(土) 10:34:26.97

>>10
せっかくなんでMVCの基本と言うのを教えてもらえませんか？

**デフォルトの名無しさん** · 2018/04/28(土) 10:35:35.99

VBAのスレで雇用とか国際競走とかってw

**デフォルトの名無しさん** · 2018/04/28(土) 10:40:32.78

ゆとりの馬鹿が来るとこうなる
ホント迷惑

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

ゆとりVBAerはカスだよなぁ

**sage** · 2018/04/28(土) 11:20:38.79

>>8
できました。ありがとうございました。

**デフォルトの名無しさん** · 2018/04/28(土) 14:36:45.18

>>19
なかなかのプロファイリングスキルやなw
言っとっけどマジに褒めとるんやでw

**デフォルトの名無しさん** · 2018/04/28(土) 15:00:33.62

>>21
ソフトウェアじゃない業界での国際競争って意味なら大いに関係あるし、VBAってそういう用途でしょ