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

¸ê®Æ¨ú¥N

¸ê®Æ¨ú¥N

¦p¦ó±N¬YÄæ¦ì¤¤ªº¸ê®Æ¡G¤C¦~¤@¯Z¡B¤C¦~¤G¯Z¡B¡K¡B¤C¦~¤G¤Q¯Zµ¥¡A¥þ³¡¨ú¥N¦¨701¡B702¡B¡K¡B720¡C
¥Î¥¨¶°­n¦p¦ó¼g©O¡H·PÁ¡K

¦^´_ 1# yeh6712
  1. Function MyNum(Mystr$)
  2. Dim d As Object, i%
  3. Application.Volatile
  4. Set d = CreateObject("Scripting.Dictionary")
  5. If InStr(Mystr, "¤Q") > 0 Then
  6.    If Split(Mystr, "¤Q")(0) = "" Then
  7.       Mystr = "¤@" & Mystr
  8.    End If
  9. End If
  10. For i = 0 To 99
  11. m = Application.Text(i, "[DBNum1]")
  12.    d(m) = i
  13. Next
  14. MyNum = d(Mystr)
  15. End Function
½Æ»s¥N½X
¥¼©R¦W.png
2010-7-19 23:00
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ³o­Óµ{¦¡½X¦n¹³©M¹Ï¥Ü¤£¤@¼Ë§a¡H¡I§Ú¬Ý¤£À´­C¡A¬O¤£¬O¶K¿ù¤F¡H

TOP

¦^´_ 3# yeh6712
³o¬O¦Û©w¸q¨ç¼Æ
§âµ{¦¡½Æ»s¨ì¤@¯ë¼Ò²Õ
CÄ椽¦¡¦p¹Ï©Ò¥Ü¿é¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

²×©ó¤F¸Ñ¤F¡A¦hÁ¡K

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD