- ©«¤l
- 154
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 23
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-9-7
|
¥»©«³Ì«á¥Ñ 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
|
|