Excel VBA 質問スレ Part77

**デフォルトの名無しさん** (TW 0H42-j7SA) · 2022/07/17(日) 07:07:35.59

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

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

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

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

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

**654** (ﾜｯﾁｮｲ 1f32-TDLd) · 2022/09/18(日) 19:53:45.66

皆々様がたありがとう
とりあえず>>656氏の方針でいく

>>657
君はなにもわかっていない
他の商売は知らんがプログラマーの場合
「面倒くさい、なんか楽な方法ねえかな？」からスタートする
Zed Shawがそう言っている

2022/09/18(日) 19:55:06.18

はい、また他人の言葉を鵜呑みにする馬鹿でしたとさ

2022/09/18(日) 20:11:40.98

>>664
お前なにを勘違いしてるのか知らんけどプログラマーは
「楽をするためには苦労をいとわない」
という生物だぞ
単に楽をしたいなら>>662が言うように外注しろよw

2022/09/18(日) 21:07:19.77

んなわけない。
そういうのは、安月給でヤリガイ搾取されてるような交渉力のないゴミムシ。

2022/09/18(日) 21:30:30.41

このスレを含めてインターネットを鵜呑みにしてはいけません！

2022/09/18(日) 21:53:06.97

>>655
vba、C#、python、web系色々と勉強してきたけど、
単純なデータの入出力だけならエクセルvbaがダントツで一番楽

超絶高機能なエクセルってものがあるのにわざわざ他言語を選ぶ理由がない
なおスプレッドシート＋jsでも良い

2022/09/18(日) 22:11:40.89

プロのバックエンド・エンジニアなら、
YouTube で有名な雑食系エンジニア・KENTA の初心者向けRuby on Rails サロンが有名。
他には、RUNTEQ、東京フリーランスのデイトラなどもある

バックエンドは、Linux, Docker, AWS, データベース(DB)などが必須。
データベース・スペシャリストの資格があれば、部長クラス

RailsのO/R マッパーでは、DBの設計の仕方・組み方ばかり勉強する。
第3正規形、1対多・多対多とか、検索用インデックスの作り方など

2022/09/18(日) 22:19:10.17

>>670
釣り？それとも真正馬鹿？
それもいつものキチガイRubyクズ？

2022/09/18(日) 22:23:40.29

rubyとかもうすぐ無くなる言語じゃん

2022/09/18(日) 22:27:42.29

VBAももうすぐ無くなると言われてから延命してるな

2022/09/18(日) 23:15:37.10

Rubyとか2005年で時間止まってる？

2022/09/19(月) 01:07:42.95

>>669
ほんとうにそう思う
データをシートに書けばいろいろ考える必要なくアクセスできるもんね
IDEでそういうとこが簡単にできるシートを作って欲しいもんだ

2022/09/19(月) 01:41:49.94

この人もRubyがいいと言っている。
https://youtu.be/ipMC90r26uA

完全に時代遅れ。
もうむちゃくちゃ。
自分を客観視できていない。

2022/09/19(月) 05:00:23.87

>>675
小規模なデータしか扱ったことのない馬鹿

**sage** (ﾜｯﾁｮｲ 1f32-TDLd) · 2022/09/19(月) 08:40:56.76

↑
なんか幼稚な煽りしてる奴いてるなあ
そんなことしてて楽しいのか

2022/09/19(月) 09:31:55.83

このまえ2000万レコード扱った時はC#でSQLite使った

2022/09/19(月) 10:27:41.73

そろそろExcelもビッグデータを扱えるようにしないと時代に取り残される
最低2億レコードぐらいは一発で実用時間内で処理できないと

2022/09/19(月) 11:09:06.92

tksqlite便利ですぉ

2022/09/19(月) 11:17:10.29

それソフトよりもハードの問題じゃね

2022/09/19(月) 14:37:24.08

>>679
どうだった？
更新、遅くならんかった？

2022/09/19(月) 14:45:49.33

>>678
内容を理解できない馬鹿は黙っていればいいのに

2022/09/19(月) 15:32:14.37

>>680
アクセスでさえテーブル容量に2GBの制限ｂｪあるらしいのｂﾅ、エクセルにｂｻんなもの求めｂﾄも仕方がないｂﾌでは？

2GBでも、中小企業の在庫管理には十分だし。

エクセルの使い道がない人は、無理して使うものでもないと思います。

2022/09/19(月) 16:01:28.33

>>683
てか、VBAスレでその質問するからには、エクセルとの比較で聞いてるんだろうけど
そもそもエクセルでこのボリュームのデータ扱えないから比較できない
データベースファイルだけで4GB超えるから

2022/09/19(月) 16:05:58.47

>>686
SQLiteで2000万レコードについて聞いてますよ。
以前試したときは、ファイルが10GB超えるあたりから性能が悪化したんだけど、今はどうなのかなと思って。

2022/09/19(月) 16:10:19.86

>>687
遅いですよ
自分の用途だと十分だけど

2022/09/19(月) 16:24:13.35

そうですか。
ご親切にどうも。

2022/09/19(月) 18:23:11.48

win10
office2019

VBAの相談なんですけど、test.xlsmというファイルで練習をしていて
エラーが出てエクセルが落ちてしまいました。
そのあと、復旧したファイルでコードチェックをしてエラーが出ないようになりました。
しかし、test.xlsmファイルを開くと「セキュリティに問題がある」うんぬんという警告が
そのファイルでだけ出るようになりました。

ささいな事ですが気になっています。
もしかして特定のコードを含んでいると出るのでしょうか？
ループ処理が多いとか。

2022/09/19(月) 18:26:26.58

マクロの場合って必ずでなかったっけ

2022/09/19(月) 18:47:49.51

トラストセンターで有効にしておけば警告は出ないよ、って言うかこのスレにいる人ならほとんどこの設定にしてると思う
https://www.officepro.jp/excelmacro/rec/img/p4-11.png
あとは1番下の「VBA プロジェクトオブジェクトモデルへのアクセスを信頼する」がクリアされててtest.xlsmにコードを触るようなコードが入ってる場合ぐらいかな

**690** (ﾜｯﾁｮｲ bf66-W3aP) · 2022/09/19(月) 21:28:16.87

>>692
ありがとうございます。
もともとそのチェックはどのファイルにも入っていませんでしたので、
触るコードを書いてるという事かと思います。
どんなコードが該当するのですか？
バグに気付けていない可能性もあるので、知りたいです。
オブジェクトモデルっていってもdictionaryを一回重複チェックで使ってるくらいで、
後はsetしてるのは条件付き書式とかworksheetとかworkbookとかrangeくらいでしょうか。
たいした事はしてないのですが、結構長くなってるので特定しづらいです。

2022/09/19(月) 21:42:09.79

>>693
> どんなコードが該当するのですか？
そんなもん説明しきれんわ
そもそも
> しかし、test.xlsmファイルを開くと「セキュリティに問題がある」うんぬんという警告がそのファイルでだけ出るようになりました。
のスクショなりを上げなよ

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-EGtu) · 2022/09/19(月) 22:00:45.12

コードを新規作成したtest 2.xlsm にコピペしてみりゃ一発だろうに

2022/09/19(月) 22:01:05.04

>>679
Ruby on Rails では、2千社・2億レコードでも全く問題ないと、外人が言ってた

Railsでは、開発環境ではSQLite も使うが、
本番環境では、MySQL, PostgreSQL

Heroku では、PostgreSQL

>>676
セレブエンジニアの小松和貴は、反SES/Java で有名。
Java土方はうつ病になるから、やるなと言ってる

2022/09/19(月) 22:05:09.07

rubyみたいなオワコンを持ち上げるキチガイは消えろ

2022/09/19(月) 22:36:59.93

火に油を注ぐ発言はやめような

**デフォルトの名無しさん** (US 0H7f-G1yF) · 2022/09/19(月) 23:45:50.71

火に油を注ぐから楽しいのに

2022/09/20(火) 00:31:18.18

それあぼーんな人だから触らないほうがいいよ

2022/09/20(火) 07:23:58.96

>>697
黙れハゲ童貞

2022/09/20(火) 08:18:55.69

なんだかんだで、納品物はエクセルで！とか言ってるからいつまでもVBAやめられなくて辛い

2022/09/20(火) 12:12:55.21

>>702
Excelやめてなんのソフトを代替にしたいの？

2022/09/20(火) 14:20:11.48

Excelを使わない事務仕事なんか無いだろうね

2022/09/20(火) 14:37:00.62

うちの会社は弥生会計をずっと使ってるぞ

2022/09/20(火) 17:24:35.64

>>704
うちの会社の経理は紙の帳面だぞ
古代エジプト時代と変わらん

2022/09/20(火) 17:48:30.31

>>706
パピルスと現代の紙とは異なる
髪はその頃と一緒だが

2022/09/20(火) 19:11:26.07

>>702
そんなに辛いなら転職したらいいんじゃね

2022/09/20(火) 20:36:15.87

>>706
The 昭和

2022/09/20(火) 20:42:24.19

昭和の頃はすでにMZ-80とか有ったからね。

2022/09/20(火) 21:20:11.78

>>695
ありがとうございました。
それで徐々にコードを消していったら判明しました。
助かりました。

2022/09/20(火) 21:52:40.24

ユーザー定義型を配列に入れて使っているのですが、nameでソートしたり、
idでソートしたり、ageでソートしたり、その都度いろいろなプロパティでソートをしたいのです。
いままでは一旦二次元配列に入れてソートしていましたが、二次元配列のkeyposにあたるような
key elementsみたいに引数で渡す事はできないのでしょうか？

Sub Sort(ByRef User as Usertype,ByRef Property asここがわかりません)
なんというかworksheetオブジェクトとrangeオブジェクトみたいな関係みたいな

最悪プロパティ毎に違う名前のソート関数にすれば一応好きなプロパティの値でソートして返せるのですが

こんな感じで

2022/09/21(水) 15:26:19.55

まずユーザー定義型をクラスにして、その後は IComparer インターフェイスでよしなに

Sorting of objects by their properties in VBA
https://scripts4all.eu/sorting-of-objects-by-their-properties-in-vba/

個人的にはここまでやるならVBA以外を検討するけどね

2022/09/21(水) 18:55:18.56

別の方法としてADODBでメモリ上にテーブルを持つのもある
テーブルにぶち込んでしまえば、ソート、フィルター、その際の項目指定とかどうにでもなる
その分のメモリは必要だし、テーブルに対する出し入れの処理はあるので
配列の大きさやソートの頻度で使うかどうか考える

**712** (ﾜｯﾁｮｲ bf66-W3aP) · 2022/09/21(水) 19:12:53.53

>>713
そちらを見に行ってEnumの便利さに気付きました。
二次元配列のfor for ネストでやってるような処理、列が増えるほどだんだん
わからなくなりますが、enum使えば二次元配列の利便性も残しつつ
ユーザー定義型みたいに使えますね。
二次元配列の悪い所はだんだん自分が何を指定してるのかわからなくなるところだったので、
Enumと相性抜群ですね。

せっかく教えてもらった高度な手法は今回は見送りさせて頂いて、簡単なEnum＆二次元配列でやってみようと思います。
感謝です。

2022/09/21(水) 20:40:31.74

元データがどこにあって、それをソートしてどうしたいのかわからんが
普通に考えればエクセルシートに展開すれば良いんじゃないかと思うんだが

2022/09/22(木) 09:56:35.87

たぶんEXCELのソート機能を使わず自分でソートしたいんじゃね

2022/09/22(木) 11:03:21.08

なぜ競プロではVBAの出番が無いのか

2022/09/22(木) 11:36:03.90

遅いとか記述が冗長とかサーバーサイドで動かせないとかテクニカルな問題はいくらでもあるけど、
最大の理由は競プロやるような人はVBAなんか使いたがらないから

2022/09/22(木) 18:38:55.33

>>718
年末のAdvent of CodeはVBAだかExcelだけかでやってる人たまにいる

2022/09/23(金) 18:18:40.70

>>666
いいえて妙、ﾜﾛﾀｗ

2022/09/23(金) 19:12:26.46

外注ってやっぱ高い？

2022/09/24(土) 01:17:31.15

素人にやらせると、見かけは安上がりだけど結果的に高く付くことが多い

2022/09/24(土) 03:39:42.11

何人で何ヵ月かかるかで金額が変わる

2022/09/24(土) 04:49:54.00

じゃあここのスレの方ならプロだから安心して頼むそうかな？？
金額以外は

2022/09/24(土) 05:51:09.21

RubyはそれだけではDBとなるものを持ってないからEXCELやACCESSのVBAとは比較できない。

もっとも、同様にDBを持たない言語と比較するなら
セーフティーでガベージコレクションの概念がなくスピードの速いRust辺りと比べるとゴミ同然

2022/09/24(土) 08:05:14.18

エクスプローラーでフォルダーのプロパティを開いて
カスタマイズタブのところに「フォルダーの種類」が全般とかビデオとかになってるけど。
これをVBA/VBSで変更できる？
フォルダーのtypeを見ても全部「ファイルフォルダー」になる。

2022/09/24(土) 09:33:48.67

>>727
レジストリ操作でやりたいことができたわ。

2022/09/24(土) 14:15:19.28

お、おう、よかったな

2022/09/25(日) 05:30:19.65

一般ユーザがある列のセルを編集できないようにしたい。
でも、VBAの実行や、セル関数の結果は反映させたい。

https://support.microsoft.com/ja-jp/office/excel-%E3%81%A7%E3%82%BB%E3%83%AB%E3%82%92%E3%83%AD%E3%83%83%E3%82%AF%E3%81%99%E3%82%8B-b942fe92-5e87-0985-214b-9617b5b6d53f
↑セルのロック
という機能で試してみたがVBAマクロでの変更は許されなくてちょっと困っています。

セルに対してマウスイベントを発生させない。みたいなことを考えて、調べているが。
皆さんも悩まれる案件かと思います。もっと良い方法ないでしょうか？

2022/09/25(日) 06:18:07.93

VBAん中でロック解除して
処理終了間際にロックし直しってんじゃだめなの？

2022/09/25(日) 07:44:30.90

SheetSelectionイベントとIntersect使うだけでは

2022/09/25(日) 09:13:59.54

お願いします。
検索をシートからではなくブックからをデフォルトにしたいです。
下記のサイトのコードを使い検索は出来るのですが、
結果表示ではなく（ '＜全てのシートの検索が終わったら、結果を表示します。＞）、
検索値まで移動するにはどのようにコードを書けばいいか、ご教授願います。。
https://www.moug.net/tech/exvba/0040005.html

2022/09/25(日) 10:44:33.52

>>730
worksheet_boforedoubleclick みたいなイベントプロシージャでできる

2022/09/25(日) 10:58:13.51

ありがとうございました。
>>731の方法で簡単にできました。
VBA実行時に保護を解除して、終了時に再度保護をかけることで、
すんなりといけました。

2022/09/28(水) 13:31:05.50

A1:10もしくはA100に入力された値を配列に格納しています。
動的配列です。
Select Case 文字列A
case A1:A100のどれかに一致するなら
case B1:B100のどれかに一致するなら

みたいな書き方って出来ないのでしょうか？

2022/09/28(水) 13:35:10.17

ifで条件書けよ

2022/09/28(水) 15:15:27.03

>>736
恐らく出来ない。
ただ、Select Case の後の文字列の部分をTrueとして、
A10:A100の中に該当文字列が有った場合、
Trueを返す関数を作成して、Case文の後ろに記載して
その条件に当たったかを判別して、Case文の下に
その条件下での処理を記載することは可能。

Caseにある条件のA10:A100にとある文字列が
有った場合とB10:B100にとある文字列が
有った場合と下に続く処理が同じなら、
先程言った関数の引数に対象範囲と検索対象文字列を
持たせておけばCase文を使う必要すら無い。
戻り値がTrueかFalseかをIf文で判断すれば良い。

その辺は実際の状況に合わせて上手く作ってくれ。

2022/09/28(水) 16:15:51.79

select caseにtrue??
知らなかったわ何それ？？

2022/09/28(水) 18:26:27.19

Do
With
End With
Loop

よりも

With
Do
Loop
End With

の方が計算が早い（PCにとっては楽）と考えてよいでしょうか

2022/09/28(水) 19:01:46.26

>>736
こんな感じ？
https://i.imgur.com/wuSExDf.png

2022/09/28(水) 19:28:29.47

>>736
Private Function F(R As RangeRange, S As String) As Boolean
Dim C As Range
For Each C In R
If C.Value = S Then
F = True
Exit Function
End If
Next
F = False
End Function
...
Select Case True
Case F(Range("A1:100"), 文字列A)
...
Case F(Range("B1:100"), 文字列A)
...
Case ...
End Select

2022/09/28(水) 19:32:38.30

>>740
たいていのプログラムだと有意な差はでないから気にせずに作りやすい方で作れ
有意な差がでそうならまず測定

2022/09/28(水) 19:38:38.93

>>740
これも恐らくの話で申し訳ないけど、
元々Withで設定されているインスタンスが既に生成されているものであれば、その格納アドレス先を読むだけなので
Withがループの外にあっても中にあっても処理コストは変わらないと思う。
変わったとしても繰り返し実行での誤差と見分けが付かない程度と思われる。

逆にインスタンスが生成されておらず、With New ～のようにWithでインスタンスを生成する場合は
ヒープエリアのメモリにそのインスタンスを展開するため、Withがループの外に有った方が処理コストは低くて済む。

・・・はず。

2022/09/28(水) 19:40:24.19

とりっきー

2022/09/28(水) 19:51:29.67

>>739

ケツの穴をガバガバにして全通しするいやらしい関数だよ

Select Case True
Case オナラ
よし通れ
Case うんこ
よし通れ
End Select

2022/09/28(水) 21:06:15.14

>>742
結局If文でラップしてるだけじゃん

2022/09/28(水) 21:06:47.83

>>746
汚ねえな。。
こっちは夕食のカレー食ってんだぞ。。

2022/09/28(水) 21:20:17.00

>>747
If 文でラップとか意味わからんこと言われてもw

2022/09/29(木) 00:27:52.00

ヘイヘイヘイ～！
もしも～オブジェクト変数でぇ～宣言したぁ～値がぁ🎵
ラップ調

2022/09/29(木) 01:53:20.13

ラップのセンスはいまいちだね

**736** (ﾜｯﾁｮｲ 1e66-JEMU) · 2022/09/30(金) 17:41:05.63

>>738-742
ありがとうございました。
変数Strの中の値が配列Listのどれかと一致するかということだったので、そのCountIFがまさにその通りでした。
それようの関数書いてSelect case True使わせていただきます。

2022/09/30(金) 21:34:23.42

>>752
Select Case True の話持ち出しといてなんだけど
最初のCase の条件に引っ掛かってその下の処理を実行した後でも
次のCaseの条件に引っかかったらその下の処理も実行するからそれだけは気をつけてね

2022/09/30(金) 22:06:41.52

>>753
そんなことないのでは？と思って試したけどやっぱりそんなことなかったんだが
普通はcaseの条件の中に入ったら次のステップはEnd Selectにいかないか？
Dim ncount As Long
ncount = 0
Select Case True
Case 0 = 0
ncount = ncount + 1
Case 1 = 1
ncount = ncount + 1
Case 2 = 2
ncount = ncount + 1
End Select
Debug.Print ncount
これは1になるんだが

2022/09/30(金) 22:32:22.37

>>754
多分breakいれなきゃいけないCとかと勘違いしてるんだと思う

2022/09/30(金) 22:50:53.72

Select みたいな文で複数の選択肢が条件満たした場合に複数の選択肢を実行する言語って PowerShell ぐらいしか知らんけど他にもあるんだろうか？

2022/09/30(金) 23:04:52.77

>>756
cとかそうだったはずだし、たぶん複数実行するほうが多数派なんじゃね
c#も、文法上は複数実行することになってるけど、break書いて抜けないと怒られるという
よくわからんことになってるし

2022/09/30(金) 23:17:37.16

CもそうだしJavaもそうだしPythonもそうだしJavaScriptもそう

2022/09/30(金) 23:34:30.49

>>757-758
C/C++ はそもそも複数選択肢が条件満たすことはないよ（たいていの処理系でコンパイルエラーになる）
fall through と勘違いしてるでしょ

2022/09/30(金) 23:56:30.92

>>759
ああそうだ。勘違いです
申し訳ない

2022/10/01(土) 00:36:40.48

>>754
これってコンパイル時に畳み込みで定数化されて同一のラベルが複数あってエラーになるとかしないのか

2022/10/01(土) 01:42:48.83

>>761
馬鹿にはそう思えるのだろ

2022/10/01(土) 01:48:20.03

>>759
ああ、まさにfall throughだった

つかそうなると、fall throughじゃなくて
複数一致したら複数ブロック実行するような言語って知らないな
PowerShellってそうなのか？