咩仔 asked in 電腦與網際網路軟體 · 1 decade ago

請問2009年週曆下載?

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

或者有沒有製作教學呢?

3 Answers

Rating
  • 1 decade ago
    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")

  • 6 years ago

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

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

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

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

  • 1 decade ago

    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): 自己', ..., ..., .., .., ..., ...
Still have questions? Get your answers by asking now.