請問2009年週曆下載?

Question

我需要2009年週曆,請問在哪下載world或excel檔呢?

或者有沒有製作教學呢?

Answer 1

Favorite Answer

要這個東西嗎？

2009 Jan 日 一 二 三 四 五 六

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

2009 Feb 日 一 二 三 四 五 六 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

我寫個 VBA 給你，要那年都行。

Sub x()

YR = 2009

r = -1

Cells.ColumnWidth = 1.9

Cells.RowHeight = 16

Cells.Font.Size = 10

Cells.HorizontalAlignment = xlHAlignRight

For i = 1 To 12

WD = Weekday(DateSerial(YR, i, 1)) - 1

days = Day(DateSerial(YR, i + 1, 0))

r = r + 2

Cells(r, 1).Resize(1, 7).Merge

Cells(r, 1).HorizontalAlignment = xlHAlignLeft

Cells(r, 1).Font.Size = 12

Cells(r, 1).Interior.ColorIndex = 15

Cells(r, 1).NumberFormat = "yyyy mmm"

Cells(r, 1).Font.Bold = True

Cells(r, 1) = Format(DateSerial(YR, i, 1), "mmm") & " " & YR

Cells(r + 1, 1).Resize(1, 7) = Split("日 一 二 三 四 五 六")

r = r + 2

For j = 1 To days

WD = WD + 1

If WD = 8 Then

WD = 1

r = r + 1

End If

Cells(r, WD) = j

Next

Next

End Sub

2009-08-02 20:06:52 補充：

更正：

請刪除這行

Cells(r, 1).NumberFormat = "yyyy mmm"

請將這行

Cells(r, 1) = Format(DateSerial(YR, i, 1), "mmm") & " " & YR

改為

Cells(r, 1) = Format(DateSerial(YR, i, 1), "yyyy mmm")

Answer 2

硬碟要找硬碟醫院，能救回來才重要，我司就是找他們做出來的

必須要推，當初心急亂找錯店告訴我沒辦法，後來找又找到硬碟醫院，我告訴他真心要來救援，可以等，在他們努力下有找回來

太棒了，原來微軟張經理都找過他們

http://www.datamaster.com.tw/

Answer 3

http://www.sendspace.com/file/is18rb

pCalendar農民曆 萬年曆.exe

他可以輸出成

2009-08-02 13:51:01 補充：

execl

2009-08-02 13:52:27 補充：

你把98年改成99年

在右下角會有寫輸出EXECL

剩下改顏色還是加圖案自己用嚕!!

2009-08-02 13:54:39 補充：

這個很簡單製作完成

2009-08-02 13:55:02 補充：

完全中文化

2009-08-02 14:56:37 補充：

execl

2009-08-02 14:57:29 補充：

.....剛剛的回答全部消失～無言

Source(s): 自己', ..., ..., .., .., ..., ...