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 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分岐させる意味無いでしょ？ ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど 875 名前：デフォルトの名無しさん [2023/05/22(月) 20:00:51.23 ID:XzxYYIb6.net] >>864 本当にありがとうございます 876 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 21:24:15.99 ID:BEHGXC7t.net] すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。 877 名前：デフォルトの名無しさん [2023/05/22(月) 21:29:35.14 ID:XzxYYIb6.net] >>864 bung ai君にも　ifとthenが必要です と怒られました 878 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 22:19:23.91 ID:AcQsf8Uu.net] まああれだ　美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ ちがうか　何がしたいんだかとっ散らかって来てる様子だな >>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？ Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、 CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？　bug ai に改名した方がいいな 広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで どれが美味いものかは、本人しか決められねえ　近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような 879 名前：デフォルトの名無しさん [2023/05/22(月) 23:44:38.04 ID:XzxYYIb6.net] 仕事は確実にできないといけない できもしない仕事は引き受けてはいけない という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ 880 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:19:58.26 ID:RbKIxQ9F.net] AIの仕様は誰かが決めたのかね 確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ 881 名前：デフォルトの名無しさん [2023/05/23(火) 01:24:30.48 ID:9axP82/J.net] ChatGPTは本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 882 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:59:10.03 ID:Mz8pt3CW.net] vbaでの処理のさせかた、ひらめきが大事なんよ センスない奴はコードの書き方以前にその発想が弱い 要するに仕事が出来ない 短く書く、無駄なく書くことが目的になって年収が低い 883 名前：デフォルトの名無しさん [2023/05/23(火) 02:10:53.64 ID:r33tzfWd.net] どんなにいい道具でも使う人間がアホだと問題が起きる 884 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:33:58.28 ID:gjFqswYh.net] Google検索もウィキペディアも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 885 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:34:15.26 ID:gjFqswYh.net] 新聞もテレビも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 886 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 07:03:01.44 ID:/oIAnKQO.net] 自分が一番信じられないし 887 名前：デフォルトの名無しさん [2023/05/23(火) 08:27:02.94 ID:gffLmLO8.net] 任された仕事、受けた仕事ができないのは失格だー というのならAIだって不正格なのだから失格ですね 888 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:39:19.88 ID:iPJXRLkn.net] AIへの嫉妬が凄まじいなw 889 名前：デフォルトの名無しさん [2023/05/23(火) 08:58:47.24 ID:2rT2TxeB.net] >>877 仕事できなかったら給料もらえんだろ 890 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:58:47.58 ID:sEILZwQ1.net] 君は完璧で究極の人工知能 891 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 09:04:21.95 ID:iPJXRLkn.net] 結果から言うと、こんだけ話題になって活用されて金も集まってるんだろうからかなり有能だなw 892 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 10:54:52.74 ID:m0qa5Enf.net] 昨年はまではchatgptなんて話題無かったもんな。 893 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 12:37:59.39 ID:ZGM1evgE.net] Excelって凄い有能だよね 894 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:07:55.58 ID:m0qa5Enf.net] だから世界中で売れとる 895 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:13:25.70 ID:QEfHRB4s.net] ツールはどちらも有用 896 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 18:19:29.54 ID:gjFqswYh.net] 道具なんて使う人次第 包丁だって人を殺せるし、Excelも使い方を間違えれば生産性を落として会社を殺す 897 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 20:00:04.71 ID:m0qa5Enf.net] あまりExcelをヨイショすると、またGoogleスプレッドシート厨が暴れだすからうざったい。 898 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 21:12:44.25 ID:S1i8GJCU.net] GSSは所詮真似ソフトだから比較にならん 899 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 22:14:41.12 ID:3uLTyIP1.net] >>876 w　嫌いじゃ無いw 900 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 08:34:36.23 ID:sVnHWppj.net] 半年くらいだったら自分の書いたコードの意味が一発ではわからない。 チャット GPT にリファクタリングをたのめるのだろうか 901 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 09:44:03.20 ID:TKPmz7Nx.net] 書けるけど読めないは最悪で将来役立たず認定されるから早めに現状から抜け出す手はずを整えたほうがいい 902 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 10:33:00.51 ID:sVnHWppj.net] >>891 おっしゃる通りなんだが、クセというのはなかなか治らないものだから 自分だけで見ていても問題点がわからない。それでチャット GPT に見せれば 厳しく指摘してくれるんじゃないかと。 もちろん全部 鵜呑みにするわけじゃなくて、言ってみれば アイディア出しのツール として使えないか っていうことなんだけど。 どうかな？ 903 名前：デフォルトの名無しさん [2023/05/24(水) 11:19:15.40 ID:1HEEtapb.net] またへんなのでてきたw 904 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:25:33.56 ID:TKPmz7Nx.net] >>892 その指摘を理解できるのって話じゃない？ このスレはChatGPTに話を振るやつ多いけどそもそも自分の書いたコードにしろ他人が書いたコードにしろ読めない奴が リファクタリング以前に何をしたいコードかわからないならどんな指摘もらってもそれが正しいものかわからないだろ？ その時にはどうするのって話理解できてる？ 905 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:51:37.14 ID:sVnHWppj.net] >>894 半年経ったら一発で読めないだけで、何がやりたかったのか全体的なイメージは記憶に残っているし、時間をかければ各行の役割は理解できる。それを一発ですらすらわかるようなコードにリファクタリングできないかというだけの話 906 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:58:12.96 ID:TLmwN/Fk.net] ChatGPTに聞きまくって作りまくってるしコメントも残してあるからメンテも超楽 もうvbaは十分だからpythonを学ぶべ 907 名前：デフォルトの名無しさん [2023/05/24(水) 12:08:05.38 ID:1HEEtapb.net] >>895 最初にそうやって書いておけばいいだけの話では 908 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 12:57:02.51 ID:gQe9IGSI.net] 性格わるいひとがおおいこと 909 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 13:02:25.38 ID:TKPmz7Nx.net] >>895 コード1行1行がわからないとかおかしくないか？書いてあることそのままだろ？ ブロック単位のコードが読めないならコメントなりでやってることを自分が読める言葉で書いておけばよくね 910 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 14:25:50.78 ID:lcK3sBWk.net] Excelに長けてるやつなんて大抵は性悪だろ。 911 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 17:46:17.42 ID:TxgMbCbW.net] オリジナルな変数名や関数名使ってる人は 自分の書いたコード読めなくなってそうな気がする 912 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 19:17:06.63 ID:1HEEtapb.net] 他人が考えたコードをコピペするだけの奴の方が内容覚えてないだろう 913 名前：デフォルトの名無しさん [2023/05/24(水) 20:06:55.55 ID:MlnLG95A.net] 任された仕事が出来なかったら怒られるんだったら仕事をどんどん引き受けようとは思わない、スキル開発なんて出来るはずがないですよ 914 名前：デフォルトの名無しさん [2023/05/24(水) 20:10:33.59 ID:kc6C7Km2.net] >>903 馬鹿には無理なだけ 915 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 20:23:24.53 ID:l+gVJ33A.net] 情けないw　きんたま付いてンのか ま、そういう連中が多ければ多いほど、それを乗り越えられる奴が人より伸びて出世して率いていける それでも、昔と違って上役個人のその場その時の感情に任せた怒りは害悪だと広く知らしめられているご時世だから 怒られるってのは随分減ってる　注意されるのが嫌だと言うなら、それは自分でじぶんの成長を止めているという事 上司上長だって見込みの無い奴にいちいち注意とか指導とかしたくない　したところで変わらないと承知してる 注意されたり指導されたりしたら、見込まれてると信じて自分を成長させていく努力を重ねろ そんなのは嫌だと言うのなら、そのままペーペーの下っ端の人生をまったりと送れ 916 名前：デフォルトの名無しさん [2023/05/24(水) 21:19:13.86 ID:ATYAg5h+.net] 本当にChatGPTがそこまで有能ならば VBAのプログラマーであるお前らはもう用済みだろうな SEとChatGPTだけで開発出来ることになる 917 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:19:58.19 ID:e8mgmyMR.net] ウィンドウ枠の固定の固定を行列両方でやる方法はありますか？ 手作業でやった場合は B7を選択し、表示 → ウィンドウ枠の固定 → → ウィンドウ枠の固定　の順でクリックすると十字線で固定になります。 これをVBAでやる方法を知りたいです。 ' 起点となるセル（B7）を選択 Range("B7").Select ' 行と列を同時に固定 With ActiveWindow .SplitColumn = 1 .SplitRow = 6 End With ActiveWindow.FreezePanes = True これだと上手くいきません。 918 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:43:25.82 ID:lDhUSoZp.net] >>907 その真ん中は要る? >>909 こういう書き方はどう? 　　　　Sub a() 　　If b Then Cells(1, 1).Value = 1 　　Else Cells(1, 1).Value = 2 　　End If 　　　　End Sub 919 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 22:42:40.02 ID:EnBFiGu7.net] >>907 ThisWorkbook.Worksheets("Sheet1").Activate Range("B7").Select ActiveWindow.FreezePanes = False ActiveWindow.FreezePanes = True 920 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 00:15:01.22 ID:7ru6gnb4.net] >>906 つか最近はVBAの案件が激減りでしょ。 クラウドワークスやココナラにたまに案件出る程度。 しかもクソ以下な報酬だし。

---

---

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

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