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

¶Ã½X³B²z°ÝÃD

¶Ã½X³B²z°ÝÃD

¶Ù¡A¦U¦ì¤j¤j¡A¹J¨ì¤@­Ó¨t²Îª©¥»²£¥Íªº°ÝÃD¡C
§Ú¦b°ê¥~¤u§@¡A¬OÁcÅ餤¤åª©¥»ªº¨t²Î¡A¦P¨Æªº¹q¸£¨t²Î¬O­^¤åª©ªº¡A
§Ú¼¶¼g¦n¤FEXCEL VBAªº¤u¨ã¡A¦P¨Æ¨Ï¥Î«á¡A¸ê®Æ©ßÂà·|¦³¶Ã½Xªº²{¶H²£¥Í¡C
·Q½Ð±Ð¤j¤jªº°ÝÃD¡G
1¡B¬O§_¦b­^¤åª©¹q¸£¤¤ª½±µ¥i¥H³]©w¡A¸Ñ¨M³o­Ó°ÝÃD¡C
2¡Bªþ¥ó¬O§Ú¦bºô¤W§äªº¶Ã½X³B²zªºµ{¦¡½X¡A«ö­ìPOªº¤è¦¡µy·L½Õ¾ã§Ú»Ý­nªº³B²z¤è¦¡¡A¦ý­ì¥»ªº¸ê®Æ«o¬O¤À´²¤F¡A¬O¤@¬qµ{¦¡½X»Ý­n½Õ¾ãªº©O??

¶Ã½X³B²z.rar (20.37 KB)   ¶Ã½X³B²z
¾Ç²ß¤~¯à´£¤É¦Û¤v

¥»©«³Ì«á¥Ñ quickfixer ©ó 2024-5-9 03:45 ½s¿è

¦^´_ 1# hugh0620


    ¨S¦³­ì©l¥X³B¥i¬Ý,§Ú¤£ª¾¹D§Aªº­ìPOªºÀô¹Ò¦p¦ó,­ìPO³B²zªº¸ê®Æ¥i¯à¨S¹³§Aªº³o»ò³æ¯Â
¸Õ¤Fword§¹¥þÂण¤F¨º¨Ç¶Ã½X,¥X¨ÓªºÁÙ¬O¶Ã½X:dizzy:
§Aªº­ìPO©~µM¥i¥H·Q¨ì¥ÎWindows-1252,¥h³B²z¨S¿ìªkÂà´«ªº¶Ã½X,«Ü°ª©úªº§Þ¥©
§A§ï¥Î¤@®æ¤@®æÂà

Private Sub CommandButton1_Click()

    Dim i As Integer, j As Integer, r As Integer, c As Integer
    For i = 3 To 10
        Range("b" & i) = Replace(encode_fix(Range("a" & i), "big5", "Windows-1252"), "???", "")
    Next i
   
End Sub

TOP

¦^´_ 2# quickfixer

³o¬O§Ú¤§«e¦bºô¸ô¤W§äªº¸Ñ¨M¤è¦¡¡A§Ú¥u¬O§ï¦¨§Ú¤j­P¤W·Q­nªº¸Ñ¨M¤è¦¡¡A¦b¾a¦U¦ì¤j¤jªº¨ó§U¡A¹F¨ì·Q­nªºµ²ªG¡A·P®¦!!
ºô§}¡G
https://www.mobile01.com/topicde ... p;t=6636150&p=2
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD