Excel VBA 質問スレ Part60

■ このスレッドは過去ログ倉庫に格納されています
2019/03/16(土) 20:39:09.64ID:6HWXzj9o
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/
2019/04/11(木) 00:47:10.88ID:tqqNlMCs
問題点がなにかも自覚しないから不満なだけで止まるんだよな
で、自分ではなくツールのせいにする楽なこった
2019/04/11(木) 00:55:46.53ID:7m5ZQ9KZ
老害的な様相を呈してる
2019/04/11(木) 12:26:22.18ID:flnPu98l
>>610
言いたかないが、それはレベルが低いだろ。
普通に考えれば分かることだ。
2019/04/11(木) 15:17:56.46ID:t6ZqSbU2
>>603
＞でもSQLでやるようなクエリーはもちろん不向きだし、途中段階のデータ加工処理にも不向きだと思うんだがね。

工夫次第で普通にできる。別に不向きじゃないと思う
そういうのはAccessのほうが向いてると言われればその通りだと思うが
2019/04/11(木) 17:36:19.55ID:PzEny+LO
また不毛なマウントの取り合いしてる…
2019/04/11(木) 18:18:36.48ID:ekNCzMbf
不毛で悪いか
2019/04/11(木) 18:23:33.78ID:e8i1eyfO
また髪…
2019/04/11(木) 18:50:46.18ID:Vn+FQLol
やめろ
619デフォルトの名無しさん
垢版 |
2019/04/11(木) 20:16:57.24ID:v9KwxSkL
同時接続数の超えられない壁
2019/04/11(木) 20:48:03.35ID:flnPu98l
>>614
元々のVBAを使わずにExcelの機能を使うっていう話の観点で言えば、データが多くなるとExcel関数ではどうにもならないくらい遅くなるということがある。

銀行のデータ整合性チェックをしたことが有るんだが、10万以上のデータでSUMPRODUCTとか全くのアホなことやってたな。
その時はSQLじゃ無いけどVBAで組んだら一瞬になったけど。

今の仕事でも50カラムぐらいで40万件ぐらいのレコードをExcelに吐き出してるのを扱ってるがVBA使わずに関数とか正気の沙汰とは思えない。
2019/04/11(木) 21:06:30.96ID:JHOkJdt/
10万くらいなら関数でも楽勝だろ
自動計算切れば普通に動く
2019/04/11(木) 21:12:19.70ID:2g6t5Llw
数値だけなら楽勝だけど文字列のfindとかは結構キツイ
＞10万以上のデータでSUMPRODUCT
これ列全体指定してたら多分計算終わらん
2019/04/11(木) 21:33:34.25ID:7m5ZQ9KZ
ワークシート関数は使い捨てならいいんだけど残して運用し続けるのはつらい
2019/04/11(木) 22:23:07.59ID:+qS75l5K
データベース的に使ってるエクセルテーブルで関数従属関係をワークシート関数で実現するのやめてほしいよな
2019/04/12(金) 01:26:49.44ID:L59U/aC1
Excelっていうか表計算ソフトは
ゼロから設計し直したほうが良いと思う

セルごとに個別の計算式が入っていて
どれか一つが間違っていても
簡単に気づくことが出来ないとか
一つのセルだけ修正し忘れとか
メンテナンス性が悪すぎる
626731
垢版 |
2019/04/12(金) 01:40:03.71ID:7vLuIMdD
>>625
え？
少なくとも後者は教えてくれるぞ？

前者は数式表示モードにするか、横にformulatextで表示しとけば？
2019/04/12(金) 05:49:04.40ID:V1CbV9zt
OpenTextFileとCreateTextFiledeのメソッドが返すTextStreamには双方でなにか違いがあるのでしょうか？
ファイルの書き出しにはTextStreamのWriteLineメソッドを利用しています。

FileSystemObjectを使ってテキストファイル(拡張子無し)を作成して、
書き込みを行う処理を実装したいのですが、
CreateTextFileを使うとError 5 となりファイルは作成されるのですが書き込みができないことがたまにあります。
発生頻度が少なすぎて原因を抑えられず、
自力ではここまでが限界のため、何か思い当たることがあればご意見を頂けますと助かります。


OpenTextFileのほうでは少なくとも確認できる限りではエラーが発生しませんでした。


CreateTextFile
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/createtextfile-method
OpenTextFile
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/opentextfile-method
2019/04/12(金) 06:48:58.09ID:jwc5+7Nd
>>625
その意見を支持する
2019/04/12(金) 08:12:24.74ID:cAaoTUDS
>>621
SUMPRODUCT知らないか、10万のデータでどういう使い方するのか想像出来ない奴は黙ってろ。
2019/04/12(金) 08:24:36.34ID:LhXUTlO1
>>629
SUMPRODUCTは所詮O(N)だから実質的な計算量はたかが知れてる
遅けりゃSUMPRODUCT使わないで一時セル使った単純な式に展開してもいい
2019/04/12(金) 08:49:24.60ID:wLs4Sov9
＞所詮O(N)だから実質的な計算量はたかが知れてる
O(n2)以上だよ
めちゃくちゃ多い
2019/04/12(金) 09:00:04.80ID:xRzutCJ1
>>631
O(N^2)となる根拠は？
実装がヘボいのかもしれないけど、仮に手計算でやったとしたら基本的に計算量は行数に比例するだろう
それなら一時セル使えば確実にO(N)で済むよ
2019/04/12(金) 10:26:44.15ID:39D1tbGN
>>620
そりゃSUMPRODUCTとか使われたら話は違ってくるわな
>>630にあるように工夫すればいいってこと
2019/04/12(金) 10:47:24.57ID:cY6WK7UC
絶対参照の範囲と相対参照の範囲をSUMOTODUCTする場合は平気でO(n^2)になるよ
Excelでシミュレーションとかしてるとよく出てくる
2019/04/12(金) 11:44:00.15ID:LhXUTlO1
>>634
それこそ一時セル使えば済む話だろう
2019/04/12(金) 11:48:22.60ID:cY6WK7UC
>>635
済まないんだよ
想像力足りてないぞ
2019/04/12(金) 12:22:33.93ID:cAaoTUDS
元々無理矢理VBA使うのはって話から始まってるが、もはや無理矢理関数使うことになってる件w
2019/04/12(金) 13:20:22.74ID:L59U/aC1
>>625
> 前者は数式表示モードにするか、横にformulatextで表示しとけば？

それぞれが微妙に違ってる（セル座標のこと）画面からはみ出るぐらいの
長い数式が何十個も表示されていて、それがワークシートを
コピーするたびに量産されていくという状態で
全部見て間違いがないことを確認できるわけ無いだろ
2019/04/12(金) 13:41:42.81ID:cY6WK7UC
>>638
全然本質的な解決にはならないけどR1C1形式にすればセル参照含め同じ数式になって多少は見やすいぞ
2019/04/12(金) 19:58:52.20ID:BpmudOIO
>>638
その考え方が間違いだろ
フォーマットは統一しろよ
みて確認なんかしない
2019/04/12(金) 20:04:10.53ID:kdt5VzkQ
>>640
何を言ってるんだ？
一見してフォーマットが統一されているように見えていながら
誰かがミスして数式が壊れたり、修正が必要な時に漏れたりするから
問題だって言ってるんだろ。

フォーマットを統一するのに「人間がミスをしなければ」という
不可能な条件があるから、だめなんだよ
2019/04/12(金) 20:21:45.21ID:BpmudOIO
>>641
個別に修正なんかしない
そんな事するからミスをする
2019/04/12(金) 20:22:49.28ID:kdt5VzkQ
> 個別に修正なんかしない
シートにデータ入れる時点で修正するんだが？
2019/04/12(金) 20:24:13.41ID:kdt5VzkQ
そうそう。エクセルというか表計算は
データと処理（セルに入れる関数）と見た目（色等）が
一つに結合してしまっているという大きな欠点があったな。

分離されてないので、何かを修正する時に
別の何かまで変更してしまって、それに気づかない。
2019/04/12(金) 20:27:00.42ID:BpmudOIO
行でデータを作ったら
列には必ず同じ数式しか入れない
バカなことしてたら何時までも進歩しない
2019/04/12(金) 20:29:31.50ID:kdt5VzkQ
> 列には必ず同じ数式しか入れない

列には同じ数式入れるとかアホやろｗｗｗ

DRYじゃない。同じ物は一つだけでいい
2019/04/12(金) 20:30:26.99ID:kdt5VzkQ
あ、DRYっていうのは同じことを何度も繰り返すなってことねｗ
わかりやすく言えば、コピペするなってこと。
2019/04/12(金) 20:31:21.74ID:BpmudOIO
バカに入力させるなら
式はロックしとけよ
2019/04/12(金) 20:39:29.55ID:kdt5VzkQ
「式をロック」したいだけなのに
そうすると今度はセルの幅などが変えられなくなる。

細かく設定すれば可能だが、面倒くさい。
メンテナンスする人はいちいち解除しないといけない

そして、どのセルがロックされているかわからない
頑張ればできるが・・・

どんどん無駄な頑張りが必要になる。
2019/04/12(金) 21:28:36.09ID:gNUIO5L9
accessや.netで作るとメンテナンスもっと面倒だよ
2019/04/12(金) 21:41:38.90ID:bJr/2B+h
>>627
そのエラーが出る部分のコードは？
2019/04/13(土) 11:19:08.13ID:D8o23bai
>>649
それ、単に考えが雑なだけだろなんにしても
計画性もなく適当に増殖させるから自分でも制御できなくなる
2019/04/13(土) 11:37:11.36ID:R4ZFT5Jg
セルロックは色々面倒くさくなるのは同意。ほぼ変更なしまで完成されてれば別だが。
なので、自分用とか、可能であれば、式セルに薄い色つけてる。
2019/04/13(土) 11:40:20.37ID:D8o23bai
まあ、ある程度データが大きくなったら、データーはテーブル＆数式で処理して
表示、印刷はピボットを使うかフォーマットを定義したシートでまとめろよ
目的も、機能も行き当たりばったりってExcelのシートもVBAも負担なだけ
2019/04/13(土) 11:50:25.55ID:D8o23bai
>>653
コメント入れればいいんだよ、印刷しなければ問題ない
面倒くさいって、管理できればそんな必要はないけどな
2019/04/13(土) 12:09:21.02ID:6byp94bf
その管理が面倒くさいって話

修正でシート変更したとして、
今度から新しいシート使ってくださいとか言っても
間違えて古いシート使ってきて、でも見た上違いわかんねとかさ

エクセルファイルをコピーした分だけ
プログラム（セルに入れる関数のこと）が複製されるから管理不能。
一つのエクセルファイルを共有して使うとか

何人も人がいればやらんだろ？
それぞれ個別のエクセルファイル修正して提出とかだろ？
2019/04/13(土) 12:41:36.98ID:DFBgdaK8
削除や挿入でセルがずれない設定があればねぇ
今のところindirectしかない。indirect使うと数式が読みづらくて死ぬ
2019/04/13(土) 13:09:48.18ID:3yfR9cCP
offsetで大体逝ける
始点がずれるのはむしろ使いやすい
2019/04/13(土) 18:07:35.12ID:U599Z1h6
offsetか、滅多に使わないけどindirectよりは楽そうだ
2019/04/14(日) 09:28:16.57ID:WyY+5dun
>>657
わかりやすい名前を付けてそれを使えばズレないだろし分かりやすい
661デフォルトの名無しさん
垢版 |
2019/04/14(日) 09:40:00.62ID:C6oAesku
VBAの一番の欠点は情報が圧倒的に少ない
多言語の1億分の一くらいの情報量
質問してもアンサーが遅い
2019/04/14(日) 09:47:43.05ID:Q3MA08tK
Webで有用な情報を発信できるレベルの人間ならそもそもVBAなんて使いたがらないからね
2019/04/14(日) 11:20:06.68ID:CXJ+kocl
えー
少なくともの本後の情報は十分だろー
2019/04/14(日) 11:20:38.15ID:CXJ+kocl
の本後→日本語
665デフォルトの名無しさん
垢版 |
2019/04/14(日) 11:25:05.41ID:C6oAesku
少しはみ出した使い方とかも出ないし想定内の情報のみ
2019/04/14(日) 11:29:14.13ID:CXJ+kocl
まあね、最近のスマホの使い方みたいに
「見ればわかるよ」ってのが長々と書いてあるね
2019/04/14(日) 12:01:54.76ID:8k8FRXsi
ツイッターでVBA検索しても出てくるだろ
2019/04/14(日) 12:23:51.23ID:TZDtV4Z3
Excel VBAは玉石混淆だけどまぁまぁ情報はネット上に転がってる
Access、OutlookのVBAも最低限の情報ならば探せる
これがPowerPoint、Word、Publisherとかになると途端に情報量が減る
2019/04/14(日) 13:00:23.72ID:XgRuwrtZ
>>661は釣りだぞ
検索力低いですね＾＾；って返すとこまでがテンプレ
670デフォルトの名無しさん
垢版 |
2019/04/14(日) 15:06:27.05ID:v38VY+Mw
検索力の問題とかじゃなくて情報量が圧倒的に少ないのは事実
VBAプレイヤーの絶対人数が違うんだから当然だけど天才的な人もいない
2019/04/14(日) 15:09:37.61ID:dD4X90o9
天才的な人がVBAなんか使うわけないだろ
2019/04/14(日) 15:11:39.40ID:XgRuwrtZ
VBAの情報量と言われても、EXCEL操作できればそれでいいんだからそれ以上何かいるんけ？
2019/04/14(日) 20:42:13.83ID:ta3d6Ir8
単純なExcel操作の範疇ならそこそこ有能そうな人の記事もあるよね
能力の低い人ほどそれ以上のことをVBAでやろうとするからな
2019/04/15(月) 08:13:02.92ID:ZEg6Csuk
VBAしか見ないから少ないと感じる。
普通のExcel操作なんて皆知ってることばかりだろう。
2019/04/15(月) 08:13:28.72ID:ZEg6Csuk
VBAしか見ないから少ないと感じる。
普通のExcel操作なんて皆知ってることばかりだろう。
2019/04/15(月) 09:47:45.91ID:HgdD6hHz
パワーポイントとワードは同じVBAでしょはよ作ってね
たかがvbaだし期間なんて要らないよねよろしくー
みたいなん多くてうげーてなる
2019/04/15(月) 11:01:10.68ID:OAOOS1Vr
>>676
すまないが、日本語で書き直してくれ
2019/04/15(月) 11:24:35.03ID:K9PTdoK0
わかるけど...
2019/04/15(月) 12:40:48.29ID:Es8LFln/
>>677
こういうことだろ

上司A 「パワーポイントとワードは同じVBAでしょ、はよ作ってね」
同僚B 「たかがvbaだし期間なんて要らないよね、よろしくー」
俺 「うげー」
2019/04/15(月) 17:13:58.76ID:IzRYxIuW
恥を忍んできくが

WordのVBAって、なんか使い道あんの？

オレは全角半角統一とか
余白ほかレイアウト調整とか
定型文挿入とか
そんな簡単なのは自作して使ってるけど
「高度な使い方」ってのが思いつかない

文章中心のデータに
定型処理って需要があんのかね
2019/04/15(月) 17:23:54.84ID:Es8LFln/
>>680
そんだけ活用できてれば十分じゃん
言語仕様を制限する方が余計な手間がかかるから、そのままなんでも使えるようにしてあるだけだろ

高度かどうかは置いといて、Word VBAの使いみちとしては、印刷物の寸法をちゃんと合わせたいとき
Word文書にVBAで罫線なりシェイプを書き込めばいいんじゃない？
682デフォルトの名無しさん
垢版 |
2019/04/15(月) 17:36:56.85ID:OAOOS1Vr
>>679
すごいな、読む気がなかったかもしれん
>>680
俺は、使ってっるリストボックスで選択した文字で
文書を変更して印刷している
高度である必要あるの？便利であればいいんでないの
2019/04/15(月) 17:41:14.99ID:UiI6zhV3
>>681
>>682
ああなんか救われた気がする
スレチ気味の質問だったが
ありがとう

素朴でも便利な小道具つくって行くわ
2019/04/15(月) 17:41:23.11ID:Es8LFln/
【1 OSの種類 　 　 　 　 .】 Windows10 Pro 64bit
【2 Excelのバージョン 　 】 Excel 2019
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
Visual Studio Community 2019を入れたら、Excelの設定があちこち勝手に書き換わってしまいました
そのうちの一つとしてVBEでスニペットが表示されなくなったのですが、直し方を教えてください
2019/04/15(月) 17:49:48.06ID:RSa+mOrL
>>680
スレタイ読めない馬鹿は死ね
2019/04/15(月) 19:14:26.59ID:32DOVlq8
>>680
昔作って、超低頻度だが役に立ってるのが、Windows乗り換えたときに全フォントのサンプル表示と印刷。

各種プログラムソースに色付け、A3縦二段組印刷。（最近はイチから解析しなくなったな〜…）
2019/04/15(月) 19:20:00.80ID:+NR2IFvh
＞全フォントのサンプル表示と印刷。
これ面白いな
2019/04/15(月) 19:35:47.06ID:ZEg6Csuk
>>680
ExcelVBAのソースコードを自動で色付けするのに使ってる。
2019/04/15(月) 19:39:30.60ID:ZEg6Csuk
>>686
VBAのキ−ワードの色付けは誰かがやってたからそれを貰って、コメントの色付けを追加して使ってる。
2019/04/15(月) 22:51:44.23ID:bKeRxbfM
>>680
>WordのVBAって、なんか使い道あんの？

ファミコンのエミュレーターとか。
2019/04/15(月) 23:20:36.68ID:cJmtAKHt
>>684
VSCodeでVBAを書け
以上
2019/04/15(月) 23:37:02.12ID:NJLxUmAX
Word VBAでVisualStudio作ろうぜ！
2019/04/16(火) 06:55:26.74ID:297VTHLy
>>690 は想像もつかないが
ほかは参考にさせてもらうわ
ありがとう
2019/04/16(火) 07:45:09.88ID:BVl9qEwk
WordのVBAはWord文書をgrepするときに使うくらい
2019/04/16(火) 18:45:28.10ID:e8yfqTUa
フォルダ内に存在するファイルが以下のように構成されています

2019-1-1
2019-1-2
2019-1-2修正1
2019-1-3
2019-1-4修正1
2019-1-4修正2

この時、それぞれの日のファイルのうち最も新しい物から値を吸い上げたいです
そこでまずはdir(ファイル1*)とdir()で更新日を比較、大きなものと次を比較...とやろうとしたのですがその場合日付が1桁表記であるため1-1と1-11の比較となり1-11が採用されてしまいます
この問題を解決するにはどのようなアプローチで行えばよろしいでしょうか？
なお、日付の次は必ずしも「修正」ではなく別のコメントの場合もあります

ヒントなど頂けますと幸いです
2019/04/16(火) 18:48:04.20ID:e8yfqTUa
すみません訂正です

1-1と1-1*で比較をしようとすると、狙いとしては”1-1修正”がある場合その比較だったのですが1-1と1-11の比較、1-11と1-12の比較...1-19(あるいはその修正版)が選ばれてしまいます
2019/04/16(火) 19:02:23.87ID:g+D3y3HH
>>695
"修正"の文字列が凶悪過ぎて無理だな
"修正"がなければsplit()で分けて、日付データにしてしまうのが一番手っ取り早いんだけど
2019-1-2-修正1
なんてあったらお手上げ
2019/04/16(火) 20:00:26.84ID:dymnkria
>>695
ファイル名ではなくファイル自体の更新日で比較は？
可能ならファイル名の付け方を考え直した方がいいと思うが
2019/04/16(火) 20:24:24.92ID:dymnkria
すまん>>696読んでなかった
Dir("1-1*")で"1-1修正"も読み込まれるはず
ファイル名が"1-1 修正"になってるってことはないか？
それとDirはファイル名昇順で返すから比較せず最後に読み込んだファイル名を使えばいいと思う
2019/04/16(火) 20:48:56.77ID:akR/dKKk
>>699
1-1修正
1-1最新
なんてのがあると、タイムスタンプ無視して修正が最後になるぞ
コメントが不定なら、数字とそれ以外の文字を判定して切り分けるしかない
2019/04/16(火) 20:53:51.23ID:g+D3y3HH
1-1修正
1-12回めの修正（「1-1　2回めの修正」のつもり）
ってパターンもあってもうこれ絶対にヤバイ処理
2019/04/16(火) 21:09:05.64ID:dymnkria
>>696
すまん更に勘違いしてた
"1-1修正"が出て来ず他のが出てくると言ってるのかと勘違いしてた
>>698が無理ならファイル名をsplitで"-"で切って、3つ目の文字列から左2文字のうち数字だけ取得する
ただし>>701の言うようにコメントの最初に数字が来ることがあるならどうしようもない
2019/04/16(火) 21:16:48.22ID:nc1CJru4
postfix扱いの「コメント」に規則性がないのならそもそも最新版を特定する術がない
運用の方を変えるべきだろう
2019/04/16(火) 21:43:33.41ID:g+D3y3HH
最新版以外はoldフォルダ作ってそこにほおりこんでおく
そうすれば超簡単に出来る
2019/04/16(火) 22:27:43.62ID:XA2NKST4
>>それぞれの日のファイルのうち最も新しい物
新しいとする基準は何？
ファイル名で修正1修正2ってあったら修正2が最も新しい？
日付部分のyyyy-mm-dd（ただしmmとddは一桁もあり得る）が固定なら
毎回癖のあるdirとワイルドカードなんて使わないでファイルリストすべて取得してから処理したら？
706デフォルトの名無しさん
垢版 |
2019/04/17(水) 05:30:44.38ID:pTGno1t2
新たにVBAライブラリを作ったりする人が全く出ないのが取り残された言語の欠点
他の言語は次から次へとライブラリが追加されてより便利に快適にそして簡単になるのに
終わってるVBAには将来性も可能性もないから仕方ないけどね
2019/04/17(水) 05:35:40.84ID:JxFBTN19
Sub macro1()
　　ChDir "指定フォルダ"
　　指定日 = "2019-1-1"

　　f = Dir(指定日 & "*.*")
　　Do While f <> ""
　　　　t = timestamp(指定日, f)
　　　　If t > 最新t Then
　　　　　　最新f = f
　　　　　　最新t = t
　　　　End If
　　　　f = Dir()
　　Loop

　　MsgBox "日付が" & 指定日 & "のうち最新の物は" & vbCrLf & _
　　　　　 "ファイル名 " & 最新f & vbCrLf & _
　　　　　 "日時 " & Format(最新t, "yyyy/mm/dd hh:mm")
End Sub

'ファイル名の日の桁数をチェックして、一致したらタイムスタンプを返す
'一致しなかったら0を返す
Function timestamp(s, f)
　　w = Mid(f, Len(s) + 1, 1)
　　If "0" <= w And w <= "9" Then
　　　　timestamp = 0
　　Else
　　　　timestamp = FileDateTime(f)
　　End If
End Function
2019/04/17(水) 07:27:27.84ID:Hz/wxCvM
>>706
確かに聞かないな
最新ライブラリで10年前とかの世界だ
709デフォルトの名無しさん
垢版 |
2019/04/17(水) 08:09:13.25ID:pTGno1t2
フォームにしてももう少しグラフィカルだったりアニメーションだったりするだけでイメージが全然違うんだけど
頭の良い誰がライブラリを作ってくれんかね
2019/04/17(水) 08:31:50.49ID:WtvpNXmt
多くの人にとって有用なライブラリを作れるほどの能力のある人なら、
VBAを便利にすることはVBAの延命や利用人口の増加を招き、それは即ち社会正義に反する行為であると理解しているからね
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況