Excel VBA 質問スレ Part65

2020/03/17(火) 16:27:20.88

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

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/04/14(火) 19:39:44.23

活気が出てええやん
過疎スレやし

2020/04/14(火) 21:50:12.98

変数の定義や宣言をとにかく最初にする癖をつければ
後でわかりやすいことが本でわかり
そして英字じゃなくてもいいことに驚きました

慣れてるたち人のサイトだと
Dim Folderpass As String
Dim FileInt As Long
とか英字だけど
Dim フォルダ場所 As String
Dim ファイル数 As Long

とか和文字だと支障でますかねこれ

2020/04/14(火) 21:58:17.78

個人的には変数名で日本語は避けてる。
逆に読みにくいので。

2020/04/14(火) 22:06:22.29

拙者も日本語はコメントで書くようにしてコードは英数字で書くようにしている

2020/04/14(火) 22:20:28.98

なるほど、俺も英字で作る癖つけた方が良さそうですかね
字の色でわかるだろ…とは言え、なんかの関数やコマンドと似てるとやはり最初は難しいですね
Tekist
Fname
Fpass
shseeet
とかにしてこれ俺の宣言した変数だわ
って最初は作ってみます
あざす！

2020/04/14(火) 22:37:22.88

変数の付け方とかで、書いた人の実力が分かるという説もあるから。
私は小文字で始めるキャメル式が見やすいと思って大体統一してる。

2020/04/14(火) 22:38:37.96

> とか和文字だと支障でますかねこれ
今時C/C++ですら変数名に漢字使えたりするぐらいだから問題ない
特にフォルダーパスをFolderpassとか書くような人は積極的に使うべき

2020/04/14(火) 22:53:49.36

VBAだとそんなに困ることはないんだけど、.netはライブラリが膨大すぎて、既存のメソッドやプロパティと名前が被るかどうかの確認が面倒
あと、語彙力が足りなくてユニークな英単語が思いつかないとか、辞書で調べて付けた変数名があとから見返すと意味がわからないとかある

2020/04/14(火) 23:05:59.10

>>309
>語彙力が足りなくてユニークな英単語が思いつかないとか
曜日、曜日って英語でなんて言ったかなー
せや、yb ですましたら

2020/04/14(火) 23:20:30.80

最近プログラム自体始めた初心者です。
日々勉強ばかりですので、汎用性が高くなるよう目指し、
知識を入れてはコードを改良し、それを外部保存、そして
実行するブックで呼び出して使っています。

ついこないだ引数という便利なものを知り、さっそく使っているのですが、
ひとつ疑問が。
「特定セルに、作成したリストの上から順に内容を書き込む」という
簡単なfor～nextループマクロを使いまわしたいのですが、そのループ処理内容を
callなどから設定することはできるのでしょうか？
（たとえば、あるブックでは印刷処理したい、けどこっちではシートコピー処理したい、
など）

引数で、特定セルやリストの開始行は設定できたのですが。。。
宜しくお願いいたします。

2020/04/14(火) 23:23:30.52

>>311です。一部分かりづらかったので訂正いたします。
×「そのループ処理内容をcallなどから設定することは～」
〇「そのループ処理内容を、実行するブックから設定することは～」

2020/04/14(火) 23:30:42.95

馬鹿が一気に出てきたのはコロナウイルスで脳炎や痴呆症でも発症するのか？

2020/04/14(火) 23:31:29.82

>>311
サブルーチンの中にブック名を判定するIfを入れるとか、引数を増やして処理を切り替えるとか、方法はいくつもある

2020/04/14(火) 23:44:19.27

Sub データ数の確認()
Dim FoPath As String
Dim Fname As String
Dim Fnum As Long
Dim SetPath As String FoPath = "C:\Users\user\Desktop\測定機"
'フォルダのパスを指定する
Fname = "*.txt" 'ファイル名と拡張子指定 Fnum = 0
'ファイル数を一度0にする
'指定したフォルダパスとファイル名をセット
SetPath = Dir(FoPath & "\" & Fname)
Do While SetPath <> ""
'ファイル名が取得出来なくなるまでループ Fnum = Fnum + 1
SetPath = Dir()
Loop
MsgBox Fnum & "つデータが入っています。"
End Sub

見様見真似というかネットからパクってユーザーフォームのボタンに追加できました。
このスレの人たち凄いです

2020/04/14(火) 23:55:34.54

いい加減に馬鹿は消えろ

2020/04/15(水) 00:06:27.34

>>311
他のナウい言語みたいに関数ポインタとか使いたいのだろうが
おとなしくコマンド文字列でも渡してselectでもしとけ

2020/04/15(水) 01:14:25.80

ナウい変数名を考えようと思って色々試したら、結構いけるじゃん。

Dim ヽ, 卍, ¶, ㍾, ㌶, ㊨, ℡, ≒, ♪

♪ = 1
Debug.Print ♪

2020/04/15(水) 01:17:01.85

あ、普通にこれでいいか。

Dim 骸骨剣士, 死霊の騎士, 幽霊, 死神

2020/04/15(水) 01:24:08.40

For 愛 = 1 To 10

2020/04/15(水) 01:34:17.76

>>319
うちの新人が最初に書いてきたコードがそれだったわ (実話
もちろん熟語の意味と変数の用途は無関係で、厨二ワードを思いつきで適当に並べただけ

2020/04/15(水) 02:43:11.14

>>311
初心者なら具体的な処理を抽象化していく
ボトムアップのやり方が分かりやすいと思う

たとえばかけ算の九九を求める関数に
引数でXを渡してXxX（12×12など）を
求める関数に抽象化すると使い道が広がる

あるいは5行6列目のセルを処理する関数を
X行Y列目を処理するように拡張するだとか
関数の引数は数学の変数のように考える

そして関数（やクラス）を自作する時のポイントは
なるべく関数を小分けにして組み合わせて使うこと
関数が大きくなると理解するのも難しくなるから

印刷やシートのコピーとか別の処理を
ひとつの関数で全部やろうとしないで
別々の関数に書いておく

それで呼び出し元の関数から
実行する関数をIF文で切り替えたりする
Excel VBAに限らずプログラミングの定石

2020/04/15(水) 08:51:03.63

個人的な意見だけど
変数を日本語にする事の欠点は、目立ちすぎて、他が見にくくなる事だと思う
ループカウンタの様な頻出する変数には、制御構造が見にくくなるので避けるべき
ルーチンの目的的なものとか、あまり使わないような変数については、場合によっては推奨

2020/04/15(水) 10:07:54.93

いいたいことはわかる
なでしこみたいに構造もそうなってれば、比較して自然に見えるしね

まあでも英語で慣れちゃってると、気になっちゃうから可読性低いと評価してしまうわ

2020/04/15(水) 11:57:43.10

>>303
絶対に止めた方が良い。
今、他人のそういうコードで四苦八苦してる。

しかもプロシージャも日本語だから
If 測定結果 Then
などとあって、"測定結果"が変数なのかBooleanを返すプロシージャなのかすら直ぐには分からない。

2020/04/15(水) 12:04:59.54

それはエーゴでもかわらなくなくね？

2020/04/15(水) 12:43:22.36

>>32
「定義」ですぐわかる

2020/04/15(水) 12:47:51.20

325の間違い

2020/04/15(水) 13:14:16.12

がっつり英語だと、こんどは辞書を引く作業が待ってることもある
発音がわからないと会話で困るし

2020/04/15(水) 13:39:00.87

特定のURLのソースに任意の文字列が記載されているかどうかを判断したい。

https://auctions.yahoo.co.jp/seller/abcdfgh
https://auctions.yahoo.co.jp/seller/zakattas
https://auctions.yahoo.co.jp/seller/zafect789
というページのリストがあったとして、ソースに"停止中"もしくは"無効"の文字列が
あるURLにはB列に"NG"と吐き出す、ということをやりたいです。

https://okwave.jp/qa/q6120067.html
が近いんですが「２）一般的な文字列の場合」はエラーが出て動きませんでした。
VBAに詳しい人、よろしくお願いします。

2020/04/15(水) 13:51:28.81

grep なら一行でできるのに VBA でやらないといけないのか

2020/04/15(水) 13:53:51.50

人に送ったら日本語フォントない海外PCで全く動かなくなったりしたな

2020/04/15(水) 14:13:32.74

>>330
参考リンク先のどのプログラムを試して、どの行でどんなエラーが出たか書いて
エラーが出たままでCtrl+Cを押せば、エラーメッセージがクリップボードに入るから、それをコピペして
あと、目的のWEBサイトの文字コードはちゃんと確認した？

2020/04/15(水) 14:16:13.29

>>331
まあ wget | nkf | grep のが簡単かもね

**330** (ﾜｯﾁｮｲ 778f-o1R8) · 2020/04/15(水) 14:42:43.03

>>333
すいません。
コピペ繰り返してたらなんとか行けました。

Sub YouTube_Search()
Dim objIE As Object
Dim i As Long
Dim j As Long
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
For i = 1 To Range("A1").End(xlDown).Row
.navigate Cells(i, 1).Value
While .Busy Or .ReadyState <> 4: DoEvents: Wend
For j = 1 To .document.all.Length
If InStr(.document.all(j - 1).outerText, "Yahoo! JAPAN IDが無効です") > 0 Then
Cells(i, 2).Value = "＊"
Exit For
End If
Next
Next
End With
objIE.Quit
Set objIE = Nothing
End Sub

2020/04/15(水) 14:43:10.74

>>326
確かに。
でも日本語フィールドが多いSQL文の中で、一部の変数も日本語だったりするのとか、変数と気付かなかったりするのもあるし、最悪だよ。

2020/04/15(水) 15:14:20.64

かわらなくね？かわらなくなくね？

2020/04/15(水) 19:27:28.55

>>325
なんの測定なのか知らんけど測定結果がBooleanな時点で知能の足らない職場と言うことがわかる
コードレビューなんてしたこと無いだろ

2020/04/15(水) 21:47:05.33

辞書で調べても馴染みのない単語でかえってわかりにくくて結局日本語にしてみたりね

2020/04/15(水) 22:13:27.05

311です。

>>314,317,322
私がやろうとしていたことが、まず効率の悪いことだったんですね・・・
細かく分けて関数作って、それを組み合わせて作る方法を取りたいと思います。
（ただ、どこまで細かく分ければいいのか、まだ要領を掴んでおりませんが）
ありがとうございました。

2020/04/15(水) 22:29:20.66

初心者ですがご教授下さい

サンプルの工程能力で1個につき6項目の測定値をソフトがエクセルにデータ出力してくれるけど、日によっては23個だったり25個だったりしか測定できず

残りの記入方法は人によって様々で
ある人は測定値のバラつきに近い値をテンキーで手打ち
ある人はエクセルのrandbetween関数で
各項目の測定値のMAXとMINで乱数だしてそれをコピぺ

ｻﾝﾌﾟﾙ1 ｻﾝﾌﾟﾙ2　～ｻﾝﾌﾟﾙ30
項目1
項目2
項目3
項目4
項目5
項目6

こんな並びで全項目測定後に出力されるから項目の途中で止まることはないです

「ｻﾝﾌﾟﾙ1～30の間の項目1の行に空白があった場合、それより前（左）にある全ての測定値を参考に乱数でｻﾝﾌﾟﾙ30の項目6まで埋める」

これは難易度かなり高いですか？

2020/04/15(水) 22:33:03.58

誤記というか間違えました
「ｻﾝﾌﾟﾙ1～30の間の項目1の列、又はセルに空白があった場合、それより前（左）にある全ての測定値を参考に乱数でｻﾝﾌﾟﾙ30の項目6まで埋める」
です
すみませんがどういったアプローチがあるのか
そもそもできるのかご教授下さい

2020/04/15(水) 22:49:03.78

>>342
それは多分難しくないと思うけど、読解力がなくてよく分からない。
サンプル的なものを挙げてもらえると分かりやすいかも。

**322** (ﾜｯﾁｮｲ 57ad-LzhE) · 2020/04/15(水) 23:00:46.12

>>340
＞どこまで細かく分ければいいのか
基本的に処理は関数名に沿って分ける

関数名から逸脱した処理があれば
別の関数に分けて整理していく

だから関数や変数の
適切な命名が重要になってくる

面倒でも名前と処理を対応させた方が
後でメンテナンスしやすくなる

2020/04/15(水) 23:19:56.30

>>343
いや、俺の説明力がなくて、、
というか行列が逆でした
再度説明させてください

https://i.imgur.com/D4MOqky.jpg
こんな感じで機械がエクセルに出力してくれるけど
残りのサンプルの数字は上の測定値を見てみんなそれぞれランダムにテンキーで入力したりと、いわゆる数値を適当にバラして打ち込んでます。（偽装というほど重要ではないので）
日によって測定できるサンプルが数が違います。

参考になるか程度のスクショになりますが

「サンプル1から30までで空白の行列があったらそれまで測った上のサンプルの測定値を元に乱数でサンプル30の項目6までVBAが全て記入してくれないかなと、

こんな感じです

2020/04/15(水) 23:34:48.80

「列、又はセルに空白があった場合、それより前（左）にある全ての測定値を参考に」というのは？

その例でいうと、
・項目1のサンプル8、9、10が空欄なので、1から7の数値を元にして適当な数値で埋める。
・残りの項目についても同様

ということですか？つまり上の数値を元にしてるけど。

処理自体は難しくないとは思います。

2020/04/15(水) 23:57:01.64

>>346
その例でいうと、というか今の職場の手間になってる仕事がまさにその通りです
上の数値を元に残りの項目を誰かが埋めてます

どんなアプローチで行ったらよさそうかアドバイスいただませんか
Rnd関数Int関数、Loop、Offset
調べてもなかなかわからずです‥

2020/04/15(水) 23:58:14.63

>>345
数字を偽装するルールが人によって違うのはわかったけど、あなたはどういうルールでやりたいのか、もうちょっと厳密に書いて
「それまでの数値を参考に」という表現では曖昧すぎてプログラミングできない

例として、サンプルが7個しかなかった場合は、その7個の数字をどう使って30個に増やすのか？

2020/04/16(木) 00:23:27.26

>>348
数式と一覧を削りましたが普段はここの赤矢印に測定したデータのMax値とMin値を入れて
EXCELの関数でこのような数式で乱数を
出しています
数年前に自力で作ったけどもはや覚えていないレベルです
https://i.imgur.com/eglO3Ph.jpg

2020/04/16(木) 00:25:05.62

あとスクショ取りたいが故に行数の抜けやズレが、、、すみません

2020/04/16(木) 00:30:19.56

最低値+rnd×最大最低の差で乱数になるよ

2020/04/16(木) 00:35:38.28

とりあえず行と列の位置は>>345の画像に合わせて作ったから、あとは適当に修正して

Sub Macro1()
　　For 項目 = 1 To 6
　　　　列 = 項目 + 2
　　　　最小 = Application.WorksheetFunction.Min(Cells(6, 列).Resize(30)) * 1000
　　　　最大 = Application.WorksheetFunction.Max(Cells(6, 列).Resize(30)) * 1000
　　　　For サンプル = 1 To 30
　　　　　　行 = サンプル + 5
　　　　　　If Cells(行, 列) = "" Then
　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000"
　　　　　　　　Cells(行, 列) = Application.WorksheetFunction.RandBetween(最小, 最大) / 1000
　　　　　　End If
　　　　Next
　　Next
End Sub

2020/04/16(木) 00:52:18.67

>>351の方法を取り入れてみた

Sub Macro1()
　　For 項目 = 1 To 6
　　　　列 = 項目 + 2
　　　　最小 = WorksheetFunction.Min(Cells(6, 列).Resize(30))
　　　　最大 = WorksheetFunction.Max(Cells(6, 列).Resize(30))
　　　　幅 = 最大 - 最小
　　　　For サンプル = 1 To 30
　　　　　　行 = サンプル + 5
　　　　　　If Cells(行, 列) = "" Then
　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000"
　　　　　　　　Cells(行, 列) = Rnd() * 幅 + 最小
　　　　　　End If
　　　　Next
　　Next
End Sub

2020/04/16(木) 01:25:57.84

>>353
神様過ぎびっくりです。

セルをクリックすると.0754322457888とか小数点が残ってるのですがこれを
EXCELのROUND関数みたいに四捨五入した状態でここに出力するようにできますか？
四捨五入で0.000の桁で出力できたらもう
職場の2人が失職してしまうレベルです

2020/04/16(木) 01:33:01.52

それくらい調べたんかな

2020/04/16(木) 01:41:31.92

>>354
Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3)

実際、ごく簡単なマクロで仕事を効率化したおかげで毎年たくさんの失業者が出てるからほどほどにな
経営側でなければ、サビ残がなくなるぐらいのところでやめとけよ

2020/04/16(木) 01:59:01.29

>>356
神様ありがとう。涙出てきました。

2020/04/16(木) 02:43:35.11

>>357
またこの間の馬鹿か

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-csEB) · 2020/04/16(木) 03:23:43.55

無意味なデータ入力に数百万の人件費を払う会社か
すげーな
マクロで解決するより、その作業をなくす方法を真剣に考えた方がいいんじゃないか？

2020/04/16(木) 08:08:02.24

コード教えて君もいるし、PC博士気取れるから教えちゃうやつもいる

2020/04/16(木) 08:16:07.12

一時しのぎにはなっても長い目で見れば迷惑にしかならない

2020/04/16(木) 10:34:35.59

自力でマクロも書けんやつが作ったマクロで会社の経理やるなんてブラック企業しかない

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-xa8R) · 2020/04/16(木) 11:54:49.56

4月は零細の新入社員が単純作業をマクロでどうにかしようとがんばる時期

2020/04/16(木) 11:56:31.62

そして保守できずに五月病で辞める

2020/04/16(木) 12:13:47.85

＞＞363
もともと99%はブラックだし
会社の規模とか無関係に

2020/04/16(木) 12:29:59.97

初歩的な質問なんですけど、ロック付きのブックを編集してSaveAsやcloseで保存したときにロックなしのブックにしたいんですが、どうやればできますか？

**270** (ﾜﾝﾄﾝｷﾝ MMcf-4RW9) · 2020/04/16(木) 12:54:20.23

>>366
イベントプロシージャにロックを外す処理を書けばいい

2020/04/16(木) 13:43:07.44

ロックかけた人に外してもらう

2020/04/16(木) 13:47:25.66

俺に会社の経理やらせてくれたら自分の口座に自動で入金する処理入れるよ

2020/04/16(木) 14:50:28.74

画像フォルダのファイル名を取得→ファイル名と同じ文字列の入ったセルに画像を挿入→画像をセルのサイズに合わせるというサンプルコードを見つけたのですが
画像フォルダ内にファイル1～5まであり、エクセル内にファイル1の文字列がない場合、「オブジェクト変数またはwithブロック変数が設定されていません。」のエラーが出ます
おそらくIFでその場合の処理を設定すればよいのではと思うのですが、変数の設定の仕方が分からないです
昨日今日始めたネット聞きかじりの知識で申し訳ございませんがアドバイス頂けないでしょうか

2020/04/16(木) 15:01:25.35

>>370
まずはうまく動かないコードをここに書いて

2020/04/16(木) 15:08:48.79

こらはまたコード出してくれるの待ってるクレクレ君

2020/04/16(木) 15:11:15.02

>>371
ネット丸パクリのコードだけど

Sub sample04()
Dim objShape As Object
Dim strPath As String, strFileName As String
Dim strImgName As String

strPath = "c:¥temp¥"
strFileName = Dir(strPath & "*.jpg")

Do Until Len(strFileName) = 0
strImgName = Left(strFileName, Len(strFileName) - 4)

Cells.Find(What:=strImgName).Activate
ActiveCell.Offset(0, 1).Activate

Set objShape = ActiveSheet.Shapes.AddPicture( _
Filename:=strPath & strFileName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=ActiveCell.Left, _
Top:=ActiveCell.Top, _
Width:=ActiveCell.Width, _
Height:=ActiveCell.Height)

strFileName = Dir()
Loop

End Sub

2020/04/16(木) 15:12:43.83

最終的には画像1-4はシート1、5はシート2みたいな感じに貼りたいんだがとりあえず画像1の文字列ないとエラー起こすのを直したいです

2020/04/16(木) 16:37:22.10

どこでエラーが起きてると思う？
検索して見つからなかったセルに対して何かをしようとしたから、何に対してやるんだよーってエラーが起きたんだよ

コードを見ると、Findメソッドの戻り値に対して直接Activateしてるから、そこをばらす必要があるので、一旦戻り値を変数に受けるといい
セルはRangeオブジェクトで、 Findメソッドは通常、Rangeオブジェクトを返す
オブジェクトを変数に代入する場合は、 Set をつける
見つからなかった場合はFindメソッドはNothing を返す
オブジェクトの比較には、Is を使う例: If Not(r is Nothing) Then ～

あとはがんばれ

2020/04/16(木) 17:37:30.19

馬鹿がコピペで作ったものは使い物にならない

2020/04/16(木) 18:14:58.11

>>367
ありがとうございます。やってみます

2020/04/16(木) 18:19:31.46

Sub sample04()
　　Dim objShape As Object
　　Dim strPath As String
　　Dim strFileName As String
　　Dim strImgName As String
　　Dim rngStatus As Object
　　strPath = "c:\temp\"
　　strFileName = Dir(strPath & "*.jpg")
　　Do Until strFileName = ""
　　　　strImgName = Left(strFileName, Len(strFileName) - 4)
　　　　Set rngStatus = Cells.Find(What:=strImgName)
　　　　If Not (rngStatus Is Nothing) Then
　　　　　　rngStatus.Offset(0, 1).Activate
　　　　　　Set objShape = ActiveSheet.Shapes.AddPicture( _
　　　　　　Filename:=strPath & strFileName, _
　　　　　　LinkToFile:=False, _
　　　　　　SaveWithDocument:=True, _
　　　　　　Left:=ActiveCell.Left, _
　　　　　　Top:=ActiveCell.Top, _
　　　　　　Width:=ActiveCell.Width, _
　　　　　　Height:=ActiveCell.Height)
　　　　End If
　　　　strFileName = Dir()
　　Loop
End Sub

2020/04/16(木) 18:52:45.98

>>369
自動なのにトロイ処理とはこれいかに！

2020/04/16(木) 19:18:26.95

>>342
「それより前（左）にある全ての測定値を参考に」が仕様としては曖昧模糊としてる気がする。

2020/04/16(木) 19:21:15.56

>>375
>>378
ありがとうございます、動かしながら理解していこうと思います

2020/04/16(木) 20:15:43.63

>>338
知らねーよ。
10年以上前の、他社から引き継いだ、正直全部書き直したいけど今動いてるからそっとしておいてるコードだよ。

2020/04/16(木) 21:03:51.84

指摘されたら他社とか言い出してて笑うわ

2020/04/16(木) 21:21:39.75

>>381
理解もできない代物を知らない誰かの作ったコードで動かそうという馬鹿

2020/04/16(木) 22:03:58.10

理解してないコードを使う無能に仕事やらせるとかやっぱブラックだったか

2020/04/16(木) 23:38:37.29

そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから
そういうのをメンテしなきゃならない羽目になったって話だろ
プログラム板の中では異質なスレなんだと思う

コードレビューとか言ってるやつは確実にアスペ、そういう事情が想像出来る脳みそが生まれつき備わってない
相手するだけ無駄

2020/04/17(金) 00:46:06.16

他の誰かがってのは全部言い訳
仕事してメンテするなら自分自身が目の前の有りものを完全理解しないといけない

事情は関係ない
仕事としてやる以上自分の責任として取り組むべき
それを怠って開き直るのは無責任であり無能でありいつまでも何も成せない

趣味ならしらん

2020/04/17(金) 01:58:25.17

>>386
素人がつくろうが会社で使うんだろう

2020/04/17(金) 05:06:04.15

>>386
> 今、他人のそういうコードで四苦八苦してる。
↓
> 今動いてるからそっとしておいてるコードだよ。

言うことコロコロ変わりすぎw

2020/04/17(金) 17:04:26.22

散々ここで聞きまくって不快な思いをさせた物ですが完全に職場での運用に成功しました。
本当にみなさんのおかげというか頭良すぎですねここの人は…
フォルダ内にあるtxt全ての任意の列行を片っ端からエクセルにコピーする
空白の部分は乱数で処理
この辺は無知にとってはえげつないです。
提案で出そうと思ったらもっと大きな発表テーマで使うぞと言われました。
100のワークの測定データを作るのに2日かかってたのが5分でテンプレートに出力完了…

2020/04/17(金) 18:42:59.04

>>390
馬鹿は死ねよ

2020/04/17(金) 18:48:40.08

せっかくtxtという利用しやすいデータ形式なのに
わざわざxlsなんかにしちゃって
トドメとばかりにゴミデータをインプラント

面白い人だな

2020/04/17(金) 19:49:43.28

>>383
実際そうだし、というか、そんなの多いぞ。

2020/04/17(金) 19:52:36.64

>>386
素人じゃないと思うよ。
形の上では。

お客は自ら作るという会社では無い。
作ったのは請け負っている会社だよ。
コメントに会社名らしきものが書かれてるし。

2020/04/17(金) 19:58:42.41

>>389
あのね、客の要望は有るんだよ。
要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。
そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。

というか、こんなのVBAに限らず開発やってる会社なら何処でもある話だけどな。
ここには開発専門で仕事したことのある奴が少ないということか。

2020/04/17(金) 20:10:16.78

他社が作ったコードを客の要望で機能追加
しかもVBA
そんなズタボロの状態で開発専門とか大丈夫かよw

2020/04/17(金) 20:49:15.97

>>394
その会社名らしきところに使用料とか払った？
それともその会社に無断で会社名入りのファイル使ってるの？

2020/04/17(金) 21:12:50.72

自分で書いたコードでも嫌です

2020/04/17(金) 21:26:37.34

>>396
今まで幾つかの開発会社で働いたが、どこでもある話。
VBAにも限らない。
まあ、日本語変数とか日本語関数はVBA以外では聞いたこと無いけどな。

前のコードが酷いので、書き直したらもっと酷くなったなんて、某SE本にも書いてあった。

2020/04/17(金) 21:28:25.17

>>397
プログラムは客のもんなので、そんな話にゃならねーよ。
普通はそうなる。
客のもんになってない例もあるかもしれんが見たこと無い。

2020/04/17(金) 21:30:17.79

>>397
これ、VBAの話ね。
コンパイルする言語の場合はそうでない例があったな。