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

[µo°Ý] ½Ð°Ý....¦p¦ó§Q¥ÎVBA§P©w³q¥Î®æ¦¡¤¤¤p¼Æ¦ì¼Æ¬°´X¦ì(¥H®æ¦¡Åã¥Ü)

[µo°Ý] ½Ð°Ý....¦p¦ó§Q¥ÎVBA§P©w³q¥Î®æ¦¡¤¤¤p¼Æ¦ì¼Æ¬°´X¦ì(¥H®æ¦¡Åã¥Ü)

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2013-7-18 19:10 ½s¿è

°²³]:AÄæ®æ¦¡¬°³q¥Î®æ¦¡¡A·Q§P©w¨ä¤p¼Æ¦ì¼Æ®æ¦¡©óBÄæ
¨Ò¦p:
A1:¼Æ­È¬°0.0001          B1¦Û°Ê§P©wA1®æ¦¡¬°"0.0000"
A2:¼Æ­È¬°0.01          B2¦Û°Ê§P©wA2®æ¦¡¬°"0.00"
A3:¼Æ­È¬°0.1          B3¦Û°Ê§P©wA3®æ¦¡¬°"0.0"
Ãþ¦ü³o¼Ë¡A½Ð°Ý¥ÎVBA¦p¦ó§P©wAÄ檺¤p¼Æ¦ì¼Æ¦r¦Ü²Ä´X¦ì

¦^´_ 1# ´Ñ»y³¾»ï

¬O³o¼Ë¶Ü
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, i As Integer
  4.     For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
  5.         i = InStr(E, ".")
  6.         If i > 0 Then
  7.             i = Len(Mid(E, i + 1))
  8.             E.NumberFormatLocal = "0." & String(i, "0") & "_ "
  9.         Else
  10.             E.NumberFormatLocal = "G/³q¥Î®æ¦¡"
  11.         End If
  12.     Next
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


  §Ú·Q­nªº¬O±N®æ¦¡³]¦bbÄæ
¨Ò¦p:a1¬O0.0002   b1¬O0.1
°õ¦æ¤§«áb1«hÅܦ¨0.1000(°Ñ¦Òa1¡Ab1¦Û°Ê§ï®æ¦¡»Pa1ªº¤p¼Æ¦ì¼Æ¤@¼Ë)
·N«ä´N¬O§â²{¦³ªº»yªk(¥Ø«e¬OaÄ檽±µÅܼƭÈ)¡A®æ¦¡¥ÑaÄæ§ï¨ìbÄæ¡A­n¦p¦ó§ï

TOP

¦^´_ 3# ´Ñ»y³¾»ï
¥u­n¦b E ªº«á­±¥[¤W .Offset(0, 1) <§Y¼ÐªºÀx¦s®æ¥k²¾¤@Äæ = BÄæ> ´N¦n¤F:
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, i As Integer
  4.     For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
  5.         i = InStr(E, ".")
  6.         If i > 0 Then
  7.             i = Len(Mid(E, i + 1))
  8.             E.Offset(0, 1).NumberFormatLocal = "0." & String(i, "0") & "_ "
  9.         Else
  10.             E.Offset(0, 1).NumberFormatLocal = "G/³q¥Î®æ¦¡"
  11.         End If
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# luhpro


    ­ì¨Ó¦p¦¹ÁÙ¯à¥Î"Offset"³o©Û¡A¬Ý¨Ó§Ú­n¦h¾Ç¾ÇOffsetªº¨ç¼Æ©M»yªk...·PıÁÙ¤£¿ù¥Î!
·PÁ¨â¦ì¤j¤jªº±Ð¾Ç....

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD