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

**326** (ﾜｯﾁｮｲ 7274-JnHA) · 2022/12/08(木) 14:20:26.49

>>330
いやわたしはハゲちゃおらんよ。
君みたいなハーゲマンと一緒にしないでくれ。

2022/12/08(木) 17:59:48.27

またヘアの話してる。。
ヘア話好きだなぁお前ら

2022/12/09(金) 01:27:21.92

クエリA
UNION ALL
クエリB
→文字化け

クエリB
UNION ALL
クエリA
→正常

なんでやねん!
何で上下入れ替えると直る?
因みに、文字化けする方も文字列型にすると化けないので、
文字コードの問題ではない。

2022/12/09(金) 02:00:05.39

コードだせよ

2022/12/09(金) 02:12:16.40

毛出せよ

2022/12/09(金) 04:09:12.16

>>333
何に大してSQL投げてる？

**デフォルトの名無しさん** (JP 0H88-7kHv) · 2022/12/09(金) 07:02:42.07

神様皆様おはようございます
神様たちのお導きで50万行＊80列のデータから
所望のデータを抽出できました
ありがとうございました！

2022/12/09(金) 13:09:40.12

OneDriveで自動保存設定してるブックに手動保存するときだけbeforesaveイベントする方法はある？

2022/12/10(土) 04:11:06.01

>>336
CSV
schema.iniも使ってる。

2022/12/10(土) 07:54:03.42

>>339
SELECT句の中にアスタリスク使ってない？
UNION句で挙動がおかしくなるのはCSVファイルじゃなくてEXCELのシートにSQL投げたときに起こるのも見たことあるけど
まぁそもそもDBに投げてる訳じゃないからある程度は仕方ないってところもあるよ。

CSVファイルはUTF-8かSJISかってのもあるけど
UNION句の上下入れ替えたら直ったというのであれば今回は関係なさそうだしね。

2022/12/11(日) 02:40:17.51

>>340
アスタリスクは使ってるけど、
A.* ってテーブルは指定してる。
入れ替えで直るから、
今困っているわけじゃないけど、
これから先使うの不安だわ。

2022/12/11(日) 02:50:20.80

あすたのリスクに備えよう

2022/12/11(日) 04:50:30.55

いつまで起きている？

2022/12/11(日) 12:55:57.38

>>338
Ruby on Rails では、before_action, after_action, around_action で、コールバックできる

before_save :a, only: [:new :edit]
after_save :b, except: [:new :edit]

onlyで、new, editが呼ばれる前にだけ、aを実行する。
逆にexceptでは、new, editが呼ばれなかった後にだけ、bを実行する

2022/12/11(日) 14:15:24.03

>>344
布教活動大変だね

**デフォルトの名無しさん** (JP 0Hcf-KKgq) · 2022/12/11(日) 16:42:01.94

>>344
もうすぐなくなる言語が何だって？
https://trends.google.co.jp/trends/explore?geo=JP&q=ruby,python,php,vba

2022/12/11(日) 20:21:22.99

Ruby信者ってどこにでも沸くな

2022/12/11(日) 23:36:23.53

サーバーにあるフォルダからPDFを検索したいのに上手くいかない
検索はかけても何もヒットしない…
どこか修正するとこありますか？
テキストボックスに入力して検索
検索結果をリストボックスに表示します

Private Sub CommandButton1_Click()
Const BASE_PATH = "\\L\設計\図面"
Dim myPath As String, myName As String
Dim FSO As Object, oFolder As Object, oSubFolder As Object, oFile As Object
On Error Resume Next
If TextBox1.Value = ""Then Exit Sub
ListBox1.Clear
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(BASE_PATH)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
If LCase(oFile.Name) Like LCase(TextBox1.Value) &"*.pdf"Then
Debug.Print oFile.Path
myPath = oFile.ParentFolder &"\"myName = oFile.Name
ListBox1.AddItem myName
ListBox1.List(ListBox1.ListCount - 1, 1) = myPath
End If
Next
Next
Set FSO = Nothing
End Sub

2022/12/12(月) 00:49:34.01

if文の文字列比較条件でワイルドカードが使えたらいいよね

2022/12/12(月) 00:53:47.45

あ、vbaか
すまん

2022/12/12(月) 01:42:01.46

読めん
字下げから始めた方がミス探しやすいはず

2022/12/12(月) 02:19:04.59

>>348
とりあえずデバッガーした結果をクレ

2022/12/12(月) 05:04:18.82

>>348
とりあえず
For Each oFile In oSubFolder.Files
Debug.Print "Debug:" "& oFile.Name
If LCase(oFile.Name) Like LCase(TextBox1.Value) &"*.pdf"Then
としてまずファイルがあるのか確認しなよ
あとデバッグ中は
On Error Resume Next
をコメントアウトしといた方がいい
予想外のエラーを握り潰されて（当人にとっては）意味不明な挙動になることあるから

2022/12/12(月) 08:24:42.26

>>349
正規表現あるやろ

2022/12/12(月) 14:02:36.57

請求書の原紙となるsheetをコピーして、そこに配列に格納した請求情報を貼り付けるという作業を約100回繰り返したいのですが、
①先に約100回のsheetのコピーを済ませて、生成されたsheets間をループして請求情報を貼り付ける
②sheetのコピー→請求情報の貼付けを約100回ループする
どちらの処理が早いのでしょうか

2022/12/12(月) 14:07:14.79

100回程度ならどっちでも体感の差はないと思う

2022/12/12(月) 16:22:37.21

シートがクソ重かったりPCがクソ貧弱だったりするなら、
②の方がブックが小さい状態で貼り付けの処理ができるから安定して動くだろうね

2022/12/12(月) 17:07:21.38

>>357
後にまとめて印刷して突き合わせを行うため、請求書のシートの順番を配列の要素の順番と同じようにしなければなりません
よって②の場合は、配列の値を貼り付けた後に(配列の添字が 1 から始まるため) “Copy After := Worksheets( i )” を記述することになります
つまりシートをコピーする度にシート数をループ変数から取得する処理の繰り返しになるのですが(①だと “Copy After := Worksheets( 1 )” でもよい)、それでも②の方が安定しているのでしょうか

2022/12/12(月) 17:09:47.10

>>358
シート数を→シート番号を

2022/12/12(月) 17:26:03.86

請求書ってそんな適当に作ったマクロで請求していいものなのか

2022/12/12(月) 17:30:19.83

>>360
私がマクロを作る前は手書きで請求書を書いてエクセルに抽出した請求データと目視で突合していたんですよ(現在は自作した請求書を自動発行するマクロをスピードアップを目的に改修しているところです)
そういう会社もあるんです

2022/12/12(月) 18:07:39.61

iはWorksheets.Countあたりを使えばいいんじゃないの？
ただ100件程度なんてせいぜい数分でしょ
今までの時間に比べたらどっちでもいいんじゃないの

2022/12/12(月) 18:13:02.49

ただそういうモノづくりをしてる自分からしたら
かりにある得意先の請求書のみ間違えていて修正したい場合①②どちらも最初から作り直すような感じに見えるけど
そうすると他の請求書にも影響あたえるような作りに見えるんだよね
なのでそういうのを作る場合は得意先コード的なものを最初に指定してその範囲の請求書を作る
かりに修正したい得意先があればそれだけを指定すればいいみたいな作りにするけどね

2022/12/12(月) 18:21:55.06

>>362
Worksheets.Count はなおさら遅いのではないでしょうか？　シートのカウントを約100回繰り返すので
些末なこだわりと言われればそのとおりなんですが、どうせ改修するなら細かいところまでこだわった方がスッキリすると思いまして
>>363
指定した得意先の請求書のみを発行するコードも別のモジュールに書いてあります
メインは請求データの照合及び修正を行った後に約100件分をまとめて発行するフローでないと時間がかかってやってられないんです

2022/12/12(月) 18:35:02.38

それならまずシートを100作るだけのコード書いて試せば済むことじゃないの？
よくわからないけど通常と指定可能な請求書作成が別のコードになってるんだとするとメンテのコストが2倍になるのかなと思わなくもないね
まあ他人の作るものだから余計なお世話だけどね

2022/12/12(月) 18:40:55.92

>>365
確かに自分で三通りの方法をテストしてみれば済む話なんですが、もしかして私が挙げた処理はよくあるパターンであって一般解が確立されているのかなと思い、質問させていただきました

2022/12/12(月) 20:57:08.22

たかが100回で差が出るわけ無いじゃんというレス付いてるだろ
それが一般解

2022/12/13(火) 08:18:42.44

>>348
If LCase(oFile.Name) Like LCase(TextBox1.Value)&"*.pdf" Then
この部分、頭にもアスタリスクをつけてみたら？

If LCase(oFile.Name) Like “*”&LCase(TextBox1.Value)&"*.pdf" Then

2022/12/13(火) 09:09:12.15

100回やって差なんか0.1秒もないだろ
その0.1秒を縮めるのに何分無駄にしてんだよ
どっちでもいいような事に無駄に時間を費やすのは無能のやることだぞ

2022/12/13(火) 11:03:24.68

>>369
スレ読んで書き込むのに何分使ったの？

**デフォルトの名無しさん** (JP 0Hcf-KKgq) · 2022/12/13(火) 12:21:04.99

リファクタリングの基準ってどれぐらい？
さすがに30分は当然なにかしらすると思うけど、
30秒ぐらいってどうするもんだろう。頑張って最適化するか、それとも待つか

2022/12/13(火) 12:35:32.21

アンケート禁止にしないか？
集計できるほど人いないし

2022/12/13(火) 12:37:28.28

>>371
賛否両論あって結論は出ていない

2022/12/13(火) 15:11:59.28

自社の開発時のルールで決めてるんじゃないの？
適当ですとかならいい会社だね
単なるツールなら適当でいいんじゃない

2022/12/13(火) 15:42:35.91

みんなプロなのか
私的に使ってる俺は処理が長いと感じたときとか、作って眺めたコードがクソ汚いかったときとかにする

**デフォルトの名無しさん** (JP 0Hcf-KKgq) · 2022/12/13(火) 18:38:15.19

>>372
しないよ

>>373-375
thx
その時の気分とか空いてる時間があるとか、
業務に支障がない限りはそんなもんよね

2022/12/13(火) 18:49:33.01

>>375
本職も多いよここ
即答できる人もいる理由はそこ

2022/12/14(水) 10:41:10.18

アンケート結果発表！

シラネーヨ 100%

2022/12/14(水) 15:11:34.58

Excel VBAの本職ってなんだろう

2022/12/14(水) 15:24:19.30

Excel VBAを「教える人」どまりかと

2022/12/14(水) 17:28:34.10

ソートがうまくいきません。
今まで下のコードでちゃんとソートできていたのですが、別のブックで同じコードを使ってもソートしてくれません。
原因がわかる方いらしたら教えてください。

Call Range(Cells(i, 1), Cells(i, 6)).Sort(Cells(i, 1))

**デフォルトの名無しさん** (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:さん
みたいなヤバイことしてるの？