- 帖子
- 552
- 主題
- 6
- 精華
- 0
- 積分
- 576
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2026-9-10
  
|
5#
發表於 2015-7-25 11:07
| 只看該作者
本帖最後由 lpk187 於 2015-7-25 11:12 編輯
回復 2# Min
"Ø"這個符號VBA是可以取得的- 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) = ChrB(x)
- Cells(x + 2, 3) = AscB(ChrB(x))
- Next x
- End Sub
- Public Sub test()
- Dim n As String
- Dim arr(1 To 256, 1 To 512)
- n = 0
- For i = 1 To 256
- For j = 1 To 256
- arr(j, i * 2 - 1) = ChrW(n)
- arr(j, i * 2) = n
- n = n + 1
- Next
- Next
- Range("A1").Resize(256, 512) = arr
- End Sub
請參閱 範例 特性
傳回一個含有與指定的字元碼相關之字元的 String。
語法
Chr(charcode)
charcode 引數是一個用來識別某字元的Long。
請注意
0 到 31 之間的數字與一般、非列印的ASCII碼相同，例如，Chr(10) 會傳回換行字元。charcode 的正常範圍為 0-255。然而，在DBCS系統，charcode 的實際範圍為 -32768 到 65535。
附註 ChrB 函數是使用於含有位元組資料的 String，而非傳回一個字元，其有可能是一或兩個位元組，而 ChrB 都是傳回一個位元組。ChrW 函數則傳回一個包含Unicode 字元的String，若在不支援Unicode的平台上，其功能與Chr函數相同。
備註 Visual Basic for the Macintosh 不支援 Unicode 字串。所以，ChrW(n) 無法傳回 n 個數值 (範圍為 128 到 65,535) 的所有 Unicode 字元，因為它位在 Windows 環境中。相反地，ChrW(n) 會企圖為 n 大於 127 的 Unicode 數值進行「最佳推測」。因此，您不可以在 Macintosh 環境中使用 ChrW。 |
|
發表於 2015-7-25 13:52
| 
