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

Question

По какой-то причине 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

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

Answer 1

Некоторые пытается и не суметь brougt меня к этим 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