Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2023/05/16(火) 22:45:00.74

いや、>>324が例をあげて質問者が「それだ」っつーから「なにそれ？」でググったら
https://ja.wikipedia.org/wiki/IBM_i#/media/%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB:Ibmi-main-menu.png
こんなんが出てきて、そういやどっかで見掛けたことあるな、とか思って、これだとフル画面だけど別途Excel開けるだけの
スペースが画面上にある様子だし、ターミナルエミュレータって書かれてるし「いぢるな」に成ってもおかしくないだろ？
Win11でもWindows3.1のゲームが出来る(どころかスーパーマリオまでできる)
https://archive.org/details/softwarelibrary_win3_games　みたいなもんだろ(ちがうか)
リモートデスクトップやTeamViewerみたいに、キーボード操作もマウス操作も別画面に吸い込まれる　みたいなもんだろ　違うのか？

2023/05/16(火) 23:38:51.78

そもそも開発環境が用意されてるわけでもなく本番環境でやろうとしてるのは明らかだろ
それも無断で

2023/05/17(水) 01:30:45.81

>>332
無知は恥じることじゃ無い

2023/05/17(水) 03:34:15.76

ここ何のスレだ？(笑)

2023/05/17(水) 08:10:58.74

>>332
全然違う
ググらなきゃ分からない程度の知識でマウントかよ

2023/05/17(水) 10:40:39.29

マウントマウントうるせーよ　何でもマウントだと思うその僻み根性直せよ
どこがマウントなんだよ　忠告っつーんだろが　引き留めてんだ
つまんねコト書いてねーで、知ってんなら対策と傾向教えてやれや　できねんか？

2023/05/17(水) 10:51:01.19

改行とエンターキー別にほしいよねー
あとバックタブも必要だわ

2023/05/17(水) 11:41:51.42

>>337
無知は恥じることじゃ無い
忠告の前提が間違った知識あるいは勘違いに由るものなら
その忠告は間違っているかもという自認はしておくべき
俺は自分の環境（iSeriesの前身AS/400、ターミナルエミュレータはiSeriesと同じ）で使えたAHKって代替策と、
Win32API叩けばできるって代替策案内した
あなたはマウント取ろうとする以外に何かしたっけ？

2023/05/17(水) 12:45:51.36

どこをどう読んでも新人のヒラ社員(歳が若いかどうかまではわからんけど)が悪戦苦闘してる風　と、
方や、それなりに業務をこなしてきただろう人物が経験則を元に導き出した解で効率化を成し得た　のと、
そういう読み方をしたんで、やめとけ・無理すンな、と
そのAHKとかWin32API叩く方法が、左程メインのシステムに影響を及ぼさず問題無く解決できる手段だとするなら
相談者もそっちにすがった方がいいんだろう　どちらを選ぶかは相談者次第　とりまkeycodeのリンクは貼った

2023/05/17(水) 13:12:55.03

今来てよくしらんけど、ExcelでRPAもどきなんてするもんじゃねえなと思いましたまる

2023/05/17(水) 13:35:49.51

予めリスクのコストを計れるならやらない手は無いだろうけど、住人の指摘で「まさにそれ」って応じてるレベルなら
後先顧みずに無鉄砲な操作が先走ってるということでもあり、めくら蛇に動じずの喩えにハマってるようなもの
本職だって他社のシステムと云われた途端にそれなり身構えるものだろ？
リスクコストそっちのけで「こうしろ」だの「ああしろ」だの無責任に言い募れない　だからやめとけと
　うん、こう書いた方がかっちょ良かったかも　上のカキコは無しで

2023/05/17(水) 13:57:52.40

そもそもSendkeysってキーボードの操作をアクティブなウィンドウに送信してるだけなのに『いぢくりまわす』ことになるの？
リスクって何？
それがダメなら手入力での作業も出来ないでしょ。
あと作業時間が1/3になってるんだから実際に効率UPしてるワケで『それなりに業務をこなしてきただろう人物が～効率化を成し得た』は意味不。
手書きと電卓のどこが効率的なの？
まぁ～やり方が強引なのは間違いないけど。

2023/05/17(水) 16:25:11.69

comがあるならセンドキーは愚策でしょ

しらんけど

2023/05/17(水) 16:30:50.87

ちょっと囓っただけの知ったかが色々やらかしてくれるのはよくある

2023/05/17(水) 19:06:16.88

>>343
素人が勝手に作ったマクロをその内容も知らずに別の素人が使ったらどうなると思う？

2023/05/17(水) 20:35:36.27

>>346
そんなのマクロに限った話じゃない
素人がシュレッダーで書類切っちゃったらどうするとか、
素人が容量超えてるコンセントにプラグ刺しちゃったらどうするとかいちいち考えてるの？

2023/05/17(水) 21:03:27.97

師匠がSendkeysは使うなって言い残してたからそれに倣ってたけど、他アプリにも使える
https://excel-ubara.com/excelvba1/EXCELVBA421.html　　　みんな大好き神髄サイト
>>340　は一行目が相談者で、二行目は経験者の>>324　を対比させてる
操作する相手のアプリが見知ってるモノなら万が一を回避できるかも知らんが、業者が納めたガチガチのシステムだと
どんな仕様かも不明の上、どのキーに何が割り振られてるか知れたもんじゃ無い
メンテ用とかで隠しコマンドとか埋め込まれてた日にゃあ(まあ、キー１個に割り振る事は無いだろうとは言え)
たまたま1/3で済ませられてても、イレギュラーな運用には違いない　壊した時のことを懸念してるだけ
キチンと上司上長の許諾を得てからの改良なら >>324 が手取り足取り教えてくれるかも知れない

2023/05/17(水) 21:34:13.85

>>347
こういう馬鹿が問題を引き起こす

2023/05/17(水) 22:03:25.31

>>349
世のユーザーRPAほぼ全否定することになるじゃん

2023/05/17(水) 22:40:10.64

最近はVBAユーザーは神髄さんのサイトに移行しつつあるみたいね。
どこかのちょいちょいやらかし有名老舗サイトが超されるのも時間の問題

2023/05/18(木) 00:44:58.59

>>350
だから、「ノウハウもない能力もない素人が勝手に」が問題なんだろ

2023/05/18(木) 02:00:11.23

ユーザーRPA製品の売り文句知らなそうだな
誰でも簡単に作れるのをウリにしてるってのにｗ

2023/05/18(木) 02:32:12.49

>>353
馬鹿はRPAがそれが理由で下火になって撤退が相次いでいることを知らんのだな
結局素人が作ったものは使い物にならないとか問題を引き起こすことがわかったからだぞ

2023/05/19(金) 18:19:33.08

>>354
うちの会社でも馬鹿が一生懸命量産してるよ
これが自動で出来るようになりました！
って画像認識たっぷり含んでてHTML・CSSも知らないもんだから
サイトのフォントがちょっと変わっただけで
ストップするようなRPAが大量に作られてる

2023/05/19(金) 18:58:32.43

>>355
そいつがその実績()を活かして転職して、残ったやつが嘆く姿が見える

2023/05/19(金) 19:25:48.13

>>356
そういうやつの例が>>353というわけだ

この手の「素人でも～」というツールは結局素人とか素人に毛が生えただけの知ったかが使って混乱を引き起こすだけ
わかる人が作っても、ツールの仕様を他の誰かが理解していないとメンテ不可能になって終わる

2023/05/19(金) 21:52:10.05

スレタイ読めない奴に比べればみんな玄人よ

2023/05/19(金) 23:28:52.13

自分でRPAの話しを出しておいて悔しかったからと捨て台詞

2023/05/20(土) 01:03:14.01

皆、キャノンのWebPerformer の仕事は嫌がる

この技術を覚えても、使い道がないから

2023/05/20(土) 02:10:46.12

毒吐きw

2023/05/21(日) 05:14:29.94

黒画面に緑文字ってAS400じゃないの?
元からマクロ機能あるでしょ

2023/05/21(日) 07:46:37.80

>>362
あるしコードはVBS使えるからスレの内容は必ずしも無駄にはならない

2023/05/21(日) 21:40:01.65

AS400ってまだ現役なんだ

2023/05/21(日) 22:08:02.77

名前が変わったことも知らないにわか

2023/05/22(月) 20:51:05.95

行数が同じ配列A,Bがあります
VBAで、ワークシート関数で言うとhstack(A,B)みたいな事がしたいのですがどう書けば良いですか

2023/05/22(月) 21:11:33.19

Function hstack()

2023/05/27(土) 20:53:59.53

>>366

二次元配列の列方向に連結したい、と。
配列AとBが同じ行数という前提なら、
こんな感じのコードで実現可能かと。

Dim C() As Variant
ReDim C(1 To UBound(A, 1), 1 To UBound(A, 2) + UBound(B, 2))

For i = 1 To UBound(A, 1)
For j = 1 To UBound(A, 2)
C(i, j) = A(i, j)
Next j
For j = 1 To UBound(B, 2)
C(i, j + UBound(A, 2)) = B(i, j)
Next j
Next i

これでCがAとBのhstack(A, B)に
相当する配列になるはず。

2023/05/28(日) 01:44:19.65

拡大率が違う画面を複数使ってるとコマンドボタン押せなくなるのはどうにかならんの?
100%と150%で使ってると、後者ではボタンがきかず、エクセル画面を前者側に持っていくときくようになる。

2023/05/28(日) 03:17:02.66

それで解決でいいんじゃね

2023/05/28(日) 20:56:12.40

おおかた、モニターがスクエアだった時分のを未だに使わざるを得ない環境なんだろうが
150%になんかしないといけない環境を、いち早く改修することのが先決
そもそもディスプレイのカスタムスケーリングをしようとすると「テキストやアプリを読み取ることができなくなる云々」と
メッセージされる　それを突破して設定してンだから、文句を言う筋合いじゃ無い
それとも、Excelの画面だけ150%にしてる？　それだとちゃんとボタン押せるが？

2023/05/28(日) 22:26:37.23

カスタムなんかしてないよ。
推奨が150%なんだわ。
会社で支給されたノートPCがフルHD、
自分が持ってるサブモニターが4Kなのでそんなことになってる。
しょうがないから4Kの方を100%にして合わせてるんだけど、んまー文字が小さいこと。

2023/05/29(月) 07:42:06.26

>>371
高解像度PC使ったことなさそう
Surfaceなんかもデフォルト150%だぞ

2023/05/29(月) 10:35:10.47

どーもすいませんでした　ボタンが押せないとかいう症状から勝手に憶測で書きました
じゃあ4KでExcel側を400%とか500%とかにしてもボタン押せない？
押せるような工夫が必要なんだから、押せる方のモニタ使うのとは別の解決が必要なんだろうし

2023/05/31(水) 07:32:30.31

🐈

2023/05/31(水) 08:49:25.09

すごーく初歩的な事を聞いて申し訳ないですが
エラーが発生した時にどこで発生しているのか、どこで処理が止まっているのかを必ず表示させるにはどうしたらいいでしょうか？

2023/05/31(水) 11:31:20.55

>>376
VBEを開けばエラーの場所が黄色くなってるはずだけど、そのVBEを開く作業まで自動化したいって質問ならそれは不可能

2023/05/31(水) 12:41:48.22

プログラムが正常に動かないからエラーがでる
入力ミスなら入力時チェックを入れればいい

2023/05/31(水) 12:43:14.88

on error ～もあるか

2023/05/31(水) 16:14:37.52

>>376
エラー処理を何も書かない。
そうすれば実行した際に
エラーが発生した箇所が黄色くなって止まっているはず。

エラー処理を付けたいのであれば、
エラーが発生した際の表示文言に
エラー内容、モジュール名、関数名等を
記載するようにする。
コードの何行目で発生したのかは
以前色々試したことがあったけど
結局上手く出来なかった。

なのでエラー行を捕まえることが出来たら
その方法をむしろこちらが教えて欲しいくらい。

2023/05/31(水) 19:46:37.97

度々すみません
mac os でsaveusメゾットを実行するにはファイル毎にアクセス権を付与する必要があると聞いたのですが本当なのでしょうか？

2023/05/31(水) 19:55:27.32

>>381
saveusじゃなくてSaveAs
メゾットじゃなくてメソッド

2023/05/31(水) 21:42:18.20

Application.Wait (Now + TimeValue("0:00:05"))でデータを随時取得すると
その間、エクセルでほかの作業が出来ないことが困っています。
他の作業をやりながらデータを定期取得する方法はありますか？

2023/05/31(水) 23:30:04.64

>>383
Excelだけでは同時進行は無理
Googleスプレッドシートとか別の方法と組み合わせるしかない

2023/06/01(木) 08:10:10.71

>>384
無理ですか。別でPC使用してやってみます。
ありがとうございました。

2023/06/01(木) 08:24:47.14

alt押しながらExcelを別インスタンスで起動すればできるんじゃね

2023/06/01(木) 16:19:44.21

じゃね　じゃなくてできるけど、誰かさんが嘘を回答してしまったので、質問者は去ってるな
同じファイルだと読み取り専用に成っちゃうけど
活発なスレならすぐさま誰かがいちゃもん付けてくれるけど、寂れてるとそれも叶わない
そんなのが繰り返されると雪だるま式に過疎ってしまう　諸行無常って奴か
アホの子が建ててる方のスレだと雑談だらけだけど、稀にまともな質問回答も混ざって来る　こちらを活性化すべき

2023/06/01(木) 19:57:38.15

>>386
>>387
まだいます。
別インスタンスというワードを初めて聞きました。
ググってみたら色々出てきたので調べてみます。
分からないことがあればまたお願いします。ありがとうございました。

2023/06/01(木) 20:41:09.09

>>388
別インスタンスはタスクマネージャ見るとわかるけどExcel.exeを複数起動する話
普通はブックをダブルクリックなんかで開くと1つのプロセスで複数ブック開くからブック間のシート移動なんかができるけど
複数のプロセスになるとそれができない
それとダブルクリックで開くとWait中のブックで開こうとしたりするから開くときはファイルを開くで開かないとだめとか注意が必要
まあVBAの話というよりExcelそのものの話だからソフトウェア板のExcelで聞いたほうがいいかもね

2023/06/01(木) 21:47:01.00

相談されたのでここで相談させてください。
毎日製造部の自動画像判定機のデータが3000枚くらいjpgで排出される
OK、NGの判定をjpgのデータ名に取得してくれればまだいいのに
まさかのこっちは判定するだけ、こっちは写真取るだけという連動してないゴミ仕様
jpgは日付時刻のみ、
抽出やふるい分けをするのに
画像の特定の部分の色が赤か緑かでRGB処理させるのは化石すぎるかな？

素直にpythonや他のツール使うべき何だろうけどVBAで何とかしてきたおじさんだから今更新しいのは頭に入らない、、

2023/06/01(木) 22:04:21.98

そうね
excelには.Netで言うBackgroundWorkerみたいな機能がないからマルチスレッド処理みたいなのやるにはちょい頭使わないといけない。
比較的お手軽なのはVBS立ち上げてそっちから今開いているお目当てのEXCELに書き込んでやることかな？
VBSなら文法はVBAと一緒だし、変数はスカラー変数だったりVBAみたいにトレースが出来なかったりとかちょい面倒な面もあるけど、
こなれた言語だからググれば方法はすぐ出てくると思うよ。

2023/06/01(木) 22:25:20.11

>>390
その自動画像判定機メーカーお薦めのアプリとかあるんじゃないのか？　新旧メーカー雑多に混在してるとか？
毎日3000枚を一枚ずつシートに読み込んで判定してくとか考えてる訳じゃあるまい？
そもそも、NGをその場でハネるために撮影してるんじゃないのか？　OK・NGまとめて流して、後で画像で判定？
非効率も甚だしい　社長に直談判して専用アプリ入れるのが長期的な目で見ても賢明
　あと、出来もしないことは請けないように　まだ相談の段階だからいくらでも断れる

https://vbasokkou.dokkoisho.com/bmp.html
https://vbaexcel.slavesystems.com/vba/?p=404
https://mamesand.com/image/image_processing_j.html　こういうのに目を通して容易に理解できそうなら引き留めないが

2023/06/01(木) 22:36:33.54

>>390
相談相手がお前しかいない会社なの？

2023/06/01(木) 22:46:12.33

VBAしか知らないような半端な知ったかに業務システムを組ませるとロクなことはない

2023/06/01(木) 22:52:25.93

>>390
残念ながら君には無理
引き返す勇気も必要

2023/06/01(木) 23:42:56.50

>>392
ありがとう
これ使えるわVBAでいけると確信

2023/06/02(金) 11:45:15.15

待て待てw　あくまでもVBAで画像ファイルを扱うサンプルってだけだぞw
実務に載せるにはこれを踏まえたうえでとんでもない工数必要なのを、この時点で予想できんのか？
日に3000枚だろ？　まあ、やりたきゃどうぞだけど、またこれでひとつの企業の発展が遠退くわ

2023/06/02(金) 12:55:53.88

VBAしかわからんくせに自信を持ってるような奴に何を言ってもむだ

2023/06/02(金) 13:47:19.23

＞化石すぎるかな？
質問はこれなんだからYesかNoを返してやればいいんじゃね
VBA自体は化石言語（ツール）でもなんでもないからNoだろ

そもそも今までどうやって（どの程度の時間で）3000枚/日のjpegを処理してたかわからんけど
それが大幅に改善できるならなんでもいいんじゃね

2023/06/02(金) 14:21:36.48

いや、今まで作ったプロシージャと応用したら出来たわ
社内での正式運用するソフトの提案は情シスに投げといた
自部内の常用してない共用パソコンで動かしたらいつの間にかふるい分け全部出来てた
最適ではないけどVBAおじさんでいいわ

2023/06/02(金) 15:10:31.04

実は優秀だったってことかなw

2023/06/02(金) 16:20:00.31

いや、実験レベルなら組めても実務で使うのとはことなる
そもそもエクセルなんか使ってはダメな例

2023/06/02(金) 16:36:38.41

よく見ろ　自演だ　しかもどーせ成りすまし
例示のリンク先も自分で見付けられないようなレベルで、教えられた翌日、半日で仕上げられる訳も無い
情シスに投げた？　情シスの仕事は？w　VBAロートルじじいに相談して、そ奴がこしらえたVBAをベースに
開発するのがお仕事か？　社内から要望 → 情シス → じじい → 情シス　なんちゅう経路だっつーの　そら、ITも衰退する訳だ

2023/06/02(金) 17:13:27.84

>>403
確かに自演だな
こういう奴が一番厄介
まあ、困るのはこんなのの言うことを信じる会社だからな
こうやって日本の品質が落ちていく

2023/06/02(金) 17:54:53.55

え？自演？そもそもどれが自演なんだ…
まさか>>402の人が書いた皮肉レスを文面通り受け取ってるのか…
トヨタグループティア1の品管だけど
情シスなんて社内の部署の細かい要望なんて聞いちゃくれんぞ
情シス仕事はこっちが聞きたいわ
勤怠システムや文章システム管理してるぐらいだぞ
中小は知らんが、自演なぁ…変なの

**401** (ｱｳｱｳｳｰ Sa8f-Nnh9) · 2023/06/02(金) 18:34:08.20

同じauだが別人な

2023/06/02(金) 18:40:49.45

問題解決に至るレスも満足にしないくせに難癖だけつける奴がこのスレ多すぎだよな
お前の方がスレの中で見たら無能なんだぞってわかれって感じ

2023/06/02(金) 19:28:50.89

触らない方が良い
触って貰うと嬉しくなって繰り返す、
話し相手のいないおじいちゃん達だから

2023/06/02(金) 20:39:35.69

>>408
女子高生かもしれんだろ

2023/06/02(金) 21:27:52.13

お願いします。
今日の日付を取得し、A列から一致する日付を探したいのですが上手くいきません。
表示形式を画像のように mm/dd(aaa) としているのが原因のようですが変更方法がわかりません。
ttps://i.imgur.com/yryvsxM.png

currentDate = Date

Set foundCell = ws.Range("A1:A" & lastRow).Find(What:=currentDate, LookIn:=xlValues, LookAt:=xlWhole)

2023/06/02(金) 21:51:56.45

>>410
Set foundCell = ws.Range("A1:A" & lastRow).Find(What:=DateValue(currentDate), LookIn:=xlFormulas, LookAt:=xlWhole)

2023/06/02(金) 22:21:57.45

>>411
出来ました。ありがとうございます。

2023/06/04(日) 20:38:17.04

初歩の質問ですが、シート増やしたりするマクロ組むと一瞬画面がガチャガチャして結果が表示されるんですが、何かバックで動作して結果だけ表示される方法はないですかね？

2023/06/04(日) 20:41:35.88

アプリケーションスクリーンアップデーティングファルス

2023/06/04(日) 20:56:59.39

>>414
ありがとうございました！できました。スッと表示されるようになりました。

2023/06/04(日) 21:02:56.12

>>414
ファルスってなんだ？滅びの言葉か？

2023/06/04(日) 22:08:59.86

falseをファルスと読む文化かな
nullをヌルと読むみたいな

2023/06/04(日) 23:43:18.94

>>416
滅びよ画面更新！という呪文

2023/06/05(月) 20:11:28.00

昔にこのスレかExcelスレか忘れたけど、フォルズなのかファルスなのか軽く揉めた事無かったっけ？

2023/06/05(月) 20:36:58.07

Appleをアップルなんて読むのはダサいみたいな？エポゥってか

2023/06/05(月) 20:40:41.18

ダークファルス「また俺かよ」

2023/06/05(月) 22:29:42.89

[　false　読み方　] Google

フォールス、またはフォルス

2023/06/06(火) 10:26:40.88

Elseも揉めた記憶
エルスと呼んでいる

2023/06/06(火) 10:51:50.21

それはw　小学生の英語ぢゃねーか　どうやったら間違えるんだ
独仏伊蘭どの言語でも無く英語でしか使わないってのに　耳文字でエウスってか？　それ言い出したら全部違うけど

2023/06/06(火) 12:26:16.59

あえて初心者のまねしてるだけだし

2023/06/06(火) 13:24:20.68

>>420
ウィンドウズωもかなり恥ずかしい表記

2023/06/06(火) 13:25:24.97

>>422
warning 読み方

2023/06/06(火) 13:36:23.12

Warning incoming missile!
ウォーニンインカミンミッソー！
で覚えた

2023/06/06(火) 13:56:33.46

Countif＝コウントイフと言ってるようなもんか？？

2023/06/06(火) 19:20:42.66

なかなか俺のファルス発言で盛り上がってるじゃないか

コンピューターに英語で話しかけてるわけではなく、所詮記号なんで覚えやすいファルスで頭の中は統されてるわ

それに Falseって普通の文章や会話で使ったことないし、フォルスを使わなくて困ったことないわ

2023/06/06(火) 21:23:43.30

兎に角
なんだかよくわからない
長ったらしい英単語は
アイエニューメラブルってよんどけ

2023/06/06(火) 21:43:42.66

https://www.youtube.com/watch?v=3H4y5ExBofk