[µo°Ý] ¤ëªº¬Û¥[´î ?

t8899

[A1} ¥Nªí¤ë ¨Ò¦p [A1}=1 ¥Nªí¥[1­Ó¤ë [A1}=2 ¥Nªí¥[2­Ó¤ë [A1}=-2 ¥Nªí´î2­Ó¤ë....µ¥
[A2]=²{¦bªº¤ë¥[ A1
¨Ò¦p A1=-3  «h A2=11  (2¤ëªº«e¤T­Ó¤ë¬°11¤ë
¨Dvb ªºA2»yªk? (A2ªº®æ¦¡ 2¤ë¬°02 12¤ë¬°12)

ML089

¦^´_ 4# Hsieh

¿é¤J2¡A²zÀ³¬O 105/04¡A¦ý¥L¦Û°Ê­pºâ¬°26¡C

t8899

¦^´_  t8899
Hsieh µoªí©ó 2016-2-3 11:05

ÁÂÁÂ!§¹¥þ¥¿½T

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

½Æ»s¥N½X

t8899

¦^´_  t8899
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2016-2-3 08:45

§¹¥þ¥¿½T¡@¡AÁÂÁÂ
¦pªGa2 ¡@¤ëªº«e­±¦h¥[¤W¦~(¥Á°ê) ­n¦p¦ó§ï?

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

½Æ»s¥N½X