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

**デフォルトの名無しさん** (JP 0Hcf-KKgq) · 2022/12/14(水) 19:02:52.74

>>381
callで呼んでるのが変。むしろそんな書き方が出来るのか！と新しい発見レベル
sortの書き方が古い。2003以前とかの書き方だったような気がする

Sub aaa()
Range(Cells(2, 1), Cells(6, 2)).Sort Key1:=Cells(1, 1)
End Sub
https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.sort

2022/12/14(水) 19:15:27.04

戻り値が必要ない呼び出しするならcallでもいいでしょ
ただし引数指定する時にカッコでくくる必要がある
自分のところでもソートされない現象が再現するんだけど、なぜか一度ソートすると次回以降はソートされるようになるね
ちなみにこんな感じに修正すればソートされるようにならない？
Call Range(Cells(i, 1), Cells(i, 6)).Sort(key1:=Cells(i, 1), Orientation:=xlSortRows)
・「key1:=」をつける
・「, Orientation:=xlSortRows」をつける

2022/12/14(水) 20:03:28.98

>>382
このやり方で無事できました。ありがとうございました。

>>383
このやり方も試しましたが、できませんでした。
やっぱりcallは使わない方がいいんでしょうか。
拾ったコードをよくわからずに使っていました。

2022/12/14(水) 20:05:33.98

Let と Call は使わないなあ...

2022/12/15(木) 08:41:16.03

え？VBA本職の人がこのスレにいたような？？
過去スレで見たような

2022/12/15(木) 12:16:56.32

質問者が本職では？

2022/12/15(木) 12:19:05.46

そんな訳ないじゃん
本職が初級者みたいな質問するわけないし。

2022/12/15(木) 14:39:58.62

初心者でも本職っているだろ

2022/12/15(木) 17:34:15.89

なんのお仕事をされているんですか

2022/12/15(木) 18:06:00.77

引きこもり

2022/12/15(木) 18:08:25.94

ネット検索で出てきたコードを参考にして、あるシートから別のシートへ PageSetup オブジェクトのプロパティを引き継ぐ汎用コードを作ったのですが、 Application.printcommunication を触ると何故か処理がコケてしまいます
別のコード(プロパティの順番や数が違う)を試してみると Application.printcommunication = True のところで 1004 エラーが
調べてみると Application.printcommunication は法則性のないエラーを吐くことが多いらしいんですが、上手く安定して動作させる方法はないでしょうか
なお Application.printcommunication の操作を省くと重すぎて使い物になりません

2022/12/15(木) 22:51:51.95

VBAが本職ではないけど
他言語を含めてプログラマーってことなら
意外と本職の人いそう

2022/12/16(金) 03:10:13.03

本職の定義が不明

2022/12/16(金) 06:44:51.24

VBA で金貰ってる（=給料の一部）と言うだけならかなり多くの会社員が該当しそう

2022/12/16(金) 07:34:05.36

VBAだけで生計を立てている、としたら・・・？

2022/12/16(金) 07:47:34.39

>>392
解決方法じゃなくてすまんけど。
trueを設定してこけるということはその前にfalseを設定してるのだと思うけど、
falseとtrueの間の処理でなんの設定を変更するとこけるのかを地道に探し出すしかないような気がする。
プリンタ関係だとページ設定あたりかと思うけど思わぬところが影響してることもあるし、プリンタ環境は千差万別だしね。

2022/12/17(土) 11:54:26.33

>>392
こんなブログ見つけたけどこれがほんとなら確かにクセつよ
https://ubuntu84.blogspot.com/2014/12/excelvba-pagesetup-printcomminucateion.html

2022/12/17(土) 13:51:53.17

>>392
マクロの記録で実際に設定したい値をまずは取得してみて
そのコードをそのまま使ってみてもエラーになるわけ？

2022/12/17(土) 14:34:09.55

>>392,398
ちょっと気になって試したけど、それ、ほんとは
.Zoom = False の行でエラーになってるな

ステップ実行させてみればそこでちゃんとエラーになるんだが
普通に実行させるとそこでそのエラーが発生しないで、
PrintCommunicationで予期せぬエラーとなってるんじゃないか
（うちの環境では順番入れ替えて同じだった）

VBAのバグっぽいしマイクロソフトに問い合わせるのがよさげだが
一度ステップ実行で１行ずつ試してみれば？

2022/12/17(土) 14:46:45.42

そのブログのコードは拡大縮小の部分についてみたいだけど
通常であれば有効にする動作を書くようなコードが必要なのに無効にするようなコードを書くから
当該エラーがでてるような感じにも見えるけどね
実際にエラーになる「.Zoom = False」を「.Zoom = 150」の様に修正するとエラーはでなくなるから
そういう書き方を心掛けないとだめなんじゃないかと思うわ

なので自分としては実際に設定したいページレイアウトをマクロの記録で取得してみたらといっている

2022/12/17(土) 14:59:41.69

>>400
なるほど。
そうなると.PrintCommunicationが認識出来ないプロパティがいくつかあるのかもしれないね。
ステップだとその時々で確認しにいくけど走らせるとPrintCommunication=trueで一括設定しようとするからそこでエラーって感じかな？
1004エラーってコードに不備があるときに出る印象があったから個人的に納得。

なんか参考になった。試してくれてありがと。
いや質問者じゃないんだけどｗ

2022/12/17(土) 15:03:53.79

>>401
ああ、それもそうだね。
『ズームを有効にするか無効にするか』
じゃなくて
『拡大縮小率をどのくらいにするか』
を具体的に指定するプロパティなら確かにその通りだわｗ

2022/12/18(日) 18:40:43.65

A1の数字が10以上で、B1の文字がたた、なな、はは、まま、やや、ららが含まれている場合に、D1にプレゼントと書きたいんですけど、どういうvbaか教えて頂きたいです。
B1の候補が50個以上あって、COUNTIFとかで全部入れるのが大変なんです…
A列B列には、それぞれ100行くらいあります。

2022/12/18(日) 18:47:30.46

馬鹿って仕様すらまともに書けないから馬鹿なんだよな

2022/12/18(日) 18:50:14.49

その候補を別のシートに並べればワークシート関数で一発では

2022/12/18(日) 20:52:35.12

特定のフォルダにある一番新しいファイルを
開いて、内容をクリップボードにコピーした
いのですが、どう書いたらいいですか？

その後DBアプリで処理する流れです。

2022/12/18(日) 21:23:56.35

ファイルをそのまま変換してdbに読み込ませればいいだろ

馬鹿って仕様すらまともに考えられないから馬鹿なんだよな

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/18(日) 21:31:13.42

>>408
それってあなたの思い込みですよね

**デフォルトの名無しさん** (JP 0H96-ZR1D) · 2022/12/18(日) 21:32:30.15

バカっていう方も悪いけど、それに対して韓国人呼ばわりはさすがにひどすぎると思う
いくら何でも言いすぎだろ

2022/12/18(日) 21:51:13.95

>>407
動かしてないからタイポとかあるかも

Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Dim Newest As Object
Set Newest = Nothing
Dim File As Object
For Each File In FS.GetFolder("特定のフォルダ").Files
If Newest Is Nothing Then
Set Newest = File
ElseIf Newest.DateLastModified < File.DateLastModified Then
Set Newest = File
End If
Next
Dim S As Object
Set S = Newest.OpenAsTextStream(1, -2)
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText S.ReadAll
.PutInClipboard
End With
S.Close

Bug: ファイルが存在しない時はエラーになります
Bug: 一番新しいファイルが複数あるとどれが開かれるかはわからない

2022/12/19(月) 01:57:07.11

お前らすぐバカバカって言うけど、人を見下せるほど大した人間なのか？

2022/12/19(月) 02:08:16.14

スキルと人間性は別なんだなあ
優秀な人間の性格がひどいとか割とよくある話
競争社会では他人を蹴落とさないと上に行けないし

2022/12/19(月) 08:20:47.46

>>413
人間性が最低ってことやね
スキルがあっても敬遠したいな

2022/12/19(月) 08:58:43.85

人間性よかったらこんなとこいないで普通の生活で満ち足りるやろしな

2022/12/19(月) 13:01:38.97

他人に馬鹿と指摘するのは事実だから仕方ない
本当のことを指摘されて何が問題なのか
己が馬鹿と指摘されると怒るのは本物の馬鹿

2022/12/19(月) 13:15:44.25

まさに馬鹿の理屈

2022/12/19(月) 15:06:14.17

本当の事だから言っているだけ
はいはい、そういう理屈ね？
もし逆の立場だったら不快な気分にならないのかな？？

2022/12/19(月) 16:42:50.56

ならないよ？俺は馬鹿だもの

2022/12/19(月) 16:51:32.03

～終了～

2022/12/19(月) 16:56:24.98

いまさらなんだが・・・

もしかして、件数がそれなりにあるエクセル処理の場合、VBAでDictionary処理できるやつは、いちどDictionaryにデータ格納してから処理したほうが圧倒的に速い？

2022/12/19(月) 17:25:10.73

何をやるかによるだろう
前から順に処理するだけならDictionaryへの格納は余計なオーバーヘッドでしかなく、確実に遅くなる

2022/12/19(月) 18:11:27.44

質問投げて回答待つほうが圧倒的に遅い

2022/12/19(月) 18:16:20.09

回答が付くまでの間は別の作業をしてるんだよ
トータルの作業時間は丸投げのが短い

2022/12/19(月) 18:36:14.21

>>424
俺たちは箱の中の小人さんかよ

2022/12/19(月) 18:50:28.09

>>424
それなら処理が遅くても別の作業してればいい

2022/12/19(月) 22:06:24.01

処理遅かったらマクロの意味ないじゃん

2022/12/19(月) 23:02:14.70

俺はdictionaryが好きでよく使うなあ
「ソートキーを格納したdictionaryを受け取って任意のシートをソートするコード」とか、「キーワードを格納したdictionaryを受け取って任意の配列からそのワード以外の要素を取り除くコード」とか、そういう汎用モジュールを作りまくってる
「その引数、配列でよくね？」って自分でも思うのだけれど、なんとなくdictionaryにしちゃう

2022/12/20(火) 00:27:32.59

>>428
それって文字列をオブジェクトに変換するとかできるの？

2022/12/20(火) 03:27:40.96

ソートならキーの順番は大事だろ
もしかして
1:いち、2:にい、3:さん
みたいなヤバイことしてるの？

2022/12/20(火) 08:00:11.66

そんな事は流石にしないだろう

2022/12/20(火) 08:51:53.19

>>429
？
なんで文字列をオブジェクトに変換する必要があるの？
普通に考えてエンティティクラス作って
その中に内部変数として持っておいて
プロパティとしてやり取りするのが定石でしょ？

2022/12/20(火) 10:16:39.88

VBAで意識高い系マウンティングは流石に草

2022/12/20(火) 12:08:52.82

>>431
で、どうやってキーの順序保証してるの？

2022/12/20(火) 13:00:22.05

8万行×100列(うち、実際に使用するのは15列程度)のデータを
集計表に沿って集計しようとしてるんだけど君らならどういう手法使う？
集計の行は不定で列は日付とし、エラーは別シートに抽出する

データを配列格納してfor nextで回したらすげー時間かかったわ
大人しくピボット作った方がいい？

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

>>435
fornextで何やるかによるけど、
ピボットが一番楽だと思う

2022/12/20(火) 13:08:52.62

CSVで出力してPython あたりで

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

なんでcsvにしてpythonに投げるんだよｗ

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
こんなのどうやって見つけたんだろう...