- ©«¤l
- 455
- ¥DÃD
- 111
- ºëµØ
- 0
- ¿n¤À
- 563
- ÂI¦W
- 235
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-11-26
|
½Ð±Ð¦Û°ÊIJ°Êvba»yªk°ÝÃD
Dear ¤j¤j,
¤§«e¦³¸Õ¹L¦bJ2Äæ¦ì¡A¥un¦³Ä²°Ê(½s¿è¹L)J2¡AVBA¦Û°Ê·|°õ¦æ(»yªk¦p¤U)
¦ý§Ú²{¦b¨ÃµLIJ°Ê¡A¦Ó¬O¦bexcel¤u§@ªí¤W(¥kÁä-¿ï¾Ü©Ê¶K¤W-È)¡A¤£ª¾¹D¦³°µ³o°Ê§@¡AVBA¬O§_¤@¼Ë¥i¥H¦Û°Ê°õ¦æ¡H
Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$J$2" Then
Call ·s¼W¹Ïªí¸ê®Æ
Call ·s¼W¹Ïªí¸ê®Æ2
End If
End Sub |
|