[發問] 月的相加減 ?

t8899

[A1} 代表月 例如 [A1}=1 代表加1個月 [A1}=2 代表加2個月 [A1}=-2 代表減2個月....等
[A2]=現在的月加 A1
例如 A1=-3  則 A2=11  (2月的前三個月為11月
求vb 的A2語法? (A2的格式 2月為02 12月為12)

GBKEE

回復 1# t8899
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     With [A2]
   
4.         .Value = Month(DateAdd("M", [A1], Date))
   
5.         .NumberFormatLocal = "00"
   
6.     End With
   
7. End Sub

複製代碼

t8899

回復  t8899
試試看
GBKEE 發表於 2016-2-3 08:45

完全正確　，謝謝
如果a2 　月的前面多加上年(民國) 要如何改?

Hsieh

回復 3# t8899

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then [A2] = Format(DateAdd("m", [A1], Date), "e/mm")
   
3. End Sub

複製代碼

t8899

回復  t8899
Hsieh 發表於 2016-2-3 11:05

謝謝!完全正確

ML089

回復 4# Hsieh

輸入2，理應是 105/04，但他自動計算為26。