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/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の話ね。
コンパイルする言語の場合はそうでない例があったな。

2020/04/17(金) 21:52:47.98

>>400
> プログラムは客のもんなので
↑
> 他社から引き継いだ

ボロ出し過ぎw

2020/04/17(金) 22:02:00.02

いい加減、他人の宿題とか仕事とかに安易に回答与えるのやめたほうが
いいんじゃないかと。

2020/04/17(金) 22:44:22.88

大手から零細まで、色々なところで仕事してきたけど、会社によっては日本語の関数とか変数は別に珍しくなかったな

2020/04/17(金) 23:04:41.99

現実問題として、VBAで複雑なマクロを書くと重くて動かないと思うんだけどな
それでも我慢して使っているのかな?

2020/04/18(土) 08:44:33.63

Excelでポリゴンゲー作るとか、
相当極端なことをしない限り大丈夫。

2020/04/18(土) 09:44:05.01

複雑な処理だからって重くなることはないだろ
重い処理をするから重くなるのであって

2020/04/18(土) 12:59:54.88

>>402
お前、事務員だろ。
自分のボロに気付いて無いw

開発会社で働いたことある奴ならすぐわかる。

2020/04/18(土) 13:06:18.62

>>405
スキルの低い奴はそうなる。
もちろんVBAは遅いけど、VBAで実施するようなことで、どうしても遅くなると想定されるような処理は殆ど無い。
VBAで実施するようなことじゃなければ別だが、そういう話はあまりない。

2020/04/18(土) 13:08:05.25

>>404
話には聞いたことがあるが、自分が目の当たりにしたのは今回が初めてだ。

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-Gzel) · 2020/04/18(土) 13:16:31.33

関数名だけ日本語ってルールにしてるところは見たことがある
意外と見づらくなかった

2020/04/18(土) 13:29:04.29

>>408
> 開発会社で働いたことある奴ならすぐわかる。
なら詳しく説明してみなよ
客のものを勝手に引き継ぐとか犯罪だぞw

2020/04/18(土) 13:33:12.64

>>411
まあ、読むのは慣れだと思う
慣れればそんなに苦じゃないし意味不明な英訳調の関数名や変数名よりマシ
ただ入力がかなり面倒

2020/04/18(土) 13:38:19.65

>>412
???
日本語が理解出来ない人?

客が依頼していた開発会社を変えただけのことだろ。
10年前依頼されてた開発会社のコメントがソースにあったが、プログラムは客のもんだ。
今、依頼されてるうちの会社がどうして10年前に依頼されてた会社の了解を取る必要がある?

2020/04/18(土) 13:43:26.52

>>412
というかね、こんなの普通によくあることだぞ。
別会社のコメントなんて何度も見たことある。

開発会社で働いたことあれば、そんな所に違和感なんて感じないだろ。

2020/04/18(土) 13:53:22.59

ソースコードの著作権をどっちがもつかは契約によるぞ
著作権をシステム会社側がもってるのに違う会社に開示したらそれは違法行為
知らずにやってるってのは昔はよく聞いた

10年前に依頼されてた会社の了解を取る必要はないが
普通はソース開示受けるなら開示元に著作権の確認はする

2020/04/18(土) 14:00:07.44

>>416
そんなの常識だろ。
だが、そこまで分かってるなら結論も容易に想定出来ると思うんだが。

VBAの開発ではExcelならブックそのものにソースが付いてくるし、実質派遣のような形態も多い。
つまり、契約上客のもんになってると想定するのが普通。

2020/04/18(土) 14:01:39.81

ここで言ってる想定ってお前のことだからな。
そんな想定も出来ずにいちゃもん付ける奴に言ってる。

2020/04/18(土) 14:04:14.62

>>414-415
> 客が依頼していた開発会社を変えただけのことだろ。
それ引き継ぐなんて言わんだろ
お前の会社から見たら単に客から改修を依頼されただけ
元のソースを別会社が作ってたか客が作ってたかなんて関係ないし

> 日本語が理解出来ない人?
お前の日本語がおかしいだけ
まあどんどん辻褄合わなくなってるだけとも言うがw

2020/04/18(土) 14:05:27.78

>>419
???
言うだろw

日本語を理解出来なかった言い訳が見苦しいw

2020/04/18(土) 15:07:20.22

>>419
日本語がおかしいというより、自分の脳内理解が共通認識だって信じて疑わない人だったようだぞ
かまった俺も悪かったが、俺は今後スルーするからお前もそうしろ

2020/04/18(土) 15:20:13.12

スレ違いになってきてるとは思うが。

最初のほうの386には
「そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから
そういうのをメンテしなきゃならない羽目になったって話だろ」
って書いてあって、
ここ数レスはプログラム(開発資産)として引き継いだ中のVBAソースコードに焦点が当たってるように見える

まず引き受けた方がプロ(仕事としてVBAをやる)として、
前者ならドキュメントとかなくても(時間さえあれば)改修も簡単だろう。
後者ならドキュメント残してないやつ、もしくはそれを知らずにスキルもなく引き受けたやつが悪い。

まあこんな、前提とゴールをあやふやにして不毛で幼稚な言い合いをしたいなら別にスレを立ててろ

2020/04/18(土) 15:25:44.82

>>420
> 言うだろw
言うのはお前だけなw

>>421
知ったかが盛って語ったら引っ込みつかなくなったパターンだと思う

2020/04/18(土) 15:45:18.98

>>422
開発やったこと無い奴だから簡単等と言えるw
確かにドキュメントは無いが、あっても他人のコード読むのは大変だぞ。

2020/04/18(土) 15:47:00.47

>>423
引き継ぎって言葉分かってる?
それに、想像力があれば一番最初の段階で想定できるような話なんだがw

2020/04/18(土) 15:51:30.21

引き継ぎ開発でクグったら最初の3つとも他社からの引き継ぎのことが書いてあったわw

開発会社じゃ当たり前のことなんだけどなw

2020/04/18(土) 15:56:09.94

でもググったURL

2020/04/18(土) 15:56:30.59

は出せないw

2020/04/18(土) 15:59:10.55

>>422
ああ、素人のコードを引き継いだとしたらの話か。
まあ、素人の短い簡単なコードならその通りだな。

まあ、>>394に書いた通り、形の上では開発会社らしき所のコードだし、コード量も多いからねえ。
VBAはそういうの多いんだよ。
形では仕事で受けてても素人のコードとか。

2020/04/18(土) 16:01:12.79

>>427
出しても構わんがw
マナー的に出してないだけでw

というか、お前もググって見てから言えよ。
事務員の上にググることさえ出来ないのかよw

2020/04/18(土) 16:21:35.89

出しても構わんけど出せない
うんうん、そうだろねw

2020/04/18(土) 16:40:22.00

>>431
ググれないバカに出してやろうwww

システムの保守ベンダー変更による引き継ぎ
https://www.lanscope.jp/tips/8797/

他社開発システム・アプリケーション保守引継ぎ
https://www.stylez.co.jp/apmt/

他社が開発したシステムを引き継ぎます
https://www.tpc.jp/%E4%BB%96%E7%A4%BE%E3%82%B7%E3%82%B9%E3%83%86%E3%83%A0%E3%81%AE%E5%BC%95%E5%8F%97/

他社が開発したシステムも開発を引き継ぎ保守します。
https://kusanagi.dht-jpn.co.jp/2019/04/yamahakusanagi/

他会社が受託開発したPHPのWEBシステムを引き継ぎ運用し、その後の改修対応などを行うことがあります。
https://qiita.com/xylitol45@github/items/271f2b8e5de3e62d0840

そのWebサイト・システムの保守引き継ぎます。
https://www.accent.co.jp/lp_hosyu/

2020/04/18(土) 16:46:17.35

>>423
な、お前のような素人だけだよw
客が依頼してた会社を変えて、引き受けたのを引き継ぎとは言わないのはwww

2020/04/18(土) 17:45:11.63

必死にググったのは褒めてやるよw
でも、それ運用とか保守の話だろ
そりゃそう言うのは連続してるから引き継ぎって言うだろうけど、10年前の他社のコードの改修を引き継ぎとは言わんわな

2020/04/18(土) 17:51:35.98

微妙にニュアンスがずれてる気がするけど
わざと？

2020/04/18(土) 19:45:41.80

他でやれ

2020/04/18(土) 22:46:28.51

>>434
必死?
一発で出たぞwww

またボロが出る。
開発は作って終わりだと思っているのか?
普通は保守へと継続していくもんなんだが。
何も知らんのなw

2020/04/18(土) 22:51:16.48

>>410
ブラック・ショールズ式ってのが金融の世界にあるんだが、これをググって
初めて日本語の変数見て目が点になったｗ

2020/04/19(日) 05:44:09.18

質問していいのか？
グラフの近似式をセルにコピペするマクロだ。

2020/04/19(日) 06:21:55.35

あらら、他社のコードの保守まで受託してるって話にするの？
そういうケースだと普通はドキュメントも貰ってるはずだけどろくなドキュメントがないって話かな
そんなハイリスキーな受託して>>325みたいな愚痴こぼしてるなら知能の足りない会社と言われてもしょうがないじゃん

まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
でないと保守できないから
>>437は保守が何をするのかすらわかってなさそうw

2020/04/19(日) 06:29:22.92

>>439
コピペは難しい、普通にセルに直接ぶち込め
って書かれてるぞ
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14139043119

2020/04/19(日) 08:34:09.85

近似式をテキストとしてセルに貼るとこまでできたが、そのテキストから係数を得る方法はないですか

2020/04/19(日) 08:38:32.44

近似式をセルに落とし、計算する作業が大量のあるためです

2020/04/19(日) 09:19:45.38

>>440
プw
引き継ぎって知らんの?
いい加減、恥を晒すだけだぞw
というか、VBA案件だけの話だと思ってる?
爆笑もんだw

1つの客から1つの案件だけのわけね―だろ。
寧ろVBAの開発はメインじゃね―ぞ。
DBにAccessなんて普通は無いんだ。
バックエンドとか知らんの?

2020/04/19(日) 09:25:23.89

>>440
あと、知らんのだろうけど、ドキュメント類についてはVBAの場合はそうならないことが多いんだよ。

今までいろんな案件で仕事したがドキュメント貰ったことなんて記憶に無いくらいだ。
で、ドキュメント作る時間も無いことも多い。

これはVBA案件の特殊性だろうな。
VBAが言語として糞呼ばわりされる原因の1つだろう。

2020/04/19(日) 09:40:28.30

もうウザイから消えろ

2020/04/19(日) 09:44:05.10

>>446
無理にこのスレに居なくてもいいんですよ

2020/04/19(日) 10:45:28.85

>>442
近似式a x + bからa とか bを切り出すってこと？
VBA使わずともエクセル関数で出来るでしょ
RIGHT、LEFT、MIDとか駆使しろ

2020/04/19(日) 10:51:03.45

>>444-445
今度はAccessガーとか言い出したのか
まあ言い出すのがAccess止まりなのが物悲しいけどねw

ドキュメントも作らずに何を保守するつもりなんだよ
言われたらその場であたふた調べてやっつけ仕事でテキトーに改修するのか？
そう言うクズ会社なのはよくわかったよ

2020/04/19(日) 11:52:18.06

自宅待機でストレス溜まってんだろなー

2020/04/19(日) 12:04:09.20

>>449
バーカw
今度はじゃね―よw

ある特定の案件だけと考えるバカに教えてやってるだけ。
客からの要望はたくさんある。
VBAなんてたくさんある中のごく一部なのがむしろ普通。

ドキュメント作らずってw
それは最初に受けた会社に言えよwww
現実を知らないニートにゃ分からないんだろうなw

2020/04/19(日) 12:05:45.52

日本語が通じないんだよな。
ドキュメント残してないのがコッチにされてる。

2020/04/19(日) 12:08:31.03

トヨタ並に名前が知られた客から提示されたのがプログラム本体だけで、それ以外何もありませんってことだって有るんだけどな。
結構昔の話だが。

2020/04/19(日) 12:19:58.59

連投バカは日本語が理解できないらしい…
まあ無職の脳内妄想の限界かなw

> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す

2020/04/19(日) 22:09:40.02

長文質問失礼いたします。

VBAを用いたAscⅡコード129～159、224～252範囲の文字変換が上手くいきません。
環境:Windows10Pro excel2007 VB6.5

上記以外のアスキーコードでは、
①[Chrを用いた、AscⅡコード→文字への変換] → ②[Ascを用いた、文字→AscⅡコードへの変換]
の順序で2回変換すると最初と最後でコードが一致します。

しかし、129～159、224～252の範囲だと、
①変換では「・」、②変換では「-32443」が出力されます。(129～159、224～252の範囲ですべて同じ結果)

変換に適した別のコマンドがある、そもそもこのVerでは動作しない等、アドバイスをよろしくお願いいたします。
※大元の目的としては、オシロスコープから取り込んだ画像バイナリデータを画像データにするため、AscⅡコード→文字への変換を行おうとしています。

2020/04/19(日) 22:31:33.52

文字として表示って、その範囲をどんな文字で表示したいんだ？
画像バイナリデータを画像データって、普通画像データはバイナリなんだが

文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね

2020/04/19(日) 22:31:47.99

>>455
アスキーはAscⅡじゃなくてAsciiな
あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない

方法が間違ってないとして、どこかでデータが化けてる可能性があるけど、どこが悪いのかその文章だけではわからない
まずは変数の型をチェックかな

2020/04/19(日) 22:58:29.23

-32443は文字化けした時に表示される文字のコードだから、根本的にデータの受け渡し方法を間違えてる