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

[µo°Ý] Àx¦s¤ºªº¡@¢° ¡@¤@¡@³£èJ¦¨¥b«¬ªº¢°

[µo°Ý] Àx¦s¤ºªº¡@¢° ¡@¤@¡@³£èJ¦¨¥b«¬ªº¢°

¦³¢³­ÓÀx¦s®æ¤À§O¦p¤U
¢æ¢æµó¤Q¤G«Ñ¤@¸¹
¢æ¢æ¸ô¢°¢±«Ñ¢°¸¹
¢æ¢æµó¤Q¤G«Ñ¢°¸¹
¢æ¢æ¸ô¢°¢±«Ñ¤@¸¹

«ç»ò°µ¨ì³£·|Âন

¢æ¢æ¸ô12«Ñ1¸¹

°ê¦r¡@¼Æ¦r¥þ«¬¡@³£Âন¥b«¬ªº¼Æ¦r©O¡@·PÁ±z

Sub yy()
For Each c In ActiveSheet.UsedRange
c.Value = StrConv(c.Value, vbNarrow, LocaleID)
Next
End Sub

TOP

¦^´_ 2# oobird


   ÁÂÁ  oobird  ¦ý¬O¥u¦³ªü©Ô§B¼Æ¦r¥þ«¬Âà¥b«¬­C ¤@ ¨S¦³¦¨ ¥b«¬ªº1
¤Q¤@«Ñ -> 11«Ñ
µ{¦¡ºë² ¨ØªA!

TOP

¦^´_ 3# pinklee
°ê¦rªº¼Æ­È­nÂন¼Æ¦r·|¦³²ßºD¤£¦Pªº°ÝÃD
¨Ò¦p:12­Y¬O¼Ð·ÇÀ³¥H¤@¤Q¤G¤~¯à»P¤G¤Q¥H¤W¤å¼Æ¦r°t¦X
­Y¥H¼Æ¦rª½±µ½sĶ«hÀ³¬°¤@¤G
­n¥H¤f»y¤ÆÂàĶ¦ü¥G¦³§xÃø
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    »¡ªº¬O  ¦³®É¤]­n±N´N¤@¤U²ßºD  ¦A¦^ÀY §â¤å¦r¤Wªº  ¤@¤Q¤G  §ï¦¨  ¤Q¤G  ¨þ¨þ  ©x¤jªº¤H³£¦³¤£¦Pªº·Qªk  Á°Õ

TOP

Ãø«×»á°ª¡A¨Ò¦p
¤G¤Q¤@ = 21 ~¤Q´À´«¬°ªÅ
¤Q¤­ = 15 ~¤Q´À´«¬°1
¤Q = 10 ~¤Q´À´«¬°10

TOP

¢æ¢æµó¤G¤Q¤G«Ñ1¸¹
¢æ¢æµó¤@¤Q¤G«Ñ¤@¤Q¸¹
¢æ¢æ¸ô¢°¢±«Ñ¢°¸¹
¢æ¢æµó¤@¤Q¤G«Ñ¢°¸¹
¢æ¢æ¸ô¢°¢±«Ñ¤G¤@¸¹
¢æ¢æµó¤@¤Q«Ñ1¸¹
¢æ¢æµó¤@¤Q«Ñ1¸¹

¥Î¤F¦U¦ì¥ý¶i«ü±Ðªº ¶Ã°µ¤F¤@¤U¤U
Sub ttt()
Dim a, b As String

For Each C In ActiveSheet.UsedRange
C.Value = StrConv(C.Value, vbNarrow, LocaleID)
Next

For i = 1 To 10 Step 1
a = "¤@¤G¤T¥|¤­¤»¤C¤K¤E¤Q"
b = "123456789¤Q"
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next

a = "¤Q«Ñ¤Q§Ë¤Q¸¹"
b = "0«Ñ0§Ë0¸¹"
For i = 1 To 6 Step 2
Cells.Replace Mid(a, i, 2), Mid(b, i, 2)
Next

a = "¤Q"
b = ""
For i = 1 To 1
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next
End Sub

µ²ªG¦p¤U
XXµó22«Ñ1¸¹
XXµó12«Ñ10¸¹
XX¸ô12«Ñ1¸¹
XXµó12«Ñ1¸¹
XX¸ô12«Ñ21¸¹
XXµó10«Ñ1¸¹
XXµó10«Ñ1¸¹
¦ü¥G¥i¦æ

TOP

¦^´_ 7# pinklee


    ¦pªG°ê¼Æ¦rªº¼gªk»P®æ¦¡DBNum1¬Û¦P¥i¸Õ¸Õ
¹w³]³Ì¤j¼Æ¦r¬°2000(¦]¬°¸¹½X¦³¶W¹L1000¸¹ªº¦a§})
¥i¦Û¦æ³]©w
  1. Sub nn()
  2. Dim C As Range
  3. For i = 2000 To 1 Step -1
  4. k = Application.Text(i, "[DBNum1]")
  5.   Cells.Replace k, i
  6. Next
  7. For Each C In ActiveSheet.UsedRange
  8. C.Value = StrConv(C.Value, vbNarrow, LocaleID)
  9. Next
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh


    °ª¤â¥X©Û ªº½T¤£¤Z ²¼ä
´ú¤F¤@¤U ¦pªG¬O¤Q¤G«Ñ ¤£¬O¤@¤Q¤G«Ñ µLªkÂà´«¤Q ·|Âন

¢æ¢æµó¤Q¤G«Ñ¢°¸¹ ->XXµó¤Q2«Ñ1¸¹
Á¤F

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-9-22 22:27 ½s¿è

¦^´_ 9# pinklee

¤£¬O»¡¤F­n¥HDBNUM1®æ¦¡¬°«e´£¶Ü?
­Y¦³¨âºØ¥i¯à
¦p:12=> ¤@¤Q¤G
    ©Î¤Q¤G
    ©Î¤@¤G
  1. Sub nn()
  2. Dim C As Range
  3. With ActiveSheet.UsedRange
  4. For i = 200 To 1 Step -1
  5. k = Application.Text(i, "[DBNum1]")
  6. m = Application.Text(i, "[DBNum1]0")
  7.   .Cells.Replace m, i
  8.   .Cells.Replace k, i
  9.   If Int(i / 10) = 1 Then .Cells.Replace Mid(k, 2), i
  10. Next
  11. For Each C In .Cells
  12. C.Value = StrConv(C.Value, vbNarrow, LocaleID)
  13. Next
  14. End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD