Excel VBA 質問スレ Part83 (909ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

149(2): 2025/06/19(木) 18:29:25.72 ID:CkE44pQz(1)調 AAS
>>147
パブリック変数をコンストのノリで使用する事と、関数（public関数）を使う事は違う

---

283: 2025/06/27(金) 21:38:05.72 ID:1l5DAmC+(1)調 AAS
>>280
おい言ってみろよ
それっぽいこと適当に言ってると低年収バレバレで失禁するぞ？

---

311(1): 2025/06/30(月) 20:48:43.72 ID:XO4EHMtF(1)調 AAS
>>310
ごめん、そんなことはないけど
印刷のVBA化に無理に固執するもんじゃない
マジで
昔経験したからわかる

---

423: 2025/07/17(木) 23:26:46.72 ID:DMF1qliv(1)調 AAS
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

---

426: 2025/07/18(金) 08:22:30.72 ID:avd6O0J8(1)調 AA×
>>417

---

585: 2025/08/03(日) 10:49:30.72 ID:46rmLnF/(1)調 AAS
４〜５年も出来ない出来ないって愚痴ってる時間で手動で取り込んだら終わってたのにな

---

753: 2025/08/24(日) 19:33:07.72 ID:A1CDiF/H(2/6)調 AAS
プログラマーでない方の発想はネタかと思ってしまう

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.058s