Excel VBA 質問スレ Part83

**デフォルトの名無しさん** · 2025/06/08(日) 11:06:42.20

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

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

※前スレ
Excel VBA 質問スレ Part82
https://mevius.5ch.net/test/read.cgi/tech/1737657075/1

**デフォルトの名無しさん** · 2025/08/03(日) 17:18:18.76

>>592
だが断ります
>>593
そりゃ99.99%の一般人は579みたいな画像しか理解できないからでしょ
ところでごにょごにょとはなんですか?

**デフォルトの名無しさん** · 2025/08/03(日) 17:20:11.60

わたしがたくらんでる莫大なお金は
詰め将棋をAI的に生成させて
「詰将棋・問題数無限問!アプリ」を適正価格で大量に売り出すことだ

**デフォルトの名無しさん** · 2025/08/03(日) 17:40:57.05

詰将棋を自動生成するだけのプログラムならたしかもうあるんじゃなかったっけ。
手順の芸術性、棋力向上への有用性、解き味の良さなど、何らかの特徴でフィルタリングできる技術があるなら売れるかもしれないが、そうでないとあまりニーズがないんじゃない？

**デフォルトの名無しさん** · 2025/08/03(日) 19:55:58.55

.AutoFilterで指定の日付に一致で挑戦していますがdate型で一致を試みても一致しないのですね
DateSerial(指定の日付)ではダメで、
Format(DateSerial(指定の日付), "セル.Text") でないとダメなんですね
こうなるとセルの表示形式をvbaで指定して表示形式を完全一致させるしかなさそうですね。

**デフォルトの名無しさん** · 2025/08/03(日) 20:05:09.92

やっと会社のOfficeが365版になったけどすごいね、追加された関数
配列系の関数がかなり強化されたから普通にワークシート関数でpandasっぽい操作が色々できて快適

**デフォルトの名無しさん** · 2025/08/03(日) 20:10:32.84

>>598
パンダ🐼ズってなんですか？🤔
Power Queryでよくないでしょうか？

**デフォルトの名無しさん** · 2025/08/03(日) 20:25:55.74

>>597
できた
Range("A1:A32").AutoFilter field:=1, Criteria1:=">=" & DateSerial(2025, 8, 3), Criteria2:="<=" & DateSerial(2025, 8, 3)
※A2～A32：2025/8/1～2025/8/31

**デフォルトの名無しさん** · 2025/08/03(日) 20:34:53.53

>>598
てか、
普通にVBAでPython使えればいいのに…

**デフォルトの名無しさん** · 2025/08/03(日) 20:46:44.86

>>600
そうなんです
指定日に一致は.Text（画面上の表示）に合わせないといけないのに、
以上以下、
より大きいより小さいはできるんです
だからどうしてもdate型でやろうと思うなら、
DateSerial(2025, 8, 3) "=<" “>=”DateSerial(2025, 8, 3)
みたいにCriteria1とCriteria2を駆使しなければならない
だったらセルの表示形式も一時的でいいから一意に固定してそれでformat(date型,”指定した書式”)でCriteria1だけにフィルターした方が確実だと思うのです

**デフォルトの名無しさん** · 2025/08/03(日) 21:11:15.05

>>598
ACCESS使えるならお勧め
まあ何をDBでやると都合いいのか、からだが

**デフォルトの名無しさん** · 2025/08/03(日) 22:36:46.93

フィルターをするのもわソートをする事も一苦労な上に不正確というのがVBAの致命的な欠陥であり、ExcelがExcelたる由縁ではないでしょうか

**デフォルトの名無しさん** · 2025/08/03(日) 22:59:57.32

>>604
Execlは表計算ソフトだからソートという機能は重要ではなかった

フィルタも仕様を大きく変えたので、VBAがついてこれないだけ。

**デフォルトの名無しさん** · 2025/08/03(日) 23:00:50.98

>>604
Excelシートをテーブルに見立ててSQLで操作できるんだよ？

**デフォルトの名無しさん** · 2025/08/03(日) 23:30:27.42

VPageBreaks(1).Dragoff xlToRight,1

**デフォルトの名無しさん** · 2025/08/04(月) 06:52:45.16

テーブルのAutoFilterの絞り込みを解除するにはws.ShowAllDataではなくてtbl.AutoFilter.ShowAllDataだったのね

**デフォルトの名無しさん** · 2025/08/04(月) 07:58:56.26

>>603
Accessは次の2027でディスコン、後継はExcelのモダン機能使えって話だからな
今からAccess使い始めるメリットは僅少

**デフォルトの名無しさん** · 2025/08/04(月) 12:16:02.82

>>609
情弱w

**デフォルトの名無しさん** · 2025/08/04(月) 13:02:17.40

>>610
？

**デフォルトの名無しさん** · 2025/08/06(水) 12:21:48.06

そして時は動き出す

**デフォルトの名無しさん** · 2025/08/06(水) 19:01:16.26

と思ったがやっぱり止める

**デフォルトの名無しさん** · 2025/08/06(水) 19:03:13.54

普通にExcelを使用するならまず使わないAddress関数も、VBAならセルの指定やセルの範囲指定に使えるとやっと気づいて感動を覚えた。

**デフォルトの名無しさん** · 2025/08/06(水) 19:28:37.58

馬鹿自慢ですか？

**デフォルトの名無しさん** · 2025/08/06(水) 19:51:44.79

>>587
なんとか、Seleniumでテーブルのデータ取れた
うれしい

**デフォルトの名無しさん** · 2025/08/06(水) 19:57:00.96

>>616
Power Automate Desctop使おう泣

**デフォルトの名無しさん** · 2025/08/06(水) 20:54:00.65

VBAのRangeと関数のINDIRECTはほぼ似た様なものだったんだ

**デフォルトの名無しさん** · 2025/08/06(水) 20:55:15.43

>>614
ADDRESS関数はワークシートで使うならINDIRECT関数と組み合わせると便利だよ

**デフォルトの名無しさん** · 2025/08/06(水) 21:22:56.67

ワークシートのセルに=D1:F10を入力します。
=を消します
あ〜ら不思議
Range()に使える文字列になります震え声
知らなかった

**デフォルトの名無しさん** · 2025/08/06(水) 22:10:53.86

>>619
以前は揮発性関数を使っていると、クローズする時
変更してなくても「変更を保存しますか？」と聞かれてウザかったけど、最近はそうならなくなったね

**デフォルトの名無しさん** · 2025/08/06(水) 23:12:12.97

>>621
あれ糞うざいよな
もう地球に隕石落ちて滅びれば？って思うほどイラつくよ

**デフォルトの名無しさん** · 2025/08/06(水) 23:32:51.54

>>621
よくそんなことに気づきましたね…
そんなことばかりで、最近はもう、ちょっとした違和感は無視する習慣がついてしまって
いけないことですが

**デフォルトの名無しさん** · 2025/08/06(水) 23:45:43.54

Range(“A1”,”B10”).Selectでも良かったんや
知らなかった
Range(Cells,Cells)で指定すると言えばそうだけど

**デフォルトの名無しさん** · 2025/08/07(木) 07:28:20.30

>>624
馬鹿であることを告白して楽しいの？

**デフォルトの名無しさん** · 2025/08/07(木) 10:21:30.31

馬鹿なことすら書けない人が、誰よりもいちばんみじめ
みじめに目鼻口を描いたら>>625の似顔絵のできあがり

**デフォルトの名無しさん** · 2025/08/07(木) 10:48:34.98

>>626
んなこたーない
馬鹿なことでも有意義な発言はあるけど、
ID:Cijl6HjHは馬鹿な上に日記でしかなくここに書くべき内容ではない
スレタイすら読めない馬鹿は惨めというよりもはや可哀想

**デフォルトの名無しさん** · 2025/08/07(木) 10:51:06.38

でも年収400万とかなんだろ？
誰々が馬鹿とか以前に底辺はね…

**デフォルトの名無しさん** · 2025/08/07(木) 12:50:03.07

年収1億だろうが1,000億だろうが、バカはバカ
アカンよ？
二宮尊徳の通俗道徳洗脳にまんまと嵌まって、「金持ち＝エラい」とか思い込むのは

**デフォルトの名無しさん** · 2025/08/07(木) 14:41:21.36

じぶんのカキコは書き込むべき内容なん？
べき内容ってどんな基準なん？　だれが決めてるん？　勝手な思い込みだろ？
みじめな上に憐れで恥ずべき人間なのはどっち

**デフォルトの名無しさん** · 2025/08/07(木) 16:05:30.00

>>630
スレタイもテンプレも読めない人間ですって自己紹介する人間は当然ローカルルールも読めないもんな
日本語を意味でなく文字で理解するとこういうバカになるんだな

**デフォルトの名無しさん** · 2025/08/07(木) 17:41:57.70

>>630
馬鹿は消えろ

**デフォルトの名無しさん** · 2025/08/08(金) 16:23:54.91

でも、先輩のクレバーな回答とか作品とか、このスレで一度もお目に掛かったこと無いですよね？
それはどうしてなんですか？

**デフォルトの名無しさん** · 2025/08/08(金) 18:29:28.89

そりゃセンスも無い年収も低い参考書で覚えただけの奴がドヤってたからだよ

**デフォルトの名無しさん** · 2025/08/08(金) 18:40:58.74

>>633
お前の馬鹿な日記よりましだろ

**デフォルトの名無しさん** · 2025/08/08(金) 19:39:10.06

目くそ鼻くそ

**デフォルトの名無しさん** · 2025/08/08(金) 20:25:56.31

アホな質問にこたえるとなるとどうしてもアホな回答になるから仕方ない

**デフォルトの名無しさん** · 2025/08/08(金) 20:54:05.55

アホな質問はアホが質問するだけに内容も浅く簡単な内容　だから似たような有象無象のアホがこれなら俺も答えられるとアホな回答が続く
悪貨は良貨を駆逐する

**デフォルトの名無しさん** · 2025/08/08(金) 21:55:45.55

せめて年収制限しようぜ
600万以下は質が下がるから質問に答えないで

**デフォルトの名無しさん** · 2025/08/09(土) 00:11:04.59

600万以上のスペシャル回答見せてみろ

**デフォルトの名無しさん** · 2025/08/09(土) 07:45:35.58

760万の俺に任せろ

**デフォルトの名無しさん** · 2025/08/09(土) 16:29:44.93

なら、質問回答形式じゃ無くていいから、じぶんの作品のうちベスト５から
どれか見繕ってサンプル見せてくださいよ　一部でいいから
最近半年間とかでじぶんでも上出来！と絶賛した処理でもいいっスよ
記憶も薄れたけど、あの時あんな処理して難を逃れたとかいう経験談でもいいし
　どれひとつ書けない人達が他人を冒とくしてるだけでしょ？

**デフォルトの名無しさん** · 2025/08/09(土) 16:40:10.00

クマを殺処分した自治体とか、学歴偽装で市長当選させた役所とかに
まったく自分には何の関係も無いのに迷惑イタ電しまくる層とおんなしレベルでしょう？
IQが低いのか産まれ持ったDNAが似通ってるのか育った環境が劣悪なのか
今現在の生活レベルがどん底なのか知りませんけど、いったい何に突き動かされてそんな事ばかりするやら
もはや迷惑行為する事こそが生きる術みたいに成り果ててますけど、いいんですか？
まぁ、いいんでしょうね　本人にとっては　そうでなきゃ、こんな迷惑行為し続けるのにも飽きるはずですし

**デフォルトの名無しさん** · 2025/08/09(土) 16:53:28.10

常に直近50件の最新データをX-MRグラフに出力させて異常判定があったら任意の信号を出すシステム

三次元測定機で全項目をフォーマットに反映させて寸法の合否判定を自動で出すシステム

毎日配信される受注データから指示書に自動振り分けさせて情報をマスターと比較して客先を変換
数量は同一のものはまとめるシステム

ここらは賞取ったから記憶にあるし最近まで追加依頼がきてたものもある
出世する前から構文がどうだとか気にしたことはないかな

**デフォルトの名無しさん** · 2025/08/09(土) 17:19:54.04

いつもの人だぞ

**デフォルトの名無しさん** · 2025/08/10(日) 16:16:25.84

ここで長文書く人はだいたいあたおかさん

**デフォルトの名無しさん** · 2025/08/10(日) 16:25:32.82

VBAも単発処理しか作ったことないもんなお前らって…

**デフォルトの名無しさん** · 2025/08/10(日) 17:04:13.27

>>647
「単発処理」って何？

**デフォルトの名無しさん** · 2025/08/10(日) 18:01:46.64

LET関数はPower Queryの無名関数の様なものだったのか
IFSで条件が沢山ある時に、LETでそれぞれの条件に名前をつけたら可読性、保守性が上がるかなと思ったけど、特にそんな事も無かったな。
LET関数の最後にIFSの関数が入って、それぞれの名前を入れて、TRUEの時の文字列を入力する

**デフォルトの名無しさん** · 2025/08/10(日) 18:30:04.41

LET関数はPowerQueryのLET構文に相当する
PowerQueryの無名関数に相当するのはLAMBDA関数

**デフォルトの名無しさん** · 2025/08/10(日) 18:37:10.76

質問だが、
2次元配列arr2dがあったとして、
それ1次元配列として新たにarr1dに取り出せる？

forループ使わない方法で

**デフォルトの名無しさん** · 2025/08/10(日) 18:40:21.77

>>651
Doループを使え

**デフォルトの名無しさん** · 2025/08/10(日) 18:48:13.44

Excel VBAで2次元配列かどうのとか、学校の宿題なのかな？

**デフォルトの名無しさん** · 2025/08/10(日) 19:00:02.44

実践で活かす力の無い人から見たら何見ても学校の宿題に見えるかもね
気にしなくていいよ

**デフォルトの名無しさん** · 2025/08/10(日) 19:00:37.04

>>651
index関数とか
Transposeとindex関数
2次配列を崩して全て一次配列に直結したいならループを使うしかないのでは

**デフォルトの名無しさん** · 2025/08/10(日) 19:03:21.32

>>653
二次元配列滅茶苦茶使うと思うけど…

**デフォルトの名無しさん** · 2025/08/10(日) 19:21:15.32

>>655
WorksheetFunction.Index()ってやつ？
できたわ

ありがとう
Web解析で

**デフォルトの名無しさん** · 2025/08/10(日) 19:22:14.33

>>657
WorksheetFunctionってのが、
なんだか気持ち悪いが…

**デフォルトの名無しさん** · 2025/08/10(日) 19:33:30.05

>>656
Excelシートなのに？

**デフォルトの名無しさん** · 2025/08/10(日) 19:34:47.66

処理の途中を見せない、見えなくするのはテストをしない人間なんだろうな。

**デフォルトの名無しさん** · 2025/08/10(日) 19:47:08.98

>>658
WorksheetFunctionは普通の書き方ではないのでしょうか？
Matchは実はApplication.Matchもあると知っているのでWorksheetFunctionとは書きませんが
WorkshetFunctionと書くもの書かないものの違いが分かりません

**デフォルトの名無しさん** · 2025/08/10(日) 20:03:17.76

>>661
そうなんだ
ほとんど使った記憶ないわ

処理速度が同じならいいけどね…

**デフォルトの名無しさん** · 2025/08/10(日) 20:16:43.15

>>662
worksheet functionのMatch関数はエラーを返さないけど、
application.Matchの方はエラーを返すからVariant型で受け取ってエラーでなければ処理という書き方にしています
applicationで使える関数はapplication.関数名で使用した方が良さそう

**デフォルトの名無しさん** · 2025/08/10(日) 20:39:15.86

>>663
そうなんですか

WorksheetFunctionはなんか気持ち悪いですね…

**デフォルトの名無しさん** · 2025/08/10(日) 21:21:52.76

>>659
シートだからこそだよ
二次元配列をワークシートで代替しようとしたらクッソ遅くてイライラするだろ
配列で処理したら一瞬で終わるような処理もワークシート使うと数分かかったりする

**デフォルトの名無しさん** · 2025/08/10(日) 21:57:45.70

>>665
それだとExcel VBAでやる理由がないだろ？

**デフォルトの名無しさん** · 2025/08/10(日) 22:11:09.99

>>666
お母さんに何でもかんでも聞いてそうだな
VBA以前の問題だよ

**デフォルトの名無しさん** · 2025/08/10(日) 22:33:15.93

>>667
Excel VBAの話だろ？

**デフォルトの名無しさん** · 2025/08/10(日) 22:37:43.66

Excel VBAは廃止の方向だとわかってないのかな？

**デフォルトの名無しさん** · 2025/08/10(日) 22:57:37.35

まだ学生だろうし色々聞くのはありだと思うよ
社会に出る前にエクセルに触れてる時点で有利

**デフォルトの名無しさん** · 2025/08/11(月) 01:56:36.28

>>669
廃止？どこでそんな話しになってるの？

**デフォルトの名無しさん** · 2025/08/11(月) 09:10:35.62

>>664
勘違いしないで欲しいのですが
そもそもVBAはアマチュアが使用している言語だから、そもそもApplication.Matchがある、WorksheetFunction以外にExcelの関数のオブジェクトがある、とは知らない人が非常に多いと思います。
気持ちいい、気持ち悪いの問題ではないです。
それに、Application.関数名で使用できない関数は非常に多いのではないでしょうか？
でもExcelである以上、worksheet関数にも熟知して、使用できる方がコードも完結で、動作も早いのではないでしょうか？

**デフォルトの名無しさん** · 2025/08/11(月) 09:20:05.48

>>666
マジでその認識か
シートのデータを二次元配列に入れて加工して、
最終的にシートに戻すんだよ
まさかテンポラリーシートみたいなダサい手法使って加工するの？まさかね
>>669
VBA廃止はとっくに取りやめになったよ

**デフォルトの名無しさん** · 2025/08/11(月) 10:10:32.15

arr = Range(範囲)で取り込んで処理をして結果をシートに貼り付けるのはとても高速だと思う
だけど今度は数式を多用している場合はそのまま貼り付けるわけにはいかない泣

**デフォルトの名無しさん** · 2025/08/11(月) 12:02:58.75

>>671
推奨しなくなってきてる
Automateなんちゃらに移行したいのかな？

**デフォルトの名無しさん** · 2025/08/11(月) 12:17:41.76

>>672
そうでしたか…
まあ、処理は一瞬ですね
web解析とかだけど。

**デフォルトの名無しさん** · 2025/08/11(月) 12:45:34.69

10秒かかってたのが配列にしたら10倍速くなって1秒で終わった

その9秒って意味あんの？
朝10分早く起きた方がずっと有意義な1日を送れるよ

**デフォルトの名無しさん** · 2025/08/11(月) 12:50:39.67

VBAでデータ加工してる人ってまだいるんだな
スピルでサクッとスマートにできるのに
最近VBA使うのは入出力の自動化くらいだ

**デフォルトの名無しさん** · 2025/08/11(月) 13:58:36.48

スマートというよりただの仕事出来ない奴って感じ

**デフォルトの名無しさん** · 2025/08/11(月) 15:45:14.02

= A1:A100 = 条件
というのは真偽値の配列を返しているのですね
これを活かして
arr = Evaluate(アドレス & “=“”条件”””)
をすればループをしなくても真偽値が取得できる

worksheet関数のFilterの正体は、配列に対して二次配列の真偽値がTrueの行だけを抽出しているだけだった

**デフォルトの名無しさん** · 2025/08/11(月) 15:45:48.34

>>677
10秒の例を出すのがおかしい

**デフォルトの名無しさん** · 2025/08/11(月) 15:46:25.33

>>678
Power Queryを使いましょう

**デフォルトの名無しさん** · 2025/08/11(月) 15:54:22.73

>>682
Power Queryって、
VBA内で使えますか？

webページからテーブルとかデータを取得したい場合に

**デフォルトの名無しさん** · 2025/08/11(月) 16:17:24.33

>>683
.RefreshAllで全て更新くらいしか知りません
しかもバックグラウンドの更新のチェックを外す必要があります

**デフォルトの名無しさん** · 2025/08/11(月) 16:30:25.98

>>671
VBA廃止し代わりにpythonにするという流れがあったけど、
優秀なpythonのアドオンがあり車輪の再発明になりかねないから取りやめ
具体的に挙げられたのはxlwingsとopenpyxl
でも開発の成果からPython in Excelが導入
上記は全てMS開発者ブログより

**デフォルトの名無しさん** · 2025/08/11(月) 17:29:29.24

Excel内でPython使えてワークシートをData
Frameとして簡単に扱えたら最高に便利だろうね
エディタがJupyterのようなノートブックなら最高
なんちゃってデータアナリスト市場を総取りできるくらいのポテンシャルがある

**デフォルトの名無しさん** · 2025/08/11(月) 17:32:34.66

>>686
Excelで、
PythonでAIが作れたらええよね

今は、橋渡しが必要だけど

**デフォルトの名無しさん** · 2025/08/11(月) 17:49:27.36

>>685
で、それが
>Excel VBAは廃止の方向だとわかってないのかな？
という書き込みと何の関係が？
いつ廃止の話しになったんだ？

**デフォルトの名無しさん** · 2025/08/11(月) 18:37:53.96

今更ながらRange.RowsとRange.Columnsを知った
やっと変数rngの中のセルの場所からrngの行全体や複数行の指定の方法を知った
rngの中の指定の列から指定の列までの範囲の指定の方法も知った
もっと早く教えて欲しかった
どのサイトを見てもRange(セル)かRange(Cells,Cells)かCellsばかり
.EntireRowと.EntireColumnは専ら行の高さや列幅変更の時に使用するだけ
.Intersectも正しくは交差するセルの範囲取得なのにもっぱらチェンジイベントで
If Not Intersect(Target,対象範囲) Is Nothing Thenでチェンジしたセルが対象範囲内か調べるだけ
AIに聞いても答えてくれない

**デフォルトの名無しさん** · 2025/08/11(月) 18:42:10.74

>>689
無能自慢

**デフォルトの名無しさん** · 2025/08/11(月) 19:03:14.47

>>689
F2でオブジェクトブラウザ出して色々見てみ
知らないこと山程出てくるから
検索も活用することあると思うぞ

**デフォルトの名無しさん** · 2025/08/11(月) 19:25:51.27

>>691
やっとオブジェクトの階層？を理解したレベルなんです
サイトを引用しますが
https://papasensei365.com/excel-filtermode-showalldata/
例えばテーブルをshowalldataした時にエラーになる事があります
このサイトの結論はshowalldataする前にテーブルをセレクトするとエラーにならないとか、tbl.autofilter.showalldataするほどでもない、とか、AIに聞いてもshowalldataはworksheetのメソットで、それ以外ではエラーになる（嘘）とか言いますが、tblのオートフィルターはtbl.autofilterだから、tbl.autofilter.showalldataしか正しくないです。
やっとローカルウィンドウの正しい見方が分かりました。

**デフォルトの名無しさん** · 2025/08/11(月) 19:26:26.31

>>691
オブジェクトブラウザの見方がわからないです
クラスとかメンバーとか分かりません