Excel VBA 質問スレ Part65

1 名前：デフォルトの名無しさん mailto:sage [2020/03/17(火) 16:27:20.88 ID:hh8LiIgR0.net] ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part64 https://mevius.5ch.net/test/read.cgi/tech/1575297834/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 369 名前：270 (ﾜﾝﾄﾝｷﾝ MMcf-4RW9) mailto:sage [2020/04/16(Thu) 12:54:20 ID:cYWHpILcM.net] >>366 イベントプロシージャにロックを外す処理を書けばいい 370 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg) mailto:sage [2020/04/16(Thu) 13:43:07 ID:pZjivNa8a.net] ロックかけた人に外してもらう 371 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg) mailto:sage [2020/04/16(Thu) 13:47:25 ID:pZjivNa8a.net] 俺に会社の経理やらせてくれたら自分の口座に自動で入金する処理入れるよ 372 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 14:50:28.74 ID:xWZcVh5Wa.net] 画像フォルダのファイル名を取得→ファイル名と同じ文字列の入ったセルに画像を挿入→画像をセルのサイズに合わせるというサンプルコードを見つけたのですが 画像フォルダ内にファイル1〜5まであり、エクセル内にファイル1の文字列がない場合、「オブジェクト変数またはwithブロック変数が設定されていません。」のエラーが出ます おそらくIFでその場合の処理を設定すればよいのではと思うのですが、変数の設定の仕方が分からないです 昨日今日始めたネット聞きかじりの知識で申し訳ございませんがアドバイス頂けないでしょうか 373 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:01:25.35 ID:YY8HOOMA0.net] >>370 まずはうまく動かないコードをここに書いて 374 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:08:48.79 ID:RK65w6zF0.net] こらはまたコード出してくれるの待ってるクレクレ君 375 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:11:15.02 ID:xWZcVh5Wa.net] >>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 376 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:12:43.83 ID:xWZcVh5Wa.net] 最終的には画像1-4はシート1、5はシート2みたいな感じに貼りたいんだがとりあえず画像1の文字列ないとエラー起こすのを直したいです 377 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r) mailto:sage [2020/04/16(Thu) 16:37:22 ID:V7jYJHWg0.net] どこでエラーが起きてると思う？ 検索して見つからなかったセルに対して何かをしようとしたから、何に対してやるんだよーってエラーが起きたんだよ コードを見ると、Findメソッドの戻り値に対して直接Activateしてるから、そこをばらす必要があるので、一旦戻り値を変数に受けるといい セルはRangeオブジェクトで、 Findメソッドは通常、Rangeオブジェクトを返す オブジェクトを変数に代入する場合は、 Set をつける 見つからなかった場合はFindメソッドはNothing を返す オブジェクトの比較には、Is を使う 例: If Not(r is Nothing) Then 〜 あとはがんばれ 378 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY) [2020/04/16(Thu) 17:37:30 ID:Kf4avcM70.net] 馬鹿がコピペで作ったものは使い物にならない 379 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-LtOn) mailto:sage [2020/04/16(Thu) 18:14:58 ID:mPB4Kayur.net] >>367 ありがとうございます。やってみます 380 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 18:19:31 ID:YY8HOOMA0.net] 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 381 名前：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 [] [ここ壊れてます] 382 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 18:52:45.98 ID:Cbge2SK50.net] >>369 自動なのにトロイ処理とはこれいかに！ 383 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r) mailto:sage [2020/04/16(Thu) 19:18:26 ID:np7lPiVv0.net] >>342 「それより前（左）にある全ての測定値を参考に」が仕様としては曖昧模糊としてる気がする。 384 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-o3Ob) mailto:sage [2020/04/16(Thu) 19:21:15 ID:XXRRqnVg0.net] >>375 >>378 ありがとうございます、動かしながら理解していこうと思います 385 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 20:15:43.63 ID:/BsiXYGwd.net] >>338 知らねーよ。 10年以上前の、他社から引き継いだ、正直全部書き直したいけど今動いてるからそっとしておいてるコードだよ。 386 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-h94e) mailto:sage [2020/04/16(Thu) 21:03:51 ID:l2cOjNdn0.net] 指摘されたら他社とか言い出してて笑うわ 387 名前：デフォルトの名無しさん [2020/04/16(木) 21:21:39.75 ID:Gr+82O4W0.net] >>381 理解もできない代物を知らない誰かの作ったコードで動かそうという馬鹿 388 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 22:03:58.10 ID:5vefqm3N0.net] 理解してないコードを使う無能に仕事やらせるとかやっぱブラックだったか 389 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffe6-ycCE) mailto:sage [2020/04/16(Thu) 23:38:37 ID:NQ0wsZwj0.net] そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから そういうのをメンテしなきゃならない羽目になったって話だろ プログラム板の中では異質なスレなんだと思う コードレビューとか言ってるやつは確実にアスペ、そういう事情が想像出来る脳みそが生まれつき備わってない 相手するだけ無駄 390 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS) mailto:sage [2020/04/17(金) 00:46:06 ID:TM3fWeSx0.net] 他の誰かがってのは全部言い訳 仕事してメンテするなら自分自身が目の前の有りものを完全理解しないといけない 事情は関係ない 仕事としてやる以上自分の責任として取り組むべき それを怠って開き直るのは無責任であり無能でありいつまでも何も成せない 趣味ならしらん 391 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Uqc8) mailto:sage [2020/04/17(金) 01:58:25 ID:d5pl8NtJ0.net] >>386 素人がつくろうが会社で使うんだろう 392 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 05:06:04.15 ID:K8Kq74SuM.net] >>386 > 今、他人のそういうコードで四苦八苦してる。 ↓ > 今動いてるからそっとしておいてるコードだよ。 言うことコロコロ変わりすぎw 393 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb) mailto:sage [2020/04/17(金) 17:04:26 ID:hqq8FpSv0.net] 散々ここで聞きまくって不快な思いをさせた物ですが完全に職場での運用に成功しました。 本当にみなさんのおかげというか頭良すぎですねここの人は… フォルダ内にあるtxt全ての任意の列行を片っ端からエクセルにコピーする 空白の部分は乱数で処理 この辺は無知にとってはえげつないです。 提案で出そうと思ったらもっと大きな発表テーマで使うぞと言われました。 100のワークの測定データを作るのに2日かかってたのが5分でテンプレートに出力完了… 394 名前：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM7f-tZ20) mailto:sage [2020/04/17(金) 18:42:59 ID:35vznKDBM.net] >>390 馬鹿は死ねよ 395 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b7e6-R0o5) [2020/04/17(金) 18:48:40 ID:M4VM/pj30.net] せっかくtxtという利用しやすいデータ形式なのに わざわざxlsなんかにしちゃって トドメとばかりにゴミデータをインプラント 面白い人だな 396 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 19:49:43.28 ID:d0l4uzMSd.net] >>383 実際そうだし、というか、そんなの多いぞ。 397 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN) mailto:sage [2020/04/17(金) 19:52:36 ID:d0l4uzMSd.net] >>386 素人じゃないと思うよ。 形の上では。 お客は自ら作るという会社では無い。 作ったのは請け負っている会社だよ。 コメントに会社名らしきものが書かれてるし。 398 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN) mailto:sage [2020/04/17(金) 19:58:42 ID:d0l4uzMSd.net] >>389 あのね、客の要望は有るんだよ。 要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。 そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。 というか、こんなのVBAに限らず開発やってる会社なら何処でもある話だけどな。 ここには開発専門で仕事したことのある奴が少ないということか。 399 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 20:10:16.78 ID:SpmVGRc5M.net] 他社が作ったコードを客の要望で機能追加 しかもVBA そんなズタボロの状態で開発専門とか大丈夫かよw 400 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 20:49:15.97 ID:d5pl8NtJ0.net] >>394 その会社名らしきところに使用料とか払った？ それともその会社に無断で会社名入りのファイル使ってるの？ 401 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7e5-sLxe) mailto:sage [2020/04/17(金) 21:12:50 ID:zPgoaBKN0.net] 自分で書いたコードでも嫌です 402 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 21:26:37.34 ID:d0l4uzMSd.net] >>396 今まで幾つかの開発会社で働いたが、どこでもある話。 VBAにも限らない。 まあ、日本語変数とか日本語関数はVBA以外では聞いたこと無いけどな。 前のコードが酷いので、書き直したらもっと酷くなったなんて、某SE本にも書いてあった。 403 名前：デフォルトの名無しさん mailto:sage [2020/04/17(金) 21:28:25.17 ID:d0l4uzMSd.net] >>397 プログラムは客のもんなので、そんな話にゃならねーよ。 普通はそうなる。 客のもんになってない例もあるかもしれんが見たこと無い。 404 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN) mailto:sage [2020/04/17(金) 21:30:17 ID:d0l4uzMSd.net] >>397 これ、VBAの話ね。 コンパイルする言語の場合はそうでない例があったな。 405 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-h94e) mailto:sage [2020/04/17(金) 21:52:47 ID:z6C6Zgo5M.net] >>400 > プログラムは客のもんなので ↑ > 他社から引き継いだ ボロ出し過ぎw 406 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r) mailto:sage [2020/04/17(金) 22:02:00 ID:yYE4gKbd0.net] いい加減、他人の宿題とか仕事とかに安易に回答与えるのやめたほうが いいんじゃないかと。 407 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/17(金) 22:44:22 ID:j6CUwBsl0.net] 大手から零細まで、色々なところで仕事してきたけど、会社によっては日本語の関数とか変数は別に珍しくなかったな 408 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Ho7r) mailto:sage [2020/04/17(金) 23:04:41 ID:tPgd0P7Wa.net] 現実問題として、VBAで複雑なマクロを書くと重くて動かないと思うんだけどな それでも我慢して使っているのかな? 409 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-Ho7r) mailto:sage [2020/04/18(土) 08:44:33 ID:FzSpO5p/0.net] Excelでポリゴンゲー作るとか、 相当極端なことをしない限り大丈夫。 410 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 09:44:05.01 ID:QhOAvRvA0.net] 複雑な処理だからって重くなることはないだろ 重い処理をするから重くなるのであって 411 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 12:59:54 ID:DE4BsnuO0.net] >>402 お前、事務員だろ。 自分のボロに気付いて無いw 開発会社で働いたことある奴ならすぐわかる。 412 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 13:06:18 ID:DE4BsnuO0.net] >>405 スキルの低い奴はそうなる。 もちろんVBAは遅いけど、VBAで実施するようなことで、どうしても遅くなると想定されるような処理は殆ど無い。 VBAで実施するようなことじゃなければ別だが、そういう話はあまりない。 413 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 13:08:05 ID:DE4BsnuO0.net] >>404 話には聞いたことがあるが、自分が目の当たりにしたのは今回が初めてだ。 414 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 13:16:31.33 ID:XwSVwu50d.net] 関数名だけ日本語ってルールにしてるところは見たことがある 意外と見づらくなかった 415 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMbf-h94e) mailto:sage [2020/04/18(土) 13:29:04 ID:bylan2xBM.net] >>408 > 開発会社で働いたことある奴ならすぐわかる。 なら 416 名前：詳しく説明してみなよ 客のものを勝手に引き継ぐとか犯罪だぞw [] [ここ壊れてます] 417 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e) mailto:sage [2020/04/18(土) 13:33:12 ID:jvR0dANmM.net] >>411 まあ、読むのは慣れだと思う 慣れればそんなに苦じゃないし意味不明な英訳調の関数名や変数名よりマシ ただ入力がかなり面倒 418 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 13:38:19.65 ID:DE4BsnuO0.net] >>412 ??? 日本語が理解出来ない人? 客が依頼していた開発会社を変えただけのことだろ。 10年前依頼されてた開発会社のコメントがソースにあったが、プログラムは客のもんだ。 今、依頼されてるうちの会社がどうして10年前に依頼されてた会社の了解を取る必要がある? 419 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 13:43:26.52 ID:DE4BsnuO0.net] >>412 というかね、こんなの普通によくあることだぞ。 別会社のコメントなんて何度も見たことある。 開発会社で働いたことあれば、そんな所に違和感なんて感じないだろ。 420 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 13:53:22.59 ID:oUZZgMAe0.net] ソースコードの著作権をどっちがもつかは契約によるぞ 著作権をシステム会社側がもってるのに違う会社に開示したらそれは違法行為 知らずにやってるってのは昔はよく聞いた 10年前に依頼されてた会社の了解を取る必要はないが 普通はソース開示受けるなら開示元に著作権の確認はする 421 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 14:00:07.44 ID:DE4BsnuO0.net] >>416 そんなの常識だろ。 だが、そこまで分かってるなら結論も容易に想定出来ると思うんだが。 VBAの開発ではExcelならブックそのものにソースが付いてくるし、実質派遣のような形態も多い。 つまり、契約上客のもんになってると想定するのが普通。 422 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 14:01:39 ID:DE4BsnuO0.net] ここで言ってる想定ってお前のことだからな。 そんな想定も出来ずにいちゃもん付ける奴に言ってる。 423 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e) mailto:sage [2020/04/18(土) 14:04:14 ID:p9WER9c7M.net] >>414-415 > 客が依頼していた開発会社を変えただけのことだろ。 それ引き継ぐなんて言わんだろ お前の会社から見たら単に客から改修を依頼されただけ 元のソースを別会社が作ってたか客が作ってたかなんて関係ないし > 日本語が理解出来ない人? お前の日本語がおかしいだけ まあどんどん辻褄合わなくなってるだけとも言うがw 424 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 14:05:27 ID:DE4BsnuO0.net] >>419 ??? 言うだろw 日本語を理解出来なかった言い訳が見苦しいw 425 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bf2f-8Jcx) mailto:sage [2020/04/18(土) 15:07:20 ID:oUZZgMAe0.net] >>419 日本語がおかしいというより、自分の脳内理解が共通認識だって信じて疑わない人だったようだぞ かまった俺も悪かったが、俺は今後スルーするからお前もそうしろ 426 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-RTks) mailto:sage [2020/04/18(土) 15:20:13 ID:mWjkYk7T0.net] スレ違いになってきてるとは思うが。 最初のほうの386には 「そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから そういうのをメンテしなきゃならない羽目になったって話だろ」 って書いてあって、 ここ数レスはプログラム(開発資産)として引き継いだ中のVBAソースコードに焦点が当たってるように見える まず引き受けた方がプロ(仕事としてVBAをやる)として、 前者ならドキュメントとかなくても(時間さえあれば)改修も簡単だろう。 後者ならドキュメント残してないやつ、もしくはそれを知らずにスキルもなく引き受けたやつが悪い。 まあこんな、前提とゴールをあやふやにして不毛で幼稚な言い合いをしたいなら別にスレを立ててろ 427 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 15:25:44.82 ID:R5ze2oyiM.net] >>420 > 言うだろw 言うのはお前だけなw >>421 知ったかが盛って語ったら引っ込みつかなくなったパターンだと思う 428 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 15:45:18.98 ID:DE4BsnuO0.net] >>422 開発やったこと無い奴だから簡単等と言えるw 確かにドキュメントは無いが、あっても他人のコード読むのは大変だぞ。 429 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 15:47:00.47 ID:DE4BsnuO0.net] >>423 引き継ぎって言葉分かってる? それに、想像力があれば一番最初の段階で想定できるような話なんだがw 430 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 15:51:30.21 ID:DE4BsnuO0.net] 引き継ぎ 開発でクグったら最初の3つとも他社からの引き継ぎのことが書いてあったわw 開発会社じゃ当たり前のことなんだけどなw 431 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e) mailto:sage [2020/04/18(土) 15:56:09 ID:MLXwdj/hM.net] でもググったURL 432 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e) mailto:sage [2020/04/18(土) 15:56:30 ID:MLXwdj/hM.net] は出せないw 433 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 15:59:10 ID:DE4BsnuO0.net] >>422 ああ、素人のコードを引き継いだとしたらの話か。 まあ、素人の短い簡単なコードならその通りだな。 まあ、>>394に書いた通り、形の上では開発会社らしき所のコードだし、コード量も多いからねえ。 VBAはそういうの多いんだよ。 形では仕事で受けてても素人のコードとか。 434 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 16:01:12.79 ID:DE4BsnuO0.net] >>427 出しても構わんがw マナー的に出してないだけでw というか、お前もググって見てから言えよ。 事務員の上にググることさえ出来ないのかよw 435 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 16:21:35.89 ID:N9jsIxO7M.net] 出しても構わんけど出せない うんうん、そうだろねw 436 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 16:40:22 ID:DE4BsnuO0.net] >>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/ 437 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 16:46:17 ID:DE4BsnuO0.net] >>423 な、お前のような素人だけだよw 客が依頼してた会社を変えて、引き受けたのを引き継ぎとは言わないのはwww 438 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e) mailto:sage [2020/04/18(土) 17:45:11 ID:JSVuvQDyM.net] 必死にググったのは褒めてやるよw でも、それ運用とか保守の話だろ そりゃそう言うのは連続してるから引き継ぎって言うだろうけど、10年前の他社のコードの改修を引き継ぎとは言わんわな 439 名前：デフォルトの名無しさん mailto:sage [2020/04/18(土) 17:51:35.98 ID:HTrBhqa/0.net] 微妙にニュアンスがずれてる気がするけど わざと？ 440 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1702-nex3) mailto:sage [2020/04/18(土) 19:45:41 ID:SSjF6x8Y0.net] 他でやれ 441 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/18(土) 22:46:28 ID:DE4BsnuO0.net] >>434 必死? 一発で出たぞwww またボロが出る。 開発は作って終わりだと思っているのか? 普通は保守へと継続していくもんなんだが。 何も知らんのなw 442 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r) mailto:sage [2020/04/18(土) 22:51:16 ID:Yw55XdRL0.net] >>410 ブラック・ショールズ式ってのが金融の世界にあるんだが、これをググって 初めて日本語の変数見て目が点になったｗ 443 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5701-7wDT) [2020/04/19(日) 05:44:09 ID:wxLF5u+B0.net] 質問していいのか？ グラフの近似式をセルにコピペするマクロだ。 444 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 06:21:55.35 ID:fnnke5O7M.net] あらら、他社のコードの保守まで受託してるって話にするの？ そういうケースだと普通はドキュメントも貰ってるはずだけどろくなドキュメントがないって話かな そんなハイリスキーな受託して>>325みたいな愚痴こぼしてるなら知能の足りない会社と言われてもしょうがないじゃん まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す でないと保守できないから >>437は保守が何をするのかすらわかってなさそうw 445 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 06:29:22.92 ID:NooYP4/SM.net] >>439 コピペは難しい、普通にセルに直接ぶち込め って書かれてるぞ https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14139043119 446 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 08:34:09.85 ID:/XkpxjBrr.net] 近似式をテキストとしてセルに貼るとこまでできたが、そのテキストから係数を得る方法はないですか 447 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 08:38:32.44 ID:/XkpxjBrr.net] 近似式をセルに落とし、計算する作業が大量のあるためです 448 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 09:19:45.38 ID:BXvk/jUs0.net] >>440 プw 引き継ぎって知らんの? いい加減、恥を晒すだけだぞw というか、VBA案件だけの話だと思ってる? 爆笑もんだw 1つの客から1つの案件だけのわけね―だろ。 寧ろVBAの開発はメインじゃね―ぞ。 DBにAccessなんて普通は無いんだ。 バックエンドとか知らんの? 449 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 09:25:23.89 ID:BXvk/jUs0.net] >>440 あと、知らんのだろうけど、ドキュメント類についてはVBAの場合はそうならないことが多いんだよ。 今までいろんな案件で仕事したがドキュメント貰ったことなんて記憶に無いくらいだ。 で、ドキュメント作る時間も無いことも多い。 これはVBA案件の特殊性だろうな。 VBAが言語として糞呼ばわりされる原因の1つだろう。 450 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 09:40:28.30 ID:VbzAXKcO0.net] もうウザイから消えろ 451 名前：デフォルトの名無しさん mailto:sage [2020/04/19(日) 09:44:05.10 ID:wN5KW3ZOM.net] >>446 無理にこのスレに居なくてもいいんですよ 452 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-ycCE) mailto:sage [2020/04/19(日) 10:45:28 ID:Shwu+G580.net] >>442 近似式a x + bからa とか bを切り出すってこと？ VBA使わずともエクセル関数で出来るでしょ RIGHT、LEFT、MIDとか駆使しろ 453 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMbf-h94e) mailto:sage [2020/04/19(日) 10:51:03 ID:ARSXQ48qM.net] >>444-445 今度はAccessガーとか言い出したのか まあ言い出すのがAccess止まりなのが物悲しいけどねw ドキュメントも作らずに何を保守するつもりなんだよ 言われたらその場であたふた調べてやっつけ仕事でテキトーに改修するのか？ そう言うクズ会社なのはよくわかったよ 454 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-tHNm) mailto:sage [2020/04/19(日) 11:52:18 ID:olPCwpAZa.net] 自宅待機でストレス溜まってんだろなー 455 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/19(日) 12:04:09 ID:BXvk/jUs0.net] >>449 バーカw 今度はじゃね―よw ある特定の案件だけと考えるバカに教えてやってるだけ。 客からの要望はたくさんある。 VBAなんてたくさんある中のごく一部なのがむしろ普通。 ドキュメント作らずってw それは最初に受けた会社に言えよwww 現実を知らないニートにゃ分からないんだろうなw 456 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/19(日) 12:05:45 ID:BXvk/jUs0.net] 日本語が通じないんだよな。 ドキュメント残してないのがコッチにされてる。 457 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/19(日) 12:08:31 ID:BXvk/jUs0.net] トヨタ並に名前が知られた客から提示されたのがプログラム本体だけで、それ以外何もありませんってことだって有るんだけどな。 結構昔の話だが。 458 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-h94e) mailto:sage [2020/04/19(日) 12:19:58 ID:FGXaOjnDM.net] 連投バカは日本語が理解できないらしい… まあ無職の脳内妄想の限界かなw > まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す 459 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R) [2020/04/19(日) 22:09:40 ID:5r3nTnp70.net] 長文質問失礼いたします。 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?コード→文字への変換を行おうとしています。 460 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bf2f-8Jcx) mailto:sage [2020/04/19(日) 22:31:33 ID:oozYSe6W0.net] 文字として表示って、その範囲をどんな文字で表示したいんだ？ 画像バイナリデータを画像データって、普通画像データはバイナリなんだが 文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね 461 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/19(日) 22:31:47 ID:lQLRo24I0.net] >>455 アスキーはAsc?じゃなくてAsciiな あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない 方法が間違ってないとして、どこかでデータが化けてる可能性があるけど、どこが悪いのかその文章だけではわからない まずは変数の型をチェックかな 462 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-csEB) mailto:sage [2020/04/19(日) 22:58:29 ID:BbIK31/CM.net] -32443は文字化けした時に表示される文字のコードだから、根本的にデータの受け渡し方法を間違えてる 463 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb) mailto:sage [2020/04/19(日) 23:08:35 ID:Dosl7noD0.net] 覚え初めてまだ三日だけどなかなかエクセル関数のように簡単にはいかんもんだね… 流石入門といえどプログラミング、敷居が高い (A1:B1)から羅列されてる数字を(C1:D1)に コピーしてABS関数で絶対数に変換 こんな事すらなかなか難しい 464 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 57ad-LzhE) mailto:sage [2020/04/19(日) 23:11:40 ID:yAfHWdhM0.net] VBAは覚えることが多いだけで やってることは関数と大差ない 465 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq) mailto:sage [2020/04/19(日) 23:18:18 ID:xFnV3YLr0.net] 3日？勉強中とかいって1ヶ月近く経ってない？ 466 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R) [2020/04/19(日) 23:20:42 ID:5r3nTnp70.net] >>456 >>457 長文の返答失礼します。 >>文字として表示って、その範囲をどんな文字で表示したいんだ？ 10進数数字をASCii文字に変換しようとしています。 (66→B 77→M) >>画像バイナリデータを画像データって、普通画像データはバイナリなんだが 呼び方が不適切だったかもしれません ?画像データ：BM>・・・(Bitmapファイルをテキスト形式で表示したもの) ?画像バイナリデータ：66 77 62 150・・・(上記を10進数変更したもの。オシロスコープからはこの形式でデータを取り込んでいる) >>あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない 取り込んだ?データを?データ(文字列)に変更、 得られた文字列をファイルに入力し、拡張子を変更して画像ファイルを作成する目的です。 >>文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね Chr、ChrB、ChrWでそれぞれ確認したところ、 ・Chr Chr→Asc変換前後で一部データ一致せず。正規データとは一部不一致あり。 ・ChrB ChrB→AscB変換前後で全データ一致。正規データとはほとんど不一致。 ・ChrW ChrW→AscW変換前後で全データ一致。正規データとは一部不一致あり(Chrと正規データの不一致位置と同じ位置)。 ※オシロの外付けFDで取り込んだ画像データを正規データ呼んでいます。 ※ChrとChrWでは129〜159、224〜252の範囲のデータのみが正規データと不一致だったが、ChrBでは確認した範囲ではすべてのデータが不一致 >>まずは変数の型をチェックかな オシロスコープから取り込んだ?データは配列のByte型、Chrで文字列に変換した?データはString型です。 467 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb) mailto:sage [2020/04/19(日) 23:33:41 ID:Dosl7noD0.net] >>461 やったというより訳も分からずここの人にただ完成させてもらっただけだから俺の本当のVBAの勉強はこれからという感じで おかげで肩の荷が降りて基礎から学べる幸運な情況ですね 変数の宣言やデータ型は何となく理解して こっから仕事で簡単に自分でやってけそうな関数をこなせるようにしていきたい ここの列が空白になるまで指定の列に四捨五入した数値を貼り付け とか絶対数を貼り付け あとは数値のバラし とか覚えていって自職場で簡単なVBAのテンプレート作って行けたらいいなと 468 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R) [2020/04/20(月) 00:04:39 ID:jmR48CvL0.net] >>458 アドバイスありがとうございます。 大部分(129〜159、224〜252以外)の文字変換は問題なかったですが、今一度変換方法を再確認いたします。 469 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/20(月) 00:13:41 ID:01IV/2aE0.net] >>462 もしかして、それって何も変換せずにそのままバイナリファイルに書き出せばいいのでは？ テキストファイルとバイナリファイルの違いは、出力方法はわかってる？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef