こんなカレンダーソフトはありませんか？

貴方のご指摘のものも、間違いなくカレンダーです。存在感もあります。
「矢印」の意味が分かりませんが・・・自分なりに縦型一列のカレンダーを作ってみました。

例えば、A６に２０１０/12/1と入れて書式の設定で１２月に変えてください。
そのセルを選択してこのマクロを動かしてください。
２０１１/１のカレンダーは１２月の完了列のした２行ほど空けた
例えば、A39に２０１１/１/１入力して、書式の設定で１月に変更してこのマクロを動かしてください。

日付と曜日と色付けをしています（写真の通り）

コードは下の通りです。このままコピーして貼り付けてください。
（行がえなどがありますので、アンダーバーが見づらいですから）
整理のできていないコードですが、そちらで適当に直してくだされば幸いです。


Sub tateCalendar()
Dim 日付 As Date
Dim 今月 As Integer
Dim 曜日数 As Integer
Dim 最終日 As Integer
Dim InRow As Integer
Dim i As Integer

日付 = Selection.Value '日付 = Range("A6").Value
InRow = Selection.Row
今月 = Month(日付) '曜日数 = Weekday(日付)

Do While 今月 = Month(日付)
Cells(Day(日付) + InRow - 1, 2).Value = Day(日付)
Cells(Day(日付) + InRow - 1, 3).Value = Weekday(日付)
Cells(Day(日付) + InRow - 1, 3).NumberFormatLocal = "aaa"

i = Weekday(日付) '
Select Case i
Case 1: Cells(Day(日付) + InRow - 1, 2). _
Resize(, 2).Interior.ColorIndex = 7
Case 7: Cells(Day(日付) + InRow - 1, 2). _
Resize(, 2).Interior.ColorIndex = 34
Case Else: Cells(Day(日付) + InRow - 1, 2). _
Resize(, 2).Interior.ColorIndex = xlNone
End Select
日付 = 日付 + 1
Loop
End Sub