[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『空き番号の検索』(トキ)
フォルダ内にファイル群があります。
ファイル名には命名規則があり、登録日&コード.txtとなっています
例に出すと「20170523C01.txt」で20170523は登録日、C01はコードです。
このフォルダに新たにファイルを格納する際、すでに同名のファイルが
ある場合、コードC01の数字部分を36などの空き番号にして格納します。
数字部分は連番でなくても構わないので、みんな任意の番号を取ってしまい
空き番号を探すのが適度に面倒くさいのです。
そこで、この部分をマクロにしたいのですが、空き番号を検索して
任意の番号を表示するロジックがわかりません。
任意の番号は01〜99です。
イメージとしては
1 ボタンをポチ。
2 今日付けのファイルの空き番号検索
3 「○○番あいてるよ」と1コだけ表示
どなたか教えてください。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
Sub test() MsgBox fNewNo("c:\test\", Date, "C01") End Sub
Function fNewNo(cPath As String, dw As Date, cw As String) As String Dim cFile As String Dim i As Long
cFile = cPath & Format(dw, "YYYYMMDD") & cw & ".txt" If Dir(cFile) = "" Then fNewNo = cw Exit Function End If
For i = 1 To 99 Mid(cFile, Len(cFile) - 5, 2) = Right(i + 100, 2) If Dir(cFile) = "" Then fNewNo = "C" & Right(i + 100, 2) Exit Function End If Next i
fNewNo = "空き無し" End Function (???) 2017/05/23(火) 10:19
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.