↑同じ内容を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
探検
Excel VBA 質問スレ Part79
■ このスレッドは過去ログ倉庫に格納されています
2023/01/28(土) 11:46:47.21ID:mBQ16TA8
702デフォルトの名無しさん
2023/05/06(土) 12:49:51.00ID:DOnaG3pX 独り言とかどうでもいい
703デフォルトの名無しさん
2023/05/06(土) 13:01:03.66ID:fVwKK7Qd >>702
あれだけAIが凄いと言っていた人が多いのに?
あれだけAIが凄いと言っていた人が多いのに?
704デフォルトの名無しさん
2023/05/06(土) 15:26:46.40ID:V/5WCcXW 多いんじゃ無くて、特定の少数がやかましいだけ
新しい技術はまずは様子見するのがベテランだろ 触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む
今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ
急がば回れ 慌てるコ〇キは貰いが少ない 善は急げで道端の石に蹴躓いてたんじゃ元も子もない
新しい技術はまずは様子見するのがベテランだろ 触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む
今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ
急がば回れ 慌てるコ〇キは貰いが少ない 善は急げで道端の石に蹴躓いてたんじゃ元も子もない
705デフォルトの名無しさん
2023/05/06(土) 17:05:38.77ID:uYMm8A/b 様子見するのはベテランじゃない
レイトマジョリティ、あるいはラガードな
レイトマジョリティ、あるいはラガードな
706デフォルトの名無しさん
2023/05/06(土) 17:25:28.28ID:l5Xh2UOq これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か
707デフォルトの名無しさん
2023/05/06(土) 17:25:52.89ID:V/5WCcXW おお、かっちょいい呼び方 ま、覚えてられないと思うけど
散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし
HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし 何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで)
それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて イイネw
散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし
HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし 何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで)
それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて イイネw
708デフォルトの名無しさん
2023/05/06(土) 19:06:41.82ID:fVwKK7Qd 初めての試み
他の人がやっていない事
他と違う事
は往々にして頭がおかしいと言われます
AIがこれらの回答を生成してもそれは同じ
他の人がやっていない事
他と違う事
は往々にして頭がおかしいと言われます
AIがこれらの回答を生成してもそれは同じ
709デフォルトの名無しさん
2023/05/07(日) 01:23:52.56ID:31z9TTNB なんだかこのスレも気持ち悪くなったな。
710デフォルトの名無しさん
2023/05/07(日) 01:49:32.50ID:oPHUqsU3 最初からだぞ
711デフォルトの名無しさん
2023/05/07(日) 04:38:26.84ID:31z9TTNB 例の精神病んでる人が最近しつこいしな。
712デフォルトの名無しさん
2023/05/07(日) 05:20:09.87ID:tNDxK8R1 AIに狩野英孝って書いて画像生成させてみ?
女性しか生成されないぞ?
女性しか生成されないぞ?
713デフォルトの名無しさん
2023/05/08(月) 17:42:02.89ID:4wzuVWZF 5:20に何を言ってるんだ?
714デフォルトの名無しさん
2023/05/08(月) 20:14:43.36ID:sHCjNd7k 肖像権の侵害
715デフォルトの名無しさん
2023/05/08(月) 21:20:01.63ID:mh5d7unG >>693
シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね?
シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね?
716デフォルトの名無しさん
2023/05/10(水) 00:19:20.08ID:ispoDagW そうね
エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と
ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と
2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、
最終行以外の何かしらのシート情報を持たせるならクラスを、
そうでなければそれ以外の方法を使う感じになると思うのだけれど、
実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね?
個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。
エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と
ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と
2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、
最終行以外の何かしらのシート情報を持たせるならクラスを、
そうでなければそれ以外の方法を使う感じになると思うのだけれど、
実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね?
個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。
717デフォルトの名無しさん
2023/05/10(水) 12:35:00.38ID:kLH3jMBB 揮発性メモリなら生成コストも比較してる?
718デフォルトの名無しさん
2023/05/10(水) 14:00:21.35ID:t+3iUujv test
719デフォルトの名無しさん
2023/05/10(水) 14:06:43.49ID:t+3iUujv トグルA、Bがあって、
①(初期状態)AがOFF BがOFF
②AをON
③BをON
の順に操作した場合、
まず②で、トグルA_Click()イベントのみ発生
③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、
前からそういう挙動でしたっけ?
①(初期状態)AがOFF BがOFF
②AをON
③BをON
の順に操作した場合、
まず②で、トグルA_Click()イベントのみ発生
③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、
前からそういう挙動でしたっけ?
720デフォルトの名無しさん
2023/05/10(水) 15:00:24.82ID:t+3iUujv >>719は無視してください。
721デフォルトの名無しさん
2023/05/10(水) 15:13:48.51ID:t+3iUujv トグルA_Click()のイベントプロシージャの中に、
トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました)
トグルBがONになっている状態でトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。
この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。
これは仕様ですか?
トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました)
トグルBがONになっている状態でトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。
この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。
これは仕様ですか?
722デフォルトの名無しさん
2023/05/10(水) 17:55:26.74ID:iwbfLeO4 仕様です
723デフォルトの名無しさん
2023/05/10(水) 19:03:43.77ID:+eiaChgK ならしようがないね
724デフォルトの名無しさん
2023/05/10(水) 21:12:59.13ID:o4erV5Yp スレチっぽいですが、わかる方いましたら回答をお願いします。
VBAとSeleniumを使用してスクレイピングをしたいのですが
1枚の画像を取得するだけでもメモリ不足と出ます。
ChatGPTに聞いたら
VBAとSeleniumを使用してスクレイピングをしたいのですが
1枚の画像を取得するだけでもメモリ不足と出ます。
ChatGPTに聞いたら
725デフォルトの名無しさん
2023/05/10(水) 21:13:48.62ID:o4erV5Yp Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。
と返答がきましたが、VBAでは重くなるのでしょうか?
と返答がきましたが、VBAでは重くなるのでしょうか?
726デフォルトの名無しさん
2023/05/10(水) 21:15:41.06ID:mDjUk4R1 >>724
プログラムが間違ってる可能性のが高い
プログラムが間違ってる可能性のが高い
727デフォルトの名無しさん
2023/05/10(水) 23:57:34.43ID:o4erV5Yp728デフォルトの名無しさん
2023/05/11(木) 11:43:08.05ID:1+aaeJbv そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい とか、もっと前向きに
単にmsgbox出すよりは注目されそうだし(そのうち飽きられるだろうけど)
単にmsgbox出すよりは注目されそうだし(そのうち飽きられるだろうけど)
729デフォルトの名無しさん
2023/05/11(木) 11:51:22.37ID:AMweY8Mr 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 プロパティを設定できません」と出ます。
どうすればよいでしょうか
wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).NumberFormat = "mm/dd""(""ddd"")"
日付の書式設定を変えたいのですが
「range クラスの numberformat プロパティを設定できません」と出ます。
どうすればよいでしょうか
730デフォルトの名無しさん
2023/05/11(木) 11:58:50.33ID:6FktRVdV >>729
"mm/dd""(""ddd"")"""
"mm/dd""(""ddd"")"""
731デフォルトの名無しさん
2023/05/11(木) 12:26:29.64ID:AMweY8Mr732デフォルトの名無しさん
2023/05/11(木) 13:08:23.72ID:6FktRVdV >>731
前略Offset(1).Value = Now
前略Offset(1).Value = Now
733デフォルトの名無しさん
2023/05/12(金) 06:37:47.52ID:RwI7vd5H 仕事でVBAマクロを使用しておりそのマクロではapplication ontime? を使用しエクセルが開かれてから一定時間過ぎたら閉じますか?とメッセージを出す処理をしています
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか?とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で?と困ってます
一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます
わかりにくくてすみませんがアドバイスよろしくお願いします。
仮にこのブックをブックAとします
ブックAを開いた状態でそのブックとは別のブックを開きます
このブックをブックBとします。
ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか?とメッセージがでます。
ブックBのソースコード見てもマクロは組まれておらず何で?と困ってます
一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます
わかりにくくてすみませんがアドバイスよろしくお願いします。
734デフォルトの名無しさん
2023/05/12(金) 07:53:35.95ID:hB6iHQ/6 興味深い現象だな
735デフォルトの名無しさん
2023/05/12(金) 08:45:29.16ID:273OhBWp >>733
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す
任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる
OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる
ブックを同時に開かないよう気をつけるのが一番簡単
勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す
任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない
この点はみんな苦労してる
736デフォルトの名無しさん
2023/05/12(金) 11:06:37.75ID:7uGQBCYW その、閉じますかマクロは必須、必要な処理なのか?意図がわからない
むかしのメモリ使用量節約とかで組んでたとか?複数ファイル開くとフリーズとか防止用?
むかしのメモリ使用量節約とかで組んでたとか?複数ファイル開くとフリーズとか防止用?
737デフォルトの名無しさん
2023/05/12(金) 11:59:40.51ID:/sP06OC3 職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない
自分が作ってないからどう動くかわからないとしても責任を逃れることはできない
738デフォルトの名無しさん
2023/05/12(金) 17:51:08.96ID:xsCXSmel ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか?
739デフォルトの名無しさん
2023/05/12(金) 18:03:43.71ID:273OhBWp ある
740デフォルトの名無しさん
2023/05/12(金) 20:13:32.86ID:f5ZiP8iw 一つお尋ねしたいのですが
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか?
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています
シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか?
わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので
コピーしたシートで一番新しいシートの名前は固定のものに変更する
またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています
741デフォルトの名無しさん
2023/05/12(金) 20:38:30.74ID:8W63Tv/2 組める
お前の頭が追いついていないだけ
お前の頭が追いついていないだけ
742デフォルトの名無しさん
2023/05/12(金) 21:51:44.25ID:f5ZiP8iw743デフォルトの名無しさん
2023/05/13(土) 00:26:35.42ID:XDOekk9R シート1をシート2に転記
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー
最終的にこうしました
シート2にはシート1との比較の関数を仕込む
シート2を末尾にコピー
最終的にこうしました
744デフォルトの名無しさん
2023/05/13(土) 08:56:53.55ID:IDKvuPgu たまにしか使わないマクロを
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。
「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか
たくさんプロシージャがあって探すのがわかりづらいので。
745デフォルトの名無しさん
2023/05/13(土) 10:14:45.62ID:qLGZy+iI たまにしか使わないのとよく使うマクロを区別する方法がない
746デフォルトの名無しさん
2023/05/13(土) 11:55:35.18ID:/fPWBZJh PERSONAL.XLSB内の個人マクロかなんかのこと?
使わないのはprivateにでもしたらいい
使わないのはprivateにでもしたらいい
747デフォルトの名無しさん
2023/05/13(土) 14:12:54.71ID:GFR2hXVT てすと
748デフォルトの名無しさん
2023/05/13(土) 17:08:43.77ID:V8yG/UHy >>744
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。
モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。
749デフォルトの名無しさん
2023/05/13(土) 23:12:26.90ID:25Zi9cll UserFormにボタンを追加した後、ボタンをダブルクリックすると、
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか?
コード内にボタン_Click()が挿入されるけど、
そのボタン_Click()の挿入位置はランダムですか?
750デフォルトの名無しさん
2023/05/13(土) 23:22:19.81ID:HLBQiI9F 一番上固定かな?
751デフォルトの名無しさん
2023/05/14(日) 00:50:10.90ID:T/aUw/Co 一番上とか一番下なら分かりやすいんですが、そうならないんですよね。
追加した順でも、VBE上の直前のカーソル位置でもなく。
追加した順でも、VBE上の直前のカーソル位置でもなく。
752デフォルトの名無しさん
2023/05/14(日) 08:49:07.12ID:NGLUYN6O With
Worksheets(1)
Debug.Print .Name
Worksheets.Add Before:=Worksheets(1)
Debug.Print .Name
End With
と入力している場合、当然ワークシート(1)に対してしかwithで省略して記述することはできませんよね?
Worksheets(1)
Debug.Print .Name
Worksheets.Add Before:=Worksheets(1)
Debug.Print .Name
End With
と入力している場合、当然ワークシート(1)に対してしかwithで省略して記述することはできませんよね?
753デフォルトの名無しさん
2023/05/14(日) 09:12:17.84ID:l3SxB+lY それ以外にも記述できたらどれに記述してるかわからなくなりますやん
754デフォルトの名無しさん
2023/05/14(日) 11:24:04.23ID:RX81XCn0 IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか?
綺麗なコードの書き方のアドバイスお願いしたいです
綺麗なコードの書き方のアドバイスお願いしたいです
755デフォルトの名無しさん
2023/05/14(日) 11:56:15.05ID:/qnsVbR/ >>754
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる
長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる
756デフォルトの名無しさん
2023/05/14(日) 14:28:00.07ID:NGLUYN6O オートフィルターを設定
セルの値でフィルター
別シートにコピー
.copy(名前をつけて保存)
までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか?
ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました
セルの値でフィルター
別シートにコピー
.copy(名前をつけて保存)
までVBAで組めました
セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか?
ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても
オートフィルターをかけた表で作成して
手動でフィルターをかけた結果
に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました
757デフォルトの名無しさん
2023/05/14(日) 17:40:28.14ID:RbSCBcNR VBScriptの公式ドキュメントどこに行ったんですか!?!?
758デフォルトの名無しさん
2023/05/14(日) 23:25:20.98ID:ugePsCnu >>757
それがこのスレと何か関係あるのか?
それがこのスレと何か関係あるのか?
759デフォルトの名無しさん
2023/05/15(月) 01:52:14.73ID:qI8Xfg30 うるせえ!
760デフォルトの名無しさん
2023/05/15(月) 20:37:17.97ID:XzAuzUrA sheet(2),range.value = sheet(1),range,value
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか?
と書いてあって、ちゃんと1と2のsheetがあるのに
インデックスの範囲外
のエラーが出る事はありますか?
761デフォルトの名無しさん
2023/05/15(月) 21:25:34.18ID:uCrsxXET エクスプローラ上で画像選んで
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね?
ググってみたら以外と出てこなくて…
右に回転、左に回転
てありますけど
あれをvba上でファイルパス渡して出来ないですかね?
ググってみたら以外と出てこなくて…
762デフォルトの名無しさん
2023/05/15(月) 22:52:46.17ID:+mRHKUjh https://excel-ubara.com/excelvba1/EXCELVBA421.html
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん?
ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん?
763デフォルトの名無しさん
2023/05/16(火) 13:06:53.10ID:P46L4qJ3 >>739
ありがとうございます
ありがとうございます
764デフォルトの名無しさん
2023/05/16(火) 13:52:02.22ID:pE03OLEM >>762
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ
かと言って、これだけのためにライブラリ追加したりってのも…
WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし
やはりこういうアプローチになりますか…
OS標準で簡単にできることが
VBAから出来ないんですよねぇ
かと言って、これだけのためにライブラリ追加したりってのも…
WindowsAPI経由ならいいかなと思ったけど
そういうのもドンピシャなのは見つからなくて…
.netのSystem.Drawing.Bitmapもvbaからは使えないようですし
765デフォルトの名無しさん
2023/05/16(火) 14:01:09.62ID:HY4KEFhG vbcコンパイラ入ってるからexe作っちまえよ
766デフォルトの名無しさん
2023/05/16(火) 14:58:33.26ID:xHVT0jsn ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ
vbaからgdi+はネット上にかなりの資料があります
vbaからgdi+はネット上にかなりの資料があります
767デフォルトの名無しさん
2023/05/16(火) 15:38:41.06ID:KioSfVLt >>764
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ
エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ
768デフォルトの名無しさん
2023/05/16(火) 17:26:18.33ID:LV7QjD3v Worksheets(〜).Copy
ActiveWorkbook.SaveAs fileName:= 〜 =xlOpenXMLWorkbook
ActiveWorkbook.Close
でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート(book1)とかそういう仮称が選択できません
なぜでしょうか?
ActiveWorkbook.SaveAs fileName:= 〜 =xlOpenXMLWorkbook
ActiveWorkbook.Close
でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる
がしたいです
しかし、active work sheet.saveasでコピーしているワークシート(book1)とかそういう仮称が選択できません
なぜでしょうか?
769デフォルトの名無しさん
2023/05/16(火) 20:44:51.09ID:AsBF0aZH シート(A)に記入します
シート(A)を複製するコードを実行して
シート(A)2を作成します
シート(A)2に記入します
シート(A)とシート(A)2の値が違うところ(差分)をわかりやすく表示する仕組み(条件付き書式)をコードするにはどうしたらいいでしょうか?
シート(A)を複製するコードを実行して
シート(A)2を作成します
シート(A)2に記入します
シート(A)とシート(A)2の値が違うところ(差分)をわかりやすく表示する仕組み(条件付き書式)をコードするにはどうしたらいいでしょうか?
770デフォルトの名無しさん
2023/05/17(水) 11:46:37.22ID:RlbRWgaL ど初心者で申し訳ない
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る?
ユーザーフォームを移動というより
スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る?
771デフォルトの名無しさん
2023/05/17(水) 13:37:03.45ID:CM8OYJGJ なぜその程度の事を試さないでいるのかわからん
772デフォルトの名無しさん
2023/05/17(水) 20:26:57.88ID:Y2fbuf/F773デフォルトの名無しさん
2023/05/17(水) 20:34:40.20ID:edeIW3zk 自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ
最悪上司に「PCが乗っ取られました!」とか報告行っちゃうぞ 部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか? マウスで好きな位置にドラッグしろと突っ撥ねろ
最悪上司に「PCが乗っ取られました!」とか報告行っちゃうぞ 部署中てんやわんやに成るぞ
それとも相手の要件がそれなのか? マウスで好きな位置にドラッグしろと突っ撥ねろ
774デフォルトの名無しさん
2023/05/17(水) 20:36:59.98ID:jhfa7U3i 懐かしのブラクラかよ
775デフォルトの名無しさん
2023/05/17(水) 22:00:50.03ID:KPgK0GXZ やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します
素直にコピーをするときにシート名を指定して複製したシートの名前を固定します
そして複製したシートに固定の名前のシートを条件付き書式を設定します
776デフォルトの名無しさん
2023/05/17(水) 22:19:01.82ID:B0NmirsY なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ
777デフォルトの名無しさん
2023/05/17(水) 22:37:47.21ID:dtCX3F+n778デフォルトの名無しさん
2023/05/17(水) 23:14:20.94ID:CM8OYJGJ779デフォルトの名無しさん
2023/05/18(木) 00:00:54.09ID:wiHk9Ekj >>778
どういう事でしょうか?
どういう事でしょうか?
780デフォルトの名無しさん
2023/05/18(木) 00:19:39.19ID:re225Wjq >>779
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな
If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If
シート1とシート2で左上(1,1)のセルが同じかどうかの比較
考え方のサンプルなので細かいとこは気にすんな
If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
MsgBox ("同じ")
Else
MsgBox ("違う")
End If
781デフォルトの名無しさん
2023/05/18(木) 00:39:29.96ID:ejLN3NBy あっけなく終了
782デフォルトの名無しさん
2023/05/18(木) 06:34:53.48ID:wiHk9Ekj >>780
どうやってElseのセルの塗り潰しをしますか?
どうやってElseのセルの塗り潰しをしますか?
783デフォルトの名無しさん
2023/05/18(木) 07:03:21.02ID:qSj77xHN interiorcolor
784デフォルトの名無しさん
2023/05/18(木) 13:22:02.41ID:re225Wjq785デフォルトの名無しさん
2023/05/18(木) 17:13:43.92ID:NCEYaWdi 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
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
786デフォルトの名無しさん
2023/05/19(金) 11:26:43.98ID:36zUuL+C787デフォルトの名無しさん
2023/05/19(金) 11:51:40.30ID:UVQ9qsjN 変数名に違和感しかない
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手
俺ならDst,SrcじゃなくてSrc,Dstの順番にする
座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする
あと、変数名にrowを使うのは悪手
788デフォルトの名無しさん
2023/05/19(金) 12:35:54.69ID:Djo90icR 座標にx、yを使う気持ちはわかる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる
CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる
789デフォルトの名無しさん
2023/05/19(金) 12:52:50.03ID:SzaRWxxH 他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。
本人でさえも1ヶ月後には解読に時間がかかる。
本人でさえも1ヶ月後には解読に時間がかかる。
790デフォルトの名無しさん
2023/05/19(金) 14:32:46.40ID:YHChQzBZ 俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針
Dim sr() ' Source Range
みたいな感じ
Dim sr() ' Source Range
みたいな感じ
791デフォルトの名無しさん
2023/05/19(金) 16:03:10.43ID:KvfJxEtf VBAなんてグループで開発することなんてほぼ無いし
コーディングルールなんかあってないようなもんだな
コーディングルールなんかあってないようなもんだな
792デフォルトの名無しさん
2023/05/19(金) 16:13:15.68ID:4eBJWkt8 グループでなくとも別の人とか辞めた後にとかあるのに
793デフォルトの名無しさん
2023/05/19(金) 16:30:13.95ID:c4GhPl6O 自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ
794デフォルトの名無しさん
2023/05/19(金) 17:26:41.01ID:WMf1UBB/ 出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ
史上最強の暗号に成り果てる どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる 彼女は優秀なデクリプター 粗末には扱えない
(因みに彼女は打ち合わせに同席していない) 罵倒されながら清書している時間は至福のひととき
史上最強の暗号に成り果てる どこかにうっかり置き忘れても心配無用
だけど、チームの女の子の内ひとりだけが解読できる 彼女は優秀なデクリプター 粗末には扱えない
(因みに彼女は打ち合わせに同席していない) 罵倒されながら清書している時間は至福のひととき
795デフォルトの名無しさん
2023/05/19(金) 17:51:29.85ID:/14cz11e はいはい
そうですか
そうですか
796デフォルトの名無しさん
2023/05/19(金) 18:06:46.91ID:PQ/SGKnq797デフォルトの名無しさん
2023/05/19(金) 18:09:20.34ID:NNcalgSE とうとう当スレに
散文詩を記す御仁が出現・・・
散文詩を記す御仁が出現・・・
798デフォルトの名無しさん
2023/05/19(金) 18:33:52.51ID:/14cz11e >794
こんな無能の塊と一緒に仕事する人は可哀そうだな
こんな無能の塊と一緒に仕事する人は可哀そうだな
799デフォルトの名無しさん
2023/05/19(金) 20:20:11.33ID:WP5xx6oL >>790
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。
後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。
ふーん
俺とは逆だね
変数名は見てどういう用途で使っているか
解るようにして、逆にコメントは
その処理を何のために行なっているかとか
どういう経緯で作成されたか後で分からなく
なるのを防ぐために付けるくらい。
後はモジュールや関数のヘッダに
その関数の役割とシグネチャの説明をふるくらいかな
関数もひとつにひとつの役割しか持たせないようにして
なるたく短く作ってしの関数を組み立てて
更にひとつ上の役割の関数を作るようにしてる。
800デフォルトの名無しさん
2023/05/19(金) 20:30:07.26ID:xLo0lAaU エクセルを月曜~金曜の決まった時間に実行する場合は
イベントプロシージャを使うのが一番いいですか?
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください
イベントプロシージャを使うのが一番いいですか?
ググったらスクリプトを作るという方法もあるようです。
長所・短所がわからないので教えてください
801デフォルトの名無しさん
2023/05/19(金) 20:41:37.93ID:WP5xx6oL >>800
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと?
タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの?
いやいや、ずーっとEXCEL立ち上げっぱ、
VBA動かしっぱにして時間を迎えたイベントを使うってこと?
タスクスケジューラーに
対象のブック開くように設定しといて
オープン時にマクロが走行するようにしとくんじゃダメなの?
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 米大統領報道官「日本と強固な同盟維持、中国とも協力」 [少考さん★]
- 高市首相の答弁書に「台湾有事答えない」と明記 存立危機発言当時 ★2 [蚤の市★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- JA全農が「新おこめ券」…来年9月末の有効期限を新設、必要経費のみ上乗せ ★2 [蚤の市★]
- 1人3千円の食品高騰対策、何に使える? あいまいなまま衆院通過 [蚤の市★]
- 【悲報】維新の政治資金でガールズバー、高市首相「良いか悪いかは国民の皆さまが判断されること」 [115996789]
- 【悲報】タンパク質さん、寿命を縮めることが判明
- 【マギレコ】VIPでマギアレコード&マギアエクセドラ【まどドラ】
- 中国人、ガチ超正論。「日本人がアイヌに対してやったことを『問題ない』とするなら、中国が日本人に同じことをしても文句ないだろう?」 [314039747]
- 衛生的に気持ち悪くて性風俗店行ったこと無いんだ
- 【悲報】新米、全く売れなくて倉庫が満杯になってしまうwwwwwwwwwwwwwwwwwwww [802034645]
