Excel VBA 質問スレ Part79

1 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 11:46:47.21 ID:mBQ16TA8.net] ↑同じ内容を3行貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part77 https://mevius.5ch.net/test/read.cgi/tech/1658009255/ Excel VBA 質問スレ Part78 https://mevius.5ch.net/test/read.cgi/tech/1667104996/ - VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 774 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:01:09.62 ID:HY4KEFhG.net] vbcコンパイラ入ってるからexe作っちまえよ 775 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:58:33.26 ID:xHVT0jsn.net] ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ vbaからgdi+はネット上にかなりの資料があります 776 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 15:38:41.06 ID:KioSfVLt.net] >>764 エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ 777 名前：デフォルトの名無しさん [2023/05/16(火) 17:26:18.33 ID:LV7QjD3v.net] Worksheets(〜).Copy ActiveWorkbook.SaveAs fileName:= 〜 =xlOpenXMLWorkbook ActiveWorkbook.Close でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる がしたいです しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません なぜでしょうか？ 778 名前：デフォルトの名無しさん [2023/05/16(火) 20:44:51.09 ID:AsBF0aZH.net] シート（A）に記入します シート（A）を複製するコードを実行して シート（A）2を作成します シート（A）2に記入します シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？ 779 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 11:46:37.22 ID:RlbRWgaL.net] ど初心者で申し訳ない ユーザーフォームを移動というより スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？ 780 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:37:03.45 ID:CM8OYJGJ.net] なぜその程度の事を試さないでいるのかわからん 781 名前：デフォルトの名無しさん [2023/05/17(水) 20:26:57.88 ID:Y2fbuf/F.net] >>770 ユーザーフォームの表示位置は設定できるんだから 後はAPIでもなんでもいいから一定時間で起動するイベントで 位置をずらして行けばいいだけじゃないの？ そういう意味じゃなくて？ 782 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:34:40.20 ID:edeIW3zk.net] 自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ 最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ　部署中てんやわんやに成るぞ それとも相手の要件がそれなのか？　マウスで好きな位置にドラッグしろと突っ撥ねろ 783 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:36:59.98 ID:jhfa7U3i.net] 懐かしのブラクラかよ 784 名前：デフォルトの名無しさん [2023/05/17(水) 22:00:50.03 ID:KPgK0GXZ.net] やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね 素直にコピーをするときにシート名を指定して複製したシートの名前を固定します そして複製したシートに固定の名前のシートを条件付き書式を設定します 785 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:19:01.82 ID:B0NmirsY.net] なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ 786 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:37:47.21 ID:dtCX3F+n.net] >>770 なんでそんな事が必要って話。 マウスが無いなら別だけど。 787 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 23:14:20.94 ID:CM8OYJGJ.net] >>775 2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる セルの値を比較するだけなら単純にセルの前にシート名を書けばいい 788 名前：デフォルトの名無しさん [2023/05/18(木) 00:00:54.09 ID:wiHk9Ekj.net] >>778 どういう事でしょうか？ 789 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:19:39.19 ID:re225Wjq.net] >>779 シート1とシート2で左上(1,1)のセルが同じかどうかの比較 考え方のサンプルなので細かいとこは気にすんな If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then MsgBox ("同じ") Else MsgBox ("違う") End If 790 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:39:29.96 ID:ejLN3NBy.net] あっけなく終了 791 名前：デフォルトの名無しさん [2023/05/18(木) 06:34:53.48 ID:wiHk9Ekj.net] >>780 どうやってElseのセルの塗り潰しをしますか？ 792 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 07:03:21.02 ID:qSj77xHN.net] interiorcolor 793 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 13:22:02.41 ID:re225Wjq.net] >>782 もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う Sheets(1).Cells(1, 1).Interior.Color = vbRed 794 名前：デフォルトの名無しさん [2023/05/18(木) 17:13:43.92 ID:NCEYaWdi.net] Private Sub FillDiff( _ ByVal DstSheet As Worksheet, _ ByVal SrcSheet As Worksheet, _ ByVal cy As Long, _ ByVal cx As Long, _ ByVal f As Long) Dim d() As Variant Dim s() As Variant Dim row As Long Dim col As Long With SrcSheet.Cells(1, 1).Resize(cy, cx) s = .Value End With With DstSheet.Cells(1, 1).Resize(cy, cx) d = .Value .Interior.ColorIndex = xlNone End With For row = 1 To cy For col = 1 To cx If Not (d(row, col) = s(row, col)) Then With DstSheet.Cells(row, col) .Interior.Color = f End With End If Next Next End Sub 795 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:26:43.98 ID:36zUuL+C.net] >>785 VBAでセルの色も塗れないようなレベルじゃ このサブルーチンを使うための引数さえ入れることができないと思われる 796 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:51:40.30 ID:UVQ9qsjN.net] 変数名に違和感しかない 俺ならDst,SrcじゃなくてSrc,Dstの順番にする 座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする あと、変数名にrowを使うのは悪手 797 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:35:54.69 ID:Djo90icR.net] 座標にx、yを使う気持ちはわかる CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる 798 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:52:50.03 ID:SzaRWxxH.net] 他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。 本人でさえも1ヶ月後には解読に時間がかかる。 799 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 14:32:46.40 ID:YHChQzBZ.net] 俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針 Dim sr() ' Source Range みたいな感じ 800 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:03:10.43 ID:KvfJxEtf.net] VBAなんてグループで開発することなんてほぼ無いし コーディングルールなんかあってないようなもんだな 801 名前：デフォルトの名無しさん [2023/05/19(金) 16:13:15.68 ID:4eBJWkt8.net] グループでなくとも別の人とか辞めた後にとかあるのに 802 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:30:13.95 ID:c4GhPl6O.net] 自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ 803 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:26:41.01 ID:WMf1UBB/.net] 出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ 史上最強の暗号に成り果てる　どこかにうっかり置き忘れても心配無用 だけど、チームの女の子の内ひとりだけが解読できる　彼女は優秀なデクリプター　粗末には扱えない (因みに彼女は打ち合わせに同席していない)　罵倒されながら清書している時間は至福のひととき 804 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:51:29.85 ID:/14cz11e.net] はいはい そうですか 805 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:06:46.91 ID:PQ/SGKnq.net] >>792 それよくいうけど、 知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ 806 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:09:20.34 ID:NNcalgSE.net] とうとう当スレに 散文詩を記す御仁が出現・・・ 807 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:33:52.51 ID:/14cz11e.net] >794 こんな無能の塊と一緒に仕事する人は可哀そうだな 808 名前：デフォルトの名無しさん [2023/05/19(金) 20:20:11.33 ID:WP5xx6oL.net] >>790 ふーん 俺とは逆だね 変数名は見てどういう用途で使っているか 解るようにして、逆にコメントは その処理を何のために行なっているかとか どういう経緯で作成されたか後で分からなく なるのを防ぐために付けるくらい。 後はモジュールや関数のヘッダに その関数の役割とシグネチャの説明をふるくらいかな 関数もひとつにひとつの役割しか持たせないようにして なるたく短く作ってしの関数を組み立てて 更にひとつ上の役割の関数を作るようにしてる。 809 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 20:30:07.26 ID:xLo0lAaU.net] エクセルを月曜～金曜の決まった時間に実行する場合は イベントプロシージャを使うのが一番いいですか？ ググったらスクリプトを作るという方法もあるようです。 長所・短所がわからないので教えてください 810 名前：デフォルトの名無しさん [2023/05/19(金) 20:41:37.93 ID:WP5xx6oL.net] >>800 いやいや、ずーっとEXCEL立ち上げっぱ、 VBA動かしっぱにして時間を迎えたイベントを使うってこと？ タスクスケジューラーに 対象のブック開くように設定しといて オープン時にマクロが走行するようにしとくんじゃダメなの？ 811 名前：デフォルトの名無しさん [2023/05/19(金) 20:43:39.44 ID:BcAhLJQp.net] >>800 エクセルを実行するのだからタスクスケジューラだろ 馬鹿ですか？ 812 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:00:02.29 ID:xLo0lAaU.net] >>801 盛大に勘違いしてました。 タスクスケジューラーで問題ないですね。 ありがとうございます。 813 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:05:29.56 ID:faLTwFuJ.net] >>787 cx cyは座標ではなく count of x count of y MSがwin32APIのc/c++で使ってきた古い接頭語です まだSIZE構造体に残っています 814 名前：デフォルトの名無しさん [2023/05/19(金) 21:30:19.21 ID:1xa+FLVk.net] 変数の理解が怪しいのはその通りです 815 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:43:28.41 ID:ROSMxwdg.net] はあ～またいつものマウント取りあい始まったよ 816 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 00:07:38.75 ID:yUZCKNSa.net] ビーングは4.0って本当かよ 3.5の方が正しいコード書いてくれるんだが 817 名前：デフォルトの名無しさん [2023/05/20(土) 18:29:05.09 ID:MvHSHmnI.net] 条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？ 818 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:25:35.47 ID:9t/DZW9a.net] 背景色を変更する条件が付いているから 条件付き書式 と呼ぶ 条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない 819 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:28:37.71 ID:9t/DZW9a.net] とおもう 820 名前：デフォルトの名無しさん [2023/05/20(土) 22:48:50.21 ID:MvHSHmnI.net] 条件付き書式の色だけをコピーするためには クリップボートのコピーと貼り付けを行えばいいところまではわかりました そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました しかしActiveSheet.Pasteで貼り付ける事ができないです どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？ 821 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 23:06:35.71 ID:Is+IXHBJ.net] 同じとこにそのままペーストしてるからじゃね 822 名前：デフォルトの名無しさん [2023/05/20(土) 23:18:24.07 ID:MvHSHmnI.net] >>812 ところにそのままペーストすることは無理なのですか？ ではこの様に Sub Sample1() Worksheets("Sheet1").Select Range("A1").Select Selection.Copy Worksheets("Sheet2").Select Range("C2").Select ActiveSheet.Paste End Sub とするのであれば問題ないのでしょうか？ 823 名前：デフォルトの名無しさん [2023/05/20(土) 23:41:42.54 ID:MvHSHmnI.net] やりたい事は 今選択しているシートをコピーして末尾に送る コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す という事がしたいです なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？ 824 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 00:16:44.41 ID:aFtCgtc/.net] やってみて理想通りの動作だったら問題ないんじゃね 825 名前：デフォルトの名無しさん [2023/05/21(日) 01:12:12.18 ID:wgbwVMTA.net] 頭が悪いからPASTEに拘るのね 826 名前：デフォルトの名無しさん [2023/05/21(日) 02:07:29.20 ID:T6kvmVJR.net] いったい何のために 827 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 02:24:13.63 ID:Pd8Z4Ia6.net] VBAが使えないのにワープロが使えたことを自慢していた爺かな 828 名前：デフォルトの名無しさん [2023/05/21(日) 06:58:31.07 ID:sFREmMbU.net] >>816 ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？ 829 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 07:13:41.86 ID:B1R6uG7N.net] 条件付き書式から条件を消して結果の色だけ残したいんやろ それは単純なコピペじゃ無理 DisplayFormatでセルの色を調べて自力で再設定するしかない 830 名前：デフォルトの名無しさん [2023/05/21(日) 07:35:11.64 ID:sFREmMbU.net] >>820 https://tokusengai.com/_ct/17541893 https://dekiru.net/article/16416/ クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました そしてクリップボートのコピーはselection.copyだという事も判明しました なので後は貼り付けのみ実行したいのですが ペーストもスペシャルペーストもエンターキー送信も 全て貼り付けられませんでした 831 名前：デフォルトの名無しさん [2023/05/21(日) 07:58:40.07 ID:sFREmMbU.net] ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？ 832 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 10:39:24.18 ID:E0jRkIIp.net] 初心者によくある思い込みと表現が稚拙すぎてかみ合わない 833 名前：デフォルトの名無しさん [2023/05/21(日) 11:17:23.92 ID:sFREmMbU.net] もしかして VBAで条件付き書式のある範囲をコピーをコピーしたときは 必ず色のコピペではなく、条件付き書式のコピペになってしまう という事でしょうか？ なのでVBAで条件付き書式でつけられた色を塗りたいときは 必ず Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex を使用しなければならないという事でしょうか？ しかも範囲選択も使えないと 834 名前：デフォルトの名無しさん [2023/05/21(日) 12:35:30.87 ID:sFREmMbU.net] https://okwave.jp/qa/q9992673.html 最終的にこれでやりました もっと短いコードで行う方法はないでしょうか？ 835 名前：デフォルトの名無しさん [2023/05/21(日) 12:49:41.48 ID:sFREmMbU.net] 別シート（コピー先シート）の範囲に.DisplayFormat.Interior.ColorIndexの値をコピーさせることはできないので 別シート（コピー先のシート）にコピー元のアドレスを参照させるという形なのでしょうか？ 836 名前：デフォルトの名無しさん [2023/05/21(日) 13:31:14.96 ID:WfmE7WFK.net] 馬鹿は馬鹿だから自分の考えた方法が間違えていると指摘されても馬鹿な考えに拘り続ける法則 その実例 837 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 13:35:13.93 ID:swYKjccv.net] そういうの一言でなんて言うか知らない？ 838 名前：デフォルトの名無しさん [2023/05/21(日) 13:36:12.22 ID:z6jOsvMa.net] 馬鹿は死ね 839 名前：デフォルトの名無しさん [2023/05/21(日) 14:39:46.36 ID:sFREmMbU.net] >>827 すみません 今回は条件付き書式で塗られている色を値が変わっても残る様にしてほしい という注文があったので条件付き書式の色を残すという事を考えていました 私は簡単な事だと考えていましたが、「条件付き書式の色をコピーするという事」が想像以上に難しかったです 今回エクセルの古い機能は問題があるかもしれないと学びました 840 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 14:58:07.98 ID:sqwcjnc8.net] Excelのせいかよw　古かろうが新しかろうが、使用してる環境で張り切るっきゃ無いだろ それが注文を請けた側の望まれる姿勢　無理なら「できません」ってアタマ下げる アタシは悪くない、ぜんぶExcelの古い機能のせい　ハイハイ、注文した方にそう言い訳しときな つか、最終形に到達したんだろ？　それをもっと短いコードに出来ないってだけだろ？ 自分はできないけど誰かやって、かよ　それをじぶんの手柄か？　おめでてえな 841 名前：デフォルトの名無しさん [2023/05/21(日) 15:21:34.77 ID:sFREmMbU.net] >>831 つまり今回の例で言うとExcelの仕様的に出来ないと断るのは望まれる姿勢なので良くて 出来そうだから引き受けたが、かなり難しいのは望まれる姿勢ではないのでダメという事でしょうか？ では例えば知らないので出来ません（無知の知）というのは望まれる姿勢なのでしょうか？ 842 名前：デフォルトの名無しさん [2023/05/21(日) 15:52:29.72 ID:JkAFBIVP.net] 馬鹿って自分ができないことは製品のせいにするんだな 843 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 15:56:24.43 ID:UPj07kqo.net] 注文って言ってるぐらいだから金が発生してる仕事なのかしらんけど こんな奴に作らせていいものかと思わなくもない 書き込み数から見て必死さはうかがえるが 844 名前：デフォルトの名無しさん [2023/05/21(日) 16:02:51.00 ID:sFREmMbU.net] すみません 私は世の中の事や仕事という事を全く分かっていなかったです。 久しぶりの感覚を味わいました。 こらからは出来ない事は出来ないとしっかりいう様にし、自分に確実にできる事をいう様にします。 845 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 16:05:39.40 ID:sqwcjnc8.net] それはそうだろw　出来もしない奴が「できらあ！」で勝手にいぢくりまわしたら周りが迷惑 どういう立場(内製・外注)か分らんが、出来ないものは「出来ません」とキチンと伝えられた方が 頼む方も判断の材料に成る　「じゃあ他の奴に」と方針決定も早くできる 請けたままグダグダいつまでも結果出さないでいる連中が多過ぎるのは企業(組織)の損失 846 名前：デフォルトの名無しさん [2023/05/21(日) 16:58:16.81 ID:Q4lfSNZO.net] なぜ「エクセルの古い機能」と決めつけて「問題」だとも決めつけているのか こういう中途半端の知ったかのせいで風評被害が生まれる 847 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:08:55.76 ID:z50pDIFk.net] vbaばっかり使ってて知識のアップデートも出来てないから関数を全く使えてない xlookup？xmatch？？unique？？？indirect？？？？おっさんには無理 848 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:15:28.73 ID:UPj07kqo.net] 浅い知識でなんとかなると思って痛い目みてると自覚してるならもっと勉強しような 849 名前：デフォルトの名無しさん [2023/05/21(日) 17:25:06.42 ID:JkAFBIVP.net] >>838 負け惜しみ乙 850 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:29:48.85 ID:z50pDIFk.net] 何でそんなに無差別に煽ってるのか 余裕ないな…年収低いのかな… 851 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:35:24.54 ID:aFtCgtc/.net] 高いのは血圧ぐらいです 852 名前：デフォルトの名無しさん [2023/05/21(日) 20:44:03.59 ID:E0jRkIIp.net] 条件付き書式の「条件」を調べて マクロ中で条件を判断してコピペ時に 自分で書式を設定するのがいいのではと提案する 853 名前：デフォルトの名無しさん [2023/05/21(日) 20:47:46.54 ID:E0jRkIIp.net] それでも条件付き書式の優先順位やペースト時は値だけにするとか色々あるけどな 854 名前：デフォルトの名無しさん [2023/05/21(日) 20:55:57.95 ID:36TdhBaA.net] 先程の話を聞いた限りでは もうひとつシート作っといて 対象シートと同じ値を設定しといて 値が違うなら着色するのを条件付き書式の 条件の中に混ぜてやれば出来ない 気がしないでもない。 その判断用シートを見せたくないなら Very hiddenで隠しておけばいいし。 ま、方法は探せばまだなんかありそうな気もするね。 855 名前：デフォルトの名無しさん [2023/05/21(日) 21:06:13.61 ID:sFREmMbU.net] すみません 本当にその通りだと思います 情けないです 856 名前：デフォルトの名無しさん [2023/05/21(日) 22:03:54.55 ID:sFREmMbU.net] 試しに最終的に使用したコードをbing AIくんに尋ねてみました そうしたら解説をして頂けました ありがとうございます 857 名前：デフォルトの名無しさん [2023/05/21(日) 23:39:24.56 ID:sFREmMbU.net] 任された仕事、引き受けた仕事はミスなく完璧に仕上げないといけない という話を聞いてそれではとても仕事を引き受けられないと思うのと、ネットで言われていた「私がやります」と仕事を引き受けたら責任の押し付けをされるから誰も引き受けようとしないという話がやっと理解できました 858 名前：デフォルトの名無しさん [2023/05/22(月) 00:19:24.60 ID:epRK61rP.net] 転職するなら早い方がいい 859 名前：デフォルトの名無しさん [2023/05/22(月) 01:39:29.37 ID:nnY2CicD.net] こんなのが入社してくるのは勘弁してくれ 860 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 02:12:11.55 ID:BEHGXC7t.net] 馬鹿連発病気野郎はこのスレにもいるのか？ 861 名前：デフォルトの名無しさん [2023/05/22(月) 07:02:02.27 ID:XzxYYIb6.net] 責任の押し付け合い、押し付けになるのなら誰もやりたがらない 普通ですよね？ 862 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 07:26:17.83 ID:rjxFOQbK.net] ワッチョイないせいか完全に雑談みたいなスレになっちまってるな 863 名前：デフォルトの名無しさん mailto:sage [2023/05 ] [ここ壊れてます] 864 名前：/22(月) 10:28:31.01 ID:AcQsf8Uu.net mailto: 元々へんなおぢさんが立てたスレだぞ　正規のスレは別にちゃんと現在進行形で生きてる それでも所々ではキチンと応じてるひとも居るから続いてるだけのこと >>825　のリンク先の回答で、なにが不満なんだかソッチのが理解できない 「もっと短いコード」って、それ以上短く出来ないだろうに もしかして試して無いんじゃないのか？一瞬で要望満たすぞ？ Excel2016での質問だし、もっと古いVer使ってんのか？ そこで解決！で終わらせてりゃ、余計な罵倒されずに済んでたのに　　まぁ、要件が要件で無意味な要求にも思えるけど [] [ここ壊れてます] 865 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 12:34:00.56 ID:JoSCbJ/9.net] 会社のレベルが低いし勤務してる俺のレベルも当然低いんだが DX化の推進、早くpython入れないと と連呼してる人の内容を聞いたら 社内サーバの特定の場所にある1000以上あるpdfをExcelに名前を取得してリスト化したいと… 更にリンクで飛べるようにしたいと… pythonいれずともマクロでやって神扱い 866 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 13:27:39.73 ID:rjxFOQbK.net] はいはい 867 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 14:36:24.55 ID:BEHGXC7t.net] 自慢なのかただの事例報告なのか分からんが、凄いとは思う 868 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 15:33:00.76 ID:1/Dfn2ke.net] とにかく書き込まれるレス全てに煽らないと気が済まない奴がいるよな。 >>856とかその常連だし。 869 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 16:07:41.58 ID:y9n3XARC.net] PDFのファイル名だけならそこまででもないような？ まあ神扱いされて？ならそうじゃないんやろなあ 870 名前：デフォルトの名無しさん [2023/05/22(月) 18:22:15.70 ID:XzxYYIb6.net] >>854 わざわざすみません セルの色　= ディスプレイに表示されているセルの色 に勝るシンプルなコードはありませんよね 情けないです 871 名前：デフォルトの名無しさん [2023/05/22(月) 18:23:42.16 ID:XzxYYIb6.net] >>855 全く悔しくないので申し訳ないですがパワークエリでも出来なくもない様な、、、 872 名前：デフォルトの名無しさん [2023/05/22(月) 18:48:11.43 ID:XzxYYIb6.net] For Each Range型変数 In 範囲 If Range型変数.Value <> Sheets("比較するシート").Range(Range型変数.Address).Value Then やっぱり短いコードがあったのですね 本当に恥ずかしい 873 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:23:18.88 ID:1/Dfn2ke.net] いや、いちいち何でマウント取ろうとするのか…年収低いのかな 874 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:56:20.06 ID:AcQsf8Uu.net] Then の後に記述する量が余計でしょ？　IF分岐させる意味無いでしょ？ ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど

---

---

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

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