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

[µo°Ý] ¦p¦ó±N Excel ¬YÄæ(ex: ¦¬µø¨Ó·½) ¤º¤å¦rÂন¼Æ¦r

[µo°Ý] ¦p¦ó±N Excel ¬YÄæ(ex: ¦¬µø¨Ó·½) ¤º¤å¦rÂন¼Æ¦r

½Ð±Ð¤j®a :Excel  ¬YÄæ(ex: ¦¬µø¨Ó·½)   ¤º¤å¦rÂন¼Æ¦r
¨Ò¦p:   ¦¬µø¨Ó·½ ( Ãþ¤ñ¹qµø. ¼Æ¦ì¹qµø. ¤¤µØ¹q«HMOD. ¦³½u¹qµø. ½Ã¬P¹qµø )
            Ãþ¤ñ¹qµø  ¥H 1 ¨Ó¨ú¥N
            ¼Æ¦ì¹qµø  ¥H 2 ¨Ó¨ú¥N
¤¤µØ¹q«HMOD   ¥H 3 ¨Ó¨ú¥N
           ¦³½u¹qµø  ¥H 4 ¨Ó¨ú¥N
          ½Ã¬P¹qµø   ¥H 5 ¨Ó¨ú¥N

Excel ¸Ì¦³¤°»ò²[¼Æ.©Î vba ¥i¥H§@³o¼ËªºÂà´«©O   ?
jones

¦^´_ 1# joneslin168
§A¬O­n²Î­p³o¨Ç¤å¦r¥X²{ªº¦¸¼Æ¶Ü?³Ì¦n¬OªþÀɨӬݬÝ.

TOP

  1. Sub yy()
  2. a = Array("Ãþ¤ñ¹qµø", "¼Æ¦ì¹qµø", "¤¤µØ¹q«HMOD", "¦³½u¹qµø", "½Ã¬P¹qµø")
  3. b = Array(1, 2, 3, 4, 5)
  4. For i = 0 To 4
  5. [a:a].Replace a(i), b(i)
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

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