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 700 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:41:04.17 ID:Ia3mFb59.net] 有用性とか将来性が分からなければそれでいいんじゃね 勝手に遠ざけてどんどん取り残されればいいさ 701 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 20:14:55.06 ID:F2sofNfH.net] Lastrowってどんな感じで変化させてる？ シート数多すぎて混乱する 702 名前：デフォルトの名無しさん [2023/05/03(水) 21:36:02.93 ID:6h8oPcDB.net] 野獣先輩　と聞けば回答を途中で打ち切る しかし　中国　野獣先輩　と尋ねると中国での野獣先輩ブームをスラスラ答える 703 名前：デフォルトの名無しさん [2023/05/03(水) 21:51:50.56 ID:6h8oPcDB.net] やーい　AIの癖に掛け算も割り算もできない奴〜 704 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 23:21:43.78 ID:nQu3mtYe.net] Bingさんは普通に計算できるが？ 705 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 17:35:46.71 ID:SG8oVDU2.net] 複雑なのはダメ。 706 名前：デフォルトの名無しさん [2023/05/04(木) 19:50:34.95 ID:Sg4+jaA6.net] AIの回答には引用元のリンクがあるので著作権問題に繋がるのもよく分かる 707 名前：デフォルトの名無しさん mailto:sage [2023/05/05(金) 06:38:40.34 ID:P+m46K4i.net] >>693 クラスモジュールの出番だな 708 名前：デフォルトの名無しさん [2023/05/06(土) 10:27:00.05 ID:fVwKK7Qd.net] 仮にここから5.6.7とバージョンを重ねてデータベースが増えたと言ってもそれはますます膨大な情報量によって平均への回帰とかよくあるご意見になるだけだと思う 膨大なデータベースがあるからとほぼ全ての人間が間違っていると考える答えを導き出しますか？ そうでなくてもデータベースにない（人間の盲点）情報は出鱈目な回答を生成しますよ 現状は人間が検索していくつものサイトを見て得た情報を代わりに要約してくれる（しかもその要約も正しいか不明、正しいとしても他に見るべき情報は本当にないのか？）程度の品物だと思う つまり検索エンジン 709 名前：デフォルトの名無しさん [2023/05/06(土) 10:47:11.02 ID:fVwKK7Qd.net] 人型ロボットの進化も著しいものがあります しかし直ぐに壊れる、壊れやすいと言う欠点（これは私も盲点だった）が露呈した 「人型ロボットはここまで進化した（している）」という短い動画を見て凄い、凄いと言っていただけでその裏側を見ていなかった ごく一部の切り取りだった 710 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 12:49:51.00 ID:DOnaG3pX.net] 独り言とかどうでもいい 711 名前：デフォルトの名無しさん [2023/05/06(土) 13:01:03.66 ID:fVwKK7Qd.net] >>702 あれだけAIが凄いと言っていた人が多いのに？ 712 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 15:26:46.40 ID:V/5WCcXW.net] 多いんじゃ無くて、特定の少数がやかましいだけ 新しい技術はまずは様子見するのがベテランだろ　触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む 今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ 急がば回れ　慌てるコ〇キは貰いが少ない　善は急げで道端の石に蹴躓いてたんじゃ元も子もない 713 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:05:38.77 ID:uYMm8A/b.net] 様子見するのはベテランじゃない レイトマジョリティ、あるいはラガードな 714 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:28.28 ID:l5Xh2UOq.net] これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か 715 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:52.89 ID:V/5WCcXW.net] おお、かっちょいい呼び方　ま、覚えてられないと思うけど 散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし　何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで) それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて　イイネw 716 名前：デフォルトの名無しさん [2023/05/06(土) 19:06:41.82 ID:fVwKK7Qd.net] 初めての試み 他の人がやっていない事 他と違う事 は往々にして頭がおかしいと言われます AIがこれらの回答を生成してもそれは同じ 717 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 01:23:52.56 ID:31z9TTNB.net] なんだかこのスレも気持ち悪くなったな。 718 名前：デフォルトの名無しさん [2023/05/07(日) 01:49:32.50 ID:oPHUqsU3.net] 最初からだぞ 719 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 04:38:26.84 ID:31z9TTNB.net] 例の精神病んでる人が最近しつこいしな。 720 名前：デフォルトの名無しさん [2023/05/07(日) 05:20:09.87 ID:tNDxK8R1.net] AIに狩野英孝って書いて画像生成させてみ？ 女性しか生成されないぞ？ 721 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 17:42:02.89 ID:4wzuVWZF.net] 5：20に何を言ってるんだ？ 722 名前：デフォルトの名無しさん [2023/05/08(月) 20:14:43.36 ID:sHCjNd7k.net] 肖像権の侵害 723 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 21:20:01.63 ID:mh5d7unG.net] >>693 シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね？ 724 名前：デフォルトの名無しさん [2023/05/10(水) 00:19:20.08 ID:ispoDagW.net] そうね エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と 2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、 最終行以外の何かしらのシート情報を持たせるならクラスを、 そうでなければそれ以外の方法を使う感じになると思うのだけれど、 実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね？ 個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。 725 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 12:35:00.38 ID:kLH3jMBB.net] 揮発性メモリなら生成コストも比較してる？ 726 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:00:21.35 ID:t+3iUujv.net] test 727 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:06:43.49 ID:t+3iUujv.net] トグルA、Bがあって、 ①(初期状態)AがOFF BがOFF ②AをON ③BをON の順に操作した場合、 まず②で、トグルA_Click()イベントのみ発生 ③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、 前からそういう挙動でしたっけ？ 728 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:00:24.82 ID:t+3iUujv.net] >>719は無視してください。 729 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:13:48.51 ID:t+3iUujv.net] トグルA_Click()のイベントプロシージャの中に、 トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました) トグルBがONになっている� 730 名前：�態でトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。 この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。 これは仕様ですか？ [] [ここ壊れてます] 731 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 17:55:26.74 ID:iwbfLeO4.net] 仕様です 732 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 19:03:43.77 ID:+eiaChgK.net] ならしようがないね 733 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:12:59.13 ID:o4erV5Yp.net] スレチっぽいですが、わかる方いましたら回答をお願いします。 VBAとSeleniumを使用してスクレイピングをしたいのですが 1枚の画像を取得するだけでもメモリ不足と出ます。 ChatGPTに聞いたら 734 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:13:48.62 ID:o4erV5Yp.net] Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。 と返答がきましたが、VBAでは重くなるのでしょうか？ 735 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:15:41.06 ID:mDjUk4R1.net] >>724 プログラムが間違ってる可能性のが高い 736 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 23:57:34.43 ID:o4erV5Yp.net] >>726 ありがとうございます。 何か負荷がかかることをしているのかもしれませんね もう一度見直してみます。 737 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:43:08.05 ID:1+aaeJbv.net] そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい　とか、もっと前向きに 単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど） 738 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:51:22.37 ID:AMweY8Mr.net] wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).Value = today wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).NumberFormat = "mm/dd""(""ddd"")" 日付の書式設定を変えたいのですが 「range クラスの numberformat プロパティを設定できません」と出ます。 どうすればよいでしょうか 739 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:58:50.33 ID:6FktRVdV.net] >>729 "mm/dd""(""ddd"")""" 740 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 12:26:29.64 ID:AMweY8Mr.net] >>730 エラーは出なくなりましたが表示形式は変わりません。 これは"を一つ追加したようですがどういった意味があるのでしょう 741 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 13:08:23.72 ID:6FktRVdV.net] >>731 前略Offset(1).Value = Now 742 名前：デフォルトの名無しさん [2023/05/12(金) 06:37:47.52 ID:RwI7vd5H.net] 仕事でVBAマクロを使用しておりそのマクロではapplication ontime？　を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています 仮にこのブックをブックAとします ブックAを開いた状態でそのブックとは別のブックを開きます このブックをブックBとします。 ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。 ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます 一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます わかりにくくてすみませんがアドバイスよろしくお願いします。 743 名前：デフォルトの名無しさん [2023/05/12(金) 07:53:35.95 ID:hB6iHQ/6.net] 興味深い現象だな 744 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 08:45:29.16 ID:273OhBWp.net] >>733 OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる ブックを同時に開かないよう気をつけるのが一番簡単 勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す 任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない この点はみんな苦労してる 745 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:06:37.75 ID:7uGQBCYW.net] その、閉じますかマクロは必須、必要な処理なのか？意図がわからない むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？ 746 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:59:40.51 ID:/sP06OC3.net] 職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので 自分が作ってないからどう動くかわからないとしても責任を逃れることはできない 747 名前：デフォルトの名無しさん [2023/05/12(金) 17:51:08.96 ID:xsCXSmel.net] ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？ 748 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 18:03:43.71 ID:273OhBWp.net] ある 749 名前：デフォルトの名無しさん [2023/05/12(金) 20:13:32.86 ID:f5ZiP8iw.net] 一つお尋ねしたいのですが シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？ わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので コピーしたシートで一番新しいシートの名前は固定のものに変更する またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています 750 名前：デフォルトの名無しさん [2023/05/12(金) 20:38:30.74 ID:8W63Tv/2.net] 組める お前の頭が追いついていないだけ 751 名前：デフォルトの名無しさん [2023/05/12(金) 21:51:44.25 ID:f5ZiP8iw.net] https://daitaideit.com/vba-compare-two-sheets/ このコードを応用すればできそうな気がしてきました 752 名前：デフォルトの名無しさん [2023/05/13(土) 00:26:35.42 ID:XDOekk9R.net] シート1をシート2に転記 シート2にはシート1との比較の関数を仕込む シート2を末尾にコピー 最終的にこうしました 753 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 08:56:53.55 ID:IDKvuPgu.net] たまにしか使わないマクロを 「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか たくさんプロシージャがあって探すのがわかりづらいので。 754 名前：デフォルトの名無しさん [2023/05/13(土) 10:14:45.62 ID:qLGZy+iI.net] たまにしか使わないのとよく使うマクロを区別する方法がない 755 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 11:55:35.18 ID:/fPWBZJh.net] PERSONAL.XLSB内の個人マクロかなんかのこと？ 使わないのはprivateにでもしたらいい 756 名前：デフォルトの名無しさん [2023/05/13(土) 14:12:54.71 ID:GFR2hXVT.net] てすと 757 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 17:08:43.77 ID:V8yG/UHy.net] >>744 モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。 758 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:12:26.90 ID:25Zi9cll.net] UserFormにボタンを追加した後、ボタンをダブルクリックすると、 コード内にボタン_Click()が挿入されるけど、 そのボタン_Click()の挿入位置はランダムですか？ 759 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:22:19.81 ID:HLBQiI9F.net] 一番上固定かな？ 760 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 00:50:10.90 ID:T/aUw/Co.net] 一番上とか一番下なら分かりやすいんですが、そうならないんですよね。 追加した順でも、VBE上の直前のカーソル位置でもなく。 761 名前：デフォルトの名無しさん [2023/05/14(日) 08:49:07.12 ID:NGLUYN6O.net] 　　With 　　　　Worksheets(1) 　　　　Debug.Print .Name 　　　　Worksheets.Add Before:=Worksheets(1) 　　　　Debug.Print .Name 　　End With と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？ 762 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 09:12:17.84 ID:l3SxB+lY.net] それ以外にも記述できたらどれに記述してるかわからなくなりますやん 763 名前：デフォルトの名無しさん [2023/05/14(日) 11:24:04.23 ID:RX81XCn0.net] IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？ 綺麗なコードの書き方のアドバイスお願いしたいです 764 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 11:56:15.05 ID:/qnsVbR/.net] >>754 長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる 765 名前：デフォルトの名無しさん [2023/05/14(日) 14:28:00.07 ID:NGLUYN6O.net] オートフィルターを設定 セルの値でフィルター 別シートにコピー .copy（名前をつけて保存） までVBAで組めました セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？ ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても オートフィルターをかけた表で作成して 手動でフィルターをかけた結果 に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました 766 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 17:40:28.14 ID:RbSCBcNR.net] VBScriptの公式ドキュメントどこに行ったんですか！？！？ 767 名前：デフォルトの名無しさん [2023/05/14(日) 23:25:20.98 ID:ugePsCnu.net] >>757 それがこのスレと何か関係あるのか？ 768 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 01:52:14.73 ID:qI8Xfg30.net] うるせえ！ 769 名前：デフォルトの名無しさん [2023/05/15(月) 20:37:17.97 ID:XzAuzUrA.net] sheet（2）,range.value = sheet（1）,range,value と書いてあって、ちゃんと1と2のsheetがあるのに インデックスの範囲外 のエラーが出る事はありますか？ 770 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 21:25:34.18 ID:uCrsxXET.net] エクスプローラ上で画像選んで 右に回転、左に回転 てありますけど あれをvba上でファイルパス渡して出来ないですかね？ ググってみたら以外と出てこなくて… 771 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 22:52:46.17 ID:+mRHKUjh.net] https://excel-ubara.com/excelvba1/EXCELVBA421.html ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？ 772 名前：デフォルトの名無しさん [2023/05/16(火) 13:06:53.10 ID:P46L4qJ3.net] >>739 ありがとうございます 773 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 13:52:02.22 ID:pE03OLEM.net] >>762 やはりこういうアプローチになりますか… OS標準で簡単にできることが VBAから出来ないんですよねぇ かと言って、これだけのためにライブラリ追加したりってのも… WindowsAPI経由ならいいかなと思ったけど そういうのもドンピシャなのは見つからなくて… .netのSystem.Drawing.Bitmapもvbaからは使えないようですし 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なんてグループで開発することなんてほぼ無いし コーディングルールなんかあってないようなもんだな

---

---

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

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