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 526 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 12:17:31.19 ID:DkdDRKhj.net] すみませんできませんでした。 Dir（配列（インデックス番号？））で、0.185.jpgのようなファイル名は入れれたのですが、拡張子が消せません。 ドットはファイル名に使われていることがあり、拡張子もjpgのみではないです。 どうすればよいでしょうか？ 527 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 12:35:42.23 ID:ujtPAN82.net] >>519 FSOならファイル名と拡張子を個別に取得できる気がする。。。 何らかの理由でFSOを使いたくないのなら取得した文字列の一番うしろのピリオドの位置を特定すればいいのでは? 528 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:04:15.13 ID:eW3W51FI.net] >>519 DIRの使い方間違ってないか 529 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:26:21.53 ID:fItpJ+/N.net] 若い人間はディル関数と呼んでいた。 530 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:58:53.29 ID:61/xve5D.net] Dir 実行した後で拡張子を削除したリストにする https://correct-log.com/bat_get_filename_without_extension/ 拡張子構わず削ってしまうので画像でないファイルが混じってたりすると混乱の元 そもそもファイル名に[.]を使うのが憚られるものだけど、品番・型番とかなんだろうと推測する 私的な用途じゃ無いんだから業務用途なら[.]を[_]にでも変換しといた方が後々のトラブルを避けられるような 社内でルール作りも大事（長年にわたりそうやってきてしまったので今更、、、というのも理解できるが） 531 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 16:06:06.94 ID:tLf4Utzx.net] 俺はバージョンをそのまま書いてる app_v3.1.4.exe みたいに 532 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 16:32:02.42 ID:DkdDRKhj.net] >>520 ありがとうございます　調べてみます >>523 小数点なので出てくるのは避けられません。 533 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 22:17:44.89 ID:e74q5jo4.net] ChatGPTはVBAでStringBuilderを使ってくるからね。 ネット検索したら、VBAでStringBuilderクラスを自作してる奴がいて 本当にやめてほしかった。 534 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 23:56:00.40 ID:+74tEZE+.net] webスクレイピングの質問してもいいですか・・・？ IEnavigate・・・じゃなくて、WinHTTPやXMLHTTPでスクレイピングしてると ヤフーの記事検索で、古いバージョンの・・・ってなり検索を弾かれるんですが 回避方法とかあります？ 535 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 00:06:28.67 ID:cEOJdXQ0.net] >>527 setRequestHeader 536 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 00:08:38.22 ID:cEOJdXQ0.net] >>526 そういう場合はChatGPTに「StringBuilderを使わないで」って命令すればいいだけ 537 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 14:09:12.06 ID:pxhF17QW.net] >>526 え？VBAでStringBuilder使えるの？ 538 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 21:29:46.47 ID:cygAdiXR.net] >>528 ありがとうございます。うまく出来ました。 恥を忍んで、もう一つ聞いてみますが XMLHTTPとかの方法でjavaの中身をスクレイピングすることって出来ますか？ 539 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 21:43:09.53 ID:cEOJdXQ0.net] >>531 まれにできるケースもあるけどほぼ無理 browserコントロールかwebdriverを使った方が簡単で確実 540 名前：デフォルトの名無しさん [2023/04/20(木) 21:47:47.31 ID:a3MRyG11.net] 聞く方も答える方も馬鹿の例 541 名前：デフォルトの名無しさん mailto:sage [2023/04/21(金) 13:00:47.00 ID:I9S2hh+O.net] >>533 じゃあこのスレから出ていけば良い 542 名前：デフォルトの名無しさん mailto:sage [2023/04/22(土) 09:42:19.84 ID:xZH2QK6p.net] シート全体から検索ではなく、 ブック全体から検索しそのセルまで移動するコードってどこかのサイトにないですかね？ 検索までは出来るけど移動がうまく機能しないし、ChatGPTに何度やらせてもうまくいかず 543 名前：デフォルトの名無しさん [2023/04/22(土) 16:15:15.73 ID:p+tyVybI.net] >>535 そのうまくいかなったコードを貼ってくれれば色々アドバイスできるかと 544 名前：デフォルトの名無しさん mailto:sage [2023/04/22(土) 17:36:15.09 ID:0M3hZjbD.net] >>535 シート内検索が出来ているのならfor each で全シートにその処理を適用させればいいのでは? ピンポイントに目的を達成できるようなコードは都合よく転がってないかと。 ChatGPTには処理ごとの指示でコード生成させて自分で組み合わせれば出来んじゃね? 知らんけど 545 名前：ChatGPT mailto:sage [2023/04/22(土) 21:04:52.32 ID:LRW6Fiuq.net] Sub search_string() Dim searchString As String Dim found As Range searchString = InputBox("Enter search string:") ' 検索する文字列を入力 If searchString = "" Then ' 入力された文字列が空の場合、処理を終了する Exit Sub End If Set found = ActiveWorkbook.Sheets(1).Cells.Find(What:=searchString) ' ブック全体から検索 If Not found Is Nothing Then ' 検索結果が見つかった場合 found.Select ' 該当するセルを選択状態にする MsgBox "Found at " & found.Address Else ' 検索結果が見つからなかった場合 MsgBox "Not found" End If End Sub 546 名前：535 mailto:sage [2023/04/22(土) 22:12:10.97 ID:xZH2QK6p.net] 返信遅れてすみませんでした。何故か書き込めず。 for eachで回すようにして作ってみます。ありがとうございました。 >>538 found.Select　似たようなコードが出来たんですが、selectメソッドで失敗になるのですよね。 547 名前：デフォルトの名無しさん [2023/04/22(土) 23:52:52.89 ID:EIwvRS0u.net] だから使えんと 548 名前：デフォルトの名無しさん [2023/04/23(日) 01:54:53.75 ID:4djiLfGu.net] ChatGPTがダメなら マクロ先生がいるじゃない 549 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 04:50:32.07 ID:FpfGPbf0.net] 知恵袋先生がいるじゃんか vbキチがいる。 550 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 05:04:42.20 ID:Jetoe3O6.net] >>538のChatGPTの回答は、検索範囲をSheets(1)と指定してるから1枚目のシートしか検索しない(ActiveSheetではない点に注意) そもそも、Excelを手動で操作する時は「ブック」を指定して一発検索ができるのに、この機能がなぜかVBAからは使えない仕様になっている だからループで全シート回すよう書き換えるしかない 551 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 05:20:45.59 ID:Jetoe3O6.net] それをふまえてChatGPTに再質問すれば、ちゃんとループするコードに直してくれる 結局は便利な道具(AI)があっても、使い方が悪いと思ったとおりの結果を出してくれないってこと https://i.imgur.com/UEY1EGX.png 552 名前：デフォルトの名無しさん [2023/04/23(日) 07:03:22.97 ID:NdK96c6n.net] 自力でできる奴はAIで調べる必要がない 553 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 09:10:23.27 ID:vhYO2P62.net] マクロを記録しながら手動実行して、記録されたマクロを参考にすれば上手くいくことがあるよ 554 名前：デフォルトの名無しさん [2023/04/23(日) 09:54:34.79 ID:4djiLfGu.net] 鳥取県がChatGPT禁止　平井知事「民主主義の自殺」 [ぐれ★] https://asahi.5ch.net/test/read.cgi/newsplus/1682203494/ 555 名前：デフォルトの名無しさん [2023/04/23(日) 17:24:04.25 ID:uraPIYbl.net] 儲かる株を教えてくれるAIは無いんかね 556 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 17:26:28.29 ID:vhYO2P62.net] あるよ 557 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 18:09:32.94 ID:0jCY5BzY.net] 今のAIはネットから情報を集めてくるだけで未来を予測する機能はない 予測サイトからデータを拾ってくることならできるけど、それはAIの予測とは言えない 558 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 21:46:07.09 ID:OJTKX0Sp.net] AIをなんだと思ってるの 559 名前：デフォルトの名無しさん mailto:sage [2023/04/23(日) 22:49:42.49 ID:FpfGPbf0.net] 横着するためのツールだと思ってる 560 名前：デフォルトの名無しさん [2023/04/23(日) 23:19:15.43 ID:LSSzz9o8.net] チャットGTPの種明かしだって結局は「データベース」にある事を答えているだけ だからデータベースにない事は途端に破綻して頓珍漢な回答をする、これが「自信満々に間違える」という事 もっというとシュミレーションするスーパーコンピューターはあるそのシュミレーション結果が正しいわけではないので人間が判断して正しくない計算結果は全て切り捨てて正しい答えだけ残しているらしいです 561 名前：デフォルトの名無しさん [2023/04/23(日) 23:54:35.39 ID:73FkKQIb.net] 犯罪にAIを使い始めたら厄介だな 562 名前：デフォルトの名無しさん [2023/04/23(日) 23:55:25.14 ID:LSSzz9o8.net] >>554 データベース化笑できるんじゃない？ 563 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 00:43:15.46 ID:ay19AT0z.net] >>553 シュミレーションて…… DBだろうがなんだろうが使うやつがその特性を把握してハンドリング出来るかどうかって話なんだわ。 PCだってアホから見たらただの箱だろ 564 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 00:54:10.45 ID:ay19AT0z.net] 辞書が検索エンジンに切り替わって手間が省けるようになった流れの新たなブレイクスルーだろうな 知りたいことを探すときに単語に置き換えて色々なページから探していた無駄を省いてくれる 565 名前：デフォルトの名無しさん [2023/04/24(月) 01:28:52.70 ID:CUqhGEZn.net] >>556 違います 科学のシュミレーションを行うシュミレーションシステムはありますがシステムは正しい答えを必ずしも出すというわけではないので人間が計算結果を見て正しくない計算結果を削除し、正しいと判断したものだけを残すという形で精度や性能を向上させているそうです これはチャットGTPにそっくりそのまま当て嵌まるし、なんらチャットGTPは革新的でもないという証拠です そもそも知能や知性があるならなぜ出鱈目な答えを自信満々に出して間違えるのでしょうか？ 566 名前：デフォルトの名無しさん [2023/04/24(月) 02:06:49.66 ID:BWKTcRvI.net] 馬鹿が使う用語 ↓ シミュレーション 567 名前：デフォルトの名無しさん [2023/04/24(月) 02:07:59.37 ID:BWKTcRvI.net] あ、俺が馬鹿か 漢字変換が勝手に修正する… シュミレーションと書くのは馬鹿 568 名前：デフォルトの名無しさん [2023/04/24(月) 02:11:33.72 ID:7Q5zeCBn.net] >>558 馬鹿は間違っていることに気づかないからだろ 569 名前：デフォルトの名無しさん [2023/04/24(月) 02:11:47.58 ID:CUqhGEZn.net] 例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？ 570 名前：デフォルトの名無しさん [2023/04/24(月) 02:12:28.98 ID:dU5ByQ7u.net] >>562 馬鹿は黙れ 571 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 02:34:30.02 ID:FQlyTijh.net] 海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w 572 名前：デフォルトの名無しさん [2023/04/24(月) 03:07:44.21 ID:CUqhGEZn.net] >>563 じゃあなんでチャットGTPは自信満々にまちがえるのです？ 573 名前：デフォルトの名無しさん [2023/04/24(月) 04:15:23.35 ID:MMCAzh7R.net] 馬鹿をだまして金とる戦略 574 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 04:22:29.70 ID:ay19AT0z.net] >>558 おいおい、結局何と何が違うんだ？ 話見えてるか？ 575 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 06:04:55.41 ID:bY+5L6EV.net] 「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル 半角だと環境によってはわかりにくくなるからあえて全角で書いた 576 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:31:46.75 ID:pba/8KUE.net] ここはChatGPTの話題が出るだけで簡単に荒れるな 577 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:40:26.28 ID:nNpEvIsc.net] ここだけじゃないよ 578 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:41:51.55 ID:pba/8KUE.net] スルーするだけで済む話なのにスレタイ読めないのか、 はたまた自作自演で荒らしてるのか 579 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:53:53.38 ID:ltCEeSXK.net] スルーしろと言うやつほど一番スルーできてない 580 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 07:56:06.50 ID:5kcFhqjo.net] 昔は良スレだったのにな。 ひとつの話題で荒れすぎ 581 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:01:16.77 ID:pba/8KUE.net] >>572 一番の意味くらい知っておいたほうが幸せになれるよ 582 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:11:57.10 ID:4N3isGNg.net] 別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える 583 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 08:37:49.72 ID:Z0B9bFh/.net] こっちのスレ要らなくね？ 584 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 09:00:06.24 ID:clOk4EBF.net] 必要ないと思ったなら見なきゃいいだけ 585 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 09:46:37.76 ID:5kcFhqjo.net] もう全部スルーしてrom専で 586 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 12:51:06.36 ID:ay19AT0z.net] スレ違いとかいうやつは見なければいいだけだろ。 番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？ 587 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 15:11:25.30 ID:Spd75cS3.net] そら公共電波だしな ウンコ垂れ流され続けたら苦情も行くだろ 588 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 21:31:31.58 ID:5kcFhqjo.net] ウンコ言うな 589 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 21:41:33.70 ID:LZZeUipz.net] 嫌なら見るな 苦情を言って変わるわけないのに、無駄だとわからない時点でアホ 590 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 15:23:16.15 ID:jvAnjjKM.net] 言い方キツイがど正論だな。 嫌なら開かなければ良いな。 591 名前：デフォルトの名無しさん [2023/04/25(火) 16:01:52.20 ID:PhYPsJWz.net] 逆だな、読んだから嫌な書き込みだと判断したんだろ 592 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 16:32:47.24 ID:OOi8qz2x.net] ズレてるぞ　おっさん　逆だな、とかどの立場で物申してるか片腹痛いわ 593 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 16:45:08.15 ID:/PKfXSpu.net] 仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか 594 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 18:48:14.50 ID:PhYPsJWz.net] 垂れ流されているのが本当にウンコかどうかは見なければわからんだろ ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ 595 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 19:06:12.65 ID:jvAnjjKM.net] ウンコばかり言ってるとクソスレになっちまう！ 596 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 20:00:09.95 ID:mmdaU32E.net] 5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな スレの内容に沿った結果で不快な気持ちになることはあっても、 嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない 597 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 20:03:38.76 ID:mmdaU32E.net] >>579 番組の枠が野球の延長で延々と潰されてる状態と同じだよ 本来の番組を期待してる人にとっては単なるノイズでしかない 598 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 23:00:49.89 ID:jvAnjjKM.net] まだ喧嘩してる 599 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 23:02:46.35 ID:OzfCSZRC.net] >>441これ 何度も色んなスレに質問があって変なのって思ってたけど今、Lineの事務職VBAスレ？で今同じ質問してる人がいてびっくりしたw 親切な人が動画紹介してた。 600 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 00:36:38.80 ID:zxzdUrHn.net] >>590 脱線が酷いとよくないのは解らんでもない だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい まるでゴミ捨て場のゴミチェックしてるジジイだ そういう行動が心理的リアクタンスを生んでるんだよ 601 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 08:58:25.55 ID:1pxgk3Hs.net] ここしばらくの脱線は多少ですまなくね？ 602 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 10:16:58.77 ID:L1Mj70sJ.net] 俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか 603 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 10:32:27.26 ID:w70Lrl+B.net] 多少で済むくね？ 604 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 11:34:39.03 ID:FZ0Navbz.net] 行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？ コピーしても絶対参照になって反映されず。 列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。 605 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 11:50:15.79 ID:MQck+7xp.net] >>597 絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける 606 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 14:39:17.86 ID:FZ0Navbz.net] >>598 それは分かるんですが上手くいかず。説明下手ですみません。 結局1行ずつ条件付き書式設定を行うようにコード書きました。 607 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 18:26:19.83 ID:QhJ3494d.net] chatgptのvba専用スレ立てれば良くね？ 608 名前：デフォルトの名無しさん [2023/04/27(木) 05:48:02.31 ID:+yZZBsrI.net] ChatGPT ってそんなに凄いんか 今度「EXCEL VBAでマリオ作ってください」って書いてみようかな 出来なければ無能 609 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 06:49:22.19 ID:76bSpVKu.net] 頭悪そう 610 名前：デフォルトの名無しさん [2023/04/27(木) 13:34:04.47 ID:dzjZcYac.net] >>601 Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。 ゲーム画面を作成する 最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。 マリオキャラクターを作成する マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。 611 名前：デフォルトの名無しさん [2023/04/27(木) 13:35:04.43 ID:dzjZcYac.net] 敵キャラクターを作成する マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。 ゲームループを作成する ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。 ゲームオーバー画面を作成する ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。 以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。 612 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 14:08:46.28 ID:XSILjXL+.net] この部分のサンプルコードを教えて言うと一応コード書き始めるからな 問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん 613 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 14:11:45.77 ID:zVEPCm55.net] 単純にマクロでゲーム作れる奴すげーし 614 名前：デフォルトの名無しさん [2023/04/27(木) 15:59:16.33 ID:tbrdsB1h.net] 作れるわけねーわな、あと著作権もあるし 615 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 16:50:28.16 ID:XSILjXL+.net] AIに人権はないから著作権も存在しない マリオといっても花札屋のとは限らんしな 616 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 17:13:01.50 ID:Ocl0clWf.net] 作る人が多くなるとマリオのようなゲームのコードのテンプレのようなものがデータセットの中にできてきて 即答するようになるw 617 名前：デフォルトの名無しさん [2023/04/27(木) 18:09:30.67 ID:DM4R6GlX.net] >>608 著作権無視は違法ですが 618 名前：デフォルトの名無しさん mailto:sage [2023/04/27(木) 18:22:26.88 ID:lojChHXv.net] >>610 AIという道具を使った奴が違法な 619 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:20:31.67 ID:BvI4vGh+.net] 罫線を引くコードはマクロの記録をしたものを加工するのが最善？ 620 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:28:24.02 ID:vB455QFk.net] いいえ 621 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:42:10.09 ID:FbKok5Di.net] マクロ記録をそのまま使うなんて90年代のやり方 622 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 12:49:48.27 ID:vB455QFk.net] そのままとはどこにも書いてない 623 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:08:25.63 ID:E6P3bOF0.net] お前は他人の否定ばかりだな？ 624 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:16:17.73 ID:/vDIlpFT.net] Private Sub Bttn_click() Dim cT, cL, cW, cH, CR, CG, CB As Single Dim cAd As String Dim X0, Y0, W1, H1 As Variant Dim shp As Object cAd = Selection.Add 625 名前：ress(ColumnAbsolute:=False, RowAbsolute:=False) If Selection(1).Row < 4 Or Selection(1).Column < 4 Then MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !" Exit Sub End If If Selection(Selection.Count).Row > 43 Or Selection(Selection.Count).Column > 65 Then MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !" Exit Sub End If If Selection.Rows.Count > 1 Then MsgBox "複数行が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !" Exit Sub End If If Selection.Columns.Count > 2 Then MsgBox "3列以上が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !" Exit Sub End If －－－－－－－－－－－－－－－　続きあり [] [ここ壊れてます] 626 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 13:18:29.67 ID:/vDIlpFT.net] If (Selection(1).Row Mod 2) = 0 Then CR = 255 CG = 0 CB = 0 Else CR = 0 CG = 0 CB = 255 End If With ActiveSheet.Range(cAd) cT = .Top cL = .Left cW = .Width cH = .Height End With If Selection.Columns.Count = 1 Then X0 = cL + (cW / 2) - 1 Y0 = cT + 2 W1 = cW / 8 H1 = cH - 4 Else X0 = cL + (cW / 2 - 1) Y0 = cT + 2 W1 = cW / 16 H1 = cH - 4 End If －－－－－－－－－－－－－－－－－　続きあり

---

---

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

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