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ってそういう用途でしょ

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

>>26
国際競争やないで、国際競走やでｗ

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

>>27
w

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

>>26
国際競争になりそうなところはシッカリしたソフト作らないとダメだと思うよ。
それをVBAでやろうとするのは流石にどうかしてる。VBAでできるのは人力でカバーできる範囲で楽になるかならないかってところだと思う。
国際競走では知らんけどw

**デフォルトの名無しさん** · 2018/04/28(土) 16:39:30.81

>>29
ソフトウェアそのものの力の意味だったら仰る通り
ま、労働効率・生産性って意味の競争力ね

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

RubyマンはMVCデザインパターン推しとアプリという言葉の使い方から、
クソみたいな人材が大量雇用されるWebアプリ業界の人間だと思うけど、
そこで言われる競争力だの効率だのってのは新人のケツ叩くためのものだから真に受けない方がいいぞ

ついでに言えば雨後の竹の子の様に生えてくるWebアプリ開発に追いつく為に開発効率が重視されるRubyだのPythonだのと、
社内で飽きるほどやった事務作業を決まった手順で再現可能にすりゃいいだけのVBAじゃ分野が全然違うしな