Výpis časti listu do bunky - excel, vba, excel-vba, extrakt, týždeň

Súčasťou názvu môjho listu je dátum (časť medzi pomlčkami) a chcel by som vytvoriť makro, ktoré pomocou názvu listu poskytne číslo týždňa v bunke H1 listu.

Názov listu: BO-D58C2_-20180507-13260132

Chcel by som extrahovať v týždni do bunky H1: 20180507

Máte nejaké tipy pre nováčika VBA?

odpovede:

použite nasledujúcu funkciu na získanie dátumu týždňa

Function dydate() As String
sname = ActiveSheet.Name
dydate = Mid(sname, InStr(sname, "_-") + 2, 8)
End Function

Rozsah ("H1"). Hodnota = ActiveSheet.Name

získa názov hárkov a vloží ich do bunkypre teba. Odtiaľ môžete ľubovoľný počet RegEx a String nahradiť, aby ste extrahovali iba kód medzi pomlčkami, a odtiaľ ho previesť na číslo týždňa.