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 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 もしかして、それって何も変換せずにそのままバイナリファイルに書き出せばいいのでは？ テキストファイルとバイナリファイルの違いは、出力方法はわかってる？ 470 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 00:54:15.80 ID:3RmvNNii0.net] >>462 だから例えば130や250という数値をどういう文字にしたいんだ？ >Bitmapファイルをテキスト形式で表示したもの 普通に言うビットマップファイルはバイナリだからテキスト形式で表示なんてできないが というか、たんにいわゆる.BMPのファイル作りたいって話じゃないのか お前がいってるBitmapファイルってどんなんだよ なんにせよ出力したいデータフォーマットちゃんと確認しろ 471 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY) [2020/04/20(月) 01:18:49 ID:ayPjQ7gM0.net] なぜ次から次へと馬鹿が出てくるのか 472 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sddf-Ho7r) mailto:sage [2020/04/20(月) 01:59:49 ID:7tfcEhPrd.net] >>467 外出を自粛したり自宅で仕事する人が増えたから みんな体力とヒマを持て余してる 473 名前：デフォルトの名無しさん (ｽﾌｯ Sdbf-Ho7r) mailto:sage [2020/04/20(月) 02:13:58 ID:ngLECqIpd.net] >>462 Asc?とかASCiiとか、なんでいちいち気持ち悪い書き方をするのか こんなん入力するのも面倒だろうに 正式には全部大文字でASCII、許容範囲で小文字ascii、賛否ありそうだけど頭だけ大文字Asciiもギリ許せる、どれかにしてくれ 1文字たりとも間違いを許さない厳密さがないとプログラミングは無理だぞ 474 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 02:14:21.83 ID:ngLECqIpd.net] とにかく、説明がへたくそすぎて、何が悪いのかさっぱりわからん 動かない今のプログラムをここにそのまま書いてくれ たぶんそれ見た方が早い あとオシロスコープの機種名も 475 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 03:07:35.60 ID:HepRq5En0.net] 勉強しても仕事より辛い 476 名前：デフォルトの名無しさん (ｽﾌｯ Sdbf-csEB) mailto:sage [2020/04/20(月) 03:16:22 ID:0LewM/0Ud.net] たぶん、こうだな Open "オシロ画面.bmp" For Binary Access Write As #1　'ファイル名を指定 Put #1, , 変数名　'バイト配列をそのまま全部出力 Close #1　'終了 477 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Ho7r) mailto:sage [2020/04/20(月) 06:02:11 ID:1SCvgf4l0.net] >>471 就職先間違えたんじゃね 478 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 09:42:05.89 ID:kpWyfGjqd.net] >>454 日本語が理解出来て無いバカニートはお前だろw >要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。 >そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。 だから>>325で四苦八苦してるんだろ。 ついでに言うと、こっちはちゃんとドキュメント残してる。 でもな、VBAの場合で今まで見聞きした前任者、前任の会社は残して無いことが非常に多い。 開発やってればそういう話、よく聞く話なんだよ。 479 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 09:53:56.27 ID:k6bRrEuIM.net] >>474 マジで日本語理解できないの？ 時系列ってわかる？ それとも無職の妄想だから同じ話を繰り返すしかなくなったのか？w > まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す できてないから今アタフタしてるだけだろ 480 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 10:02:13.61 ID:8H2k4fX/d.net] >>475 ??? 出来てるから今、四苦八苦してるんだが。 解析に苦労してると書いてるだろうがw 481 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-N0vN) mailto:sage [2020/04/20(月) 10:04:53 ID:8H2k4fX/d.net] ついでに言っとくと、正直に言えばたった今じゃねえ。 2週間程度前の話だ。 でも掲示板で、そんな説明することは無いだろ。 どーでも良い話だからな。 482 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 10:07:15.13 ID:8H2k4fX/d.net] >>475 さらにいうと、お前の言うとおりなら、日本にはまともでない会社だらけになっちまうけどなw 483 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-h94e) mailto:sage [2020/04/20(月) 10:21:33 ID:RWBNH8g+M.net] >>476-477 できてるって何が出来てるんだ？ どんどん話が壊れてるぞ >>478 他社コードの保守はリスク高いから基本受けないし受けるとしたらそれ相応の対価を要求するなんて常識だぞ 言いなりになってそういうのを受けないと死んじゃうクズ会社なら愚痴ってないでまともに働けよw 484 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-9YMR) mailto:sage [2020/04/20(月) 10:51:40 ID:Smt4njnQM.net] >>479 常識が通用しない現場なんていくらでもある お前の経験値が足りないのはよくわかったから、あと15年ぐらい、もっと修羅場を経験してから出直してこい 485 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMdf-h94e) mailto:sage [2020/04/20(月) 12:53:38 ID:zSz1bMm9M.net] >>480 うん、常識の通じないクズ会社があることは知ってるよ それが当たり前とか思ってるのが痛々しい って話ねw 486 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Ho7r) mailto:sage [2020/04/20(月) 13:20:10 ID:+VtGXs+Fa.net] >>480 結果的に0から作るのと見積額が変わらなくなることも 0から作った方が見積もりが安いこともよくあるw 487 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/20(月) 17:29:22 ID:LK5TIQvQM.net] C5とD5の平方根をE5に入力する これをC列が空白になるで行う のシンプルなコード教えてくだせぇ 488 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY) [2020/04/20(月) 17:33:09 ID:ayPjQ7gM0.net] なぜ次から次へと馬鹿が来るのか 489 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r) mailto:sage [2020/04/20(月) 17:47:32 ID:gp23hNl10.net] >>483 Columns("C:C").ClearContents 490 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/20(月) 17:58:37 ID:01IV/2aE0.net] >>483 意味不明 >>485 なるほど、うまいな 491 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq) mailto:sage [2020/04/20(月) 20:13:51 ID:Y6XPlQfH0.net] まともに勉強してないだけだと思う 492 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-RTks) mailto:sage [2020/04/20(月) 20:20:08 ID:xfj95GQN0.net] sqr(sqrt)関数あるんだな 493 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R) mailto:sage [2020/04/20(月) 20:27:38 ID:326Vj6040.net] 皆様は、同一のブック内で複数のマクロがあり、それらの実行時に共通の処理を させたいとき（実行しますか？の確認メッセなど）どういうコードを 書いておりますでしょうか。 私は開発→挿入→ボタン（フォームコントロール）にそれぞれマクロを登録して 実行させており、これらのボタンclick時に共通イベントを設定しようと 考えているのですが。非効率的でしょうか。 494 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R) mailto:sage [2020/04/20(月) 20:30:00 ID:326Vj6040.net] 補足です。現在は共通処理sub作って、マクロごとにそれをcallしておりますが、 そのブックで日々マクロが増加してきており、そのcall一行すら面倒になってきました・・・ 495 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b77c-IHcq) mailto:sage [2020/04/20(月) 20:37:06 ID:Y6XPlQfH0.net] 辞書登録でもしておくとか 496 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-uk89) mailto:sage [2020/04/20(月) 20:57:06 ID:+CR9zmner.net] >>489 application.callerとselect caseかな 497 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5709-xa8R) mailto:sage [2020/04/20(月) 21:57:48 ID:326Vj6040.net] >>492 おお、vba実行時に処理できるメソッドがあったんですね！ 自分の勉強不足でした、大変助かりました。使わせていただきます。 498 名前：デフォルトの名無しさん mailto:sage [2020/04/20(月) 23:00:14.60 ID: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 論 499 名前：外ですか？もちろんピコンピコンエラーまくりです。 B1とC1がもしそれぞれ1なら2.828 それぞれ2なら5.657と なってほしいのですがお手上げです [] [ここ壊れてます] 500 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY) [2020/04/21(火) 00:41:08 ID:XAeWC18v0.net] なぜ次から次へと馬鹿が湧くのか 501 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b7e6-R0o5) [2020/04/21(火) 01:54:12 ID:FdhLTsrP0.net] まさか足し算すら出来ないとは夢にも思わないじゃん 502 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 04:14:58.32 ID:uRz5dWGWa.net] sqrt(4) って 2だよね 503 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 04:17:02.05 ID:uRz5dWGWa.net] vbaではsqrか 504 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 08:23:54.51 ID:1TfDEjo0d.net] >>479 あ〜あ。 素人丸わかりw SEとか、技術者の勉強してるニートかなw できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。 ということは=それにかかる費用も貰ってるということだよ。 こんなことも理解出来ないのか? VBAの案件ってのは残念ながら能力の低い奴がやることも多く、常識が通じないことが多い。 なにしろ時給2000円とかでやってる奴も結構いるくらいだ。 俺の場合は時給換算じゃね―けど時給になおしたら最低でも1.5倍は貰わないとやってられねえ。 505 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 08:50:35.54 ID:sDUb3bhdM.net] >>499 > できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。 > ということは=それにかかる費用も貰ってるということだよ。 ↑ > 今、他人のそういうコードで四苦八苦してる。 > こんなことも理解出来ないのか? で、何を理解しろって？ お前の頓珍漢さか？ あと3,000円/hってドヤるほど高くないぞw 506 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-Ho7r) mailto:sage [2020/04/21(火) 10:52:51 ID:mWboXDgG0.net] excelの事務処理で時給3000円は高くね？ 507 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 11:40:05.07 ID:Jp/GQMh30.net] 何が分からんのか分からんから、とりあえず値２つの合計の平方根を求めるやつをかいた シート https://imgur.com/8uy5ETZ 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 508 名前：502 mailto:sage [2020/04/21(火) 11:42:34.25 ID:Jp/GQMh30.net] ちょっとだけ汎用的にも書いた こっちはベテランの叩き台にしてほしい 長いしあんまり突っ込まれると恥ずかしいから画像 https://imgur.com/4pE5uE6 509 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-8lzQ) mailto:sage [2020/04/21(火) 12:31:16 ID:1TfDEjo0d.net] >>500 日本語がまともに出来ないアホには理解出来ないからお前には無理w 何を理解しろって、別にお前に対して理解しろなんて言ってないぞ。 理解出来ないアホさ加減を嗤ってるだけだw アホだから3,000円/hに突っ込むと思ったwww 最低でもと書いてるんだが。 そもそも、そこに突っ込むんじゃ無くて2000円/hに突っ込め。 そういう所はドキュメント無しで終わってもしようが無い。 510 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-8lzQ) mailto:sage [2020/04/21(火) 12:40:09 ID:1TfDEjo0d.net] >>501 派遣の場合は高い部類に入るだろうね。 力量があって派遣じゃなければVBAでも余裕で超える。 ExcelVBAでのセルとかシート操作の話では無くなるけど。 511 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 12:52:51.59 ID:ADUc7MNZM.net] >>504 > 日本語がまともに出来ないアホには理解出来ないからお前には無理w 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ まあどう言い逃れしようとしても > 今、他人のそういうコードで四苦八苦してる。 って書いたのに突っ込まれたら何か知らんけどできてると言っちゃったアホがいた事実は消せないよw 512 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM5b-Wm+M) mailto:sage [2020/04/21(火) 12:57:31 ID:zuguU9RsM.net] >>501, >>505 派遣で事務処理なら高いほうだと思うぞ まあ大前春子みたいな奴は知らんけどw ただ、>>499は > 俺の場合は時給換算じゃね―けど とか言ってるから正社員なんだろ ならわざわざドヤる程の額じゃねーよ ってこと 513 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 14:56:45.54 ID:PwHPaaVD0.net] >>494 「ズレ量」「位置度」の意味がわからん 図を書いて、「ここがズレ量」とか専門用語を使わずに説明してくれ 514 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r) mailto:sage [2020/04/21(火) 15:08:54 ID: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 515 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 20:34:28.31 ID:1TfDEjo0d.net] >>506 日本語、本当に分からないの? 四苦八苦してたのはその通りだが。 お前は、時間とお金を貰えば穴掘って埋めるだけの仕事でも喜んでやりそうだな。 516 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 20:37:32.58 ID:1TfDEjo0d.net] >>507 正社員www あの書き方で正社員だと思うかね。 >>505と併せて考えれば普通にフリーと分かりそうなもんだが。 517 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMeb-Wm+M) mailto:sage [2020/04/21(火) 20:56:47 ID:PQUXM5VQM.net] >>510 で、何ができたんだ？ 説明できないから穴掘りとかではぐらかそうとしてるのバレバレだよw >>511 えっ、フリーだと激安だろw なんでそんなの書いたんだ？ 518 名前：デフォルトの名無しさん mailto:sage [2020/04/21(火) 22:37:42.12 ID:9g8Dif430.net] ブックをコピーするボタンを設置したくて 単純に ActiveSheet.copy msgbox "コピー完了" にしてあるのですが シートが6つある中で特定の2つのシートでそのボタンを選択すると このシートはコピー不可　みたいなダイアログだしてコピーをしない その他の4つのシートでは選択すると今まで通りにコピー みたいな設定って可能でしょうか すみません。 519 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd3f-D5eO) mailto:sage [2020/04/21(火) 22:59:56 ID:bkj7Ha2sd.net] よろしくお願いします AというブックのA1セルの値を BというブックのリストというシートのA1からA500までで検索をし、 一致した値がある場合は同列のC〜F行の値を取得し 元のAブックのC1〜F1に貼り付けるVBAを ご教授ください 520 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bf02-rm8A) mailto:sage [2020/04/21(火) 23:03:12 ID:HzeK5leR0.net] 今どこまで出来てるのかソース貼って それと1個見つかったら2個以上あっても処理終了？ 521 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-uk89) mailto:sage [2020/04/21(火) 23:26:39 ID:RBZ7Rq7nr.net] >>513 activesheet.nameでシート名取得し条件分岐 またはボタンを消す 522 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/21(火) 23:30:41 ID:PwHPaaVD0.net] >>513 s = ActiveSheet.Name Select Case s 　　Case "Sheet3", "Sheet6"　' コピーできないシート名を並べる 　　　　MsgBox "コピー不可" 　　Case Else 　　　　ActiveSheet.Copy 　　　　MsgBox "コピー完了" End Select 523 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 00:16:20.28 ID:G7FFveIV0.net] >>513 そのシートのボタン消せばいいんじゃないのか 524 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7ab5-l81y) mailto:sage [2020/04/22(水) 01:31:05 ID:6f1TA8hd0.net] >>517 出来ました。本当にありがとうございます。 525 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 01:41:45.18 ID:tj5eX5rX0.net] いえいえ 526 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4) mailto:sage [2020/04/22(水) 11:01:53 ID:TBrfp0e60.net] >>512 本当に分かってないとはw 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。 お前はバカだから金と時間そ貰えればただ穴を掘って、その場でその穴を埋めるだけの仕事やらされても喜ぶかもしれんが、金や時間貰っても糞コ一ド読まされるのは普通の奴にゃ苦痛なんだよ。 527 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4) mailto:sage [2020/04/22(水) 11:03:37 ID:TBrfp0e60.net] >>512 フリーだと激安だってwww 本当に何も分かって無いんだな。 VBAの場合は月70万も行けば良い方だ。 528 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMa8-f1XF) mailto:sage [2020/04/22(水) 11:40:39 ID:yd/WL25UM.net] >>521 > 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。 ゴメンな、糞会社はそうなんだろうなw >> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す まあ、そもそもまともな会社は >>522 >> 日本語の理解力がないのかな？ >> 自慢にもならないことをいちいち書くとかバカじゃね？ まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？w 529 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM85-f1XF) mailto:sage [2020/04/22(水) 11:48:33 ID:JonPflQBM.net] すまん途中で送信しちまった >>521 > 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。 ゴメンな、糞会社はそうなんだろね お疲れ様 >> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す まあ、そもそもまともな会社は他社の糞コードの保守なんて滅多に受けないし で、何ができたんだ？ >>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？ ますます辻褄合わせが大変になってるぞw >>522 >> 日本語の理解力がないのかな？ >> 自慢にもならないことをいちいち書くとかバカじゃね？ まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？ 530 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6cac-xf6K) mailto:sage [2020/04/22(水) 12:11:09 ID:tj5eX5rX0.net] こういうのってこうやって段々長文になっていくよなw 531 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMfd-1Gce) mailto:sage [2020/04/22(水) 12:39:44 ID:rSQQIqcfM.net] 客は選べない クソな仕事でも黙々とこなすやつが結局は上に上がってく 文句ばっかり言うやつはそこまでの人間 532 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4) mailto:sage [2020/04/22(水) 12:42:08 ID:TBrfp0e60.net] >>523 プw 他人の書いたプログラム見たことすら無いとはw まともに開発に絡んだことがあれば100人が100人他人のコードなんて読みたく無いんだよ。 引き継ぎという言葉も知らない、ググることも出来ない、保守という仕事が何をやるかも分からない。 二―トが背伸びは恥の元だぞ。 533 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4) mailto:sage [2020/04/22(水) 12:44:28 ID:TBrfp0e60.net] 3000円/hが自慢? 何を言ってるんだ? 3000円/hは最低限の話だが。 アホだからそこに反応する。 2000円/hが主題だと言ってるだろうに。 534 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 12:47:10.01 ID:TBrfp0e60.net] >>526 客は選べない。 クソな仕事でも黙々とこなすやつが結局は上に上がってく 文句は客のいない所で発散する。 当然だがね。 535 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 12:51:44.35 ID:M+DGBLrr0.net] 暇なのはわかるけど 何日ひっぱるつもりなん 536 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 12:58:15.17 ID:4ePZRvo/M.net] たびたび済みません 元のVBAのフォーマットから 新しいブックをコピーを教えて頂いたのですが コピーする度に1回目にコピーしたブック内のシートの右に足されていく　みたいな設定は可能ですか？ 具体的に言うと4月分をコピー その次に5月分、6月分とコピーすると 初回(4月分)にコピーしたブックのシート右に足されていく さらに欲張ると元のフォーマットで4月とか5月とか特定のセルに入力した文字がそのままシート名になってくれる すみませんがやり方ありましたら御教授を宜しくお願いします。 537 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMa8-f1XF) mailto:sage [2020/04/22(水) 13:20:05 ID:RF8jAbo1M.net] >>527-529 指摘されて顔真っ赤になって３連投とかw > 3000円/hは最低限の話だが。 自ら最低限を認めるとか偉いやん で、なんでそんな恥ずかしい金額をいきなり出してきたんだ？w 538 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 14:11:10.05 ID:PH7WDass0.net] >>514 例えばA!A1にリンゴっていれると単価だか購入数だかをB!から拾ってきてA!C1〜F1に入れる感じの物？ 多分VBAというよりエクセル関数VLOOKUPで済む話かと VLOOKUP(A!A1, B!A:F, 3) 539 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0101-g4zf) mailto:sage [2020/04/22(水) 14:31:43 ID:YnJWUcMz0.net] 社内システムで書類となったものの特定の場所の値とエクセルの上の特定の場所の値が合っているか照合したいです。 そういったマクロ組む場合 1. 書類をスキャナーでpdfにする。 2. pdfをocr機能使って照合に使うシートとは違うシートにデータ転記。 3. 2.でデータ転記したシートの値と確認元のシートの値を照合する。 というのがぼんやり浮かんでるんですが、1-3までの流れでよりスマートな方法があるなら上の流れをどう変えたらいいか教えていただけませんか？ よろしくお願いいたします。 540 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM34-eHaU) [2020/04/22(水) 14:47:15 ID:lF2YSEgcM.net] マクロで何とかなるスキャナーやOCRならいいんじゃないの？ 541 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-N0F4) mailto:sage [2020/04/22(水) 15:04:32 ID:TBrfp0e60.net] >>532 日本語、ダメ過ぎwww ここまで壊滅的に日本語出来ない奴は仕事も出来ないからニートになるw "引き継ぎ"で恥かいたからってむきになるなよw 542 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 15:26:26.42 ID:7QCXjzFAM.net] 今度はニートとか言い出したぞw 恥ずかしい奴 >> 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ 543 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 17:33:29.11 ID:jDnlGnaS0.net] >>534 OCR読み取りまでできるなら転記とかいらんけど 社内システムに、その数字をシステム的に参照できるAPIを準備してもらえよ 544 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 17:47:01.75 ID:YnJWUcMz0.net] >>535-538 csvファイル関連のapiもかなり時間かかったので開発をつついてみます。 ocr使ってデータ転記しないと私の能力と使えるソフトやapiでは座標指定ができないから回りくどいやり方するつもりです。 今のところGoogleクラウドのocrがapi公開してるからそれにしようかなとぼんやり思ってるとこです。 アドバイスありがとうございました。 545 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E) mailto:sage [2020/04/22(水) 18:42:39 ID:TBrfp0e60.net] >>537 最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。 こんなの分からないのお前以外いない。 これまでのやり取りも酷いし、"引き継ぎ"についても分からない。 致命的だよ。 546 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0791-2b7E) mailto:sage [2020/04/22(水) 18:50:25 ID:TBrfp0e60.net] >>537 あと、その変な引用とアンカ―どうにかならんのか? 547 名前：デフォルトの名無しさん mailto:sage [2020/04/22(水) 19:58:37.32 ID:UdDG4RF8M.net] >>540 > 最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。 まじで言ってるのか？ 勤め人ならそれでいいけどフリーだと税金や年金とかも自己負担だからやり始めた時ならともかく普通は5,000円/hでも不安だよ > これまでのやり取りも酷いし、"引き継ぎ"についても分からない。 そういう御託は… で、何ができたんだ？ >>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？ にまともなレスできるようになってからほざけよw >>541 どこにアンカーがあるんだよw あと>>の意味もわからんとか馬鹿すぎる 548 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d4da-1Gce) mailto:sage [2020/04/22(水) 20:13:28 ID:bDGlwx+F0.net] おまえら能ある鷹は爪を隠すってことわざ知っているか？

---

---

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

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