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 348 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 23:34:48.80 ID:xz8oNroja.net] 「列、又はセルに空白があった場合、それより前（左）にある全ての測定値を参考に」というのは？ その例でいうと、 ・項目1のサンプル8、9、10が空欄なので、1から7の数値を元にして適当な数値で埋める。 ・残りの項目についても同様 ということですか？つまり上の数値を元にしてるけど。 処理自体は難しくないとは思います。 349 名前：デフォルトの名無しさん [2020/04/15(水) 23:57:01.64 ID:bRq9+Y6qM.net] >>346 その例でいうと、というか今の職場の手間になってる仕事がまさにその通りです 上の数値を元に残りの項目を誰かが埋めてます どんなアプローチで行ったらよさそうかアドバイスいただませんか Rnd関数Int関数、Loop、Offset 調べてもなかなかわからずです‥ 350 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 23:58:14.63 ID:Ikiffowr0.net] >>345 数字を偽装するルールが人によって違うのはわかったけど、あなたはどういうルールでやりたいのか、もうちょっと厳密に書いて 「それまでの数値を参考に」という表現では曖昧すぎてプログラミングできない 例として、サンプルが7個しかなかった場合は、その7個の数字をどう使って30個に増やすのか？ 351 名前：デフォルトの名無しさん [2020/04/16(木) 00:23:27.26 ID:WB3hiXkKM.net] >>348 数式と一覧を削りましたが普段はここの赤矢印に測定したデータのMax値とMin値を入れて EXCELの関数でこのような数式で乱数を 出しています 数年前に自力で作ったけどもはや覚えていないレベルです https://i.imgur.com/eglO3Ph.jpg 352 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/16(Thu) 00:25:05 ID:WB3hiXkKM.net] あとスクショ取りたいが故に行数の抜けやズレが、、、すみません 353 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f85-i57j) mailto:sage [2020/04/16(Thu) 00:30:19 ID:eKixqxFQ0.net] 最低値+rnd×最大最低の差で乱数になるよ 354 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 00:35:38 ID:YY8HOOMA0.net] とりあえず行と列の位置は>>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 355 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 00:52:18 ID:YY8HOOMA0.net] >>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 356 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/16(Thu) 01:25:57 ID:ltLJf2qHM.net] >>353 神様過ぎびっくりです。 セルをクリックすると.0754322457888とか小数点が残ってるのですがこれを EXCELのROUND関数みたいに四捨五入した状態でここに出力するようにできますか？ 四捨五入で0.000の桁で出力できたらもう 職場の2人が失職してしまうレベルです 357 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS) mailto:sage [2020/04/16(Thu) 01:33:01 ID:5emHbHZx0.net] それくらい調べたんかな 358 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 01:41:31 ID:YY8HOOMA0.net] >>354 Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3) 実際、ごく簡単なマクロで仕事を効率化したおかげで毎年たくさんの失業者が出てるからほどほどにな 経営側でなければ、サビ残がなくなるぐらいのところでやめとけよ 359 名前：デフォルトの名無しさん [2020/04/16(木) 01:59:01.29 ID:dFCopLc9M.net] >>356 神様ありがとう。涙出てきました。 360 名前：デフォルトの名無しさん [2020/04/16(木) 02:43:35.11 ID:Kf4avcM70.net] >>357 またこの間の馬鹿か 361 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 03:23:43.55 ID:KenjGRyod.net] 無意味なデータ入力に数百万の人件費を払う会社か すげーな マクロで解決するより、その作業をなくす方法を真剣に考えた方がいいんじゃないか？ 362 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 08:08:02.24 ID:IIRVmVIhr.net] コード教えて君もいるし、PC博士気取れるから教えちゃうやつもいる 363 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 08:16:07.12 ID:Br0d9N6Q0.net] 一時しのぎにはなっても長い目で見れば迷惑にしかならない 364 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 10:34:35.59 ID:HIOPYfc5a.net] 自力でマクロも書けんやつが作ったマクロで会社の経理やるなんてブラック企業しかない 365 名前：デフォルトの名無しさん (ｽﾌｯ Sdbf-xa8R) mailto:sage [2020/04/16(Thu) 11:54:49 ID:wE+PDO4Yd.net] 4月は零細の新入社員が単純作業をマクロでどうにかしようとがんばる時期 366 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7749-DNPS) mailto:sage [2020/04/16(Thu) 11:56:31 ID:RK65w6zF0.net] そして保守できずに五月病で辞める 367 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 12:13:47.85 ID:6vJJDJtDM.net] ＞＞363 もともと99%はブラックだし 会社の規模とか無関係に 368 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 12:29:59.97 ID:mPB4Kayur.net] 初歩的な質問なんですけど、ロック付きのブックを編集してSaveAsやcloseで保存したときにロックなしのブックにしたいんですが、どうやればできますか？ 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なんて普通は無いんだ。 バックエンドとか知らんの?

---

---

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

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