Извлечь часть имени листа в ячейку

Question

Часть моего имени листа - это дата (часть между тире), и я хотел бы создать макрос, который использует имя листа, чтобы дать мне номер недели в ячейке H1 листа.

Имя листа: BO-D58C2_-20180507-13260132

Я хотел бы извлечь в неделю в ячейку H1: 20180507

Есть ли у вас какие-либо советы для новичка VBA?

Answer 1

используйте функцию ниже, чтобы получить дату недели

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

Answer 2

Диапазон ("H1"). Значение = ActiveSheet.Name

получит название листа и поместит его в ячейку для вас. Оттуда вы можете использовать любое количество замен RegEx и String, чтобы извлечь только код между дефисами, а оттуда преобразовать его в номер недели.