20/04/16 00:52:18 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
354:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T)
20/04/16 01:25:57 ltLJf2qHM.net
>>353
神様過ぎびっくりです。
セルをクリックすると.0754322457888とか小数点が残ってるのですがこれを
EXCELのROUND関数みたいに四捨五入した状態でここに出力するようにできますか？
四捨五入で0.000の桁で出力できたらもう
職場の2人が失職してしまうレベルです
355:デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS)
20/04/16 01:33:01 5emHbHZx0.net
それくらい調べたんかな
356:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/16 01:41:31 YY8HOOMA0.net
>>354
Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3)
実際、ごく簡単なマクロで仕事を効率化したおかげで毎年たくさんの失業者が出てるからほどほどにな
経営側でなければ、サビ残がなくなるぐらいのところでやめとけよ
357:デフォルトの名無しさん
20/04/16 01:59:01.29 dFCopLc9M.net
>>356
神様ありがとう。涙出てきました。
358:デフォルトの名無しさん
20/04/16 02:43:35.11 Kf4avcM70.net
>>357
またこの間の馬鹿か
359:デフォルトの名無しさん
20/04/16 03:23:43.55 KenjGRyod.net
無意味なデータ入力に数百万の人件費を払う会社か
すげーな
マクロで解決するより、その作業をなくす方法を真剣に考えた方がいいんじゃないか？
360:デフォルトの名無しさん
20/04/16 08:08:02.24 IIRVmVIhr.net
コード教えて君もいるし、PC博士気取れるから教えちゃうやつもいる
361:デフォルトの名無しさん
20/04/16 08:16:07.12 Br0d9N6Q0.net
一時しのぎにはなっても長い目で見れば迷惑にしかならない
362:デフォルトの名無しさん
20/04/16 10:34:35.59 HIOPYfc5a.net
自力でマクロも書けんやつが作ったマクロで会社の経理やるなんてブラック企業しかない
363:デフォルトの名無しさん (ｽﾌｯ Sdbf-xa8R)
20/04/16 11:54:49 wE+PDO4Yd.net
4月は零細の新入社員が単純作業をマクロでどうにかしようとがんばる時期
364:デフォルトの名無しさん (ﾜｯﾁｮｲ 7749-DNPS)
20/04/16 11:56:31 RK65w6zF0.net
そして保守できずに五月病で辞める
365:デフォルトの名無しさん
20/04/16 12:13:47.85 6vJJDJtDM.net
＞＞363
もともと99%はブラックだし
会社の規模とか無関係に
366:デフォルトの名無しさん
20/04/16 12:29:59.97 mPB4Kayur.net
初歩的な質問なんですけど、ロック付きのブックを編集してSaveAsやcloseで保存したときにロックなしのブックにしたいんですが、どうやればできますか？
367:270 (ﾜﾝﾄﾝｷﾝ MMcf-4RW9)
20/04/16 12:54:20 cYWHpILcM.net
>>366
イベントプロシージャにロックを外す処理を書けばいい
368:デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg)
20/04/16 13:43:07 pZjivNa8a.net
ロックかけた人に外してもらう
369:デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg)
20/04/16 13:47:25 pZjivNa8a.net
俺に会社の経理やらせてくれたら自分の口座に自動で入金する処理入れるよ
370:デフォルトの名無しさん
20/04/16 14:50:28.74 xWZcVh5Wa.net
画像フォルダのファイル名を取得→ファイル名と同じ文字列の入ったセルに画像を挿入→画像をセルのサイズに合わせるというサンプルコードを見つけたのですが
画像フォルダ内にファイル1～5まであり、エクセル内にファイル1の文字列がない場合、「オブジェクト変数またはwithブロック変数が設定されていません。」のエラーが出ます
おそらくIFでその場合の処理を設定すればよいのではと思うのですが、変数の設定の仕方が分からないです
昨日今日始めたネット聞きかじりの知識で申し訳ございませんがアドバイス頂けないでしょうか
371:デフォルトの名無しさん
20/04/16 15:01:25.35 YY8HOOMA0.net
>>370
まずはうまく動かないコードをここに書いて
372:デフォルトの名無しさん
20/04/16 15:08:48.79 RK65w6zF0.net
こらはまたコード出してくれるの待ってるクレクレ君
373:デフォルトの名無しさん
20/04/16 15:11:15.02 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
374:デフォルトの名無しさん
20/04/16 15:12:43.83 xWZcVh5Wa.net
最終的には画像1-4はシート1、5はシート2みたいな感じに貼りたいんだがとりあえず画像1の文字列ないとエラー起こすのを直したいです
375:デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r)
20/04/16 16:37:22 V7jYJHWg0.net
どこでエラーが起きてると思う？
検索して見つからなかったセルに対して何かをしようとしたから、何に対してやるんだよーってエラーが起きたんだよ
コードを見ると、Findメソッドの戻り値に対して直接Activateしてるから、そこをばらす必要があるので、一旦戻り値を変数に受けるといい
セルはRangeオブジェクトで、 Findメソッドは通常、Rangeオブジェクトを返す
オブジェクトを変数に代入する場合は、 Set をつける
見つからなかった場合はFindメソッドはNothing を返す
オブジェクトの比較には、Is を使う 例: If Not(r is Nothing) Then ～
あとはがんばれ
376:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY)
20/04/16 17:37:30 Kf4avcM70.net
馬鹿がコピペで作ったものは使い物にならない
377:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-LtOn)
20/04/16 18:14:58 mPB4Kayur.net
>>367
ありがとうございます。やってみます
378:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/16 18:19:31 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 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
379:デフォルトの名無しさん
20/04/16 18:52:45.98 Cbge2SK50.net
>>369
自動なのにトロイ処理とはこれいかに！
380:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r)
20/04/16 19:18:26 np7lPiVv0.net
>>342
「それより前（左）にある全ての測定値を参考に」が仕様としては曖昧模糊としてる気がする。
381:デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-o3Ob)
20/04/16 19:21:15 XXRRqnVg0.net
>>375
>>378
ありがとうございます、動かしながら理解していこうと思います
382:デフォルトの名無しさん
20/04/16 20:15:43.63 /BsiXYGwd.net
>>338
知らねーよ。
10年以上前の、他社から引き継いだ、正直全部書き直したいけど今動いてるからそっとしておいてるコードだよ。
383:デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-h94e)
20/04/16 21:03:51 l2cOjNdn0.net
指摘されたら他社とか言い出してて笑うわ
384:デフォルトの名無しさん
20/04/16 21:21:39.75 Gr+82O4W0.net
>>381
理解もできない代物を知らない誰かの作ったコードで動かそうという馬鹿
385:デフォルトの名無しさん
20/04/16 22:03:58.10 5vefqm3N0.net
理解してないコードを使う無能に仕事やらせるとかやっぱブラックだったか
386:デフォルトの名無しさん (ﾜｯﾁｮｲ ffe6-ycCE)
20/04/16 23:38:37 NQ0wsZwj0.net
そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから
そういうのをメンテしなきゃならない羽目になったって話だろ
プログラム板の中では異質なスレなんだと思う
コードレビューとか言ってるやつは確実にアスペ、そういう事情が想像出来る脳みそが生まれつき備わってない
相手するだけ無駄
387:デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS)
20/04/17 00:46:06 TM3fWeSx0.net
他の誰かがってのは全部言い訳
仕事してメンテするなら自分自身が目の前の有りものを完全理解しないといけない
事情は関係ない
仕事としてやる以上自分の責任として取り組むべき
それを怠って開き直るのは無責任であり無能でありいつまでも何も成せない
趣味ならしらん
388:デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Uqc8)
20/04/17 01:58:25 d5pl8NtJ0.net
>>386
素人がつくろうが会社で使うんだろう
389:デフォルトの名無しさん
20/04/17 05:06:04.15 K8Kq74SuM.net
>>386
> 今、他人のそういうコードで四苦八苦してる。
↓
> 今動いてるからそっとしておいてるコードだよ。
言うことコロコロ変わりすぎw
390:デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb)
20/04/17 17:04:26 hqq8FpSv0.net
散々ここで聞きまくって不快な思いをさせた物ですが完全に職場での運用に成功しました。
本当にみなさんのおかげというか頭良すぎですねここの人は…
フォルダ内にあるtxt全ての任意の列行を片っ端からエクセルにコピーする
空白の部分は乱数で処理
この辺は無知にとってはえげつないです。
提案で出そうと思ったらもっと大きな発表テーマで使うぞと言われました。
100のワークの測定データを作るのに2日かかってたのが5分でテンプレートに出力完了…
391:デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM7f-tZ20)
20/04/17 18:42:59 35vznKDBM.net
>>390
馬鹿は死ねよ
392:デフォルトの名無しさん (ﾜｯﾁｮｲ b7e6-R0o5)
20/04/17 18:48:40 M4VM/pj30.net
せっかくtxtという利用しやすいデータ形式なのに
わざわざxlsなんかにしちゃって
トドメとばかりにゴミデータをインプラント
面白い人だな
393:デフォルトの名無しさん
20/04/17 19:49:43.28 d0l4uzMSd.net
>>383
実際そうだし、というか、そんなの多いぞ。
394:デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN)
20/04/17 19:52:36 d0l4uzMSd.net
>>386
素人じゃないと思うよ。
形の上では。
お客は自ら作るという会社では無い。
作ったのは請け負っている会社だよ。
コメントに会社名らしきものが書かれてるし。
395:デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN)
20/04/17 19:58:42 d0l4uzMSd.net
>>389
あのね、客の要望は有るんだよ。
要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。
そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。
というか、こんなのVBAに限らず開発やってる会社なら何処でもある話だけどな。
ここには開発専門で仕事したことのある奴が少ないということか。
396:デフォルトの名無しさん
20/04/17 20:10:16.78 SpmVGRc5M.net
他社が作ったコードを客の要望で機能追加
しかもVBA
そんなズタボロの状態で開発専門とか大丈夫かよw
397:デフォルトの名無しさん
20/04/17 20:49:15.97 d5pl8NtJ0.net
>>394
その会社名らしきところに使用料とか払った？
それともその会社に無断で会社名入りのファイル使ってるの？
398:デフォルトの名無しさん (ﾜｯﾁｮｲ d7e5-sLxe)
20/04/17 21:12:50 zPgoaBKN0.net
自分で書いたコードでも嫌です
399:デフォルトの名無しさん
20/04/17 21:26:37.34 d0l4uzMSd.net
>>396
今まで幾つかの開発会社で働いたが、どこでもある話。
VBAにも限らない。
まあ、日本語変数とか日本語関数はVBA以外では聞いたこと無いけどな。
前のコードが酷いので、書き直したらもっと酷くなったなんて、某SE本にも書いてあった。
400:デフォルトの名無しさん
20/04/17 21:28:25.17 d0l4uzMSd.net
>>397
プログラムは客のもんなので、そんな話にゃならねーよ。
普通はそうなる。
客のもんになってない例もあるかもしれんが見たこと無い。
401:デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-N0vN)
20/04/17 21:30:17 d0l4uzMSd.net
>>397
これ、VBAの話ね。
コンパイルする言語の場合はそうでない例があったな。
402:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-h94e)
20/04/17 21:52:47 z6C6Zgo5M.net
>>400
> プログラムは客のもんなので
↑
> 他社から引き継いだ
ボロ出し過ぎw
403:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r)
20/04/17 22:02:00 yYE4gKbd0.net
いい加減、他人の宿題とか仕事とかに安易に回答与えるのやめたほうが
いいんじゃないかと。
404:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/17 22:44:22 j6CUwBsl0.net
大手から零細まで、色々なところで仕事してきたけど、会社によっては日本語の関数とか変数は別に珍しくなかったな
405:デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Ho7r)
20/04/17 23:04:41 tPgd0P7Wa.net
現実問題として、VBAで複雑なマクロを書くと重くて動かないと思うんだけどな
それでも我慢して使っているのかな?
406:デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-Ho7r)
20/04/18 08:44:33 FzSpO5p/0.net
Excelでポリゴンゲー作るとか、
相当極端なことをしない限り大丈夫。
407:デフォルトの名無しさん
20/04/18 09:44:05.01 QhOAvRvA0.net
複雑な処理だからって重くなることはないだろ
重い処理をするから重くなるのであって
408:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 12:59:54 DE4BsnuO0.net
>>402
お前、事務員だろ。
自分のボロに気付いて無いw
開発会社で働いたことある奴ならすぐわかる。
409:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 13:06:18 DE4BsnuO0.net
>>405
スキルの低い奴はそうなる。
もちろんVBAは遅いけど、VBAで実施するようなことで、どうしても遅くなると想定されるような処理は殆ど無い。
VBAで実施するようなことじゃなければ別だが、そういう話はあまりない。
410:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 13:08:05 DE4BsnuO0.net
>>404
話には聞いたことがあるが、自分が目の当たりにしたのは今回が初めてだ。
411:デフォルトの名無しさん
20/04/18 13:16:31.33 XwSVwu50d.net
関数名だけ日本語ってルールにしてるところは見たことがある
意外と見づらくなかった
412:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMbf-h94e)
20/04/18 13:29:04 bylan2xBM.net
>>408
> 開発会社で働いたことある奴ならすぐわかる。
なら詳しく説明してみなよ
客のものを勝手に引き継ぐとか犯罪だぞw
413:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e)
20/04/18 13:33:12 jvR0dANmM.net
>>411
まあ、読むのは慣れだと思う
慣れればそんなに苦じゃないし意味不明な英訳調の関数名や変数名よりマシ
ただ入力がかなり面倒
414:デフォルトの名無しさん
20/04/18 13:38:19.65 DE4BsnuO0.net
>>412
???
日本語が理解出来ない人?
客が依頼していた開発会社を変えただけのことだろ。
10年前依頼されてた開発会社のコメントがソースにあったが、プログラムは客のもんだ。
今、依頼されてるうちの会社がどうして10年前に依頼されてた会社の了解を取る必要がある?
415:デフォルトの名無しさん
20/04/18 13:43:26.52 DE4BsnuO0.net
>>412
というかね、こんなの普通によくあることだぞ。
別会社のコメントなんて何度も見たことある。
開発会社で働いたことあれば、そんな所に違和感なんて感じないだろ。
416:デフォルトの名無しさん
20/04/18 13:53:22.59 oUZZgMAe0.net
ソースコードの著作権をどっちがもつかは契約によるぞ
著作権をシステム会社側がもってるのに違う会社に開示したらそれは違法行為
知らずにやってるってのは昔はよく聞いた
10年前に依頼されてた会社の了解を取る必要はないが
普通はソース開示受けるなら開示元に著作権の確認はする
417:デフォルトの名無しさん
20/04/18 14:00:07.44 DE4BsnuO0.net
>>416
そんなの常識だろ。
だが、そこまで分かってるなら結論も容易に想定出来ると思うんだが。
VBAの開発ではExcelならブックそのものにソースが付いてくるし、実質派遣のような形態も多い。
つまり、契約上客のもんになってると想定するのが普通。
418:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 14:01:39 DE4BsnuO0.net
ここで言ってる想定ってお前のことだからな。
そんな想定も出来ずにいちゃもん付ける奴に言ってる。
419:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e)
20/04/18 14:04:14 p9WER9c7M.net
>>414-415
> 客が依頼していた開発会社を変えただけのことだろ。
それ引き継ぐなんて言わんだろ
お前の会社から見たら単に客から改修を依頼されただけ
元のソースを別会社が作ってたか客が作ってたかなんて関係ないし
> 日本語が理解出来ない人?
お前の日本語がおかしいだけ
まあどんどん辻褄合わなくなってるだけとも言うがw
420:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 14:05:27 DE4BsnuO0.net
>>419
???
言うだろw
日本語を理解出来なかった言い訳が見苦しいw
421:デフォルトの名無しさん (ﾜｯﾁｮｲ bf2f-8Jcx)
20/04/18 15:07:20 oUZZgMAe0.net
>>419
日本語がおかしいというより、自分の脳内理解が共通認識だって信じて疑わない人だったようだぞ
かまった俺も悪かったが、俺は今後スルーするからお前もそうしろ
422:デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-RTks)
20/04/18 15:20:13 mWjkYk7T0.net
スレ違いになってきてるとは思うが。
最初のほうの386には
「そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから
そういうのをメンテしなきゃならない羽目になったって話だろ」
って書いてあって、
ここ数レスはプログラム(開発資産)として引き継いだ中のVBAソースコードに焦点が当たってるように見える
まず引き受けた方がプロ(仕事としてVBAをやる)として、
前者ならドキュメントとかなくても(時間さえあれば)改修も簡単だろう。
後者ならドキュメント残してないやつ、もしくはそれを知らずにスキルもなく引き受けたやつが悪い。
まあこんな、前提とゴールをあやふやにして不毛で幼稚な言い合いをしたいなら別にスレを立ててろ
423:デフォルトの名無しさん
20/04/18 15:25:44.82 R5ze2oyiM.net
>>420
> 言うだろw
言うのはお前だけなw
>>421
知ったかが盛って語ったら引っ込みつかなくなったパターンだと思う
424:デフォルトの名無しさん
20/04/18 15:45:18.98 DE4BsnuO0.net
>>422
開発やったこと無い奴だから簡単等と言えるw
確かにドキュメントは無いが、あっても他人のコード読むのは大変だぞ。
425:デフォルトの名無しさん
20/04/18 15:47:00.47 DE4BsnuO0.net
>>423
引き継ぎって言葉分かってる?
それに、想像力があれば一番最初の段階で想定できるような話なんだがw
426:デフォルトの名無しさん
20/04/18 15:51:30.21 DE4BsnuO0.net
引き継ぎ 開発でクグったら最初の3つとも他社からの引き継ぎのことが書いてあったわw
開発会社じゃ当たり前のことなんだけどなw
427:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e)
20/04/18 15:56:09 MLXwdj/hM.net
でもググったURL
428:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e)
20/04/18 15:56:30 MLXwdj/hM.net
は出せないw
429:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 15:59:10 DE4BsnuO0.net
>>422
ああ、素人のコードを引き継いだとしたらの話か。
まあ、素人の短い簡単なコードならその通りだな。
まあ、>>394に書いた通り、形の上では開発会社らしき所のコードだし、コード量も多いからねえ。
VBAはそういうの多いんだよ。
形では仕事で受けてても素人のコードとか。
430:デフォルトの名無しさん
20/04/18 16:01:12.79 DE4BsnuO0.net
>>427
出しても構わんがw
マナー的に出してないだけでw
というか、お前もググって見てから言えよ。
事務員の上にググることさえ出来ないのかよw
431:デフォルトの名無しさん
20/04/18 16:21:35.89 N9jsIxO7M.net
出しても構わんけど出せない
うんうん、そうだろねw
432:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 16:40:22 DE4BsnuO0.net
>>431
ググれないバカに出してやろうwww
システムの保守ベンダー変更による引き継ぎ
URLﾘﾝｸ(www.lanscope.jp)
他社開発システム・アプリケーション保守引継ぎ
URLﾘﾝｸ(www.stylez.co.jp)
他社が開発したシステムを引き継ぎます
URLﾘﾝｸ(www.tpc.jp)
他社が開発したシステムも開発を引き継ぎ保守します。
URLﾘﾝｸ(kusanagi.dht-jpn.co.jp)
他会社が受託開発したPHPのWEBシステムを引き継ぎ運用し、その後の改修対応などを行うことがあります。
URLﾘﾝｸ(qiita.com)
そのWebサイト・システムの保守引き継ぎます。
URLﾘﾝｸ(www.accent.co.jp)
433:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 16:46:17 DE4BsnuO0.net
>>423
な、お前のような素人だけだよw
客が依頼してた会社を変えて、引き受けたのを引き継ぎとは言わないのはwww
434:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e)
20/04/18 17:45:11 JSVuvQDyM.net
必死にググったのは褒めてやるよw
でも、それ運用とか保守の話だろ
そりゃそう言うのは連続してるから引き継ぎって言うだろうけど、10年前の他社のコードの改修を引き継ぎとは言わんわな
435:デフォルトの名無しさん
20/04/18 17:51:35.98 HTrBhqa/0.net
微妙にニュアンスがずれてる気がするけど
わざと？
436:デフォルトの名無しさん (ﾜｯﾁｮｲ 1702-nex3)
20/04/18 19:45:41 SSjF6x8Y0.net
他でやれ
437:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/18 22:46:28 DE4BsnuO0.net
>>434
必死?
一発で出たぞwww
またボロが出る。
開発は作って終わりだと思っているのか?
普通は保守へと継続していくもんなんだが。
何も知らんのなw
438:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r)
20/04/18 22:51:16 Yw55XdRL0.net
>>410
ブラック・ショールズ式ってのが金融の世界にあるんだが、これをググって
初めて日本語の変数見て目が点になったｗ
439:デフォルトの名無しさん (ﾜｯﾁｮｲ 5701-7wDT)
20/04/19 05:44:09 wxLF5u+B0.net
質問していいのか？
グラフの近似式をセルにコピペするマクロだ。
440:デフォルトの名無しさん
20/04/19 06:21:55.35 fnnke5O7M.net
あらら、他社のコードの保守まで受託してるって話にするの？
そういうケースだと普通はドキュメントも貰ってるはずだけどろくなドキュメントがないって話かな
そんなハイリスキーな受託して>>325みたいな愚痴こぼしてるなら知能の足りない会社と言われてもしょうがないじゃん
まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
でないと保守できないから
>>437は保守が何をするのかすらわかってなさそうw
441:デフォルトの名無しさん
20/04/19 06:29:22.92 NooYP4/SM.net
>>439
コピペは難しい、普通にセルに直接ぶち込め
って書かれてるぞ
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
442:デフォルトの名無しさん
20/04/19 08:34:09.85 /XkpxjBrr.net
近似式をテキストとしてセルに貼るとこまでできたが、そのテキストから係数を得る方法はないですか
443:デフォルトの名無しさん
20/04/19 08:38:32.44 /XkpxjBrr.net
近似式をセルに落とし、計算する作業が大量のあるためです
444:デフォルトの名無しさん
20/04/19 09:19:45.38 BXvk/jUs0.net
>>440
プw
引き継ぎって知らんの?
いい加減、恥を晒すだけだぞw
というか、VBA案件だけの話だと思ってる?
爆笑もんだw
1つの客から1つの案件だけのわけね―だろ。
寧ろVBAの開発はメインじゃね―ぞ。
DBにAccessなんて普通は無いんだ。
バックエンドとか知らんの?
445:デフォルトの名無しさん
20/04/19 09:25:23.89 BXvk/jUs0.net
>>440
あと、知らんのだろうけど、ドキュメント類についてはVBAの場合はそうならないことが多いんだよ。
今までいろんな案件で仕事したがドキュメント貰ったことなんて記憶に無いくらいだ。
で、ドキュメント作る時間も無いことも多い。
これはVBA案件の特殊性だろうな。
VBAが言語として糞呼ばわりされる原因の1つだろう。
446:デフォルトの名無しさん
20/04/19 09:40:28.30 VbzAXKcO0.net
もうウザイから消えろ
447:デフォルトの名無しさん
20/04/19 09:44:05.10 wN5KW3ZOM.net
>>446
無理にこのスレに居なくてもいいんですよ
448:デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-ycCE)
20/04/19 10:45:28 Shwu+G580.net
>>442
近似式a x + bからa とか bを切り出すってこと？
VBA使わずともエクセル関数で出来るでしょ
RIGHT、LEFT、MIDとか駆使しろ
449:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMbf-h94e)
20/04/19 10:51:03 ARSXQ48qM.net
>>444-445
今度はAccessガーとか言い出したのか
まあ言い出すのがAccess止まりなのが物悲しいけどねw
ドキュメントも作らずに何を保守するつもりなんだよ
言われたらその場であたふた調べてやっつけ仕事でテキトーに改修するのか？
そう言うクズ会社なのはよくわかったよ
450:デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-tHNm)
20/04/19 11:52:18 olPCwpAZa.net
自宅待機でストレス溜まってんだろなー
451:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/19 12:04:09 BXvk/jUs0.net
>>449
バーカw
今度はじゃね―よw
ある特定の案件だけと考えるバカに教えてやってるだけ。
客からの要望はたくさんある。
VBAなんてたくさんある中のごく一部なのがむしろ普通。
ドキュメント作らずってw
それは最初に受けた会社に言えよwww
現実を知らないニートにゃ分からないんだろうなw
452:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/19 12:05:45 BXvk/jUs0.net
日本語が通じないんだよな。
ドキュメント残してないのがコッチにされてる。
453:デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN)
20/04/19 12:08:31 BXvk/jUs0.net
トヨタ並に名前が知られた客から提示されたのがプログラム本体だけで、それ以外何もありませんってことだって有るんだけどな。
結構昔の話だが。
454:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-h94e)
20/04/19 12:19:58 FGXaOjnDM.net
連投バカは日本語が理解できないらしい…
まあ無職の脳内妄想の限界かなw
> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
455:デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R)
20/04/19 22:09:40 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?コード→文字への変換を行おうとしています。
456:デフォルトの名無しさん (ﾜｯﾁｮｲ bf2f-8Jcx)
20/04/19 22:31:33 oozYSe6W0.net
文字として表示って、その範囲をどんな文字で表示したいんだ？
画像バイナリデータを画像データって、普通画像データはバイナリなんだが
文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね
457:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/19 22:31:47 lQLRo24I0.net
>>455
アスキーはAsc?じゃなくてAsciiな
あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない
方法が間違ってないとして、どこかでデータが化けてる可能性があるけど、どこが悪いのかその文章だけではわからない
まずは変数の型をチェックかな
458:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-csEB)
20/04/19 22:58:29 BbIK31/CM.net
-32443は文字化けした時に表示される文字のコードだから、根本的にデータの受け渡し方法を間違えてる
459:デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb)
20/04/19 23:08:35 Dosl7noD0.net
覚え初めてまだ三日だけどなかなかエクセル関数のように簡単にはいかんもんだね…
流石入門といえどプログラミング、敷居が高い
(A1:B1)から羅列されてる数字を(C1:D1)に
コピーしてABS関数で絶対数に変換
こんな事すらなかなか難しい
460:デフォルトの名無しさん (ﾜｯﾁｮｲ 57ad-LzhE)
20/04/19 23:11:40 yAfHWdhM0.net
VBAは覚えることが多いだけで
やってることは関数と大差ない
461:デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq)
20/04/19 23:18:18 xFnV3YLr0.net
3日？勉強中とかいって1ヶ月近く経ってない？
462:デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R)
20/04/19 23:20:42 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型です。
463:デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-5bTb)
20/04/19 23:33:41 Dosl7noD0.net
>>461
やったというより訳も分からずここの人にただ完成させてもらっただけだから俺の本当のVBAの勉強はこれからという感じで
おかげで肩の荷が降りて基礎から学べる幸運な情況ですね
変数の宣言やデータ型は何となく理解して
こっから仕事で簡単に自分でやってけそうな関数をこなせるようにしていきたい
ここの列が空白になるまで指定の列に四捨五入した数値を貼り付け
とか絶対数を貼り付け
あとは数値のバラし
とか覚えていって自職場で簡単なVBAのテンプレート作って行けたらいいなと
464:デフォルトの名無しさん (ﾜｯﾁｮｲ 1701-xa8R)
20/04/20 00:04:39 jmR48CvL0.net
>>458
アドバイスありがとうございます。
大部分(129～159、224～252以外)の文字変換は問題なかったですが、今一度変換方法を再確認いたします。
465:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/20 00:13:41 01IV/2aE0.net
>>462
もしかして、それって何も変換せずにそのままバイナリファイルに書き出せばいいのでは？
テキストファイルとバイナリファイルの違いは、出力方法はわかってる？
466:デフォルトの名無しさん
20/04/20 00:54:15.80 3RmvNNii0.net
>>462
だから例えば130や250という数値をどういう文字にしたいんだ？
>Bitmapファイルをテキスト形式で表示したもの
普通に言うビットマップファイルはバイナリだからテキスト形式で表示なんてできないが
というか、たんにいわゆる.BMPのファイル作りたいって話じゃないのか
お前がいってるBitmapファイルってどんなんだよ
なんにせよ出力したいデータフォーマットちゃんと確認しろ
467:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY)
20/04/20 01:18:49 ayPjQ7gM0.net
なぜ次から次へと馬鹿が出てくるのか
468:デフォルトの名無しさん (ｽﾌﾟｯｯ Sddf-Ho7r)
20/04/20 01:59:49 7tfcEhPrd.net
>>467
外出を自粛したり自宅で仕事する人が増えたから
みんな体力とヒマを持て余してる
469:デフォルトの名無しさん (ｽﾌｯ Sdbf-Ho7r)
20/04/20 02:13:58 ngLECqIpd.net
>>462
Asc?とかASCiiとか、なんでいちいち気持ち悪い書き方をするのか
こんなん入力するのも面倒だろうに
正式には全部大文字でASCII、許容範囲で小文字ascii、賛否ありそうだけど頭だけ大文字Asciiもギリ許せる、どれかにしてくれ
1文字たりとも間違いを許さない厳密さがないとプログラミングは無理だぞ
470:デフォルトの名無しさん
20/04/20 02:14:21.83 ngLECqIpd.net
とにかく、説明がへたくそすぎて、何が悪いのかさっぱりわからん
動かない今のプログラムをここにそのまま書いてくれ
たぶんそれ見た方が早い
あとオシロスコープの機種名も
471:デフォルトの名無しさん
20/04/20 03:07:35.60 HepRq5En0.net
勉強しても仕事より辛い
472:デフォルトの名無しさん (ｽﾌｯ Sdbf-csEB)
20/04/20 03:16:22 0LewM/0Ud.net
たぶん、こうだな
Open "オシロ画面.bmp" For Binary Access Write As #1 'ファイル名を指定
Put #1, , 変数名 'バイト配列をそのまま全部出力
Close #1 '終了
473:デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Ho7r)
20/04/20 06:02:11 1SCvgf4l0.net
>>471
就職先間違えたんじゃね
474:デフォルトの名無しさん
20/04/20 09:42:05.89 kpWyfGjqd.net
>>454
日本語が理解出来て無いバカニートはお前だろw
>要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。
>そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。
だから>>325で四苦八苦してるんだろ。
ついでに言うと、こっちはちゃんとドキュメント残してる。
でもな、VBAの場合で今まで見聞きした前任者、前任の会社は残して無いことが非常に多い。
開発やってればそういう話、よく聞く話なんだよ。
475:デフォルトの名無しさん
20/04/20 09:53:56.27 k6bRrEuIM.net
>>474
マジで日本語理解できないの？
時系列ってわかる？
それとも無職の妄想だから同じ話を繰り返すしかなくなったのか？w
> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
できてないから今アタフタしてるだけだろ
476:デフォルトの名無しさん
20/04/20 10:02:13.61 8H2k4fX/d.net
>>475
???
出来てるから今、四苦八苦してるんだが。
解析に苦労してると書いてるだろうがw
477:デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-N0vN)
20/04/20 10:04:53 8H2k4fX/d.net
ついでに言っとくと、正直に言えばたった今じゃねえ。
2週間程度前の話だ。
でも掲示板で、そんな説明することは無いだろ。
どーでも良い話だからな。
478:デフォルトの名無しさん
20/04/20 10:07:15.13 8H2k4fX/d.net
>>475
さらにいうと、お前の言うとおりなら、日本にはまともでない会社だらけになっちまうけどなw
479:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e)
20/04/20 10:21:33 RWBNH8g+M.net
>>476-477
できてるって何が出来てるんだ？
どんどん話が壊れてるぞ
>>478
他社コードの保守はリスク高いから基本受けないし受けるとしたらそれ相応の対価を要求するなんて常識だぞ
言いなりになってそういうのを受けないと死んじゃうクズ会社なら愚痴ってないでまともに働けよw
480:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-9YMR)
20/04/20 10:51:40 Smt4njnQM.net
>>479
常識が通用しない現場なんていくらでもある
お前の経験値が足りないのはよくわかったから、あと15年ぐらい、もっと修羅場を経験してから出直してこい
481:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e)
20/04/20 12:53:38 zSz1bMm9M.net
>>480
うん、常識の通じないクズ会社があることは知ってるよ
それが当たり前とか思ってるのが痛々しい
って話ねw
482:デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Ho7r)
20/04/20 13:20:10 +VtGXs+Fa.net
>>480
結果的に0から作るのと見積額が変わらなくなることも
0から作った方が見積もりが安いこともよくあるw
483:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T)
20/04/20 17:29:22 LK5TIQvQM.net
C5とD5の平方根をE5に入力する
これをC列が空白になるで行う
のシンプルなコード教えてくだせぇ
484:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY)
20/04/20 17:33:09 ayPjQ7gM0.net
なぜ次から次へと馬鹿が来るのか
485:デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r)
20/04/20 17:47:32 gp23hNl10.net
>>483
Columns("C:C").ClearContents
486:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/20 17:58:37 01IV/2aE0.net
>>483 意味不明
>>485 なるほど、うまいな
487:デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq)
20/04/20 20:13:51 Y6XPlQfH0.net
まともに勉強してないだけだと思う
488:デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-RTks)
20/04/20 20:20:08 xfj95GQN0.net
sqr(sqrt)関数あるんだな
489:デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R)
20/04/20 20:27:38 326Vj6040.net
皆様は、同一のブック内で複数のマクロがあり、それらの実行時に共通の処理を
させたいとき（実行しますか？の確認メッセなど）どういうコードを
書いておりますでしょうか。
私は開発→挿入→ボタン（フォームコントロール）にそれぞれマクロを登録して
実行させており、これらのボタンclick時に共通イベントを設定しようと
考えているのですが。非効率的でしょうか。
490:デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R)
20/04/20 20:30:00 326Vj6040.net
補足です。現在は共通処理sub作って、マクロごとにそれをcallしておりますが、
そのブックで日々マクロが増加してきており、そのcall一行すら面倒になってきました・・・
491:デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq)
20/04/20 20:37:06 Y6XPlQfH0.net
辞書登録でもしておくとか
492:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-uk89)
20/04/20 20:57:06 +CR9zmner.net
>>489
application.callerとselect caseかな
493:デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R)
20/04/20 21:57:48 326Vj6040.net
>>492
おお、vba実行時に処理できるメソッドがあったんですね！
自分の勉強不足でした、大変助かりました。使わせていただきます。
494:デフォルトの名無しさん
20/04/20 23:00:14.60 mqB9NHYzM.net
Sub 関数SQRT練習() 'B2とC2の0に対してのズレ量でD2で位置度を求めこれを16行までやる。
Dim SQRT練習 As String
Dim Gyo As Long
Dim Ans As Double
Sqroot = ("SQRT練習")
Sheets(Sqroot).Select
For Gyo = 2 To 16
Cells(Gyo, 4) = Sqr(Cells(Gyo, 2), Cells(Gyo, 3)) * 2
Next
End Sub
論外ですか？もちろんピコンピコンエラーまくりです。
B1とC1がもしそれぞれ1なら2.828
それぞれ2なら5.657と
なってほしいのですがお手上げです
495:デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY)
20/04/21 00:41:08 XAeWC18v0.net
なぜ次から次へと馬鹿が湧くのか
496:デフォルトの名無しさん (ﾜｯﾁｮｲ b7e6-R0o5)
20/04/21 01:54:12 FdhLTsrP0.net
まさか足し算すら出来ないとは夢にも思わないじゃん
497:デフォルトの名無しさん
20/04/21 04:14:58.32 uRz5dWGWa.net
sqrt(4) って 2だよね
498:デフォルトの名無しさん
20/04/21 04:17:02.05 uRz5dWGWa.net
vbaではsqrか
499:デフォルトの名無しさん
20/04/21 08:23:54.51 1TfDEjo0d.net
>>479
あ～あ。
素人丸わかりw
SEとか、技術者の勉強してるニートかなw
できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
ということは=それにかかる費用も貰ってるということだよ。
こんなことも理解出来ないのか?
VBAの案件ってのは残念ながら能力の低い奴がやることも多く、常識が通じないことが多い。
なにしろ時給2000円とかでやってる奴も結構いるくらいだ。
俺の場合は時給換算じゃね―けど時給になおしたら最低でも1.5倍は貰わないとやってられねえ。
500:デフォルトの名無しさん
20/04/21 08:50:35.54 sDUb3bhdM.net
>>499
> できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
> ということは=それにかかる費用も貰ってるということだよ。
↑
> 今、他人のそういうコードで四苦八苦してる。
> こんなことも理解出来ないのか?
で、何を理解しろって？
お前の頓珍漢さか？
あと3,000円/hってドヤるほど高くないぞw
501:デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Ho7r)
20/04/21 10:52:51 mWboXDgG0.net
excelの事務処理で時給3000円は高くね？
502:デフォルトの名無しさん
20/04/21 11:40:05.07 Jp/GQMh30.net
何が分からんのか分からんから、とりあえず値２つの合計の平方根を求めるやつをかいた
シート
URLﾘﾝｸ(imgur.com)
Sub main1()
Dim StartRow As Long, EndRow As Long ' 処理開始行,処理最終行
Dim r As Long ' カウンタ
Dim FirstValue As Long, SecondValue As Long, SumOfValue As Long ' 値１,値２,値の合計
Dim ValueOfSquareRoot As Double ' 値の合計の平方根
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("SQRT練習")
StartRow = 2
EndRow = 6
' 指定行のみ計算。逐一セルに代入する。計算ステップは細かくしている。虚数となる場合は一律-1をセルに代入。
With ws
For r = StartRow To EndRow
FirstValue = .Cells(r, 2).Value
SecondValue = .Cells(r, 3).Value
SumOfValue = FirstValue + SecondValue
If SumOfValue > 0 Then
ValueOfSquareRoot = Sqr(SumOfValue)
Else
ValueOfSquareRoot = -1
End If
.Cells(r, 4).Value = ValueOfSquareRoot
Next
End With
End Sub
503:502
20/04/21 11:42:34.25 Jp/GQMh30.net
ちょっとだけ汎用的にも書いた
こっちはベテランの叩き台にしてほしい
長いしあんまり突っ込まれると恥ずかしいから画像
URLﾘﾝｸ(imgur.com)
504:デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-8lzQ)
20/04/21 12:31:16 1TfDEjo0d.net
>>500
日本語がまともに出来ないアホには理解出来ないからお前には無理w
何を理解しろって、別にお前に対して理解しろなんて言ってないぞ。
理解出来ないアホさ加減を嗤ってるだけだw
アホだから3,000円/hに突っ込むと思ったwww
最低でもと書いてるんだが。
そもそも、そこに突っ込むんじゃ無くて2000円/hに突っ込め。
そういう所はドキュメント無しで終わってもしようが無い。
505:デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-8lzQ)
20/04/21 12:40:09 1TfDEjo0d.net
>>501
派遣の場合は高い部類に入るだろうね。
力量があって派遣じゃなければVBAでも余裕で超える。
ExcelVBAでのセルとかシート操作の話では無くなるけど。
506:デフォルトの名無しさん
20/04/21 12:52:51.59 ADUc7MNZM.net
>>504
> 日本語がまともに出来ないアホには理解出来ないからお前には無理w
結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
まあどう言い逃れしようとしても
> 今、他人のそういうコードで四苦八苦してる。
って書いたのに突っ込まれたら何か知らんけどできてると言っちゃったアホがいた事実は消せないよw
507:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-Wm+M)
20/04/21 12:57:31 zuguU9RsM.net
>>501, >>505
派遣で事務処理なら高いほうだと思うぞ
まあ大前春子みたいな奴は知らんけどw
ただ、>>499は
> 俺の場合は時給換算じゃね―けど
とか言ってるから正社員なんだろ
ならわざわざドヤる程の額じゃねーよ
ってこと
508:デフォルトの名無しさん
20/04/21 14:56:45.54 PwHPaaVD0.net
>>494
「ズレ量」「位置度」の意味がわからん
図を書いて、「ここがズレ量」とか専門用語を使わずに説明してくれ
509:デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r)
20/04/21 15:08:54 VOMv0cPL0.net
>>494
たぶん
× Cells(Gyo, 4) = Sqr(Cells(Gyo, 2), Cells(Gyo, 3)) * 2
○ Cells(Gyo, 4) = Sqr(Cells(Gyo, 2)^2 + Cells(Gyo, 3)^2) * 2
510:デフォルトの名無しさん
20/04/21 20:34:28.31 1TfDEjo0d.net
>>506
日本語、本当に分からないの?
四苦八苦してたのはその通りだが。
お前は、時間とお金を貰えば穴掘って埋めるだけの仕事でも喜んでやりそうだな。
511:デフォルトの名無しさん
20/04/21 20:37:32.58 1TfDEjo0d.net
>>507
正社員www
あの書き方で正社員だと思うかね。
>>505と併せて考えれば普通にフリーと分かりそうなもんだが。
512:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-Wm+M)
20/04/21 20:56:47 PQUXM5VQM.net
>>510
で、何ができたんだ？
説明できないから穴掘りとかではぐらかそうとしてるのバレバレだよw
>>511
えっ、フリーだと激安だろw
なんでそんなの書いたんだ？
513:デフォルトの名無しさん
20/04/21 22:37:42.12 9g8Dif430.net
ブックをコピーするボタンを設置したくて
単純に
ActiveSheet.copy
msgbox "コピー完了"
にしてあるのですが
シートが6つある中で特定の2つのシートでそのボタンを選択すると
このシートはコピー不可 みたいなダイアログだしてコピーをしない
その他の4つのシートでは選択すると今まで通りにコピー
みたいな設定って可能でしょうか
すみません。
514:デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-D5eO)
20/04/21 22:59:56 bkj7Ha2sd.net
よろしくお願いします
AというブックのA1セルの値を
BというブックのリストというシートのA1からA500までで検索をし、
一致した値がある場合は同列のC～F行の値を取得し
元のAブックのC1～F1に貼り付けるVBAを
ご教授ください
515:デフォルトの名無しさん (ﾜｯﾁｮｲ bf02-rm8A)
20/04/21 23:03:12 HzeK5leR0.net
今どこまで出来てるのかソース貼って
それと1個見つかったら2個以上あっても処理終了？
516:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-uk89)
20/04/21 23:26:39 RBZ7Rq7nr.net
>>513
activesheet.nameでシート名取得し条件分岐
またはボタンを消す
517:デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r)
20/04/21 23:30:41 PwHPaaVD0.net
>>513
s = ActiveSheet.Name
Select Case s
Case "Sheet3", "Sheet6" ' コピーできないシート名を並べる
MsgBox "コピー不可"
Case Else
ActiveSheet.Copy
MsgBox "コピー完了"
End Select
518:デフォルトの名無しさん
20/04/22 00:16:20.28 G7FFveIV0.net
>>513
そのシートのボタン消せばいいんじゃないのか
519:デフォルトの名無しさん (ﾜｯﾁｮｲ 7ab5-l81y)
20/04/22 01:31:05 6f1TA8hd0.net
>>517
出来ました。本当にありがとうございます。
520:デフォルトの名無しさん
20/04/22 01:41:45.18 tj5eX5rX0.net
いえいえ
521:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4)
20/04/22 11:01:53 TBrfp0e60.net
>>512
本当に分かってないとはw
調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
お前はバカだから金と時間そ貰えればただ穴を掘って、その場でその穴を埋めるだけの仕事やらされても喜ぶかもしれんが、金や時間貰っても糞コ一ド読まされるのは普通の奴にゃ苦痛なんだよ。
522:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4)
20/04/22 11:03:37 TBrfp0e60.net
>>512
フリーだと激安だってwww
本当に何も分かって無いんだな。
VBAの場合は月70万も行けば良い方だ。
523:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMa8-f1XF)
20/04/22 11:40:39 yd/WL25UM.net
>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろうなw
>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
まあ、そもそもまともな会社は
>>522
>> 日本語の理解力がないのかな？
>> 自慢にもならないことをいちいち書くとかバカじゃね？
まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？w
524:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM85-f1XF)
20/04/22 11:48:33 JonPflQBM.net
すまん途中で送信しちまった
>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろね
お疲れ様
>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
まあ、そもそもまともな会社は他社の糞コードの保守なんて滅多に受けないし
で、何ができたんだ？
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？
ますます辻褄合わせが大変になってるぞw
>>522
>> 日本語の理解力がないのかな？
>> 自慢にもならないことをいちいち書くとかバカじゃね？
まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？
525:デフォルトの名無しさん (ﾜｯﾁｮｲ 6cac-xf6K)
20/04/22 12:11:09 tj5eX5rX0.net
こういうのってこうやって段々長文になっていくよなw
526:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMfd-1Gce)
20/04/22 12:39:44 rSQQIqcfM.net
客は選べない
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句ばっかり言うやつはそこまでの人間
527:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4)
20/04/22 12:42:08 TBrfp0e60.net
>>523
プw
他人の書いたプログラム見たことすら無いとはw
まともに開発に絡んだことがあれば100人が100人他人のコードなんて読みたく無いんだよ。
引き継ぎという言葉も知らない、ググることも出来ない、保守という仕事が何をやるかも分からない。
二―トが背伸びは恥の元だぞ。
528:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4)
20/04/22 12:44:28 TBrfp0e60.net
3000円/hが自慢?
何を言ってるんだ?
3000円/hは最低限の話だが。
アホだからそこに反応する。
2000円/hが主題だと言ってるだろうに。
529:デフォルトの名無しさん
20/04/22 12:47:10.01 TBrfp0e60.net
>>526
客は選べない。
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句は客のいない所で発散する。
当然だがね。
530:デフォルトの名無しさん
20/04/22 12:51:44.35 M+DGBLrr0.net
暇なのはわかるけど
何日ひっぱるつもりなん
531:デフォルトの名無しさん
20/04/22 12:58:15.17 4ePZRvo/M.net
たびたび済みません
元のVBAのフォーマットから
新しいブックをコピーを教えて頂いたのですが
コピーする度に1回目にコピーしたブック内のシートの右に足されていく みたいな設定は可能ですか？
具体的に言うと4月分をコピー
その次に5月分、6月分とコピーすると
初回(4月分)にコピーしたブックのシート右に足されていく
さらに欲張ると元のフォーマットで4月とか5月とか特定のセルに入力した文字がそのままシート名になってくれる
すみませんがやり方ありましたら御教授を宜しくお願いします。
532:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMa8-f1XF)
20/04/22 13:20:05 RF8jAbo1M.net
>>527-529
指摘されて顔真っ赤になって３連投とかw
> 3000円/hは最低限の話だが。
自ら最低限を認めるとか偉いやん
で、なんでそんな恥ずかしい金額をいきなり出してきたんだ？w
533:デフォルトの名無しさん
20/04/22 14:11:10.05 PH7WDass0.net
>>514
例えばA!A1にリンゴっていれると単価だか購入数だかをB!から拾ってきてA!C1～F1に入れる感じの物？
多分VBAというよりエクセル関数VLOOKUPで済む話かと
VLOOKUP(A!A1, B!A:F, 3)
534:デフォルトの名無しさん (ﾜｯﾁｮｲ 0101-g4zf)
20/04/22 14:31:43 YnJWUcMz0.net
社内システムで書類となったものの特定の場所の値とエクセルの上の特定の場所の値が合っているか照合したいです。
そういったマクロ組む場合
1. 書類をスキャナーでpdfにする。
2. pdfをocr機能使って照合に使うシートとは違うシートにデータ転記。
3. 2.でデータ転記したシートの値と確認元のシートの値を照合する。
というのがぼんやり浮かんでるんですが、1-3までの流れでよりスマートな方法があるなら上の流れをどう変えたらいいか教えていただけませんか？
よろしくお願いいたします。
535:デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM34-eHaU)
20/04/22 14:47:15 lF2YSEgcM.net
マクロで何とかなるスキャナーやOCRならいいんじゃないの？
536:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4)
20/04/22 15:04:32 TBrfp0e60.net
>>532
日本語、ダメ過ぎwww
ここまで壊滅的に日本語出来ない奴は仕事も出来ないからニートになるw
"引き継ぎ"で恥かいたからってむきになるなよw
537:デフォルトの名無しさん
20/04/22 15:26:26.42 7QCXjzFAM.net
今度はニートとか言い出したぞw
恥ずかしい奴
>> 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
538:デフォルトの名無しさん
20/04/22 17:33:29.11 jDnlGnaS0.net
>>534
OCR読み取りまでできるなら転記とかいらんけど
社内システムに、その数字をシステム的に参照できるAPIを準備してもらえよ
539:デフォルトの名無しさん
20/04/22 17:47:01.75 YnJWUcMz0.net
>>535-538
csvファイル関連のapiもかなり時間かかったので開発をつついてみます。
ocr使ってデータ転記しないと私の能力と使えるソフトやapiでは座標指定ができないから回りくどいやり方するつもりです。
今のところGoogleクラウドのocrがapi公開してるからそれにしようかなとぼんやり思ってるとこです。
アドバイスありがとうございました。
540:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/22 18:42:39 TBrfp0e60.net
>>537
最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。
こんなの分からないのお前以外いない。
これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
致命的だよ。
541:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/22 18:50:25 TBrfp0e60.net
>>537
あと、その変な引用とアンカ―どうにかならんのか?
542:デフォルトの名無しさん
20/04/22 19:58:37.32 UdDG4RF8M.net
>>540
> 最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。
まじで言ってるのか？
勤め人ならそれでいいけどフリーだと税金や年金とかも自己負担だからやり始めた時ならともかく普通は5,000円/hでも不安だよ
> これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
そういう御託は…
で、何ができたんだ？
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？
にまともなレスできるようになってからほざけよw
>>541
どこにアンカーがあるんだよw
あと>>の意味もわからんとか馬鹿すぎる
543:デフォルトの名無しさん (ﾜｯﾁｮｲ d4da-1Gce)
20/04/22 20:13:28 bDGlwx+F0.net
おまえら能ある鷹は爪を隠すってことわざ知っているか？
544:デフォルトの名無しさん (ﾜｯﾁｮｲ acce-1Gce)
20/04/22 20:18:29 Al75grru0.net
ここは質問スレ
ルールを守らないやつには誰も仕事なんか頼まない
545:デフォルトの名無しさん
20/04/22 22:05:00.09 M+DGBLrr0.net
爪出してないしとか言いそう
546:デフォルトの名無しさん
20/04/22 22:35:47.35 86ULQnrYa.net
そもそも爪がない
547:デフォルトの名無しさん
20/04/22 23:56:54.01 ioC/S0KO0.net
CSVはComma Separated Valueの略ですが、
Commaはわざわざ略さなくても、既に,があるんだから、そのまま,SVでいいと思うんですよ。
548:デフォルトの名無しさん (ﾜｯﾁｮｲ 7cda-1Gce)
20/04/23 00:04:13 WrYMug8t0.net
で、VBAの質問なんですが、何にもないプロシージャって、何か使い道はありますか?
普通は全然意味ないと思うんですが、なんていうか0番スプライト的な感じで。
Sub Test()
End Sub
549:デフォルトの名無しさん (ﾜｯﾁｮｲ 91ad-R0M4)
20/04/23 00:22:20 IA7mxVD60.net
>>547
TXT,,SVより
TXT,CSVの方が誤読しにくい
550:デフォルトの名無しさん (ﾜｯﾁｮｲ 7c7c-sVZV)
20/04/23 00:30:31 /DzsyJb70.net
誤読とか以前にわかりにくすぎるわ
一体何がいいのか
551:デフォルトの名無しさん
20/04/23 01:00:46.60 tvgCM2UH0.net
今さらcsvの命名にケチつけるなんて、極論が好きな反抗期なんだろ
中身のないプロシージャの意味とか、それ質問する理由も書かないしな
552:デフォルトの名無しさん (ｱｳｱｳｳｰ Saab-AGUX)
20/04/23 02:10:50 q29uZhI+a.net
>>548
あるかないかならある
553:デフォルトの名無しさん
20/04/23 02:29:45.14 4BIs3zJP0.net
>>542
バーカw
VBAで5000/hの仕事なんてあるわけ無いだろw
ニートはこれだからw
御託?
お前が"引き継ぎ"という言葉の使い方について反論出来なくなっているわけだがw
反論あるならどうぞw
>>510での過去形について、分からんのか?
レスもまともに読めないのか。
>>477を読めw
引用に>>使うアホはいない。
554:デフォルトの名無しさん (ｽｯﾌﾟ Sd9e-Op/G)
20/04/23 03:04:53 Yau2aIj5d.net
木曜日にワッチョイが切り替わるんだよなあ
めんどくせえ
555:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM46-f1XF)
20/04/23 05:14:45 Bp33q84zM.net
> 今、他人のそういうコードで四苦八苦してる。
↓
> ついでに言っとくと、正直に言えばたった今じゃねえ。
> 2週間程度前の話だ。
なんだそのバレバレな言い訳はw
流石に恥ずかしくないのか？
そもそもそれが本当だったとしても>>476の
> 出来てるから今、四苦八苦してるんだが。
が意味不明なのは変わらんし
何ができて、何に四苦八苦してるのか書いてみ
> 引用に>>使うアホはいない。
まじでわかってないのかよ…
自分自身への引用を明示してるだけだぞ
馬鹿すぎるわ
556:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr39-xf6K)
20/04/23 08:02:32 WPkfNDtBr.net
VBA質問スレで必死になるのはちょっと恥ずかしいよなあw
557:デフォルトの名無しさん
20/04/23 09:42:16.36 4BIs3zJP0.net
>>555
日本語勉強しろw
言い訳?
何を言ってる?
何の言い訳だよw
四苦八苦してる(た)ことに何も変わりはないぞ。
これのどこが言い訳になるんだ?
2週間前に四苦八苦してたとしても、こういう掲示板で発言する時は今四苦八苦してると発言することは十分あり得ると>>477で言ってる。
発言の主旨が変わらないからな。
そして、それがお前に何か指摘されたとか、自己弁護の為に言っているわけじゃないことは時系列から明白。
言い訳?
558:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 09:51:26 4BIs3zJP0.net
>>555
解析する時間もドキュメント作成する時間も費用も貰っているが他人のコード解析するのに四苦八苦してるんだがね。
これのどこが変なのかさっぱり分からん。
何ができて何に四苦八苦してるかの前に、お前は俺が何が出来てないと思ってるのか言えよ。
今までの話じゃ、お前の主張は解析する時間、ドキュメント作成する時間や費用を貰うと四苦八苦することが無くなるということのようだが、そんなこたあねえぞ。
559:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMa8-f1XF)
20/04/23 09:51:33 dNGhRpxuM.net
>>557
「何ができて」の説明が一切なくて失笑
560:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 09:52:35 4BIs3zJP0.net
自分自身への引用でも>>なんて使わん。
>で十分だし、普通。
561:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM46-f1XF)
20/04/23 09:55:24 TqAmz8xEM.net
>>558
ドキュメント作成してるのに四苦八苦してるなら役に立たないドキュメントを作ったお前がアホなだけだけど？
あと、せめてレスを１つにまとめろよ
なぜかバカは同じ内容に複数レスで返すんだよな
まあ低能にまとめる能力を期待しても無駄かなw
562:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 09:55:54 4BIs3zJP0.net
>>559
バーカw
先にお前が、俺の何が出来ていないと思ってるのか説明しろ。
お前が俺の話のどこが理解出来て無いのかはこっちにゃ分からんのだよ。
563:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM36-f1XF)
20/04/23 09:56:33 6OPJP51MM.net
>>560
自身のレスとお前のアホレスを混同されたくないだけw
564:デフォルトの名無しさん (ﾜｯﾁｮｲ 4642-PxOI)
20/04/23 09:57:01 BmbwEUgo0.net
いつまで続くんだコレ
565:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 09:57:12 4BIs3zJP0.net
>>561
バカ?
本当にバカ?
解析してドキュメント作るんだよ。
解析に四苦八苦してるんだぞ。
嗤えるわw
566:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 09:58:37 4BIs3zJP0.net
>>563
そんなもんは内容でわかる。
というか、むしろ邪魔で分かりにくいから>>541で指摘してるんだが。
567:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM40-f1XF)
20/04/23 10:00:29 80sunLmwM.net
>>562
アホなの？
>>476の「できてるから」の説明しろって話
自分で書いたことも理解してないのかよw
568:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 10:03:00 4BIs3zJP0.net
>>567
だから、金と時間を貰ってるというのが出来てると言ってる。
やり取り理解出来てる?
お前の指摘はまともな会社なら金と時間を貰ってるというものだった筈だが。
569:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 10:09:52 4BIs3zJP0.net
最低限、やり取りから解析に四苦八苦してるというのはまともな奴なら分かる筈なんだが。
とすれば、お前の言う金と時間を貰って、今まさにドキュメント起こす為の解析中(だった)なのが分かる筈。
これが前提なんだからドキュメントが既に出来上がってるなんてアホな誤解してたことは無いと信じたい。
570:デフォルトの名無しさん (ｵｯﾍﾟｹ Srea-xf6K)
20/04/23 10:18:34 pyQ+IxFJr.net
関係ない人はこいつらをNGにすればいいで
571:デフォルトの名無しさん (ｱｳｱｳｴｰ Sa6a-BE4G)
20/04/23 10:24:08 EgVweMy+a.net
まだやってるのか
完全に自粛ストレスだろうな
572:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM46-f1XF)
20/04/23 10:29:06 TPtGWxWfM.net
>>566
専ブラで引用の引用したことないのか？
まあその手の文句は専ブラの作者に言ってくれ
>>568-569
> だから、金と時間を貰ってるというのが出来てると言ってる。
あれ？
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
って糞ドキュメントしか作成できないアホって自白してますけど？
発注した客可哀想
まあ脳内だろうから問題ないか…
> やり取り理解出来てる?
うん、どんどんボロが出てるねw
573:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 11:08:06 4BIs3zJP0.net
>>572
???
ドキュメント作るための解析に四苦八苦してるのと、出来たドキュメントの出来に何の関係が?
お前がドキュメント作ったこと無いのがこれでバレたw
574:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 11:11:09 4BIs3zJP0.net
何か、お金と時間貰うとロボットが勝手に解析してドキュメント作ってくれると思ってるアホがいるようだ。
575:デフォルトの名無しさん
20/04/23 11:14:19.21 4BIs3zJP0.net
というか、解析に苦労しないんだったら、糞コードなんて言葉は無い筈なんだ。
どんなコードでも誰にでも理解出来て楽に読めるんだったら、綺麗なコードを心がけるというモチベーションすら起こらない。
576:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 11:21:51 4BIs3zJP0.net
>>572
あと自白っていうのがこれまたおかしい。
最初の主張通り、何ら矛盾が無いんだから自白じゃ無いだろ。
それとも、まだ理解出来て無い?
577:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM40-f1XF)
20/04/23 11:24:06 5d1aUYQtM.net
>>573-574
え゛っ、まじでドキュメント作成で四苦八苦してるって事で誤魔化せるとか思ってるの？
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
そうすると何が何と変わらんのか説明できないだろw
578:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM02-f1XF)
20/04/23 11:25:47 RuZIZsvvM.net
>>575-576
レスをまとめることもできない無能
しかも内容スカスカw
579:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 11:32:54 4BIs3zJP0.net
>>577
えっ?
何度も言ってるのにまだ分からない?
「解析に四苦八苦するのは、時間とお金を貰っても変わらない」という日本語が分からない?
時間と金を貰って無くても、貰ってても、どっちでも四苦八苦はするという意味が理解出来て無かった?
日本人ですか?
580:デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E)
20/04/23 11:35:35 4BIs3zJP0.net
日本語が通用しない程だから始末に負えない。
"引き継ぎ"も碌に理解してないぐらいだからな。
581:デフォルトの名無しさん
20/04/23 12:11:20.51 NJImmJ6MM.net
>>564
これから2週間が山場
582:デフォルトの名無しさん (ﾜｯﾁｮｲ 7349-xf6K)
20/04/23 13:25:04 UY53iXGX0.net
うまい
583:デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5e-l81y)
20/04/23 18:35:48 9EduGPIyM.net
レベルの高すぎる人同士での口論はとてももったいない
俺はIf Then ElseとFor nextは辛うじて理解できそうなレベル
Do untillとかNextとかloopとか使いこなしたい条件が山ほどあって泣きそうだけど
ここの上級者たちは独学で覚えた？
同じ事やろうと調べでもどのサイトもいろんなやり方でどれが良いかも分からない
ここで聞くとさらりと答えだしてくれる人ってどういう頭の良さしてんだろ
584:デフォルトの名無しさん (ﾜｯﾁｮｲ 0a2f-Hty+)
20/04/23 18:56:32 9prkr8SY0.net
基本的には場数
よい文章を書くには良い文章をたくさん読め
良いプログラムを書くためには良いプログラムをたくさん読めば良いんだが
まあ、よいプログラムをたくさん提供してくれる場がなぁ
585:デフォルトの名無しさん (ﾌﾞｰｲﾓ MMed-l81y)
20/04/23 19:20:59 R7RBEdEaM.net
>>584
ここ見てけばまぁ覚えやすいとか無難で間違いないとかそういったサイトありますか？
広告たくさんのサイトだろうが藁にもすがりたいほど身につけたくて…ノイローゼ気味
俺の業務に絞った時にVBAで何でもやらせようと無理せずに関数はエクセルである程度制御した方が後々メンテが楽なのがわかったので
恐らくloopの使い方を理解しないと絶対に乗り越えられない大きな壁が。。
それを作れたら後は数値の変更や応用でいけそうだけど脳が焼き付いてる
586:デフォルトの名無しさん (ｽｯﾌﾟ Sd9e-Op/G)
20/04/23 20:03:22 6e93QXlJd.net
>>583
本当にレベルが高い人は口論なんかしないんだよ
スレを荒らすのはだいたい無職
587:デフォルトの名無しさん (ﾜｯﾁｮｲ acce-1Gce)
20/04/23 20:05:39 weP1rIDx0.net
>>585
まずはここにあるサンプルを、コピペせずに自分でキーボードから入力してみ
URLﾘﾝｸ(excelvba.pc-users.net)
588:デフォルトの名無しさん (ﾜｯﾁｮｲ 0a2f-Hty+)
20/04/23 20:07:24 9prkr8SY0.net
>>585
本買え
初心者むけのをまず数冊
昔はプログラム系の雑誌結構あったんだがなぁ
589:デフォルトの名無しさん (ﾜｯﾁｮｲ 91ad-R0M4)
20/04/23 20:16:07 IA7mxVD60.net
>>583
VBAの本って多いから学習しやすいはず
プログラマなら他言語の経験から
基本的な制御構文くらいは自然と分かる
VBAはプログラム言語としてはやさしい方
590:デフォルトの名無しさん (ｱｳｱｳｴｰ Sa6a-e618)
20/04/23 21:01:06 72/Ynz/da.net
まずは何をしたいか、エクセルでこんな便利なのを作りたいとか、ヴィジョンをもてれば上達は早いと思う
591:デフォルトの名無しさん
20/04/23 21:28:22.57 IA7mxVD60.net
そうだね
エクセルは小物ツール作りやすいから
実益を兼ねた練習を積めば上達するな
592:デフォルトの名無しさん
20/04/23 22:53:32.79 nGyVitY00.net
VBAなんて本腰入れてテキストで勉強するにはコスパ悪すぎる言語だと思うが・・・
「VBA」にやりたいことを付けてググったソースをコピペした方が早くないか？
593:デフォルトの名無しさん (ｽﾌﾟｯｯ Sd7e-1Gce)
20/04/23 23:13:30 /AKn5LJ4d.net
本を見てプログラミングを勉強する時代は終わりだと思ってる
紙の方が読みやすいと思う人が多いだろうけど、本格的にやろうとしたらオンラインのドキュメントは必須だし、
画面上で文字を読む訓練をして慣れていかないと、いつまでも能率が上がらない
594:デフォルトの名無しさん (ﾜｯﾁｮｲ 0a2f-Hty+)
20/04/24 00:05:26 4FfGWszI0.net
>>592
とりあえず動くものが作れればいいというなら、まあそうだな
>>593
学習リソースとしては、本かWEBかに本質的な差はないと思うが
中身の問題で、WEBは本ほど系統立てて編集されていないところが多いと思う
辞書だけで外国語マスターできるような人ならWEBだけでもいいけどな
595:デフォルトの名無しさん (ﾜｯﾁｮｲ 91ad-R0M4)
20/04/24 00:19:26 aTlSrVmc0.net
>>592
>>593
書籍の学習は今でも必要だと
思うしさらにVBAだけでなく
他言語の経験があるといいな
VBAのスレで言うのも何だが
VBAプロパーのプログラムは
垢抜けない泥臭いのが多くて
その辺PHPと同じ感触がする
596:デフォルトの名無しさん (ﾜｯﾁｮｲ 7ab5-l81y)
20/04/24 02:40:01 vJ3u9sjq0.net
>>531
どなたか…四苦八苦して終わりません、、
お時間ある方がいましたらお助けを
597:デフォルトの名無しさん
20/04/24 03:41:33.98 zeBff4Qi0.net
>>596
そうだな、取りあえず質問する時に相手に伝わるか考えながら質問した方が良いかな。
>元のVBAのフォーマット
???
これは何のこと?
何を言ってるの?
シートのコピーで書式だけコピーしたいということ?
だったらそんな機能は無いと思うから、あとは工夫でどうにかする。
Rangeの書式だけコピーはあるから、シートの追加と書式だけコピーの複合にするか、俺ならそもそもコピー元の書式を全部コードで実現してシ一トの追加とその書式を実現するコ一ドでやる。
右に追加というのが特定のシート(4月)の右というならコピーだろうがシートの追加だろうがそのものずばりの引数がある。
WorkSheets.Copy、WorkSheets.AddでクグるとMSのぺージが見つかるから、そこにサンプルもある。
一番右に追加していくというなら、上の特定のシートの部分に最後のシートを指定すれば良い。
最後のシートってのはシートの指定方法は名前と番号の2通り有るので、今回は番号で最後を表現する。
最後ってのはシート数が7個あれば7番目になる。
この場合の7個ってのはシートの個数。
シートの個数はこれまたそのものずばりのプロパティがある。
(これも上のページのサンプルそのもの。)
598:デフォルトの名無しさん
20/04/24 04:14:59.23 zODr3mBK0.net
>>531
5回読んだけど理解不能
画像や絵使って説明してほしいわ
599:デフォルトの名無しさん (ﾜｯﾁｮｲ 2e9a-2b7E)
20/04/24 09:43:49 5xvA7bcI0.net
>>583
いつも同じこと感じています
600:デフォルトの名無しさん
20/04/24 12:06:13.25 EzpkTm1A0.net
他の人は知らんが俺は独学でコマンドマニュアル見たり参考書買ったりしてた
例えば数値でも加算を繰り返してどこでエラーがでるかとかを
実際にサンプル作って実行することをひたすら満足いくまで繰り返したりしたな
学校の勉強と並行してやってたからいつも寝不足だったし
601:デフォルトの名無しさん (ﾜｯﾁｮｲ b701-Bsub)
20/04/24 16:20:00 Enw/zcBV0.net
>>594
学習するのに何が効率いいかっていうよりも、
VBAを学習すること自体に対するリターンって意味でコスパが悪いと言いたかった
特にオフィス製品上でしか実行できない、やりたいことは単純な事が多いっていう特性上、
学習することでググったソースのコピペ以上に得られる物はあるのか？と。
内容を理解することでちゃんとしたコードが書けるってメリットはあるかもしれないが、
VBAで綺麗なコードを書けてもねぇ・・・
VBAのコードを拘るリソースは他に回すべきだ
602:デフォルトの名無しさん
20/04/24 17:35:34.28 vJ3u9sjq0.net
Sub Macro1()
ChDir "c:\tmp"
f = Dir("*.txt")
c = 1
Do While f <> ""
Open f For Input As #1
For r = 1 To 6
Line Input #1, s
Cells(r, c) = Split(s, vbTab)(2)
Next
Close #1
f = Dir
c = c + 1
Loop
End Sub
ここで↑の
「指定した場所に入ってる全てのテキストのエクセル化した時の特定の列と行をエクセルシートに一気に読み込む」
という神の様なコードを教わったものです。
列と行の開始はこのままでいいのですが、テキストの行が空白になるまでエクセルに読み込む
というやり方に変える事は可能でしょうか。
これが職場の環境を大きく変えすぎて2人、本当に課からいなくなって現場に飛びました。
効率化しすぎて他でも応用できるようにしろと皆の前で大声で怒鳴られ泣けても知恵が出てこない
ゆっくり本読んで覚えていきたいにもまず最優先で作れと室内であんなに大声で怒られて
ネットで調べても調べ方すらわかっていなく
異動したい、何卒すみません
603:デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM34-eHaU)
20/04/24 18:38:54 GFko4FvkM.net
>>601
普段の仕事がExcelならコスパいいだろ
604:デフォルトの名無しさん (ﾜｯﾁｮｲ ae01-NnsP)
20/04/24 18:40:11 zODr3mBK0.net
一から十まですべて教わらないとできないような人はやめたほうがいいわ
実力以上のコードを教わったところで何も応用できず周囲の期待には応えられない
５ｃｈで教えてもらって作りました
これ以上は分かりませんって正直に言えばいい
605:デフォルトの名無しさん (ﾜｯﾁｮｲ 0a2f-Hty+)
20/04/24 18:49:29 4FfGWszI0.net
ForをDoにして、NextをLoop Until S=""かな
つか、二人分の人件費が浮くような作業なら、ちゃんとした会社にシステム化たのめよ
606:デフォルトの名無しさん (ﾜｯﾁｮｲ 0a2f-Hty+)
20/04/24 18:51:14 4FfGWszI0.net
まあこれで動いたら>>602がさらなるドツボにはまるのをニヤニヤしようぜ
607:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr5f-iTDC)
20/04/24 18:53:25 K658YEair.net
効率化して上司から怒鳴られるってどんな職場だ
上司がクソすぎ
608:デフォルトの名無しさん (ﾜｯﾁｮｲ 91ad-R0M4)
20/04/24 19:12:23 aTlSrVmc0.net
背伸びしても上手くいかないもんだね？
609:デフォルトの名無しさん (ﾜｯﾁｮｲ acce-1Gce)
20/04/24 19:16:29 sF/e/OCE0.net
>>602
ここに解決方法が書いてある
URLﾘﾝｸ(www.manpowergroup.jp)
610:デフォルトの名無しさん
20/04/25 00:00:18.00 /63/MmUO0.net
コードくれくれ君
611:デフォルトの名無しさん
20/04/25 00:25:36.55 gc0CgTOT0.net
画像上部の21～20日間隔の日付のセルの塗り潰しを下の1～30日間隔の日付に塗り潰し変えたいんですがどうしたらいいですか？
・上部をforで2行目の最終列までループ
・ifで塗り潰し判定がTrue
・？？？
・？？？
・下部をforで2行目の最終列までループ
・ifで対象年月日間隔だったら塗り潰す
と、こんなイメージなのかなと思ってはいるんですが、？？らへんの処理がわかりません。
URLﾘﾝｸ(i.imgur.com)
612:デフォルトの名無しさん
20/04/25 00:30:28.43 XJisoOEM0.net
次から次へと馬鹿が出てくるのはなぜ？
613:デフォルトの名無しさん
20/04/25 00:36:47.04 8o24J96M0.net
Functionの任意引数(Optional)なのですが、初期値はstringかlong型のみだけしかダメなのでしょうか？
シート名objectの引数で、省略したときにActivesheetを返したいのですが、「定数式が～」のエラーが出てしまいます。
やはり、IFとIsMissingを使うしかないでしょうか。
Function test(Optional objシート名 As Worksheet = ActiveSheet)
End Function
614:デフォルトの名無しさん
20/04/25 00:42:53.79 l10aoXHL0.net
そもそも引数とか型の意味理解してる？
615:デフォルトの名無しさん
20/04/25 00:44:19.85 7EOq2zNJ0.net
>>613
規定値に使えるのは定数値だけ
変数、プロパティ、関数などは使えない
だからActiveSheetも対象外
616:デフォルトの名無しさん
20/04/25 00:50:04.58 7EOq2zNJ0.net
>>611
その画像で説明すると、D3:K3をコピーしてC10:J10に書式貼り付けするだけでは
617:デフォルトの名無しさん
20/04/25 00:52:04.34 lAut8yEK0.net
>>611
D2からK3をコピーしてC9に貼り付けて C2をK9に貼り付けるだけじゃないの？
VBA使わない方が早そうなんだけど
618:デフォルトの名無しさん
20/04/25 00:53:34.41 bDeh6DKGd.net
>>611
塗りつぶす条件がわからなければわからない
619:デフォルトの名無しさん (ﾜｯﾁｮｲ 4c2c-Hty+)
20/04/25 00:58:07 a/EKdpBi0.net
>>602
Ruby なら、row.empty? で空行かどうか、判別できるけど
require 'csv'
CSV.foreach( "input.csv" ) do | row | # 1行ずつ処理
break if row.empty? # 空行なら、終了
puts "#{ row[ 0 ] } : #{ row[ 1 ] }"
end
入力ファイル・input.csv
あ,いう
a,bc
1,23
出力
あ : いう
a : bc
620:デフォルトの名無しさん
20/04/25 01:41:16.85 7EOq2zNJ0.net
>>602
読み込みを止める条件が空行とEOFの2つになると、とたんに処理が面倒になるんだよな
こういう時はLine Inputを別Functionに飛ばすとすっきりするんだけど、とりあえず汚い方法で書いてみた
Sub Macro1()
ChDir "c:\tmp"
f = Dir("*.txt")
c = 1
Do While f <> ""
Open f For Input As #1
s = "s"
r = 1
Do While Not EOF(1) And s <> ""
Line Input #1, s
If s <> "" Then Cells(r, c) = Split(s, vbTab)(2)
r = r + 1
Loop
Close #1
f = Dir
c = c + 1
Loop
End Sub
621:デフォルトの名無しさん (ﾜｯﾁｮｲ 1e09-w2of)
20/04/25 02:03:19 8o24J96M0.net
>>615
そうなのですね、ありがとうございました。
622:デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM46-f1XF)
20/04/25 05:53:44 SWq+pauNM.net
>>613
If 文使うしかないのはその通りだけど IsMissing() は引数の型を Variant にする必要があるのであまり良くない
Function test(Optional objシート名 As Worksheet = Nothing) ' Nothing は既定値なので指定しなくてもいい
If objシート名 Is Nothing Then Set objシート名 = ActiveSheet
End Function
ってやるのが定番
ググると同じことをやってる人がいる
URLﾘﾝｸ(akashi-keirin.hatenablog.com)
623:デフォルトの名無しさん (ﾜｯﾁｮｲ 211f-unif)
20/04/25 13:56:29 gc0CgTOT0.net
>>616
>>617
名前は下にたくさん羅列してるし、日付も右にもっとずっとあるからVBでやりたい。
日付間隔が上下で違うからどうやったらいいかと思って。
for 上部名前シートループ
for 下部名前シートループ
if 名前同一
for 上部名前年月日列ループ
if 塗り潰し
※下部シート塗り潰し
end if
next
end if
next
next
※の部分がどう書くのかがわかりません。
>>618
塗り潰す条件は同じ名前の人に対して同じ日付の所へ塗り潰す。
624:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr5f-iTDC)
20/04/25 14:00:26 jVtajgfWr.net
>>623
元データのc列を消せば良いのでは
625:デフォルトの名無しさん (ｽﾌｯ Sd94-S0vp)
20/04/25 14:21:24 y/AcnKi/d.net
>>623
上部のD列から見ていって塗ってあったら下部の一つ左の列を塗る
626:デフォルトの名無しさん
20/04/25 20:10:34.52 Z1BPhcf20.net
下記のコードで出力範囲1と2をまとめるにはどうすればいいでしょうか
Set OutputRange = Worksheets("Sheet1").Range("B2:C10")
For i = 1 To 9
For j = 1 To 2
For k = 2 To 3
OutputRange(i, j) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, k, False)
だとB,C列ともに列番号3をの値になる、というか列番号2で処理した後列番号3でもう一度処理を
しているため、すべて列番号3の値になるんじゃないかとは思うのですが、具体的にどう直せば
いいか教えていただけるとありがたいです
Sub Test()
Dim SerchKey As Range '検索値
Dim SerchRange As Range '検索範囲
Dim OutputRange1 As Range '出力範囲1 B列
Dim OutputRange2 As Range '出力範囲2 C列
Dim i As Long
Set SerchKey = Worksheets("Sheet1").Range("A2:A10")
Set SerchRange = Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A2:C10")
Set OutputRange1 = Worksheets("Sheet1").Range("B2:B10")
Set OutputRange2 = Worksheets("Sheet1").Range("C2:C10")
For i = 1 To 9
OutputRange1(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 2, False)
OutputRange2(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 3, False)
Next i
End Sub
627:デフォルトの名無しさん
20/04/25 20:18:25.81 /63/MmUO0.net
このスレにくる質問見ると、俺に読解力がないのかなといつも思ってしまう
628:デフォルトの名無しさん
20/04/25 21:06:29.21 OxGSjC7Q0.net
>>626
VLOOKUPは答えを複数返す関数じゃない
629:デフォルトの名無しさん (ﾜｯﾁｮｲ 7c7c-sVZV)
20/04/25 21:14:48 OxGSjC7Q0.net
あ、質問の意味が今わかったわ
入れるセル変えずに関数の列番だけ変えてたらそりゃ同じ値しか入らない
中身がどうなってるか想像じゃなくて実際に確認すればどう直せばいいかわかるだろう
630:デフォルトの名無しさん (ﾜｯﾁｮｲ bb5e-1Gce)
20/04/25 22:19:20 Z1BPhcf20.net
質問が説明不足だったようで失礼しました
出力範囲が複数列ある場合にそれぞれの列を「出力範囲1」「出力範囲2」と設定していけばいいという
ところまではわかったのですが、検索範囲が100列、出力範囲が99列、というように数が多くなった場合、
出力範囲のB列には検索範囲の列番号2 OutputRange1(i, 1)…… SerchRange, 2
出力範囲のC列には検索範囲の列番号3 OutputRange2(i, 1)…… SerchRange, 3
出力範囲のD列には検索範囲の列番号4 OutputRange3(i, 1)…… SerchRange, 4
・
・
・
という処理を99行書かずに変数で処理できないでしょうか、というのが質問の意図です
631:デフォルトの名無しさん (ﾜｯﾁｮｲ 38ef-1Gce)
20/04/25 22:58:11 u3Cmop/t0.net
j の役割って何だろう？
632:デフォルトの名無しさん (ﾜｯﾁｮｲ 7c7c-sVZV)
20/04/25 23:00:40 OxGSjC7Q0.net
だから>>626のループの中身がどうなってるか見て順番考えたらいいんじゃないの
633:デフォルトの名無しさん
20/04/26 00:49:06.95 1a87l4R/0.net
>>630
同じような処理を繰り返したい時は配列を使う
Dim OutputRange(10) As Range '出力範囲
Dim i As Integer
For i = 2 To 3
Set OutputRange(i) = Worksheets("Sheet1").Range(Cells(i, 2), Cells(i, 10))
Next
みたいな感じで、変数を使えば、何十個あっても簡単にまとめられる
634:デフォルトの名無しさん
20/04/26 02:34:49.27 LqR8iAxp0.net
なぜ馬鹿ばっかり来るのか
635:デフォルトの名無しさん
20/04/26 03:25:04.50 3JmljcZq5
東大院生と本気数学トーク！！【数学ボーイZ 数学野郎さんコラボ】
URLﾘﾝｸ(www.youtube.com)
中3で数Ⅲ先取り!? 京大数学系YouTuber古賀さんに開成中高時代を聞く！
URLﾘﾝｸ(www.youtube.com)
開成から京大理学部に進学した理由とは？古賀さんに京大の実態を聞く！
URLﾘﾝｸ(www.youtube.com)
高校数学と何が違うの？大学数学でつまずかないためのアドバイス！［大学数学準備講座1/4］
URLﾘﾝｸ(www.youtube.com)
数学は「定義」にかえることが大事！
URLﾘﾝｸ(www.youtube.com)
数を創る話〜自然数から複素数への構成〜
URLﾘﾝｸ(www.youtube.com)
高校生でも雰囲気だけ分かるガロア理論
URLﾘﾝｸ(www.youtube.com)
高校生でも雰囲気だけ分かるゼータ関数とリーマン予想
URLﾘﾝｸ(www.youtube.com)
【高校生でもわかる】いろいろな積分 リーマン，ルベーグ...
URLﾘﾝｸ(www.youtube.com)
大学で本気で学問をしたい人へのアドバイス
URLﾘﾝｸ(www.youtube.com)
636:デフォルトの名無しさん (ﾜｯﾁｮｲ d4da-1Gce)
20/04/26 06:16:38 +0ojgInc0.net
馬鹿ばっかり来るところにいるからじゃね
ってか自力でできるやつは質問なんかしないだろ
637:デフォルトの名無しさん (ﾜｯﾁｮｲ 9602-TRCj)
20/04/26 09:08:46 rBKIu5KT0.net
>>636
それググレカスキッズだと思う
>>612
638:デフォルトの名無しさん (ﾜｯﾁｮｲ 2c7f-KNAb)
20/04/26 10:18:45 LS9zyJ5J0.net
複数あるコマンドボタンをどれを押しても一つの処理に入り、押されたボタンを取得して、ボタンごとに判断処理ってできないのでしょうか。(activeXです)
具体的にはシリアルポートの処理で以下のことをやりたいです。
コマンドボタンが機器名、その機器ごとに存在する複数のコンボボックスにポート名やボーレートを設定。
あるコマンドボタンを押したら、対応するコンボボックス郡の設定を取得してポートを開く。(ポートオープンはモジュールに記述したWritefileでやってます)
ポートオープンで返ってきたハンドラが例外でなければ、押されたコマンドボタンの色を変更し、名前を"機器名+接続中"に変更。
また、コマンドボタンを押した時点で対応ポートのハンドラが存在すれば、そのポートを閉じて(ハンドラも初期化)、押されたコマンドボタンの色を戻す。
現在はボタンごとのプロージャを作成し、同じような処理を逐一書いてますが、機器が複数あって大変見にくいのと、記述が大変なのでまとめたいです。
639:デフォルトの名無しさん
20/04/26 10:39:23.22 oDDaXD960.net
>>638
それ、まともにやろうとするとかなり上級レベル。
上級者を自認する人でも出来ない人が結構いる。
640:デフォルトの名無しさん
20/04/26 10:39:50.30 1a87l4R/0.net
>>638
「コントロール配列」でぐぐれ
URLﾘﾝｸ(www.asahi-net.or.jp)