来年のスケジュールを確認していて気になった点が。2012年は休みが少ないんじゃないか?
そこで年別の休日の数を数えてみました。
・週休二日
・祝日の振替休日を反映
という条件でカウントすると下に示す通りになりました。
祝日は現在は15日です。これが土日とどのように重なるかが問題です。
日曜日と重なると振替休日になりますが土曜日と重なると減ります。
実際に数えると休日の数は116日から120日のいずれかになります。
2012年は116日で最も少ないパターンです。
これは土曜日と重なる祝日が4日もあるのが主な原因でしょう。
なお春分の日、秋分の日があるため、「13日の金曜日」のような規則性(28年周期)はないようです。 (さらに…)
GoogleカレンダーがIE6で使えなくなりました。使えないことはないのですがレイアウトがグチャグチャ。
そこで予定を追加する別の方法を探してみました。 (さらに…)
Excelシートに作ったGoogleカレンダー用のデータをCSVに変換するマクロです。
出力されたCSVを使ってカレンダーにインポートすることができます。
Excelシート
Excelシートは次のように作ります。
日付と時刻はExcel形式(シリアル値)にします。
・ |
A |
B |
C |
D |
E |
F |
1 |
Subject |
Start Date |
Start Time |
End Date |
End Time |
Location |
2 |
南アフリカ対メキシコ |
2010/06/11 |
23:00 |
2010/06/12 |
01:00 |
ヨハネスブルク |
3 |
ウルグアイ対フランス |
2010/06/12 |
03:30 |
2010/06/12 |
05:30 |
ケープタウン |
4 |
アルゼンチン対ナイジェリア |
2010/06/12 |
23:00 |
2010/06/13 |
01:00 |
ヨハネスブルク |
マクロ
アクティブシートに対して処理されます。
日付と時刻の行はFormat関数で整形されます。
カンマ付テキスト(UTF-8)に変換され、指定したファイル名で保存されます。
Sub Googleカレンダーインポート用CSV出力()
fnsave = Application.GetSaveAsFilename( _
"import.csv", "CSV(*.csv),*.csv")
If fnsave = False Then Exit Sub
mytext = ""
i = 1
Do
j = 1
Do
If Right(Cells(1, j), 4) = "Date" Then
temp = Format(Cells(i, j), "yyyy/mm/dd")
ElseIf Right(Cells(1, j), 4) = "Time" Then
temp = Format(Cells(i, j), "hh:mm")
Else
temp = Cells(i, j)
End If
mytext = mytext & temp & ","
j = j + 1
Loop Until Cells(i, j) = ""
mytext = Left(mytext, Len(mytext) - 1) & vbCrLf
i = i + 1
Loop Until Cells(i, 1) = ""
mytext = Left(mytext, Len(mytext) - Len(vbCrLf))
With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "utf-8"
.Open
.WriteText mytext, 1
.SaveToFile fnsave, 2
.Close
End With
End Sub
実行結果
Subject,Start Date,Start Time,End Date,End Time,Location
南アフリカ対メキシコ,2010/06/11,23:00,2010/06/12,01:00,ヨハネスブルク
ウルグアイ対フランス,2010/06/12,03:30,2010/06/12,05:30,ケープタウン
アルゼンチン対ナイジェリア,2010/06/12,23:00,2010/06/13,01:00,ヨハネスブルク
以前、GoogleカレンダーにCSVをインポートする方法を書きましたが、今回は「終日」の予定をインポートしてみます。
必要な項目は次の3個です。
- Subject
- Start Date
- All Day Event
「All Day Event」に「TRUE」とセットすることで、予定が「終日」となります。
Subject,Start Date,All Day Event
休暇,2011/4/16,TRUE
昼間、「今年はまだ任天堂のカレンダーが届かないなあ。今年からないのかなあ」などと考えていました。
帰宅すると届いていました。
カードを差し替える方式の卓上カレンダー。
私はリング式の方が好きなのですが。
今月(2010年10月)は金曜日、土曜日、日曜日が5回あります。
三日続きの週末が他の月よりも多いということになります。
「だから何だ」と言われるかもしれませんが。 (さらに…)
先ほど 「13日の金曜日」一覧を載せましたが、これには規則性があります。 (さらに…)
2000年から2099年までの「13日の金曜日」をすべて挙げてみます。 (さらに…)