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/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
オブジェクトブラウザの見方がわからないです
クラスとかメンバーとか分かりません

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

dicのアイテムに複数の値を代入したくて、配列をアイテムにするとか、クラスモジュールを配列にするとか、いろいろ考えてきましたが、正しくは
dic.add key rng.rows(i)
dic(key) = Union(dic(key),rng.rows(i))

あとはdic(key).areas(i).rows(j)

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

>>688
俺は>>673だよ
VBA廃止は取りやめになったと指摘してる側

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

>>693
クラスは箱、メンバーは箱の中身
そこにあるのは設計図だけなんで、使う時は実際に用意しないといけない
その実物がインスタンス

**デフォルトの名無しさん** · 2025/08/12(火) 00:01:50.98

>>693
そこはある程度覚える必要はある
例えばsheetsとsheetの関係のように
グラフはcharts、chart
グラフの軸は左のクラスでchart選ぶと右のメンバーにaxesが見つかるとか
（イベントやプロパティを示すアイコンも参照）
上記で言うとaxes、axisな関係
英語得意ならわかりやすいと思うけど、オレはバカなんでaxisってバイクあったなとかw
chartの下にはもちろん折れ線や凡例などを設定する項目もあるから、一つずつこれ何だってたどってもいい
わからなければF1でweb helpも出る
辞書をめくりながら眺める感じか

**デフォルトの名無しさん** · 2025/08/12(火) 00:10:24.57

参政党「エクセルなんて知りません。」

**デフォルトの名無しさん** · 2025/08/12(火) 01:17:15.36

昔はヘルプにこういうの載ってたんだけど、Webヘルプになってなくなっちゃったんだよね
https://euc-access-excel-db.com/00000WPhtml/Excel2000-obj-model01.png

**デフォルトの名無しさん** · 2025/08/12(火) 02:00:38.03

>>697
クラスとメンバーについて覚えるのはいいんです
そもそもクラスってなに？メンバーってなに？というそこから？な初歩的な話です
インスタンスと聞くと、インスタントコーヒーとかインスタントカメラを思い浮かべるレベルです

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

いつものあれか
消えろや

**デフォルトの名無しさん** · 2025/08/12(火) 06:53:17.47

>>701
いつまで経っても人を馬鹿にする事しかできないクソなんですね

**デフォルトの名無しさん** · 2025/08/12(火) 08:22:12.43

>>700
そういうのはAIに何度も訊いて理解しようとするのが良いよ

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

その人は、深夜丑三つ時に成ると出て来る幽霊だから何を言っても通じない
よっぽどこの世に恨みを持ったまま亡くなられたんだろう
厄介なのはお盆の時期だけじゃなくて一年中ボワ～ッと現れるところ
もはや妖怪

**デフォルトの名無しさん** · 2025/08/12(火) 16:48:12.38

またウスノロが日記を書いているのか

**デフォルトの名無しさん** · 2025/08/12(火) 20:28:41.57

>>699

多すぎて、表示しきれないからじゃないの？
見やすいけど

**デフォルトの名無しさん** · 2025/08/12(火) 20:57:31.80

いや日記を書いているのはハゲマヌケだ

**デフォルトの名無しさん** · 2025/08/13(水) 00:23:09.89

>>699
そうそう、これ必須
ACCESSやword等もあるので探して保存お勧め

**デフォルトの名無しさん** · 2025/08/13(水) 05:48:10.25

>>708
そういう話じゃないぞ？

**デフォルトの名無しさん** · 2025/08/13(水) 05:57:47.33

>>708
Listobject載ってないじゃん

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

Go To君の日記スレ

**デフォルトの名無しさん** · 2025/08/13(水) 08:00:07.22

テーブルはExcel 2003でリスト機能という名前で登場したらしい
ListObjectというわかりにくい名前もその名残りか

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

今回のUpdateで挙動不審に成るマシンがそこそこ出る模様
休み明けのオフィスは阿鼻叫喚
同じ64bitマシンだけど、出るのと出ないのが混在してるが原因追求を阻害しそう
ま、中の人が頑張って今週中に修正Update出れば安泰かも知らんが

**デフォルトの名無しさん** · 2025/08/13(水) 18:28:01.15

>>711
VBAでIFをネストせずに次のループに進ませる方法を知りたいです
条件に合う場合のみ処理を行うとか、条件に合わない場合は処理を行うとかではなく、ifをネストせずに次のループに進む方法を

私は今までコードに書くことは全てハードコーディングだと思っていたのですが違ったのでしょうか？
例えば設定値はシートや外部ファイルにかけると思います
しかしどこに値があるのかをコードに書かなければならないし、これはハードコーディングだと思うのですがどうなのでしょうか？

**デフォルトの名無しさん** · 2025/08/13(水) 18:33:50.14

GTP-5にお尋ねしても、
「VBAで条件に合わない場合に「その処理をスキップして次のループへ進む」には、`Continue For` 相当の書き方を `GoTo` や `Exit` を使って実現します。
（VBAには `Continue For` や `continue` という構文がないため、工夫が必要です）」
と回答されます
条件に合わないなら　IF 〜 Then Exit Sub で処理を即終了するか、
IF 〜 Then continue
で即次のループに進めるのが筋で
ifをネストするのはおかしくないですか？

**デフォルトの名無しさん** · 2025/08/13(水) 19:18:09.37

ウザい
消えろ

**デフォルトの名無しさん** · 2025/08/13(水) 19:37:15.77

>>715
それが筋なら continue書けるようにすればエエんやで
やり方は自分で調べてな

**デフォルトの名無しさん** · 2025/08/13(水) 19:58:16.76

>>714
> 次のループに進む
まずこれが何言ってるかわからん

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

continue文が欲しいという意味なのか？
面倒くさいけどFor-Do構文ぐらいしかないんでは

For I = 0 To 5: Do
MsgBox I & ""
If I Mod 2 = 0 Then Exit Do
MsgBox I & " odd"
Loop Until 1: Next

**デフォルトの名無しさん** · 2025/08/13(水) 20:50:16.40

馬鹿がねちねちくだらないことをしつこく質問して馬鹿が答えるループ

**デフォルトの名無しさん** · 2025/08/13(水) 21:09:54.26

フローチャートとして書いたら凄まじいことになる設計なんだろうな

**デフォルトの名無しさん** · 2025/08/13(水) 23:05:21.30

最近VBA書いてないから改めてcontinueないってことと
コイツは一体どんな設計のコードを書いてるんだ？
となった

**デフォルトの名無しさん** · 2025/08/13(水) 23:26:00.60

>>722
初心者だからネストし続けるコードを書いているだけだと思われる。

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

処理の流れが頭の中で整理できてない
初心者あるある
Ifから抜ける方法じゃなくて、それ以前のところに問題がある

**デフォルトの名無しさん** · 2025/08/14(木) 02:36:12.63

そう
例えば境界人とか