- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
ÁÂÁÂ
§Ú§ä¨ì¤@ӳ̲³æªº¡A¨Ñ°Ñ¦Ò
If Asc(mid([a1],2,1)) < 0 Then [a2]=1
t8899 µoªí©ó 2015-5-1 08:59
§Ú¤§©Ò¥H·|¥Î
If sStr <> "" Then
³o¤@¦æªºì¦]¬O :
¦pªG [A1] Àx¦s®æªº¤º®e¥u¦³ 1 Ó^¼Æ¦r ©Î¬O ¨S¦³¸ê®Æ,
¨º»ò Asc(mid([a1],2,1)) ·|¥X²{¿ù»~°T®§.
·íµM, 즡Yn²¤Æ¬O¥i¥H§â lPos ®³±¼:- Sub nn()
- Dim sStr$
-
- sStr = Mid([A1], 2, 1)
- If sStr <> "" Then
- If Asc(sStr) <= 0 Then [A2] = 1 Else [A2] = 0
- End If
- End Sub
½Æ»s¥N½X |
|