Excel VBA 質問スレ Part78

2022/10/30(日) 13:43:16.31

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

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

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

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

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

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

2022/12/20(火) 13:27:22.78

>>436
やはりピボットかぁ
俺、VBAでピボットとテーブルを制御するの苦手なんだよねえ
ちょっと練習するわ

>>437
私はPythonを使えぬのだ！
勉強してみたいけどね

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/20(火) 14:09:44.13

>>439
vbaとピボットの組み合わせが結構めんどくさいのは同意だけど、
そもそもピボットならvbaいらなくないか？

2022/12/20(火) 14:31:05.94

>>440
仰るとおり単なる集計だけならVBAいらないのだけど、
>>435に書いた通り既定の集計表に沿って作成する必要があるから
作成したピボットからデータを拾って集計表に転記しなきゃいけないんだわ

集計表に載らないエラーデータのピックアップもしなきゃいけないし

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/20(火) 15:06:56.96

>>441
なるほどなー
実データ見てないからなんとも言えないけど、
俺なら列を追加して、
関数かvbaで非集計対象にtrueを入れるなどしてからピボット、
という感じで運用すると思う

2022/12/20(火) 15:38:38.78

>>442
なるほど、サンキュ
しかし、エラー判断のためだけに8万行を走査させたくないんだよね、、、

やるならピボット作った後でやったほうが走査数減りそう

やはりVBAでのピボット操作特訓だな

2022/12/20(火) 16:29:18.40

そもそも行と列しか情報もらってなくて
エラーになる条件もどんな集計してるかの情報もないんじゃ回答しにくいと思わないかね

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/20(火) 16:32:45.59

回答しにくいとかどうでも良くね
しっかりとした質問ならまともな回答が得られるし、
曖昧な質問なら抽象的な回答になる
それだけの事だよ

2022/12/20(火) 16:49:02.05

数時間コースのマクロ走ってるの知らなくてブラウザでコピペしたらデータぶっ壊れて怒られた思い出

2022/12/20(火) 17:04:37.21

確かに質問内容としては抽象的過ぎたね。
申し訳ない
でも俺としては十分な回答だった
取り敢えずVBAのピボットを練習するわ

ちなみにエラーってのは既定の集計表(マスター)から漏れたデータってことね。

2022/12/20(火) 20:01:55.55

いまどき８万行１５列程度でスゲー時間かかるとは思えんが
まあ俺なら素直にDBつかうけどな

2022/12/20(火) 21:40:21.98

>>435
WorksheetfunctionからCountifで存在確認。
Matchで行番号取得。
Rangeを変更しながらループしてすべての行番号を蓄積。
速いかどうかはわからんけど8万行走査するよりは工程は短い気がする。

2022/12/20(火) 21:59:31.44

>>435
まあ集計がSQLで書ける範囲なら
ADO接続でSQL投げて結果のレコードセットを
シートに貼り付けて終わりにするわな

2022/12/21(水) 19:10:54.88

8万行100列をセルだけで処理しようとしたら凄く時間かかるのわかるけど、配列にいれて処理したらそんなにかかるか？
それこそDictionaryで集計して結果だけ貼り付ければ充分だと思うんだが

2022/12/21(水) 19:53:43.42

いまだにXPとか使っててマクロが遅いとか言われてもね

2022/12/21(水) 21:05:37.19

同じスペックならXPのほうが10より早いけどな

2022/12/21(水) 21:46:19.74

VBAが就活で必要になりそうなんだが、みんなはどうやって勉強してるか教えて欲しい
おすすめの本とかyoutubeとか学習サイトとか
pythonとSQLはちょっとわかる
MOSのエキスパートレベルまでの知識はある

VBAってある程度までいくと、具体的なデータがないと学習しにくいよね
あちこちのシートの何千行のデータを連結、とか
理屈ではわかってても実際のデータ使わんと本当にちゃんと動くかわからんし

2022/12/21(水) 22:32:45.75

>>454
上級者と言われている人達はみなMSヘルプで勉強しているみたい。
あとMSコミュニティとかで情報交換みたいな感じで。

2022/12/21(水) 22:51:14.09

自分で一から全部書いたりしない
ネット検索してコピペ、ただし完コピじゃなくてちょっと手直しはする
それでだいたいのことはできる

2022/12/21(水) 23:02:51.38

今ならchatGPTにでも聞いてみたら出てきそうw

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/21(水) 23:24:29.01

https://i.imgur.com/6KBuC1X.png
マジかよ・・・

2022/12/22(木) 01:11:20.11

>>454
ググればvba100本ノックって出てくるからそれやればいいんじゃない？

2022/12/22(木) 01:27:48.52

>>459
そんなサイトないよ。
「ハゲれば横山ノック」というサイトはあるけど。

2022/12/22(木) 03:47:51.66

でもな、ネットの無い時代なんてそれこそイチから手探り状態で書いてきたんでしょ？？
コピペよりそういった苦労重ねた方が身に付くのでは？

2022/12/22(木) 06:31:04.10

>>459
100本ノックあったわ
これやってみるか
ありがとう

あとVBAってみんなExcel付属のアレで書いてるの？
vscodeの拡張見つけたからそっち使おうと思うけど問題ない？

2022/12/22(木) 07:04:53.76

>>461
VBAに限らず苦労しないとダメってのは時代遅れなんだとさ

2022/12/22(木) 07:18:24.23

>>454

郵便局の郵便番号データを取り込んでいろいろやってたことはある。
郵便番号から住所取得とかキーワードを含む住所の郵便番号をユーザーフォームでポップアップさせるとか表示項目を可変させるとか。

2022/12/22(木) 07:22:19.76

>>462
基本VBEで書いてる。最終的にはExcelのモジュールやクラスに入ってなきゃいけないもんだし。
ただ複雑になってよく判らなくなったり他人のコードを解析したいときなんかはVScodeに張り付けて読んだりもする。

2022/12/22(木) 08:27:50.14

>>462
EXCELVBAのVSCodeのなんてあるのか
まぁでもEXCELってRangeとかセル位置、
名前定義とかシート見ながらちょくちょく
走らせて確認する場合が多いから
EXCELに付いているVBエディタで
ブレイクポイント掛けてトレースしていく方が
EXCEL単体の作業せあれば楽だと思うけどね

.Net絡みだってUI絡みなら
VS Codeより使えるならVSCoreの方が楽でしょ？

2022/12/22(木) 08:34:31.20

>>463
苦労しないとダメとは思わないけど、やっぱ自分で書いて実行しながら作ってった方が覚えるからあんまりネットからのコピペはしないな

2022/12/22(木) 09:07:55.33

まずはVBの構文からだね
Subに()つけるだけでエラーになるからビビる
次はExcelの巨大なクラスライブラリ
Applicationから始まるオブジェクトツリーにアクセスできればExcelとのI/Oは完璧だ
コピペイヤーが理解していないのはデフォルトプロパティ
いろいろ省略出来て便利なのだがハマることになるだろう
やりたいことはマクロの記録ですぐ分かる
ワークシート関数まで使うのが理想なので最終的には「Excelの使い方」が一番難しい

2022/12/22(木) 10:13:12.73

ネットがない時代は苦労したって言うけどさ、その「苦労」って結局は正解を手に入れるまでの「時間が長かった」ってだけのことなんだよね
わからないことがあると図書館か本屋へ行って立ち読み、それの繰り返し
ぐぐりまくるのとやってることは同じ

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/22(木) 13:55:10.49

いや、購入した本が間違ってる場合もあったんだよ
今なら複数のサイト比較して一番いいコードを参考にするって出来たけど、
当時は変な本に当たるとどうしようもなかった

良い本かどうかの判定も難しかった

2022/12/22(木) 14:10:57.81

>>470
情報の質にバラつきがあるのはネットも同じ
役に立たないサイトのがよっぽど多い

2022/12/22(木) 16:47:07.71

でもさ、初期にExcelの指南本書いていた人達はどこで知識を身につけたのだろうか？？
それこそ何も情報が無い時代なはず…

2022/12/22(木) 17:00:36.54

いちばん最初は、分厚い説明書付いてきた　足りなければmicrosoftのFaxへ電話して
欲しい情報の番号押せばダラダラと何十枚ものFAX資料として引っぱり出せた
金有る奴は説明書の最後のページにある有料版の冊子を取り寄せてた　ヘルプが充実してきてそれらは廃れた

2022/12/22(木) 17:16:41.62

>>472
昔はマイクロソフトが講習会とか開いてたんよ
1回何万円も払って授業を受けに行ったわ

2022/12/22(木) 19:04:05.80

>>469
趣味ならともかく曲りなりにもビジネスなら時間は重要だろ
あと、ちょっとレアな手法（例はよくないかもだけど例えばクラスにデフォルトプロパティを追加する方法とか）は載ってる本を探しきれない

2022/12/22(木) 19:55:30.36

>>472
頭の弱い人の幼稚な発想だね
何歳？

2022/12/22(木) 20:17:52.60

>>476
あんた、最近みんなから相手されないからって拗ねたレスするなよな。
職場でもそういった態度なんか？

2022/12/22(木) 20:53:21.34

>>475
え？クラスモジュールでデフォルトプロパティ設定できるの？

2022/12/22(木) 20:57:06.81

>>477
自分がどんな馬鹿なことを聞いたのか理解できないのか？
真正の馬鹿だな

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/22(木) 21:07:40.03

>>471
だからネットなら比較簡単って言ってるじゃん
最初に見つけた解決法でハイ終わり！って小学生かいな

>>478
気にしたこと無かったけど、凄い方法で実現できるようだ
https://thom.hateblo.jp/entry/2015/02/16/003000
エクスポート、インポートでやっと実現するとか面白いコーディングだ

2022/12/22(木) 21:15:05.86

>>478
ちょっとトリッキーだしMSが保証してるかどうかがわからんから例としては良くないって書いたけど
VBA クラスデフォルトプロパティ
でググれば出てくるよ
https://thom.hateblo.jp/entry/2015/02/16/003000
こんなのどうやって見つけたんだろう...

2022/12/22(木) 21:15:50.72

>>480
この人のブログはかなり読んでたつもりだったけど
この記事は完全に見落としてた

ってか、この手法は面白いけどマニアック過ぎるね
後で試してみよう

2022/12/22(木) 21:53:51.19

Range(Cells(7, 1), Cells(7, 3)) = "一括入力"
Range(Range("A7"), Range("C7")) = "一括入力"
Range(Cells(7, 1), Range("C7")) = "一括入力"
Range(Range("A7"), Cells(7, 3)) = "一括入力"

結局セルの指定方法のひょうじゅんってどれなの？

2022/12/22(木) 22:20:04.73

>>479
だからこっちがあんたに質問してるの
もう一度聞く
職場でもそんな態度で過ごしてるのか？

2022/12/22(木) 22:31:11.78

>>483
範囲が固定なら
Range("A7:C7") = "一括入力"
可変なら
Range(Cells(R1, "A"), Cells(R2, "C")) = "一括入力" ' 行可変
Range(Cells(7, C1), Cells(7, C2)) = "一括入力" ' 列可変
Range(Cells(R1, C1), Cells(R2, C2)) = "一括入力" ' 両方可変
かな
まあ他にもReSize( )使ったりケースバイケースかと

2022/12/22(木) 22:33:05.06

>>483
列の範囲だけだったらResizeかな

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/22(木) 23:10:32.55

>>483
そもそも一括入力する場面ってのがほぼ無いと思うが・・・
vbaでテンプレートを作らざるを得ないような状況なら、一番上かな。アルファベットでセル指定する意味は無い

>>484
お前がアホだからアホみたいな意見が付いてるんじゃないか
>>472はちょっと酷すぎるぞ

2022/12/23(金) 00:01:20.20

>>483
Range("A7").Resize(1,3)="一括入力"
Cells(7,1).Resize(1,3)="一括入力"

これが一番応用効いて楽だよ

2022/12/23(金) 00:11:39.80

いつものかまってちゃんを相手するなよ。
スルースキルも身に付けろ

2022/12/23(金) 00:17:53.03

>>487
都合の悪い質問に答えられないか。。
あんたさ、職場で上司や同僚から「取っ付きにくい人」とか「話かけにくい」って言われてないか？

そういう性格早く正さないとハブられるよ？

2022/12/23(金) 01:52:37.99

>>490
馬鹿だと事実を指摘されて悔しい馬鹿

2022/12/23(金) 03:09:02.33

単なる雑談に噛み付いて謎のマウント取りはじめるとかキチガイだろ
そんなやつに触れるなよ
無視が一番

2022/12/23(金) 08:29:10.87

NG推奨:Sd8a-g3+u

2022/12/23(金) 11:57:56.55

別ファイルの複数シート(日付ごと)の特定の値を日付ごとにとってきたい場合ってどうしたらいいんでしょうか

2022/12/23(金) 12:02:19.94

自分で書いてる通りのコードを書けばいいんじゃね
試しに書いてこれでいいですか？ってきいてみようぜ

2022/12/23(金) 12:35:41.71

マクロの記録で生成されたコードからスタート

2022/12/23(金) 13:27:34.05

会社から他の社員にVBA教えてやってくれ、って言われたら素直に応じる？

2022/12/23(金) 13:38:51.27

業務命令で仕事のタスクとして依頼されるなら応じるだろ
それとVBAを教えてやれって言われることなんてあるか？
なんらかの業務で使ってる○○を直すからわからない事があったら質問してくるんで教えてやってくれ
みたいな依頼じゃないのか

2022/12/23(金) 13:47:47.29

でも大概適当な上司はそんなもん

2022/12/23(金) 15:22:20.31

ユーザーフォームを表示してテーブルにあるデータのうち任意のレコードを入力させるマクロを作っているのだけれど、テキストボックスにするべきかコンボボックスかそれともリストボックスをクリックさせるべきか、迷っている
皆さんはどういうUIにしてますか？

2022/12/23(金) 15:23:49.23

社長に好みを聞く

2022/12/23(金) 15:59:13.07

要件満たせるならどれも一緒だけどその3つの何で迷ってるか書いてみたら？

2022/12/23(金) 16:13:57.75

>>502
テーブルにあるレコードは100件くらいで、その中からなるだけ手っ取り早く入力できるようにしたいんですよね
テキストボックスとリストボックスを併用してどちらか好きな方から値を取れるようにした方がいいのかなと考えています

2022/12/23(金) 16:36:35.72

上司に言われただけじゃ無理でしょ
本人のやる気がなければいくら教えても無駄
まずは自分で調べてできるとこまで書いてもらって、無理ならいくらでも聞いてって形式じゃないと教えられないわ
そこらへんの講義してる先生じゃないんだから教材なんか持ってないのに１から教えるのは不可能

2022/12/23(金) 17:32:52.63

お助けを願います

Range("A1") = "=SUBTOTAL(103,A4:A300)" & """/""" & "COUNTA(A4,:A300)"

計算式の結果と結果の間に文字列のスラッシュを置きたいが上手くいきません

2022/12/23(金) 18:03:29.80

>>503
じゃあそうすればいいのでは
作ってみて違和感あれば別の方法考えたらいいんじゃ

>>505
CONCAT使えばいいんじゃない

2022/12/23(金) 18:28:53.74

>>497
覚えるべきは、あなたです。末端は、組織が作ったシステムを使うだけでいい。
というべき。

2022/12/23(金) 18:40:22.55

VBAのスキルが重宝される程度の職場なら、職務経歴書のいいネタと思って教えてやれよ
それが済んだらお前はさっさとステップアップすればよい

2022/12/23(金) 18:53:30.35

>>508
程度のレベルで身につくんだけど、実際日本人の9割以上はVBAなんて、出来ない。
よくエクセルマクロを使える割合見たいのがあるけど、ああいうサイトに行く人という母数でとっても３割程度。
実際は、まともな企業でも数百人に一人くらいしかいない。
だからVBAだけで神扱いされるんだけど・・・

本来は、幹部こそ覚える技術なんだよね。
システム化って、まさに業務運用そのものを決めるようなものだから。

2022/12/23(金) 19:11:38.96

AからFの列範囲に何行あるかわからないデータがあるとき
データがあるセルの下に
オートシェイプを線を入れるにはどうしたらいいですか？
標準の線では線種が少ないのでオートシェイプでいれたいです

2022/12/23(金) 19:30:37.54

>>507
本来うちの会社もそんな感じ考え方だったのだけど
部長(配列もfor eachも使えないレベルの自称VBA名人)が
旗振り初めたお陰でしょーもないVBA講座が始まったんだよ

俺自身は社内でVBA使えることを殆ど話したことなかったが、
お前もなんかちょっとは使えるみたいだから
講座受けて講師手伝えとか言われ始めたわ

下らなすぎてマジで憂鬱

2022/12/23(金) 19:35:41.52

>>511
全員が使える必要はないんだよなぁ
VBAで無駄な作業を消していくから、社員はむしろ削られる方向になる。
だから、末端がやると摩擦が起きるから、幹部がやるのが正しいんだけどねぇ…。

幹部がプログラミングできると、それを理解しているんだけどね・・・。
そもそもシステム化とは、業務運用・業務ルール・業務管理あらゆるものを交換の利く末端に強制的に行わせるものなんだから、それって幹部の仕事だよね？ってはなしなのにね。

2022/12/23(金) 19:42:26.59

自意識過剰

2022/12/23(金) 19:42:56.24

>>497
勤務時間内ならそれも仕事だから教えるが
編集の方法だけ教えて細かな内容は自分で調べるように伝える
あとは「教えました」できないのは本人の勉強不足なので質問されれば答えるだけ

2022/12/23(金) 20:17:22.06

仮に講義したとしても
「初心者にvbaの事をすべて教えるなんて不可能だから、取り敢えず基礎的な事だけ教えるか。配列まで教えるのは無理だな」
↓
「セルだけで処理したら30分くらいかかるし固まるし使えない」
↓
「配列使えばすぐ終わるよ」
↓
「そんなの習ってない。教えないほうが悪い」
↓
上司「何で教えないんだ。不備があるから評価下げる」

ってなる未来しか見えない
自分で調べる事ができるヤツは講義なんか必要なく聞かれた事に回答するだけで十分だしな

2022/12/23(金) 20:19:41.37

結局、講義したいなら有料の〇〇コースって外部の講義を使用するのが一番なんだよな
金がかかるコースなら明確に〇〇まで、って言えるし
金がかかんない内部での講義だと、最終的には教えないやつが悪い。講義するならちゃんと教えろって言い出すヤツは絶対いる

2022/12/23(金) 20:26:33.05

セミナー行っても全員が自信を持って理解できたってことにはならないだろうしな。。
作った気にさせて終わりみたいな。

2022/12/23(金) 20:53:24.44

聞かれたら教えるけど、聞かれなかったことは教えようがない
調べればすぐできるのになんで調べないのかわからない

2022/12/23(金) 21:00:03.44

本来、質問するならネット等に載っていない事例を聞くべきだよね。

ただこのスレに対する質問がガクッと減るがなw

2022/12/23(金) 21:06:01.97

あと、教わればどんなことでもできるようになると勘違いしている初心者も多い
考えるのと覚えるのは教わる側の問題

2022/12/23(金) 21:45:43.34

>>510
マクロの記録で試しに線を引いてみたらコードを生成してくれるから
それをみてあたりとかつけてみたらいいんじゃないの？
特定セルの座標はTop,Left
高さと幅はHeightとWidthで取得できるから計算して引いてみ

**505** (ｱｳｱｳｳｰ Sa9f-nV6H) · 2022/12/23(金) 22:06:41.02

>>506
ありがとうございます
concatなかったんでconcatenateを使いましたが同様にエラーが出てしまいました
基本から調べてみます
スレ汚しすみません

2022/12/23(金) 22:21:44.94

>>522
これでいいんじゃないの？
Range("A1") = "=SUBTOTAL(103,A4:A300)&""/""&COUNTA(A4:A300)"
Range("A1") = "=CONCATENATE(SUBTOTAL(103,A4:A300),""/"",COUNTA(A4:A300))"

2022/12/24(土) 10:17:10.27

>>522
セルに入れたい数式自体がエラーになる(間違ってる)からVBAでもエラーになってる。
セルに入れたい数式は下記かと。
=SUBTOTAL(103,A4:A300)&"/"&COUNTA(A4:A300)

VBAで書き込む場合。.Formulaは無くてもいけるけど明確に数式として入れたい場合は書いといた方がいい。
Range("A1").Formula = "=SUBTOTAL(103,A4:A300)" & "&""/""&" & "COUNTA(A4:A300)"

2022/12/24(土) 13:34:40.02

>>524
> "=SUBTOTAL(103,A4:A300)" & "&""/""&" & "COUNTA(A4:A300)"
"=SUBTOTAL(103, A4:A300) & ""/"" & COUNTA(A4:A300)"
じゃだめなの？

2022/12/24(土) 13:48:48.91

>>525
それでもいい

2022/12/26(月) 17:51:15.49

にんげんだもの

2022/12/26(月) 20:52:11.13

正月はVBA三昧！
コード書きまくるぞ～

2022/12/27(火) 10:24:03.69

休みでもVBA書くのか、凄いな

家だとVBAのネタがないからいまいちやる気にならない

2022/12/27(火) 12:52:26.69

え？みんな休日はExcelやらないの？
自分は隙あれば何かしらの練習してる。
勘と腕が鈍りそうな気がして。。。

**デフォルトの名無しさん** (JP 0H6b-s0Sd) · 2022/12/27(火) 12:56:35.30

このスレに質問が来ればいくらでも回答するよ

2022/12/27(火) 14:46:03.57

家だとVBAで作りたいネタが思い浮かばない、、

何を題材にして練習しているのか教えてくれると嬉しいな

2022/12/27(火) 14:52:53.05

>>515
VBAを教えるのに必要なのは、講義の時間ではなく、「自分でも業務改善プログラムを作れた！」っていう成功体験だと思う。
処理速度云々は、相当後のほうでいいと思う。

ここで、資質があるやつと、そうでないやつがわかる。
資質のあるやつは、自分の作ったプログラムをさらに改善しようと、いじる。
このいじる作業をしているやつだけを見つけて、さらに教える。
改良作業をやってるやつは、理屈を理解し始めているから、いじれる。
そして、そのうちマニュアルやサイトでの調べ方と適用方法を理解して、自然と、命令数が増えてくる。

改良を試みてないやつは、たぶんプログラム自体、どっかから丸々コピペしてきて、それで運よく目的を達成できてるだけだから、動作原理わかってない。
ゆえに、次の問題を与えても、成長していないから組めない。

**デフォルトの名無しさん** (JP 0H6b-s0Sd) · 2022/12/27(火) 15:30:01.29

>>532
このスレをずーっと過去に遡って、面白そうな奴を片っ端から解いていくだけでいいんじゃないか？
俺は毎日やってるから出来ないけど

あと、vbaよりもスプレッドシートのGASのほうが色々出来て面白いよ

2022/12/27(火) 15:56:24.02

雑談みたいな書き込みは自重すればいいのに・・・

2022/12/27(火) 18:13:52.44

いやならスレを開かなければ良い

2022/12/27(火) 23:00:25.77

いやなら5ｃｈやめればいいのに

2022/12/28(水) 01:04:02.08

いやならヅラを被れば良いのにな