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

[µo°Ý] ¦p¦ó§PÂ_¤p¼ÆÂIÅã¥Ü´X¦ì

[µo°Ý] ¦p¦ó§PÂ_¤p¼ÆÂIÅã¥Ü´X¦ì

¦pÀɮסAÀx¦s®æ®æ¦¡¦pªG¬°¤p¼Æ¤@¦ì«hBÄ欰10¡A¤U¨â¦ìBÄ欰100¡A¨ä¥Øªº¬O¥h°£¤p¼ÆÂI
§Ú¨Ï¥Î¸ê®Æ­åªR¤]µLªk¹F¦¨¡A1.28¥i¥H¹F¦¨¦ý1.00´NµLªk¦¨¥\¤F!
¥t¥~¨Ï¥ÎC1=A1*IF(ISERROR(FIND(".",A1)),1,CHOOSE(LEN(A1)-FIND(".",A1),10,100,1000))¤]¬O¤@¼Ë¡A¹J¨ì¤p¼ÆÂI«á­±¬Ò¹s´N¥¢®Ä¤F
·íªì¸ê®Æ«Ø¥ßÀ³¸Ó¨Ï¥Î¤å¦r®æ¦¡¤~¥i¹F¦¨
¥i¬O¸ê®Æ«D§Ú«Ø¥ß¥B¼Æ¾ÚÃe¤j¡A½Ð°Ý¦U¦ì¥ý¶i¦p¦ó¸Ñ¨M©O?

§PÂ_¤p¼ÆÂI´X¦ì.rar (1.57 KB)

YOYO

¤j¤j,°ÝÃD¤£¬Æ¤F¸Ñ,A1--A5,¬O³q¥Î®æ¦¡ÁÙ¬O¼Æ­È,²M°£¤p¼ÆÂI«á¦¨¬°¤å¦r©Î¼Æ¦r?

TOP

Sub yy()
For i = 1 To [a65536].End(3).Row
a = Cells(i, 1).Text
If InStr(a, ".") Then
k = Len(a) - InStr(a, ".")
k = IIf(Right(a, 1) = " ", k - 1, k)
Cells(i, 2) = Cells(i, 1) * Choose(k, 10, 100, 1000)
Else
Cells(i, 2) = Cells(i, 1) * 1
End If
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD