私のシート名の一部は日付(ダッシュの間の部分)で、シート名を使用してシートのセルH1の週の番号を指定するマクロを作成します。
シート名: BO-D58C2_-20180507-13260132
週H1にセルH1に抽出したいと思います。 20180507
VBAの初心者に何かアドバイスはありますか?
回答:
回答№1は1平日を取得するには、以下の関数を使用してください。
Function dydate() As String
sname = ActiveSheet.Name
dydate = Mid(sname, InStr(sname, "_-") + 2, 8)
End Function
回答№2の場合は0
範囲( "H1")値= ActiveSheet.Name
シート名を取得してセルに入れますあなたのために。そこから、任意の数のRegExとStringを置き換えてハイフンの間のコードのみを抽出し、そこからWeek番号に変換できます。