ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

°²¦p [a1]ªº²Ä3­Ó¦r¬O¤¤¤å«h ..........

°²¦p [a1]ªº²Ä3­Ó¦r¬O¤¤¤å«h ..........

°²¦p [a1]ªº²Ä3­Ó¦r¬O¤¤¤å«h ..........
»yªk¬O???

¤¤¤å¦r? ÁÙ¬O¥þ«¬¦r³£ºâ?

T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)") <> T Then MsgBox "²Ä¤T¦r¬O¥þ«¬¦r"

TOP

¤¤¤å¦r? ÁÙ¬O¥þ«¬¦r³£ºâ?

T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)")  T Then MsgBox  ...
­ã´£³¡ªL µoªí©ó 2016-7-18 21:47


¤¤¤å¦r ¸ò¥þ«¬¦r¦³¦ó®t§O  ?? ¥þ«¬¦r¥]§t²Åé¦r¶Ü???
±zªºµª®×¬O¥þ«¬¦rªºµª®×?

TOP

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "²Ä¤T¦r¬O¥þ«¬¦r"
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "²Ä¤T¦r¬O¥þ«¬¦r"
ML089 µoªí©ó 2016-7-19 06:33


½Ð±Ðasc ½X  ¤¤¤å¦r(ÁcÅé¦r)ªº½d³ò¬O¦h???

TOP

¦^´_ 5# t8899

§Ú¹ï¤¤¤å¦r½X¤£¬O«ÜÀ´¡A¤¤¤å¦r½X¦³ BIG5¡Bunicode ...¦n¦hºØ¡A¥i¥H¤Wºô¬d¬Ý¬Ý¡C

BIG5¦r½X¥i¥H°Ñ¦Ò
http://www.me.tnu.edu.tw/study/m ... tutor/r05/index.htm
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "²Ä¤T¦r¬O¥þ«¬¦r"
ML089 µoªí©ó 2016-7-19 06:33


§Ú¤S·Q¤Ï±À¦^¨Ó
asc ªº­È¬O 55 ³o½X¬O??
»yªk¬O??

TOP

¦^´_ 7# t8899


MsgBox Chr(55) --- 7
MsgBox Chr(65) --- A
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD