KutoolsforOffice — 一套方案，五大工具。事半功倍。

Excel ASC 函数

作者Zhoumandy修改日期

ASC 函数返回字符串首个字符的 ASCII 码值，常用于 Excel 的 VBA 函数中。

asc-函数 1

语法

=ASC(）text)

参数

  • 文本（必需）：需转换为 ASCII 码值的文本，或包含所需文本的单元格引用。

返回值

ASC 函数返回数值类型的值。

函数说明

  1. 在 VBA 中，传递给 ASC 函数的文本字符串可以是任意有效字符串，但该函数仅对字符串的第一个字符进行计算。
  2. ASC 函数区分大小写。
  3. ASC 函数返回的 ASCII 码值为十进制整数，范围从 0 到 255. 如下图所示。关于 ASCII 码值的更多信息，请参阅此文章：https://www.ascii-code.com/。
    asc-函数 2
  4. ASC 函数在 VBA 中，对于 A-Z 返回的 ASCII 码值为 65-90，对于 a-z 返回的 ASCII 码值为 97-122.

示例

在本例中，下面表格中有若干测试字符串。要计算这些文本字符串的 ASCII 码值，请按以下步骤操作：

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击“插入” > “模块”以打开模块窗口。然后，将以下 VBA 代码复制并粘贴到该窗口中。

VBA：计算 ASCII 码值

Sub Code()
Dim Result1
Result1 = Asc("K")
MsgBox Result1
End Sub

asc-函数 3

3. 按下 F5 键运行代码后，将弹出一个 Microsoft Excel 对话框，显示文本“K”的 ASCII 码结果，即 75.

asc-函数 4

4. 将结果“75”输入到单元格 D5，以便进行结果记录。

asc-函数 5

5. 若需获取其他结果，请相应更改 VBA 中 ASC 函数的文本。例如，若要获取文本“Kutools”的 ASCII 码，可使用如下 VBA 代码：

VBA：计算 ASCII 码值

Sub Code()
Dim Result2
Result2 = Asc("Kutools")
MsgBox Result2
End Sub

asc-函数 6

您会发现，“Kutools”的搜索结果与“K”的结果是相同的。

6. 重复以上步骤，以获取其他结果。

asc-函数 7

注意：

  1. 如果输入的字符串为空，将会返回运行时错误。

    asc-函数 8

  2. 如果输入的文本为一个空格，则返回 32.

    asc-函数 9

  3. 由于 ASC 函数区分大小写，同一字符在不同大小写下会返回不同的结果。例如，字符 E 和 e，ASC 分别返回 69 和 101.

相关函数：

  • Excel 函数 EVEN
    EVEN 函数可将数字向零方向外取整为最接近的偶数整数。