EXCEL VBA - 民國、西元 年份對照表？

 

需　　求

編輯一個程式，產生民國、西元的對照表？讓使用者可以得知民國幾年？是西元幾年？

範　　例

Sub 民國轉西元() 

 

    Dim 開始民國年份 As Integer
    Dim 轉換幾筆 As Integer
    
    
    開始民國年份 = Range("A2").Value
    轉換幾筆 = Range("B2").Value


    Range("A5:B65536").Select
    Selection.ClearContents

    Range("A5").Select
    
    
    For N = 1 To 轉換幾筆
    
        
        ActiveCell.Value = 開始民國年份 - 1 + N
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = 開始民國年份 - 1 + N + 1911
        ActiveCell.Offset(1, -1).Select
        
    
    Next N


End Sub

 

⬛ 說　　明：

① 在欄位「A2」輸入「開始轉換年份」

② 在欄位「B2」輸入「共轉換幾年」

 

⬛ 結　　果：

實際執行如下圖，即可產生我們要的民國、西元 年份對照表。

EXCEL VBA - 民國、西元 年份對照表？

 

 


arrow
arrow
    全站熱搜

    News123 發表在 痞客邦 留言(0) 人氣()