Board logo

標題: [發問] 月的相加減 ? [打印本頁]
作者: t8899    時間: 2016-2-3 07:07     標題: 月的相加減 ?

本帖最後由 t8899 於 2016-2-3 07:09 編輯

[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    時間: 2016-2-3 08:45

回復 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    時間: 2016-2-3 10:30

本帖最後由 t8899 於 2016-2-3 10:39 編輯
回復  t8899
試試看
GBKEE 發表於 2016-2-3 08:45

完全正確　，謝謝
如果a2 　月的前面多加上年(民國) 要如何改?
作者: Hsieh    時間: 2016-2-3 11:05

回復 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    時間: 2016-2-3 11:52

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


謝謝!完全正確
作者: ML089    時間: 2016-2-3 15:45

回復 4# Hsieh

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)