Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/02/11(日) 17:24:07.93

>>150
> （ちなみに>>149がなにやら勘違いしているようだがCells(x, x)【Cells._Default(x, x)】が何を返すかを知りたかったわけではない）
その理解力で人を勘違い呼ばわりとか w

**デフォルトの名無しさん** · 2018/02/11(日) 17:54:51.66

>>151
俺からしたらおまえも>>150と似たりよったりだからw
まあ今回の件は僅差でお前の勝ちだけどw

**デフォルトの名無しさん** · 2018/02/11(日) 18:02:54.57

メゾット君も負けを認められるほど成長したかと感心したもののレス見ると何で勝利宣言してんのか分からなかった

**デフォルトの名無しさん** · 2018/02/11(日) 21:45:11.45

今回の使い方は良いのか悪いのか
ちょっと判断つきかねるなぁ
可読性がちょっとね

扱い方そのものは悪いとは思わない
書いてる人も気付いているか分からないけど
やってることはデコレータパターンの
それにかなり近いんだよね
洗練されればそれなりに便利かも知れないね

**デフォルトの名無しさん** · 2018/02/11(日) 22:48:44.70

タスクスケジューラで、Private Sub Workbook_Open()、の記述のあるブックを開くと、
Private Sub Workbook_Open()が実行されるときもあれば、実行されないときもある。
なんでなんだろ？
その違いが今のところ掴めないでいるんですが、どなたか何か情報をお持ちではないですか？

**デフォルトの名無しさん** · 2018/02/11(日) 23:09:13.81

>>155
ログオフしてるときに動かしたいなら事前にちょっと設定が必要だけどそこら辺は大丈夫？
http://gagaj.hateblo.jp/entry/2015/03/21/162218

**デフォルトの名無しさん** · 2018/02/11(日) 23:28:58.59

>>156
ユーザーがログオンしているときのみ実行する、にチェックが入っていますので違うと思います。
念のため、紹介してもらったサイトに従いフォルダを作成しましたがそれでも変わらずです。
他に情報ありましたらお知らせください。ありがとうございました。

**デフォルトの名無しさん** · 2018/02/12(月) 07:06:15.59

>>155
実行されない時があるってことは実行される時もあるの？
auto_open()も試してみてよ。
微妙に挙動が異なるので動くかも。
詳しくは違いでググって下さい

**デフォルトの名無しさん** · 2018/02/12(月) 08:05:14.90

あほやなあオープンマクロが動かんのはオープンしとらんからにきまっとるんやがw

**デフォルトの名無しさん** · 2018/02/12(月) 08:30:35.08

>>157
> 他に情報ありましたらお知らせください。ありがとうございました。
て言うかまずお前が情報書けよ

> ユーザーがログオンしているときのみ実行する、にチェックが入っていますので違うと思います。
なんて後から言われても困る

**デフォルトの名無しさん** · 2018/02/12(月) 10:49:27.81

スケジュールで走らせるのが目的なら
イベントにたよらなくても
VBSからVBAのプロシージャを直で指定して呼べた気がする
でVBSの方をスケジューラーに登録しておく
ググれば方法が見つかると思うのでお試しあれ

**デフォルトの名無しさん** · 2018/02/12(月) 11:56:54.51

>>86
おまえはどんなショボいPCを使っているのか？Windows95でCPUは486DXか？

**デフォルトの名無しさん** · 2018/02/12(月) 12:41:45.34

>>161
COM経由で操作するなら似たようなもん

**デフォルトの名無しさん** · 2018/02/12(月) 14:28:15.32

へーsystemアカウント用のDesktopフォルダ作るのか
なるほどね

**デフォルトの名無しさん** · 2018/02/15(木) 10:49:13.30

VBE起動したあとVBEのウィンドウを最大化するんだけど、
ブックを閉じてVBEを開くと小さいウィンドウで開くから、また最大化する・・・のが面倒なんですが、
前回終了時のウィンドウサイズを記憶させることってできます？

**デフォルトの名無しさん** · 2018/02/15(木) 12:06:52.20

>>165
標準機能では無理
【気軽に「こんなソフトありませんか？」Part.176】
https://egg.5ch.net/test/read.cgi/software/1511329804/

**デフォルトの名無しさん** · 2018/02/17(土) 18:05:06.20

vbaで正規表現書いていたのですが(?:)って使えないんでしょうか？
キャプチャして欲しくない部分が結果に混ざるのでできれば最初から消しておきたいんですが
結果に対して処理するしかないんですかね

**デフォルトの名無しさん** · 2018/02/17(土) 18:26:45.53

>>167
いま手元に環境ないから試せないけどRegExp (Microsoft VBScript Regular Expressions 5.5)使ってるなら使えるはずだが...

**デフォルトの名無しさん** · 2018/02/17(土) 18:39:43.21

>>167
普通にキャプチャしてSubMachesで必要な部分だけ取り出せばいい

**デフォルトの名無しさん** · 2018/02/17(土) 20:20:00.39

できました
ありがとうございました

**デフォルトの名無しさん** · 2018/02/18(日) 00:43:49.98

>>170
礼などいらんよ

**デフォルトの名無しさん** · 2018/02/18(日) 09:52:01.75

>>170
いいってことよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/02/20(火) 20:34:05.33

派遣先の親分がVBAの動作速度の改善のためにHDDをSSDに替えよう
なんて言っているけれど
VBAとSSDって動作速度の面で関係ありますか？

これってSATA接続のHDD上のExcelファイルを編集するのとUSBメモリ（USB2.0接続）では速度差が出ると言っているようなものだろうけれど
いかんせんUSBメモリはすべて捨ててしまって検証が出来ないです…

**デフォルトの名無しさん** · 2018/02/20(火) 20:46:01.61

>>173
派遣先の親分に対して何がしたくて、どういう裏付けのための「お言葉」を貰いに来たの？

**デフォルトの名無しさん** · 2018/02/20(火) 20:51:34.56

>>174
SSDには拘らずPC全てを新調する流れに誘導したいです

**デフォルトの名無しさん** · 2018/02/20(火) 20:54:53.19

ファイルを100個作って保存するとかなら効果あるかも？
誤差の範囲だと思うけど

VBAの速度を上げるならCPUパワーとロジックに力をそそぐべき

**デフォルトの名無しさん** · 2018/02/20(火) 21:13:27.65

やっぱり、そう思いますよねー
ちなみに10シート1000行50列をそれぞれ入力規則10種に違反しているものは無いかくまなく調べる…
みたいなマクロなんですけど
開発者は条件分岐はとりあえずIf文をネストすれば良いみたいな考え方らしくSelect文がゼロなんですよ
これってなんか工夫できそうな気がするんですけど
まぁもうちょっと分析してみます

**デフォルトの名無しさん** · 2018/02/20(火) 21:20:14.98

ごめんなさいIDかわりました

**デフォルトの名無しさん** · 2018/02/20(火) 21:36:39.55

たぶんループ内でセルアクセスしまくってるだろうから
一気に取ってきてメモリで処理して結果をズドン
にすれば1000倍オーダーで高速化するでしょう
健闘をいのる

**デフォルトの名無しさん** · 2018/02/20(火) 21:45:10.31

とりあえず親分を立ててSSDにする
↓
ほとんど全て作業が快適になるけど肝心のマクロは変わらず
↓
やっぱりCPUか、でPC新調する
↓
もったいないので新PCにSSD載せる
↓
マクロも他の作業も爆速になる

これしかないやろ

**デフォルトの名無しさん** · 2018/02/20(火) 21:51:41.56

>>179
セルアクセス！初耳にして今後のキーワードになりそうな言葉です！
がんばります！

>>180
そこまで景気よく行けたらいいなぁ…

**デフォルトの名無しさん** · 2018/02/20(火) 22:19:42.59

セル.valueを一旦全部配列に取り込んで
メモリ上で処理して
配列を最後にまとめて貼り付けれ
画面描画とイベント抑止も追加な

**デフォルトの名無しさん** · 2018/02/21(水) 07:37:11.81

>>177
まぁIf文でもSelect文でも使いどころが見合ってればいいけど
それより気を付けなければいけないのはOrやAndの扱いだね。
.Net系のOrElseやAndAlsoと違って前に設定した条件を満たしていても後続の条件を評価してしまう。

まだ単純な値を比較するなら誤差程度の時間差しか出ないけど
関数やメソッドの戻り値を条件にしていて、
その関数が重い処理であればそれだけ無駄な時間が掛かってしまう。

後はもしクラスに詳しければポリモーフィズムでなるべく無駄な分岐は避けた方が良いかな。
その分処理時間だけでなく改修やテストの時間も削減が見込める。

**デフォルトの名無しさん** · 2018/02/21(水) 23:14:40.16

処理時間の高速化が目的なら
セル範囲をバリアント型配列に代入して配列内で処理をしてから、処理後の結果を配列からセル範囲に出力すれば劇的に早くなるよ

**デフォルトの名無しさん** · 2018/02/22(木) 01:57:42.07

エクセルで家計簿作りたいんだけど、みんなどうしてるん？
ものすっごい管理するのが面倒くさくなるんだけど…

家計簿を複式で書きたいから毎回商品名やら収入支出まで全部書くんだけど、
最近面倒臭くなってきたからこの辺の操作を簡略化したいのよ

商品名を全部書くのが面倒くさいから大雑把な商品項目を作って
商品項目の選択制にしたいんだけどどうすりゃいいんだ？

例えば、お茶買ったとしたら、飲み物って項目を選択して
収入支出のどっちかを選択して金額を入れればいいだけ、みたいな
あと、飲み物のグループだけを表示できるようにしたりもしたい
自分がその月に何にお金を一番使ってるのか項目毎に分析したいんだ

**デフォルトの名無しさん** · 2018/02/22(木) 05:34:45.99

ユーザーフォーム作って選択すればいいんじゃね？
あとはKey に該当する商品だけ合計するとかでおk

**デフォルトの名無しさん** · 2018/02/22(木) 07:11:07.10

>>185
セルを選択形式にしたいなら「入力規制」でググれ
だがその項目を決まった位置に書いておけば
それすら必要ないように思える。

多分VBA必要ない。

**デフォルトの名無しさん** · 2018/02/22(木) 07:13:19.54

>>185
つ「エクセル簿記」

**デフォルトの名無しさん** · 2018/02/22(木) 07:17:47.39

>>185
> 自分がその月に何にお金を一番使ってるのか項目毎に分析したいんだ
スレチになるけどそう言う目的あるならフリーの家計簿ソフト使った方がいいと思うよ

**デフォルトの名無しさん** · 2018/02/22(木) 08:05:56.18

フリーの家計簿ソフトなんて作ってるのはみんな>>185みたいな奴だぜ
オレオレ便利機能が欲しいから作っちゃいましたみたいな
家計簿なんてそんなもん
作れるなら自分で作っちゃうアプローチのが正解

**デフォルトの名無しさん** · 2018/02/22(木) 10:32:45.75

さらにスレチだけど、そもそも複式で書く意味って？
支出と費用計上のタイミングがずれる
収入と収益計上のタイミングがずれる
なんてことがある場合に複式の利点があるんだろうけど
そもそも家計簿作る人ってそこまでやんの？
米を１０ｋｇ買ってきました
資産計上します
消費の都度費用計上しますとか？

**デフォルトの名無しさん** · 2018/02/22(木) 18:43:19.33

アスペ感強すぎwww

**デフォルトの名無しさん** · 2018/02/22(木) 19:08:12.44

家計簿の無料アプリなんて、いくらでもあるだろ

既にあるものは作るな。
世の中に無いものを作れ

**デフォルトの名無しさん** · 2018/02/22(木) 19:45:49.11

ほんと定期的にやばそうな人くるよな

**デフォルトの名無しさん** · 2018/02/22(木) 21:13:28.78

++や+=や?みたいな演算子ないんでしょうか？
毎回代入やifしないと駄目？

**デフォルトの名無しさん** · 2018/02/22(木) 21:36:57.24

>>195
だめ

**デフォルトの名無しさん** · 2018/02/22(木) 21:45:28.24

ありがとう
不便だなあ…('A`)

**デフォルトの名無しさん** · 2018/02/22(木) 22:03:55.07

>>197
不便だよ
不便なところをどうやって何とかするのかを
考えるのもVBAの醍醐味

**デフォルトの名無しさん** · 2018/02/22(木) 22:05:36.37

>>195
?:（三項演算子）はIIf( )で似たようなことができる
ただしC++の三項演算子と違って関数だから引数はすべて評価される
なので
a = 0
b = IIf(a <> 0, 1 / a, 0)
とかやると0割りエラーになるので注意

**デフォルトの名無しさん** · 2018/02/22(木) 22:31:32.98

And や Or も前件だけで真偽判定してくれなくて全文評価するから不便だよな

**デフォルトの名無しさん** · 2018/02/22(木) 22:44:59.91

条件式は1本にまとめるよりIfをネストした方が処理が速いこともあるし
C#なんかとは考え方をまるっきり変えてコーディングしないと

**デフォルトの名無しさん** · 2018/02/23(金) 00:01:36.17

その内LINQやラムダ式が使えないから不便だって言う人が出てきそうな勢いだな

Pythoneまで待てや

**デフォルトの名無しさん** · 2018/02/23(金) 08:52:34.86

｢プログラミング環境なんて数年おきに改訂され進化していくもの｣
という感覚は正しい｡
しかしあたりまえが通じない世界もある｡
それが、「廃れた開発環境」と「リソースの足りないプロジェクト」だ。

**デフォルトの名無しさん** · 2018/02/23(金) 12:15:48.66

どしたの急に？

**デフォルトの名無しさん** · 2018/02/23(金) 12:32:39.13

Excel2010以降で、コンテキストメニュー追加するとき
commandbars().add
でコメントを右クリックした時のメニューは（）の中は何になりますか？

**デフォルトの名無しさん** · 2018/02/23(金) 22:05:45.08

コメントを右クリックの意味がわからん

**デフォルトの名無しさん** · 2018/02/23(金) 22:09:49.60

まずコメントって知ってるか？

**デフォルトの名無しさん** · 2018/02/23(金) 22:21:14.89

日本語崩壊しててワロタ

**デフォルトの名無しさん** · 2018/02/24(土) 00:24:56.44

ひょっとして、無指定だと何のショートカットキーが表示されるか(「開く(O)」みたいなの)を聞きたいのではなく(表示されないやろ…てか試せばよくね？と思ってた)、
commandbarsの引数に何を指定すればVBAのエディタのコメントを右クリックしたときのコンテキストメニューに項目を追加できますか？っていう質問なのか？
何の質問をしているのかまったく分からなかったが、がんばって一番意味が通りそうな解釈をしてみた

**デフォルトの名無しさん** · 2018/02/24(土) 00:54:26.24

よく頑張った、もう少しで賞を差し上げます

**デフォルトの名無しさん** · 2018/02/24(土) 03:12:36.02

どなたか知恵をください
日本語IMEの変換候補がドロップダウンリストで出てくるアレを
区切り記号入れて（カンマがいいかな）
一つのセルに列挙できませんかね？
例えばA1に半角英で「yama」と入力したら
B1に「山,ヤマ,やま,耶麻,耶摩,八馬,矢間」みたいな

**デフォルトの名無しさん** · 2018/02/24(土) 03:35:37.11

>>211
できる
基本的にはImmGetCandidateListかImmGetConversionListを使う
IMEの制御はドロ沼だからあんまり完璧を求めないようにほどほどにな

**デフォルトの名無しさん** · 2018/02/24(土) 04:09:09.96

>>212
即レスありがと！
そこのリファレンス読んでくるわ！

**デフォルトの名無しさん** · 2018/02/24(土) 23:15:34.68

MACでエクセルを使用して、ボタンクリックでphpを実行させてデータを取得してエクセル
に出力する方法を教えて下さい。

**デフォルトの名無しさん** · 2018/02/25(日) 02:02:21.78

モスじゃだめなのかい？

**デフォルトの名無しさん** · 2018/02/25(日) 07:39:33.73

寒っ

**デフォルトの名無しさん** · 2018/02/25(日) 10:24:12.12

今日は暖かいよ

**デフォルトの名無しさん** · 2018/02/25(日) 10:56:06.58

寒っ寒っ！！

**デフォルトの名無しさん** · 2018/02/25(日) 11:00:26.62

そだねー

**デフォルトの名無しさん** · 2018/02/25(日) 17:02:52.72

ここはエクセルの質問スレちゃうの？、あほばっかだな。

**デフォルトの名無しさん** · 2018/02/25(日) 19:21:52.64

ｿﾀﾞﾈｰ

**デフォルトの名無しさん** · 2018/02/25(日) 19:54:07.26

>>220
スレタイ読めが判ると思うが

**デフォルトの名無しさん** · 2018/02/25(日) 20:22:35.82

１０万件くらいのリストを作ってそれをある規則で並べかえたいんだけど、一番高速で行うにはどういう手法がありますか？

**デフォルトの名無しさん** · 2018/02/25(日) 20:39:07.10

お前がやらずに、出来る奴に
キチンと敬意と対価を払って
やってもらう
ノウとかハウとかは後で身に付けたらいい

**デフォルトの名無しさん** · 2018/02/25(日) 20:53:22.41

>>223
ggrks ([g]oogleでし[r]べてみた[k]っかです[s]んこうにしてね)

http://excel-ubara.com/excelvba4/EXCEL270.html

**デフォルトの名無しさん** · 2018/02/26(月) 07:46:27.51

>>225
すみません
ありがとうございました

**デフォルトの名無しさん** · 2018/02/26(月) 10:23:38.67

>>226
いいってことよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/02/26(月) 17:52:12.51

Ruby なら、VBA より速いし、そんなに難しくない

**デフォルトの名無しさん** · 2018/02/26(月) 18:56:12.78

Worksheet_SelectionChangeのコード中に､
If Target.Count=1 then Exit Sub
のところで今日急にオーバーフローのエラーが出るようになって
ちょっとググったらCountLargeというのがあることを知ってとりあえず解決したんだけど
一つのセルしか選択肢てないのに・・・
ウォッチ式にTargetを追加して確認したらTargetの中にItemはひとつしかないのにTarget.Countはオーバーフローってなんだこれ？

**デフォルトの名無しさん** · 2018/02/27(火) 23:52:36.36

コピー禁止

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.CutCopyMode = False

End Sub

コピー→別のファイル（Excelなど）に貼り付けが出来てしまう

コピー→マウスを動かすだけでキャンセルするようなVBAはないよね、、、。

**デフォルトの名無しさん** · 2018/02/28(水) 01:32:02.58

APIでクリップボード自体をクリアしたらダメかね

**デフォルトの名無しさん** · 2018/02/28(水) 01:36:53.98

>>209
コメントアウトのコメントじゃなくてセルに付与するコメントのことだぞ

**デフォルトの名無しさん** · 2018/02/28(水) 05:54:26.44

フォルダに大量に入ってる動画ファイルの名前と容量を抽出してエクセルファイルに出力したり出来ませんか？

**デフォルトの名無しさん** · 2018/02/28(水) 06:16:52.08

できらぁ!!

**デフォルトの名無しさん** · 2018/02/28(水) 07:17:25.76

VBAにできないことなんてないぞ

**デフォルトの名無しさん** · 2018/02/28(水) 07:39:47.81

え！！VBAでファイルの名前と容量の抽出を！？

**デフォルトの名無しさん** · 2018/02/28(水) 07:42:05.80

とりあえずファイル操作は全部FSO使っておけば何とでもなる

**デフォルトの名無しさん** · 2018/02/28(水) 08:04:41.58

ちょっと横からで申し訳ないです
>>233に似たようなことをFSOでフォルダ内のファイルを数万件取得していて、foreachで一つずつ配列にいれてるんだけどかなり時間がかかる。。一括で取得する方法とかありますかね？

**デフォルトの名無しさん** · 2018/02/28(水) 08:08:27.77

>>238
配列に入れないで処理する方法を考える

**デフォルトの名無しさん** · 2018/02/28(水) 08:11:14.51

エロ動画フォルダに入ってるファイルサイズ取得して一致したらかたっぽを削除するマクロ作ったわ

**デフォルトの名無しさん** · 2018/02/28(水) 08:23:05.93

そんなもんフリーソフト落としてくるだけで出来るわ。
一覧表に起こしてアレコレしたいときに捗る

**デフォルトの名無しさん** · 2018/02/28(水) 09:22:10.92

朝っぱらから元気で草

**デフォルトの名無しさん** · 2018/02/28(水) 18:29:56.39

>>233
エロ動画を大量に集めすぎてどこに何があるか微妙にすぐ見つけれなくなった俺と同じ悩みなんだろうか

**デフォルトの名無しさん** · 2018/02/28(水) 19:15:28.02

Function func(ByVal arg) As int
処理
End Function
Dim var As Function
var = address(func)
Call var(argument)
みたいに、関数へのポインタでコールするのはどう書くの。

**デフォルトの名無しさん** · 2018/02/28(水) 20:22:58.19

>>244
Dim var As Object
Set var = Ref(func)
Call ByRef var(argument)

**デフォルトの名無しさん** · 2018/02/28(水) 22:29:15.05

PowerShell なら以下で、ファイル名・サイズを、カンマ区切りで表示できる

cd で、そのフォルダへ移動してから、
ls | %{ $_.Name + "," + $_.Length }

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名

出力
test01.rb,341
test02.rb,216
test03.rb,453

**デフォルトの名無しさん** · 2018/03/01(木) 22:00:03.32

エクセルに出力できとらんやんw

**デフォルトの名無しさん** · 2018/03/01(木) 22:10:39.18

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名.csv

**デフォルトの名無しさん** · 2018/03/01(木) 22:22:42.13

でたwwwエクセルとcsvの区別がついてない奴wwwww

**デフォルトの名無しさん** · 2018/03/02(金) 07:10:15.29

ブックオープン時にフォームだけ開きたい場合ってどうしたらいい？