- 1 名前：デフォルトの名無しさん [2021/05/25(火) 12:48:01.06 ID:mepUVc/i0.net]
- !extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ
ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ
※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
- 53 名前：デフォルトの名無しさん mailto:sage [2021/05/31(月) 09:27:03.82 ID:q4AGCTmE0.net]
- >>52
そいつはsubからend subまで書いてやらんと分からんやろ
- 54 名前：デフォルトの名無しさん [2021/05/31(月) 11:04:15.17 ID:siYzGVpEa.net]
- >>34
遅まきながら横からながら
マジありがとう！ これ知らなかった！ 心底欲しかった！
- 55 名前：デフォルトの名無しさん [2021/05/31(月) 11:07:53.40 ID:siYzGVpEa.net]
- >>54
△>34
◎>35
連投すまんアンカ間違った
- 56 名前：デフォルトの名無しさん [2021/05/31(月) 20:55:53.72 ID:WHx69Kzap.net]
- >>52
>>53
ありがとう！
ちょっと試してみます！
- 57 名前：デフォルトの名無しさん [2021/06/01(火) 10:59:42.70 ID:FQ8UQ8zIM.net]
- Workbook_Openで表の処理とその上書き保存（ActiveWorkbook.Save）を同時にこなしてるのですが、直後になぜか.savedがTrueになりません。
しかしその後もう一度手動でWorkboon_Openの中身を実行すると、今度はTrueになります。
上書き保存の可否を聞かれずにファイルを閉じたいのにいちいち聞かれて困っております。どうしたらよいのでしょうか？
- 58 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 11:40:20.38 ID:5+ZhhpdnM.net]
- ひとまずOpenイベントの頭にStop書いてブレイクポイント作ったら開き直してイミディエイトウィンドウにDebug.Print Workbook.Savedって書いたら
F8押して、イミディエイトのDebug.Printの行末をクリックしてEnter、F8押して、イミディエイトのDebug.Printの行末をクリックしてEnter
ってやってみてもWorkbook.Saveの行でTrueになってないか見てみ？
- 59 名前：デフォルトの名無しさん [2021/06/01(火) 13:01:26.91 ID:FQ8UQ8zIM.net]
- >>58
Savedの行以降、確かにFalseからTrueになってるし、
Workbook_OpenのEnd Sub直前にStop入れてDebugで確認してもTrueでした。
なのに、End SubをまたぐとFalseになります。
- 60 名前：デフォルトの名無しさん [2021/06/01(火) 13:02:39.34 ID:FQ8UQ8zIM.net]
- >>59
× Savedの行
○ ActiveWorkbook.Saveの行
- 61 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 13:31:04.27 ID:sclbkM2r0.net]
- >>57
こんな感じの参考になる？
officetanaka.net/excel/vba/file/file03.htm
- 62 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 14:22:21.55 ID:XqGhUQMKa.net]
- Openの時はActiveじゃないんじゃない
- 63 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 15:42:35.04 ID:5+ZhhpdnM.net]
- ActiveWorkbookじゃなくてThisWorkbookの方が確実ではあると思うけどEnd Subを跨いだ瞬間に変更フラッグが立ってるのがいまいち分からんなぁ
- 64 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 16:11:11.07 ID:Mb6qCGemH.net]
- 裏で動かすマクロは、常にオブジェクトを明示しないとバグの元になる
ActiveSheetとか使うと高確率で誤爆する
- 65 名前：デフォルトの名無しさん [2021/06/01(火) 17:18:36.32 ID:Oa7oH/5MM.net]
- ThisWorkbookにしたり、わざわざSavedにTrueを代入してやっても、End sub をまたぐとやはりFalseになってる……
皆さん指摘の通りなんかブックの指定にミスがあるかもしれないので、もう少し色々試してみます
- 66 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 17:24:45.60 ID:5+ZhhpdnM.net]
- まずないとは思うがSaveの前にDoEvents挟んでみるとかはどう
- 67 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 17:57:51.45 ID:Mb6qCGemH.net]
- わからない時はdebug.printしまくる
- 68 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 18:14:30.31 ID:XqGhUQMKa.net]
- Openイベントが終わったの後に変更があるとか？
例えばピボットの「開いた時に更新する」とか
- 69 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 18:44:16.50 ID:sclbkM2r0.net]
- >>65
だから>>61のリンク先に書いてあるように
Application.Displayalerts使っちゃダメなの？
- 70 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 19:21:51.78 ID:lbMsn5ZmM.net]
- VBAでIEを操作したい。エレメント内のonclickにJavaScriptが設定されてて、引数がthisなんだ。これはどういうコードかいたらJavaScriptがうごく？
- 71 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 19:24:00.82 ID:vHFZ5Ijm0.net]
- いまだにIEとか
- 72 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 19:45:29.62 ID:J2N8rWTYM.net]
- スクリプト動かす必要があるなら泥沼だからやめとけ
SeleniumかRPAかなんかでクリックをエミュレートしろ
- 73 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 20:08:45.76 ID:Mb6qCGemH.net]
- >>70
JacascriptそのままNavigateでたいがい動くけど、実際に試してみた？
- 74 名前：デフォルトの名無しさん [2021/06/01(火) 20:57:47.91 ID:e0ELXQMnM.net]
- VBAでChromeを動かす方法はありますか？
- 75 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 22:41:37.93 ID:u+h0cgO6d.net]
- VBA Chromeでググれば色々でるが
お前がどう動かしたいか答えるのはエスパーしか無理
- 76 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 23:08:53.66 ID:h5EIZiJKM.net]
- Chrome使っていいんだったらエクステンション作ればよくね
VBAに固執する意味がない
- 77 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 10:29:31.20 ID:6cAiGaxYd.net]
- A列は途中で未記入の行は無し。B列以降は行によって列範囲は不明。途中の抜けは無し。この条件で一番右まで記入されている列は何列目なのかを知る方法をご教示願います。
この列の右に別の列を追加したいのです。
- 78 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:11:55.45 ID:Xo9eImhQH.net]
- >>77
UsedRange.Column
- 79 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:20:06.26 ID:Kwk6Ddry0.net]
- VBAでIE動かしたいっていうのは社内システムの操作じゃね
自動化しようにもそれしか選択肢がないっていうケース
- 80 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:27:04.16 ID:Xo9eImhQH.net]
- そういうのは末端の社員が勝手に自動化して楽しようとしてるケースに限られる
そうでなければシステム部とか管理部がちゃんと対応してくれるはずだし
- 81 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:35:10.46 ID:Kwk6Ddry0.net]
- 末端しかこんなところにはこねーよ
- 82 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:40:00.72 ID:IWT/q5/E0.net]
- IEが2022/6/15にサポート終了する件なんだけど、VBAのIE操作もできなくなるの？
- 83 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 11:40:36.31 ID:y9OF8J1M0.net]
- >>74
これでいいんじゃね？
https://note.com/teihen_escape/n/n40e672b1c97f
- 84 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 12:15:32.36 ID:Xo9eImhQH.net]
- >>82
サポートの終了と使用の禁止はまた別の話だと思うけどなあ
サポート外のWinXPが起動不可能になったとか聞かないし
- 85 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 12:23:59.65 ID:IWT/q5/E0.net]
- >84
そうだとありがたいんだよね。
ただ記事で「2022年6月16日になっても、iexplore.exeは削除されないものの、アクセスしようとするとIE11は起動せずEdgeにリダイレクトされる」って書いてあったから不安なんだ
- 86 名前：デフォルトの名無しさん [2021/06/02(水) 13:20:52.87 ID:JznBaFAoM.net]
- createObjectで呼び出すんじゃないの？
- 87 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 16:05:40.28 ID:Xo9eImhQH.net]
- アプリは起動できなくされるけど、オブジェクトはさわれると予想
MS-Officeがもともとそういう構造だったし
- 88 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 16:34:22.01 ID:5rGltuVI0.net]
- ieが来年サポート終了するからchromeとseleniumで動かして見ようと思ったら
webdriverが若干古いのしか公開されてなくて詰んだ
頻繁に更新するchromeをどうやって制御すりゃいいんだよ…
- 89 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 23:09:59.70 ID:qivQYfz/r.net]
- すみません、教えてください
配列の一部の最大値を取得する方法ってないでしょうか？
例えば二次元配列で
a(1,1)=1
a(2,1)=2
a(3,1)=3
‥
a(100,1)=100
という配列があったとして、a(10,1)〜a(20,1)の間の最大値を出す方法です
for文で調べたい配列すべて調べて最大値を出す方法しか思い付かないのですが、他に方法はないでしょうか？
- 90 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 23:12:53.59 ID:GkUPJJQl0.net]
- それはギャグで言ってるのか
- 91 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 23:43:12.68 ID:y9OF8J1M0.net]
- Rubyなら何ちゃらかんちゃらの前置きだろ
- 92 名前：デフォルトの名無しさん mailto:sage [2021/06/02(水) 23:59:28.51 ID:6j/qqwIU0.net]
- >>89
全部の配列を一旦シートにコピーして関数つかえばいいんじゃね
- 93 名前：デフォルトの名無しさん [2021/06/03(木) 00:15:46.47 ID:bA/gzbc70.net]
- >>89
死ね
- 94 名前：デフォルトの名無しさん mailto:sage [2021/06/03(木) 02:19:06.04 ID:Ers5yK+g0.net]
- >>88
Ruby には、Webdriver を自動的にダウンロードする、モジュール・gem がある。
タスクランナーみたいなもの
ブラウザの起動前に、ブラウザのバージョンを調べて、
Webdriver のバージョンが、それと一致しない場合、
それと一致するWebdriver をダウンロードしてから、処理を開始する
- 95 名前：デフォルトの名無しさん mailto:sage [2021/06/03(木) 03:06:46.55 ID:WSKbBpAyd.net]
- まともな企業のLANだとネットアクセスとかダウンロードに制限かかってそう
|
 |
