Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/10/03(日) 23:22:18.21

>>288
ガントチャート形式の日程表とやらの構成はどうなっている？
日付の色塗りとは、何を指している？
タスク表示とは、タスク名？をどこに表示させることを言っている？

このへん予め提示しないと解決が長引くよ

2021/10/04(月) 00:04:37.41

>>288
セルサイズを大きくしてタスクを入力すればいい

2021/10/04(月) 01:17:19.95

excel ガントチャートフリーで検索

2021/10/04(月) 09:25:56.63

質問失礼します
タイマーで二つのマクロを順番に実行したいのですが
ひとつめのマクロ実行が長引いてしまい
マクロ実行中にApplication.OnTimeのcallで次のマクロが動くとエラーになってしまいます
Application.OnTimeの時間になっても前のマクロが終わるまで待つやぶつからなくする方法はあるでしょうか？

2021/10/04(月) 09:37:56.41

>>292
へ？
ひとつ目の実行開始時に処理中フラグ立てて
実行終了時に倒すようにして
それ見て二つ目のマクロの処理を飛ばすか
待たせてまた実行するかすればいいんじゃないの？
聞いてる意味違う？

**292** (ﾜｯﾁｮｲ 435f-P/uO) · 2021/10/04(月) 10:15:29.97

>>293
はいあっています
処理中のフラグでぐぐると色々出てきました
困っていたので助かりました
ありがとうございます

2021/10/04(月) 10:57:06.41

ontimeの第3引数も調べてね

2021/10/04(月) 12:27:18.56

関数に引数が七つも八つもあるとわかりにくくなるから、それならクラスにしておけば、可読性が良くなるのかな

2021/10/04(月) 12:54:51.17

>>296
そうね。
ただVBAのクラスは1クラス1モジュール使ってしまうのと、クラスが格納されているフォルダが一階層しか使えないからネーミングに気を付けて後でそれがそういう意味を持つクラスだって分かるようにしておかないとね。

後、あれやこれやと引数のクラス作らなくても、引数として格納する変数が一意でいい場合は標準モジュールでも同じように作れば使えるよ。

ただしこの場合は引数として渡すんじゃなくてその標準モジュール側に作ったプロパティを直接読みに行くことになるけどね。まぁ使い分けだね。

2021/10/04(月) 13:39:00.82

マクロを実行させると、Excelが落ちてしまい、
ステップ実行させるとマクロが正常終了orExcelが落ちない
ていう事になってるんだが、
どこで異常終了してるか調べる方法ある？

2021/10/04(月) 13:41:09.43

>>298
ブレイクポイント貼りまくりで
徐々に外して落ちてる範囲を狭めて
最終的ににどこで落ちてるか確定させる

2021/10/04(月) 13:54:27.50

上記のやり方が大変だというのであれば
Logをどこかのtxtファイルにはく、という手もある。

2021/10/04(月) 14:13:00.80

>>299,300
ブレイクポイントを貼ると落ちない。
なんとなくやばい場所は分かってるんだけど、on errorでもcatchできないんだよな。
やってることは、 uiautomationを使ってコンボボックス叩く(Expand)てことやってるんだが、
おそらくその行で落ちるんだが、
落ちずに成功する場合もあるんだよな。

2021/10/04(月) 14:34:03.70

>>301
WinAPIで似たような事があった
本来待ち時間が必要な処理を待たずに次へ行くからブレイクポイント無しだと落ちるってケースね
怪しい所にSleep関数使って500ミリ秒待たせたら落ちなくなった事があるよ

2021/10/04(月) 15:02:49.67

298です。
いろいろ試してみると、マクロを実行じゃなくてステップインボタン押してF5で実行させると落ちない事がわかった。
ならば、待ち時間の問題かと思って、sleepとかDoEventsを入れてみても、落ちる。
今の所唯一の回避策がステップイン＋F5だな。
ググるとステップインだとうまくいくていう記事は散見されるが、合理的な説明はない。

2021/10/04(月) 15:29:55.92

コンボボックスって表示したときにはテータは入ってなくて
クリックされたときにデータを読みに行くとかじゃなかったかな

2021/10/04(月) 18:42:56.09

タイマーの間隔が短すぎなんじゃね

2021/10/04(月) 19:42:11.08

ワークブック開きすぎ(それも容量やシートが多すぎ)や、複数アプリケーション開きながらマクロ動かすと遅くなるからそういうところからも気をつけるといいかもしれない事例

2021/10/04(月) 20:35:24.21

>>303
当たりをつけるというフィジカルな部分ももちろん大事だけれど、本当に自分が当たりをつけたところが原因なのか切り分けを行った方がいいね。

その為にもどこで落ちているかを確定するのが一番先にやることだよね。やっぱりLogをtxtファイルか何かに出力するのが遠回りになるようで一番近道かもしれないよ。
箇所箇所で吐き出すロジック組み込んで、毎回書き込んでセーブしておけばどこで途切れたかで分かると思うからそれで絞り込んでどの命令で落ちたかを確定出来れば儲けもの。

もっとも、都度落ちる箇所が違う場合もあるかもだろうけど、そうなったらそうなったでそれから当たりをつけて調べればいいのであって、まず落ちている箇所が特定出来れば原因もある程度絞れるよね。

2021/10/04(月) 20:43:05.82

>>296
たいていはユーザー定義型で十分

2021/10/04(月) 22:16:21.62

For i = 1 to 10
Call Sleep(200)
DoEvents
Next i

2021/10/05(火) 00:51:53.00

>>296
お前の知能が足りなくてアウアウしてるだけだろ

2021/10/05(火) 15:40:04.36

ちょっと教えてください
コントロール上にマルチページ「Multipage1」があるとき、下を実行するとエラーが出るんですが、何故か分からんのです

Private Sub UserForm_Initialize()
Dim buf As String
buf = "D3"
Set MP = MultiPage1
MP.Pages.Add
MP.Pages("Page3").Name = buf
MP.Pages(buf).Name = "X3" ←ここ。「13:型が一致しません」
End Sub

2021/10/05(火) 15:45:39.37

補足ながら>>311はMPもマルチページとして宣言するか該当箇所をMP.Pages("D3").Name = "X3"に書き換えれば期待通り動くんですよね
どういう仕組みなのか

2021/10/05(火) 15:56:25.07

worksheetfunctionの引数に配列入れるときって数に上限があるな
警告も出さないしほんまクソ

2021/10/05(火) 15:56:31.46

worksheetfunctionの引数に配列入れるときって数に上限があるな
警告も出さないしほんまクソ

2021/10/05(火) 16:15:51.73

>>312
いや
普通に通るけど。ちな2016。

2021/10/05(火) 16:19:44.73

あ、でもこっちはOption Explicit 付けてたから
MPはキチンと型宣言してたな。
でもそこはあまり関係ないよね？

2021/10/05(火) 16:21:29.24

>>316
や、たぶん関係するっぽいですかね？
こちらオプション無し、宣言は無しまたはas objectだとダメでas multipageだと通った

2021/10/05(火) 16:29:34.84

>>317
ふーん
不思議だねぇ
ちなみに宣言しないで走らせたときの
MPの内部型ってどうなってる？
ごめん、もう走ったからこっちは
EXCELのブック消しちゃったんだ。

2021/10/05(火) 16:32:02.05

variant/object/multipageでした

2021/10/05(火) 16:36:45.31

>>319
やっぱり不思議だねぇ
その辺の内情は分からないな
一応片付いたことになるのかも知れないけど
誰かその辺知ってたらレスが付くんじゃないかな

2021/10/05(火) 16:39:04.47

そうですね、とりあえず急ぎとか困りではないので一旦これで…
ご回答ありがとうございました

2021/10/05(火) 18:26:27.16

型推論するのに失敗してるんじゃね

2021/10/05(火) 21:37:47.06

Pagesの引数に変数渡すと数字として解釈しようとしてるっぽいな
buf = "2" とかにするとIndex=2のページを参照してるようだ
文字列リテラルならちゃんと名称として解釈してるっぽい
ちな365の64ビット

これ以上はサポートにでも問い合わせるしかねぇんじゃね

2021/10/07(木) 18:28:58.89

マクロの記録機能使ってマクロの作成したいんだがピボットテーブルのプルダウンから任意の値だけを抜き出すのってどうやってやればいいの？

毎回モジュール見直すとvisible farceになってて要するに抜き出したいもの以外を表示しないようにしてる構文て事だよね？
こうなると仮に次回このマクロを使う時にvisible farceになってない値が新しく出てくるとそれも表示されちゃうって事だよね？
じゃなくていくら値が増えても決められた値だけを抜き出すように作りたいんだ
どなたか教えて下さい

2021/10/07(木) 20:11:24.24

>>324
記録してみてどうなってるか見てみれば分かるじゃん

2021/10/07(木) 21:05:39.19

>>324
Falseね
ピボット周りのフィルタはFor EachでTrueFalseを一つ一つやっていかないと無理な仕様
遅いしわかりにくいけど割り切って

2021/10/07(木) 21:29:48.70

ActiveSheet.PivotTables("ぴぼっとてーぶる").PivotFields("ふぃーるど").ClearAllFilters
ActiveSheet.PivotTables("ぴぼっとてーぶる").PivotFields("ふぃーるど").PivotFilters.Add Type:=xlCaptionEquals, Value1:="表示したいもの"

2021/10/07(木) 23:55:42.12

VBAで最適化したら仕事増やされた話ってよく聞くけど
そいつが辞めたらそいつに回されてた膨大な仕事はどうなるん

2021/10/08(金) 00:17:45.54

うちの職場は適当にvbaでつくったやつをちゃんとしたアプリに置き換えてるよ

2021/10/08(金) 00:31:33.80

アプリだろうがvbaだろうが作った人間がやめたらメンテできなくて終わるんじゃないの
開発者が大勢いるようなレアな職場ならともかく
vba使ってるところなんてたいてい事務で
エクセル職人が少数いるだけだろ

2021/10/08(金) 00:37:30.31

実際にはそういうときには業務そのものが消滅するケースも多いよ
そもそもVBAで簡単に自動化できるような業務はもともと無意味であるものが多いからな

2021/10/08(金) 02:32:08.41

人がやめた後に職場がどうなるかはその職場の責任者が決めるんじゃね
下っ端が気にすることじゃない

**デフォルトの名無しさん** (ｽﾌｯ Sdea-JSxF) · 2021/10/08(金) 04:11:36.40

市販アプリでも、天才的な開発者が辞めて、会社もろともアプリもダメになって終わったパターンをいくつも見てきた

2021/10/08(金) 07:11:46.26

>>331
>>333
なるほどねありがとう

2021/10/08(金) 08:09:49.53

>>326
>>327
丁寧にありがとう
色々試してみます

2021/10/08(金) 09:40:27.58

CPU使用率が大きかったのでダメもとで開いて修復を実行したら
かなり軽くなるのな、知らんかった
これ定期的にやったほうがいいのか？
VBAのコードを一旦退避させるのが面倒だが．．．

2021/10/08(金) 17:00:42.44

>>336
詳しく

2021/10/08(金) 22:11:41.59

属人的にならない仕組みで効率化できればいいんだが、頭の中が古き良きな方々が幅を利かせる日本ではなかなか難しい

2021/10/09(土) 01:49:50.17

自分が初めてVBAを使って解決した時点で、他にVBAを使う人がいないんだから属人化しないわけがないと思うけどな
しかもVBAってプログラミング言語の中では非常に初心者向けなわけで、
誰もVBAで組めない＝プログラミングに全員疎いのはほぼ決定なんだから尚更さ

VBAを共通知識にしたいっていうのは、
最初にプログラミングっていう一般的には取っ付き難い物に興味を持たせるっていう途轍もなく大きなハードルを超える必要があって、
それは「興味がある生徒に教える」プログラミング講師以上に難しいと思う

相当な根気が必要だと思うよ

2021/10/09(土) 02:16:01.12

そもそも人に仕事が割り振られた段階で属人化されてるわけで
たんに次の人が困って終わりだよ

2021/10/09(土) 02:30:43.66

確かに。
レス漁ってみたが、
ここでいう「属人化で困る」は「他の人にはできないVBAというテクニックを持つオレスゲー」を単にオブラートに包んだだけっぽい感じがするな

2021/10/09(土) 02:49:32.47

マクロの効率化ガン無視で社員の手が開いた分だけ仕事を割り振る上司がいるらしいけど
その時点である意味属人化してるよね
その仕事引き継ぐやつ
まずさばき切れないだろ

2021/10/09(土) 04:49:21.33

うちの職場ではほとんどの人がマクロできるけど、新人に自信持たせるためにわざわざ気を使って
「君マクロできるなんて凄いね～」っておだててるのに同調するのが正直めんどくさい

2021/10/09(土) 04:50:24.64

そういうとこは給料高そうで羨ましい

2021/10/09(土) 05:01:41.26

>>344
給料は個人の能力に比例します

2021/10/09(土) 08:10:48.77

新人の育成は面倒だけど将来的に必要なことだからなあ
褒めた方が上達が早いってのも科学的に証明されつつあるし、そういうもんだからあきらめろ

2021/10/09(土) 08:19:40.75

全員VBAできるとか絶対給料高いとこだろ
うちのところなんて一人しかいないよ
しかも残りは関数すらまともにあつない

2021/10/09(土) 08:21:07.29

おかげで効率がすげー悪い
基本は専用ソフト扱うからエクセルは必須ではないとはいえ
それでもエクセルやVBAやれるのとやれないのとでは効率が雲泥の差

2021/10/09(土) 08:31:06.39

選民思想ここに極まれり

2021/10/09(土) 08:33:14.89

研修とか外部の自宅学習プログラムでもやったら？
費用は会社持ち、報奨金も少しは付けて

2021/10/09(土) 08:37:41.66

そんな金あったら給料上げてレベルの高い人材雇うか
もうちょっとマシな専用ソフト使ってる
金をケチったせいでオンボロ専用ソフト使わせれて
専用ソフトじゃフォローしきれないのでエクセル活用しないと行けない羽目になってる

**デフォルトの名無しさん** (ｽﾌｯ Sdea-JSxF) · 2021/10/09(土) 08:57:09.18

会社は社員に楽させたいと思ってるわけじゃない、という大前提
人材なんて時間いっぱい、めいっぱい働かせてナンボ
安いアプリを買って、あとは社員にやらせて、それで回ってるなら何も問題ないんだよ

2021/10/09(土) 09:27:27.16

高い金出して高価な専用ソフト使うくらいなら
多少残業代だしてもいいからボロソフト使ったほうが安上がりだからな

2021/10/09(土) 09:42:15.79

エクセルはマス目状に文章を入力できるソフトぐらいにしか思ってない人もいるしなあ

2021/10/09(土) 15:35:55.10

>>354
ウチの会社の事務方ほとんどそれだわ
セルの結合しまくって数値手入力とか当たり前

2021/10/09(土) 20:10:49.92

セル結合せずにせめて広げろや、とは思う

2021/10/09(土) 20:26:49.65

セル結合とvlookupをディスってようやくエクセル使いとして一人前

2021/10/09(土) 20:30:33.16

べつにvlookupは悪くないだろ俺は使いたくないけど

2021/10/09(土) 20:58:23.98

>俺は使いたくないけど
さりげないアピール

2021/10/09(土) 20:59:19.46

>俺は使いたくないけど
さりげなさを装ったアピール

2021/10/09(土) 21:05:39.47

VLOOKUPディスってるのは情弱だろ
2016からめっちゃ高速化されてるから数万行ぐらいなら普通に使える

2021/10/09(土) 21:11:18.66

高速化とかどうでも良い
左端しかデータが使えないのが不便
無駄な検索用データが全部左端に固まる

2021/10/10(日) 06:43:03.77

個人的に使いたい使いたくないは仕方がない
適材適所で最適解を出す手段に自ら縛りを掛けているだけだから
それで他の人に迷惑掛けている訳でなければとやかく言う筋合いでも無いしな

2021/10/10(日) 08:15:02.57

>>362
XLOOKUP使え
うちの環境だとまだ使えないけど... orz

2021/10/10(日) 10:34:27.64

index matchでええやん

2021/10/10(日) 15:09:30.75

MATCHはいちいちIFERROR組み込まなきゃいけないから式が冗長になりがちであんまり好きくない

**デフォルトの名無しさん** (ｽﾌｯ Sdea-JSxF) · 2021/10/10(日) 15:39:33.06

そもそもスピードは求めてない
元データを1日に何回もアップデートするわけじゃないし

2021/10/10(日) 15:46:10.06

>>366は何使ってんの？

2021/10/10(日) 16:04:08.10

>>368
あんまり関数でデータベース検索かけたくないけどかけなきゃいけないならXLOOKUP、自分以外が使う可能性があるならVLOOKUPかHLOOKUPかなぁ
状況に合わないならMATCHも使うけど使用優先度は低め

VBAにやらせる時も中に確実に存在する場合でなければRange型にFind使って放り込む事が多いかも
Is Nothingで見つからない場合でも処理が止まらずに弾けるし

2021/10/10(日) 16:23:38.63

あごめん>>364かと思ってた

処理が止まらずにってのすごい大事だよなぁ

2021/10/10(日) 16:30:18.62

>>370
364だけどVLOOKUP使えるならVLOOKUP
そうでなきゃINDEX+MATCH
大抵そうじゃないの？

2021/10/10(日) 16:51:12.87

ある行を内容の変更は自由にできるけど削除できないようにすることはできますか？

2021/10/10(日) 17:26:53.27

それ、ここでする質問？

2021/10/10(日) 17:53:50.05

>>372
削除を感知して、
https://kirinote.com/excelvba-row-event/

削除されていれば
appliction.undo
ってのはどうだろうか

2021/10/10(日) 18:04:32.90

ゴミみたいな回答ばかり

2021/10/10(日) 19:05:42.11

じゃあ、ゴミじゃない回答よろ

2021/10/10(日) 19:35:34.55

「削除できないように」というのが：
・「セルや行の削除をできないようにしたい」→シートの保護で対処
・「値の変更はできるが消去（空欄に）できないようにしたい」→入力規則で対処

2021/10/10(日) 20:12:04.54

対処の方法がわからないのかと思ったら、対処する方法があるのかどうかの質問だったのかｗ

**372** (ﾜｯﾁｮｲ 67da-JSxF) · 2021/10/11(月) 00:26:21.39

>>377
シートの保護で削除不可を選んでも全ての行が削除不可になること，またセルの内容変更もできなくなるので希望に合いません．
374さんのやり方をVBA画面をで書くしか無いですかね

2021/10/11(月) 14:09:59.80

>>379
保護する前に行選択しておけばいいやん
任意の場所だけ編集不可にできるよ

2021/10/11(月) 14:59:32.76

>>380

> 任意の場所だけ編集不可にできるよ
編集不可ではなくって、編集可で削除不可にしたいんです。

2021/10/11(月) 18:57:29.54

空白に編集する場合とかどう取り扱うつもりなんだろう

2021/10/11(月) 20:49:58.25

クビか配置転換したほうがよいかと

2021/10/11(月) 21:18:23.92

馬鹿でもある程度作れてしまうからダメなんだよな

2021/10/12(火) 18:51:44.09

それを求める環境が悪い

2021/10/14(木) 18:44:35.26

空白は削除じゃないんじゃね

2021/10/14(木) 19:05:30.78

メーカー開発設計だけど実験データ処理とかで
なれないながら頑張ってvba使ってるけど
試行錯誤で調べながらだからあんまりシート使ってるときと比べて効率化できてる気がしない…
でもシートでチマチマするよりは知的労働してる気がするし
いつかのペイオフを期待するわ

2021/10/14(木) 20:42:17.77

あるレベルを超えると突然やりたいことはこうやりゃいいじゃんってなってバリバリ書けるようになる