返回列表 上一主題 發帖

儲存格內容及特殊符號問題

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
1# 跳轉到 »
發表於 2015-7-25 00:56 | 顯示全部帖子
"Ø"這個符號ASCII不是216就是248
偏偏VBA的ASCII只能支援0~128

驗證方式如下;
Sub VB_ASCII()
Dim x As Integer

Cells(1, 1) = "Item"
Cells(1, 2) = "Chr"
Cells(1, 3) = "Asc"
   
For x = 0 To 255
    Cells(x + 2, 1) = x
    Cells(x + 2, 2) = Chr(x)
    Cells(x + 2, 3) = Asc(Chr(x))
Next x
End Sub
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2015-7-25 00:58 | 顯示全部帖子
解法二
Replace What:=range("B1"), Replacement:="aa"

B1欄位Hardcode"Ø"

呵呵呵~ 笨方式^^"
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題