Который понравится всем ))

[url]https://www.cyberforum.ru/post7790542.html[/url]

[VB]Option Explicit
Private Sub BWrite(ByVal Fn$): Dim i&, b() As Byte: i = FreeFile: Open Fn For Binary As i: Put i, 1, Bytes: Close i: End Sub
Private Function Bytes() As Byte(): Dim b$(7), s$, i&, j&
b(0) = "526172211A0700CF907300000D000000000000005CAF7420902C003E0E00006A1B0000022E731839A6284E461D330700200000003132332E74787400B0860E701199510CCD0D3C99953BF221E873D8EE212BD00F7D37798E31C37996DDBCE8CEAC88041211A200208205A4528259390DDFC1115407BC9A01256F33442410F8554D4CF2793C995A5E7F091E73DE68DF6CB36CFB337D5FD24D15CDBB738FE7369AB36FE9354BC37C9AF655BAC77566DB5BA977412E6EBCD2D4ED9719EBECE1AF33B3764DF2553BB5FAF37FAA63DE7F754971574D5D8DE9BF9BB3"...

Два в одном, тоесть в одной книге [B]Excel[/B]
две самостоятельных программы, это [B]календарь[/B]
который я выкладывал [url=https://www.cyberforum.ru/vba/thread1353291.html]здесь[/url]
и получение курсов валют [url=https://www.cyberforum.ru/vba/thread1354520.html]тоже выложил ранее[/url]
есть возможность вызывать календарь...

В [url=https://www.cyberforum.ru/vba/thread1347655.html]этой теме[/url] и
[url=https://www.cyberforum.ru/post7083300.html]этом решении[/url]

можно было бы еще оптимизировать алгоритм, производительность увеличиться
как минимум в 2 раза, на данный момент торможение состоит в обращении к объектам
Range.
...