Excel VBA 質問スレ Part83

**デフォルトの名無しさん** · 2025/06/08(日) 11:06:42.20

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

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

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

**デフォルトの名無しさん** · 2025/07/08(火) 10:53:17.46

馬鹿の上塗り

**デフォルトの名無しさん** · 2025/07/08(火) 16:04:18.48

このスレ沼しか居ねぇな…google ai studioの方がまだ良い解答してくれんぞ…

**デフォルトの名無しさん** · 2025/07/08(火) 17:01:18.70

>>387
とても鋭い視点です。さすがですね！

**デフォルトの名無しさん** · 2025/07/08(火) 17:33:24.49

studio と名付けられてる意味わかってんのかな？
中の人はGeminiそのものらしいじゃんか

**デフォルトの名無しさん** · 2025/07/08(火) 17:42:58.67

>>389
その論理だとChromeとChrome OSも比較できないことになるが？
同じモデル使ってても実装・UI・機能が違えば体験は全然違うぞ

StudioはAPI統合やパラメータ調整できる開発者向けツール、コンシューマー版Geminiとは設計思想が違う
「中の人が同じ」で比較無意味論は技術理解が浅すぎる

387の解答品質指摘は妥当な比較対象だし、実際のユーザー体験差を無視してる時点で的外れ

とAI様が仰せになっている

**デフォルトの名無しさん** · 2025/07/08(火) 18:21:34.45

>>385
どうやらCopilotさんは間違って記憶している模様

> Workbooks.OpenのFormat 6 はカンマ区切りですか？
はい、Excel VBAで使用される Workbooks.Open メソッドの Format:=6 は「カンマ区切り (CSV) 形式」を示します。
これは、テキストファイルを開くときに、フィールド区切り文字としてカンマが使われている場合に指定されます。

> CSVは2じゃないの？
まず結論から言うと：
Format:=2 → タブ区切り（Tab-delimited）
Format:=6 → カンマ区切り（Comma-delimited）
つまり、CSV形式のファイル（カンマ区切り）を読み込むには Format:=6 を使うのが正解です。

w

**デフォルトの名無しさん** · 2025/07/08(火) 18:33:40.30

うちでは2って教えてくれた

**デフォルトの名無しさん** · 2025/07/09(水) 08:08:49.40

つまり、開発環境てことだろ？　その中のAI部分を担当してるのはGeminiという認識なんだが？
そのGeminiを使ってAI開発に特化した環境を整えてみましたが、何か？　っつーのがStudioなのでは？
じゃあ、コンシューマー向けGeminiとStudioの中の人と成り果ててるGeminiと有料版Studioの中の人は
ぜんぶ別人が担当してンのか？
それぞれ精度にランク付けしてて、コンシューマー向けにはBマイナス程度でいいや
StudioならAな　その有料版ならA++とかAAAとかでお答えして差し上げろ　とか差別化してるん？
Ver違いってならまだ判る　無料なら2.0でいいよ Studioは2.5にしとくか有料版は3.0β版な
Copilotを多用してる奴に向かってgoogle ai studio(←ぜんぶ小文字なのが何とも)のが優れてる！
っつーお門違いのコンコンチキな放言は許容できるのか？
おなじGemini同士で比較して見せるとかならまだしも
まあ、おれにはどうでもいいんだけど、ブレインストーミングがてらにしたためてみました

**デフォルトの名無しさん** · 2025/07/09(水) 08:48:44.88

スレ違いの長文とか救えない

**デフォルトの名無しさん** · 2025/07/09(水) 09:32:08.40

391
x 間違って記憶している
o 過學習でアホになった

**デフォルトの名無しさん** · 2025/07/09(水) 10:08:19.13

LLMで過学習…？

**デフォルトの名無しさん** · 2025/07/09(水) 10:36:50.67

391
x 間違って記憶している
o 円形脱毛症でハゲになった

**デフォルトの名無しさん** · 2025/07/14(月) 13:04:26.89

https://forest.watch.impress.co.jp/docs/news/2030817.html
「JScript」に代わり「JScript9Legacy」が既定のスクリプトエンジンに～Windows 11 24H2以降で

**デフォルトの名無しさん** · 2025/07/15(火) 10:46:15.47

Windows11の24H2にしたらJScriptが動かない
https://blog.macorin.net/dos-not-work-jscript-on-windows11-24h2/

**デフォルトの名無しさん** · 2025/07/15(火) 11:19:52.18

毎日夜中の定刻に、気象庁Webサイトの2つのページからcsv落として月次集計する、
マクロとPowerQuery使った2×2の4つのブックを
VBS（例：以下）とタスクスケジューラーを使ってやらせてるんだけど、
いい加減、VBS部分を乗り換えるとしたら、
何がとっつきやすいのかな？
PowerShell？
PowerAutomate？
Python？

---例：DLブックを実行させるVBS---
Const WB_PATH = "E:\集計\01_DLファイル\DLブック_地点A.xlsm"
Const PROC_NAME = "DL_Ref"
Dim excelApp
Set excelApp = CreateObject("Excel.Application")
With excelApp
.Visible = False
Dim wb
Set wb = .Workbooks.Open(WB_PATH)
.Run wb.Name & "!" & PROC_NAME
.DisplayAlerts = False
wb.Close
End With
excelApp.Quit

**デフォルトの名無しさん** · 2025/07/15(火) 11:31:18.20

>>400
**PowerShell**がおすすめです。

理由：

- VBSに最も近い書き方
- Excelの操作がそのまま使える
- Windowsに標準搭載
- 学習コストが低い

移行例：

```powershell
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$wb = $excel.Workbooks.Open("E:\集計\01_DLファイル\DLブック_地点A.xlsm")
$excel.Run("DL_Ref")
$wb.Close()
$excel.Quit()
```

PythonやPower Automateは学習コストか制約があるので、PowerShellが無難です。

**デフォルトの名無しさん** · 2025/07/15(火) 11:33:01.33

vbsに近いならjsだろう

**デフォルトの名無しさん** · 2025/07/15(火) 11:52:00.35

PowerShellは遅くてびっくりするのと
COM(IDispatch)経由の操作なので基本的に書き方はvba/vbsを踏襲する
普通に使うと割とつまらない

**デフォルトの名無しさん** · 2025/07/15(火) 11:53:44.70

>>400
スレ違い

**デフォルトの名無しさん** · 2025/07/15(火) 13:45:04.50

>>401,403
ありがとう。やってみる。

**デフォルトの名無しさん** · 2025/07/15(火) 18:57:22.18

やっぱり馬鹿かよ

**デフォルトの名無しさん** · 2025/07/16(水) 22:35:52.90

目的のフォルダを取得する効率的なコードを教えてください
1番効率的なのはフォルダのフルパスそのものを取得する事ですが、それも難しいので各階層の部分一致でお願い致します

**デフォルトの名無しさん** · 2025/07/16(水) 22:45:55.20

パスが流動的ってこと？
指定する以外にやったことないわ

**デフォルトの名無しさん** · 2025/07/16(水) 23:01:32.70

部分一致が複数あるとして、その順番が入れ替わる可能性があるかどうかでコードが変わるね

**デフォルトの名無しさん** · 2025/07/17(木) 00:19:01.17

コード\分類\フォルダ\期間別フォルダ\探したいファイル
みたいな感じですね

**デフォルトの名無しさん** · 2025/07/17(木) 00:24:00.03

>>405
Powershellからcom呼ぶときはしっかりお片付けしてね
適当にやるとC#と一緒でゴミが残る(かも)だから

**デフォルトの名無しさん** · 2025/07/17(木) 01:52:47.41

>>407
馬鹿は「効率的」は何が効率的なのかとかすら説明できない

**デフォルトの名無しさん** · 2025/07/17(木) 05:21:40.06

馬鹿じゃなきゃこんなところで聞かない

**デフォルトの名無しさん** · 2025/07/17(木) 07:17:52.06

こう言うことなんじゃないの？　ディレクトリ(フォルダ)名が曖昧な記憶だから
漠然とした検索してファイル見付けたい　とかなんじゃ
https://www.limecode.jp/entry/utility/partialmatch-filesearch
3パターン提示してくれてるから、どれでもお好きなもので・若しくは全部使ってもいいし
一年365日ばかしか書けない誰かさんは無視しとけばいいよ
彼は馬鹿と書き込むのがじぶんのDutyだと思い込んでる節があるし認知の病なんだろうきっと

**デフォルトの名無しさん** · 2025/07/17(木) 07:36:40.82

彼はこんなとこでしかマウントとれないかわいそうなやつなんだ
そっとしといてあげよう

**デフォルトの名無しさん** · 2025/07/17(木) 07:41:07.22

>>407
目的のフォルダはどうやって示されてるの？
効率的っていうのは、何に対するパフォーマンスを指してる？

**デフォルトの名無しさん** · 2025/07/17(木) 08:47:01.58

>>410
Dirでワイルドカードが使えるので、こんな感じに仕上げてみた
※ヒットするパスの例 → C:\Documents\A001\B000X1\Excel\20250717\FileABC001.xlsx

HomePath = "C:\Documents"
SearchPath = "A???\B*\Excel\2025????\File*.xlsx"

ResultPath = HomePath
SearchPathList = Split(SearchPath, "\")
For I = 0 To UBound(SearchPathList)
　If Dir(ResultPath) <> "" Then
　　ResultPath = "ファイルの下は何もないよ！"
　　Exit For
　End If
　FolderName = Dir(ResultPath & "\" & SearchPathList(I), vbDirectory)
　If FolderName = "" Then
　　ResultPath = "そんなパスはないよ！"
　　Exit For
　End If
　ResultPath = ResultPath & "\" & FolderName
Next
MsgBox "これかな？" & vbCrLf & ResultPath

**デフォルトの名無しさん** · 2025/07/17(木) 09:28:10.58

あたしゃ、ディレクトリ関係は「見える」の重視で、このあたり参考にしてワークシート関数でやっちゃうけど
https://qwerty.work/blog/2021/01/excel-function-path.php

**デフォルトの名無しさん** · 2025/07/17(木) 20:37:37.93

>>417
正規表現の様な事ができたのでしょうか？

**デフォルトの名無しさん** · 2025/07/17(木) 20:38:38.98

>>416
例えばファイルシステムオブジェクトの再帰処理で全フォルダをループしてしまうのは非効率だなぁという事です

**デフォルトの名無しさん** · 2025/07/17(木) 21:05:30.67

>>417
本当に複数の階層で部分一致できますでしょうか？

**デフォルトの名無しさん** · 2025/07/17(木) 23:17:21.95

釣りでなければ真正馬鹿で確定

**デフォルトの名無しさん** · 2025/07/17(木) 23:26:46.72

Chatさん。未検証
再帰使わずキュー処理
Sub FastSearchMinimal()
Dim fso As Object, q As Collection, f As Object, i As Object
Dim r As Long: r = 2
Dim k As String: k = "sample"
Set fso = CreateObject("Scripting.FileSystemObject")
Set q = New Collection: q.Add fso.GetFolder("C:\TestFolder")
With Sheets(1): .Cells.Clear: .Range("A1:C1").Value = Array("種類", "名前", "パス"): End With

Do While q.Count > 0
Set f = q(1): q.Remove 1
For Each i In f.SubFolders: q.Add i: If InStr(1, i.Name, k, vbTextCompare) > 0 Then WriteRow r, "フォルダ", i.Name, i.Path
Next
For Each i In f.Files: If InStr(1, i.Name, k, vbTextCompare) > 0 Then WriteRow r, "ファイル", i.Name, i.Path
Next
Loop
MsgBox "完了"
End Sub

Sub WriteRow(ByRef r As Long, t As String, n As String, p As String)
With Sheets(1): .Cells(r, 1).Resize(1, 3).Value = Array(t, n, p): End With: r = r + 1
End Sub

**デフォルトの名無しさん** · 2025/07/18(金) 03:56:36.13

若い子はChatGPTのことチャッピーと呼んでる

**デフォルトの名無しさん** · 2025/07/18(金) 08:09:47.41

Sub 探す()
Dim fso As Object,root As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' ルートフォルダを取得して再帰処理スタート
Set root = fso.GetFolder("パス")
再帰処理 root
End Sub
'―――――――――――――――――――――――――――――――
Private Sub 再帰処理( ByVal f As Object)
Dim file as Object,fpath as string
If Instr(f.name,"目的") > 0 Then
' ファイルをチェック
For Each file In f.Fileso
If InStr(file.Name,"検索値") > 0 Then fpath = file.path
Next
End if
Dim sf as Object
' サブフォルダを再帰処理
For Each sf In f.SubFolders
If Instr(sf.name,"コード") > 0 or Instr(sf.name,"書類") > 0 or Instr(sf.name,"分類") > 0 or Instr(sf.name,"yyyymmdd") > 0 Then 再帰処理 sf
Next
End Sub

**デフォルトの名無しさん** · 2025/07/18(金) 08:22:30.72

>>417 はちょっと手抜きしてたので、ちゃんと作り直した｡
Sub 使い方()
　Set Result = New Collection
　DirMulti "C:\Documents", "A???\B*\Excel\2025????\File*.xlsx", Result, vbNormal
　(以下略)
End Sub

Sub DirMulti(HomePath, SearchPath, ResultCollection, Optional Attributes As VbFileAttribute = vbNormal)
　Pos = InStr(SearchPath & "\", "\")
　Search = Left(SearchPath, Pos - 1)
　NextSearch = Mid(SearchPath, Pos + 1)

　Set SearchResult = New Collection
　Res = Dir(HomePath & "\" & Search, vbDirectory Or Attributes)
　Do While Res <> ""
　　If Res <> "." And Res <> ".." Then SearchResult.Add Res
　　Res = Dir()
　Loop

　If NextSearch = "" Then
　　For Each Res In SearchResult
　　　ResultCollection.Add HomePath & "\" & Res
　　Next
　Else
　　For Each Res In SearchResult
　　　If (GetAttr(HomePath & "\" & Res) And vbDirectory) <> 0 Then
　　　　DirMulti HomePath & "\" & Res, NextSearch, ResultCollection, Attributes
　　　End If
　　Next
　End If
End Sub

**デフォルトの名無しさん** · 2025/07/18(金) 09:23:27.37

要件定義せず走り出すとこうなるという見本

**デフォルトの名無しさん** · 2025/07/18(金) 10:47:27.74

ま、それぞれがこれに取り組むことで、それなり成長する(こともある)んだから、いいじゃん
外野から思索も模索もせずにつべこべ小言書くことしかできないご老体には言わせときゃいいだけ
相談者、夜中にしか出張って来ないから、日中に迷走するのはやむを得ない

やりたいことは何となく見えてきたけど、それをどう実装したいのか？誰に使わせたいのか？何のために作るのか？
とかがイマイチ漠然としてて、方向ぐらいは提示して欲しいのはある
エクスプローラー開いて検索じゃあダメな理由とか、ファイルじゃ無くてフォルダ(名)に拘ってるように読めて
例えば、各々が勝手にフォルダ作ってファイル放り込んでるのを是正したいんだ、とかなのか
もう一歩踏み込んだ相談が出て来るまで待機、も有り得る

**デフォルトの名無しさん** · 2025/07/18(金) 16:30:22.97

VBAの作り方が上手すぎて情シスに異動させられそうになったセンスの塊こと俺だけどよく構文を知ってるとかテキスト通りにとか気にしてる奴は3流よ
使用者の使いやすさにまず全振り
次に拡張性を気にすりゃメンテナンスもしやすくなる
エラー回避しない奴は論外
でも結局はどう動かすかなんよ

**デフォルトの名無しさん** · 2025/07/18(金) 16:43:02.04

Aという処理をVBAでさせようってお手本みたいなコードを書いてもそのA自体にセンスが無い奴が多いんだよな
それが役職も評価も年収も上がらないVBAを勉強しただけのおぢさん

**デフォルトの名無しさん** · 2025/07/18(金) 17:25:18.33

>>427　読み直したら、ID末尾runだけに？

**デフォルトの名無しさん** · 2025/07/18(金) 18:03:06.70

>>431
みんながみんなエスパーしながら好きに書いてる何を読み直すの？

**デフォルトの名無しさん** · 2025/07/18(金) 20:55:57.57

わかんなきゃいいよw　カリカリすんなよ
フォルダ名を取得する記事見付けた　検索文字で絞る事もできる　*とか?とかも要らん
https://tmkr7788.livedoor.blog/archives/26830287.html
で、一番上のフォルダ指定するのが手入力っぽいから、それも自動取得するなら

Sub Sample()
Dim FPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\ほにゃらら"
.Title = "フォルダを選択してください"
If .Show = -1 Then
FPath = .SelectedItems(1)
End If
End With
Cells(3,3) = FPath
End Sub

これを別ボタンに貼り付ければ、ディレクトリ探すのもマウスオペだけで済む　お好みだけど
　※　ほにゃらら部分は、デフォルトで指定しときたいフォルダ名に

**デフォルトの名無しさん** · 2025/07/18(金) 21:22:07.30

>>431
これ何言ってるのか理解できない
なにがrunだけに、なのか

**デフォルトの名無しさん** · 2025/07/19(土) 04:46:02.20

>>45
え、Accessは2027年で使えなくなるの！？

**デフォルトの名無しさん** · 2025/07/19(土) 06:29:44.25

>>433
馬鹿

**デフォルトの名無しさん** · 2025/07/19(土) 07:33:32.95

>>435
Access2027が最後のAccessになるって、
Windows10が最後のWindowsになるって言ったMicrosoftが言ってた

**デフォルトの名無しさん** · 2025/07/19(土) 08:03:25.99

昨日初めてwin12て使ってる記事見たわ

**デフォルトの名無しさん** · 2025/07/19(土) 09:32:36.51

指定したフォルダ以下の、サブフォルダとファイルを取得する記事も見付けた
>>433 のは、フォルダのみだけど、その中身もそのファイル情報も見れるのはいい
何よりシンプル　開きたい場合は上のを参考にすればいいと思う
https://akira55.com/showfoldertree/

ExcelにTreeViewって無かったっけ？とか思い直してググってて辿り着いた
TreeViewを実装しようと試みて、みんな大好きTANAKAさんのサイト参考にしようとしたら
Form上に配置するのに、その他のコントロールから選ばなきゃならなく成ってて
ImageListに至っては追加はできてもプロパティ変更しようとするとエラー　64bitのせい？
TANAKAの例はExcel2003で説明してるからなのか　もはやオワコンなのか　なぞ
まぁ、後日のメンテとかも面倒そうだから、Sheet上に書き出すのがいちばん楽なんだろうな

**デフォルトの名無しさん** · 2025/07/19(土) 10:05:18.56

>>437
きっとwin11はwindowsではない新種のOSなんだろう

**デフォルトの名無しさん** · 2025/07/19(土) 15:57:41.07

>>439
実行結果のファイルうｐしてみて

**デフォルトの名無しさん** · 2025/07/19(土) 16:20:49.62

パス長いとかいい加減にしろとな

**デフォルトの名無しさん** · 2025/07/19(土) 16:52:52.55

>>441　？　リンク先に実行結果の画像出てるけど？
他に何を出せと？　おれが実行した後のファイルなんて
中身まるごと見られたら困るものだらけだから、嫌なんだけど？

**デフォルトの名無しさん** · 2025/07/20(日) 12:26:16.14

見られて困るものだらけのPCって犯罪的な？

**デフォルトの名無しさん** · 2025/07/23(水) 07:42:55.14

>>429
その様にコードを書いてマクロを作成するのに何日くらいかかりますか？

**デフォルトの名無しさん** · 2025/07/23(水) 08:46:08.98

回避ルートが無い場合はエラーで止まる分は放置だな
下手なメッセージ出して止まるより分かりやすい

**デフォルトの名無しさん** · 2025/07/23(水) 10:53:39.46

>>444
C:\ドキュメント\重要機密\A～E(1)\新しいフォルダ\巨乳物

>>445
俺はこの道30年、最近やっとコメントをしっかり書く習慣が身についてきた感じがしてる
昔も一応は書いてたけど、今見ると言葉が足りてなさすぎて解読に苦労する

>>446
自分だけが使うんならいいけど、他人はエラーメッセージとかさっさと消しちゃったり自力で解決しようとして何が起きたかわからなくされちゃうからなあ

**デフォルトの名無しさん** · 2025/07/23(水) 19:11:51.35

>>447
コメントですか

AIに書かせると楽かもしれませんね

**デフォルトの名無しさん** · 2025/07/23(水) 20:20:01.08

コメントは最低限しか書かないなあ
リファクタリングしまくって、コメント書かなくてもわかるコードにする方がいいと思う
1～2日で作成したら、最低1週間はリファクタリング期間

**デフォルトの名無しさん** · 2025/07/23(水) 21:02:26.59

規模感がちょっとわからないけどテスト込みで手直し１週間？

**デフォルトの名無しさん** · 2025/07/23(水) 21:55:41.80

規模はまちまちだけど、この例ではテスト込みで作成1～2日
完成後1週間は毎日コードを読み直す時間をとる
すると何かしら改善点が見つかる
毎日読んでも何にも改善点なく1週間過ぎたらステーブル

**デフォルトの名無しさん** · 2025/07/24(木) 21:58:34.96

複数のシートをpdf出力したいのです。
wb.Sheets(arr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

の様に、ActiveSheetで指定するしか方法はないのでしょうか？
ActiveSheetは明示的でないので避けたいです

**デフォルトの名無しさん** · 2025/07/24(木) 22:07:09.88

>>452
wb.Sheets(arr).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

**デフォルトの名無しさん** · 2025/07/24(木) 22:09:24.06

>>452
まずはAIに聞く癖を付けろ

以下の方法でActiveSheetを使わずに複数シートをPDF出力できます：

```vb
wb.Worksheets(arr).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfPath
```

`wb.Worksheets(arr)`で直接シートコレクションを指定すれば、ActiveSheetに依存せずに済みます。

**デフォルトの名無しさん** · 2025/07/24(木) 22:21:03.69

↓は実行できるけど、
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

↓はエラーにならね？
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

**デフォルトの名無しさん** · 2025/07/24(木) 22:52:04.71

>>454
はい、AIは大嘘つき

**デフォルトの名無しさん** · 2025/07/24(木) 22:52:55.23

>>453
無理でーす

**デフォルトの名無しさん** · 2025/07/24(木) 22:53:12.34

>>455
正解！

**デフォルトの名無しさん** · 2025/07/24(木) 22:57:55.91

wb.Sheets(配列).Select

ActiceSheet..ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path
でしかエラーになります

**デフォルトの名無しさん** · 2025/07/25(金) 01:14:02.16

>>452
Selectが必要なことに変わりはないがActiveSheetを排除したいのならこう書ける
wb.Sheets(arr).Select
wb.Sheets(arr(0)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

**デフォルトの名無しさん** · 2025/07/25(金) 01:45:35.35

>>460
それは複数シートではなく、単一のシートですよな

**デフォルトの名無しさん** · 2025/07/25(金) 07:52:00.89

変数使ってループさせるくらいの頭働かせられないくらい頭沸いちゃったのかな
暑いからね

**デフォルトの名無しさん** · 2025/07/25(金) 08:02:36.99

>>462
複数のシートを個別のpdfファイルにエクスポート、ではないです
複数のシートを1つのpdfファイルに、です
これの方法がActiceSheet.ExportAsFixedFormatしか見つからなくて、ActiceSheetの様な曖昧な指定は嫌だなぁと思うのです

**デフォルトの名無しさん** · 2025/07/25(金) 08:22:07.09

ActiveSheetを明示するだけでしょ
今のActiveSheetをテンポラリに持っておいて、
特定のシートをActivate
それを書き出した後テンポラリをActivate

**デフォルトの名無しさん** · 2025/07/25(金) 08:40:06.97

>>461
選択中のどれかのシートをエクスポートすれば選択シートすべてが出力される不思議仕様

**デフォルトの名無しさん** · 2025/07/25(金) 09:10:21.07

ActiveSheetはワークシート(単・複数)へのポインタみたいなものだよ
シートを省略して書かれたメソッドは常にActiveSheetを対象操作にする

**デフォルトの名無しさん** · 2025/07/25(金) 12:31:12.82

そうだったんですか
wb.Sheets(arr).Select

〜中略〜

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath

と書いたにも関わらず、何故か出力されたpdfが1シートのみ
という事があって、もしかしてcopy modeの様に、ちょっとした操作でシートのグループ化が解除されるのかなと思いました。

**デフォルトの名無しさん** · 2025/07/25(金) 12:41:13.91

そりゃ解除されるよ
選択していないシートをアクティベートしたりね
ユーザー操作で違和感なく動作するのが大前提だから

**デフォルトの名無しさん** · 2025/07/25(金) 18:16:56.05

>>466
>常にActiveSheetを対象操作にする
シートモジュールでシート指定しないやつは、ActiveSheetじゃなくてそのシートだったと思ったが

**デフォルトの名無しさん** · 2025/07/25(金) 20:45:59.47

VBの内部コード(Pコード)は解析されてるのかな
AIに全部ぶち込んでしまえば、どういう理屈でという疑問は解消しそうだけど

**デフォルトの名無しさん** · 2025/07/26(土) 08:11:28.23

wb.Sheets(arr).Select

wb.Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
でもグループ化したシートが出力できるのですね
今知りました
でも怖いですね
wb.Sheets(2).Selectはグループ化解除だから

**デフォルトの名無しさん** · 2025/07/26(土) 13:26:56.16

名前付き引数書く派なんだなおまいらも

**デフォルトの名無しさん** · 2025/07/26(土) 14:28:31.18

ExportAsFixedFormat xlTypePDF, pdfPath,,,,,,
名前を覚えるか糞長引数の位置を覚えるかのトレードオフ

**デフォルトの名無しさん** · 2025/07/26(土) 15:15:43.28

別にどちらでもいい

**デフォルトの名無しさん** · 2025/07/26(土) 17:35:17.71

どっちの書式も覚えてない
検索で上位に出てきたコードをコピペするだけ

**デフォルトの名無しさん** · 2025/07/28(月) 17:59:42.76

一次配列しか対応していないからFilter関数を避けてきましたが、worksheet関数で一次配列に簡単に直せるのと、Filter関数は部分一致なので、ループで重ねがけをするととても便利ですね。

**デフォルトの名無しさん** · 2025/07/28(月) 18:28:01.59

ネット検索でコピペ
実際はこんなのが大半なんだよな

**デフォルトの名無しさん** · 2025/07/28(月) 23:33:08.81

部署内と提携仕入先でVBAで金かけずに簡易システムの共同開発ってことで
メール本文にプロシージャ貼って相手に送ってる
相手からうまく動きました、こっちもこうしてほしいですと回答がくる　また直したのをメールに貼って送る
なんという原始的な外資企業だよ

**デフォルトの名無しさん** · 2025/07/28(月) 23:37:37.11

草

**デフォルトの名無しさん** · 2025/07/29(火) 12:30:27.63

できることからコツコツと
ですよ
マニアでもいないと飛躍しない
責任取らされるかもと思えば何もしない

**デフォルトの名無しさん** · 2025/07/29(火) 19:57:27.87

vbaではfor のループ処理で条件に一致しないときはループをスキップ（次へ）が出来ないと聞きます
なんとかif文のnot then の時はスキップみたいなコードを書いていますがなかなか難しいです
AIはGo To文を書いているので私も書いていいでしょうか？

**デフォルトの名無しさん** · 2025/07/29(火) 19:59:00.98

whileとか使えば？

**デフォルトの名無しさん** · 2025/07/29(火) 20:10:20.21

>>482
whileもDoもしっかりと理解しておかないと無限列車編になりそうで怖いです

仮にもしIf not 〜 Then Next
と言う様なコードがあったとしてもそれが事実上のGo To文だと言われたらそうなのかもしれません

**デフォルトの名無しさん** · 2025/07/29(火) 20:24:56.02

continueが無いと言うことなら
goto continue
はわかりやすく代替になる
ネストあるしでオレの場合は
LBL_CONTINUE_10:
とかにしてるけど

**デフォルトの名無しさん** · 2025/07/29(火) 20:27:33.99

>>483
馬鹿には難しいのか？