Макрос в Excel для добавления даты в формате ISO-8601

По какой-то причине Excel заставляет меня использовать мой регион для нижних колонтитулов, когда я вставляю дату. Тем не менее, он также не обновляется автоматически при открытии листа. Без форматирования это довольно тривиальная проблема, однако форматирование текста проблематично, и я не уверен, как это исправить со всеми кавычками, которые, казалось бы, должны быть обязательными.

Private Sub Workbook_Open()
    'you need to get the font to size 6, use calibri, use a light grey #DBDBDB perhaps and use ISO-8601
    ActiveSheet.PageSetup.RightFooter = "&""Calibri""&6" & DBDBDB & Format(Now, "yyyy-mm-dd")
End Sub

Также теперь, кажется, есть число на заднем плане рабочего листа.

Некоторые попытки и неудачи привели меня к этому sub, из которых вы можете просто вставить соответствующие биты в свои собственные. Как вы можете видеть, я использовал Chr(34) вместо двойных кавычек для создания строки, потому что я думаю, что это повышает удобочитаемость, но это личное предпочтение. Далее вы заметите, что я хранил string в переменной, которая не является строго необходимой, но которая помогает, например, когда вы хочу использовать его в сообщении отладки, как я делаю в моем sub, Я считаю, что в таких случаях это помогает понять, что string Похоже, что это может быть довольно сложно отслеживать все цитаты, как вы уже заметили.

Я не совсем уверен, где вы ошиблись в своей конструкции строки, хотя кажется, что вам не хватает некоторых кавычек вокруг области, где вы определяете цвет шрифта, а также &K который должен предшествовать его шестнадцатеричное значение.

Для справки я использовал эта MSDN-страница чтобы помочь найти правильные коды форматирования для верхних и нижних колонтитулов.

Private Sub test()
  'you need to get the font to size 6, use calibri, use a light grey #DBDBDB perhaps and use ISO-8601
  Dim s As String
  s = "&" & Chr(34) & "Calibri" & Chr(34) & " &6 &KDBDBDB " & Format(Now, "yyyy-mm-dd")
  ActiveSheet.PageSetup.RightFooter = s
  Debug.Print s
End Sub