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

[¤À¨É] ª÷ÃB¤j¼gÂà´«¦¨ªü©Ô§B¼Æ¦r(VBA FUNCTION ¦Û­q¨ç¼Æ)

[¤À¨É] ª÷ÃB¤j¼gÂà´«¦¨ªü©Ô§B¼Æ¦r(VBA FUNCTION ¦Û­q¨ç¼Æ)

ª÷ÃB¤j¼g¼Ë¦¡¡]¤@¡^¡G¡@
20151225-01.GIF

ª÷ÃB¤j¼g¼Ë¦¡¡]¤G¡^¡G¡@
20151225-02.GIF

¥H¤Uµ{¦¡½X¦P®É¾A¥Î³o¨âºØ¼Ë¦¡¡G¡@
  1. Function ¤j¼gÂà¼Æ¦r(xNumber$)
  2. Dim N1%, N2%, NN, T, X%, i%
  3. For i = Len(xNumber) To 1 Step -1
  4. ¡@¡@T = Mid(xNumber, i, 1)
  5. ¡@¡@X = InStr("¢Þ¤Q¬B¦Ê¨Õ¤d¥a", T): If X > 1 Then N1 = Int(X / 2): GoTo 101
  6. ¡@¡@X = InStr("¸U»õ¥ü", T): If X > 0 Then N2 = X * 4: N1 = 0: GoTo 101
  7. ¡@¡@X = InStr("¢Þ¤@³ü¤G¶L¤T°Ñ¥|¸v¤­¥î¤»³°¤C¬m¤K®Ã¤E¨h", T)
  8. ¡@¡@If X > 1 Then NN = NN + Int(X / 2) * (10 ^ N1) * (10 ^ N2)
  9. 101: Next
  10. ¤j¼gÂà¼Æ¦r = NN
  11. End Function
½Æ»s¥N½X


¤½¦¡¥Îªk¡G=¤j¼gÂà¼Æ¦r(B2)¡@

´ú¸ÕÀɤU¸ü¡G¡@
20151225a01(¤j¼gª÷ÃBÂàªü©Ô§B¼Æ¦r).rar (7.83 KB)

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD