99(1): デフォルトの名無しさん [sage] 2025/06/16(月) 22:20:03.10 ID:xQwWAx0q(1/2) AAS
>>93
マニュアルは作ってないの？
ドキュメントとか残さない人？

150(3): デフォルトの名無しさん [sage] 2025/06/19(木) 18:34:14.95 ID:ROoqywLw(3/3) AAS
FSOをグローバルにしたくなる衝動が抑えられない

175(2): デフォルトの名無しさん [] 2025/06/20(金) 20:26:20.59 ID:yoed5JvY(5/7) AAS
>>170
では上書きしないのなら、新しい情報をソースファイルに記入するときはどうするのでしょうか？

301(1): デフォルトの名無しさん [sage] 2025/06/29(日) 12:48:03.11 ID:9LXkiqZz(1) AAS
シート上で指定した改ページはデータをページで区切るための指定
プリンター設定で拡大縮小できるし、紙が数ミリずれることもあるのでギリギリを狙うと失敗する

356(1): デフォルトの名無しさん [sage] 2025/07/04(金) 21:22:07.36 ID:JLFKZ1OE(1) AAS
>>355
どこの何をテストする必要があるのかを判断できる能力がある、
もしくはどこの何をテストする必要があるかを導くプロンプトを書ける、
もしくは必要な箇所なテストまで終えるプロンプトをかけるなら問題ない

417(3): デフォルトの名無しさん [sage] 2025/07/17(木) 08:47:01.58 ID:sGHKyXGW(1) AAS
>>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

581(1): デフォルトの名無しさん [sage] 2025/08/03(日) 08:19:57.47 ID:SguiDfgn(1) AAS
>>579
そんなことをする必要がない
棋譜DBで探せ