- ©«¤l
- 812
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 862
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2019-10-10
|
Private Sub Worksheet_Change(ByVal TARGET As Range)
With Sheets(1)
Set n = Sheets(1).Range("e2")
.Range("k2") = Application.Text(n, "[$-404]aaa")
End With
End Sub
µ{¦¡©ñ¦bSHEET1,¤£n©ñ¦b¼Ò¶ô |
|