- ©«¤l
- 37
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-10-18
- ³Ì«áµn¿ý
- 2021-7-21
|
1.Àx¦s®æn±a¤J¤½¦¡¡An¥ÎFormula¡A¤~¤£·|Åܦ¨¤å¦r®æ¦¡
2.ª`·N""n¥Î2¦¸
3.Formula«á±ªº¤½¦¡´N¬OÀx¦s®æn¶ñ¤Jªº¤½¦¡¡A¤£n¥ÎVBA¼gªk
(§ÚªºEXCEL¤u§@ªí¦WºÙ¬O¤¤¤åªº¡A©Ò¥HVBA¥Î¤¤¤å¤ñ¸û¥¿±`)
Sub R()
¤u§@ªí4.Range("U2").Formula = "=Text(¤u§@ªí4!Y2, ""000-00-00"")"
End Sub
|
|