这篇文章说明了如何 格式 a 电池 作为 文本 使用 VBA 代码在 ǞǞǞ 用3种不同的方法。 借助于 文本 和 格式化功能 ，以及 范围 . 数字格式 财产 我们可以设置数字格式代码来轻松地将一个单元格的值转换为文本。 让我们深入到例子中并应用这些技术。

下载实践工作手册

下载这本练习手册，在阅读本文时进行练习。

在Excel中使用VBA将单元格格式化为文本的3种合适方法

在本节中，我们将演示如何在Excel中使用VBA将单元格格式化为文本。 但首先，我们需要知道如何在Excel中打开可视化基本编辑器窗口。

在Visual Basic编辑器中编写代码

遵循 步骤 至 开放 的 Visual Basic编辑器 并在那里写一些代码。

• 转到 开发商 的选项卡上的 Excel功能区 .
• 点击 的 Visual Basic选项。

• 在 Visual Basic for Applications 窗口，点击 插入下拉菜单 至 选择 的 新模块

现在，一个 新模块 是 开幕 ，在那里写一些代码，然后按 F5 至 运行。

1. 使用Range.NumberFormat属性将单元格格式化为文本

在这个例子中，我们将使用 Range.NumberFormat属性 在我们的 VBA代码 至 格式 a 电池 作为 文本 在下面的截图中，在单元格 C5 我们有一个 短日期 我们将 变化 作为 案文 .

现在，在Visual Basic编辑器中 拷贝 和 粘贴 下面的 编码 .

 Sub FormatCellAsText() Range("C5").NumberFormat = "@" End Sub 

现在按 F5 至 运行 的代码。

在这里我们可以看到 短日期 格式化的单元格是 改变了 到一个 文本值 .

代码解释。

• 我们用 范围对象 至 选择 的 电池 的工作表中，包含了 输入
• 拟 格式 的 输入值 作为 案文 ，我们需要把 数字格式 价值 作为 "@".

同样地，通过应用同一段代码，我们可以改变 不同的数字格式 至 文本 .

阅读更多。 如何用Excel VBA格式化单元格和居中文本（5种方法）

类似读物

• 如何用Excel VBA改变整个工作表的字体大小
• 如何在Excel中编写001号文件（11种有效方法）
• 在Excel中用VBA命令按钮进行文本对齐（5种方法）
• 如何在Excel中用自定义格式在数字后面添加文本（4种方法）
• 如何将Excel中每个单词的第一个字母大写（4种方法）

2. 在VBA代码中引用TEXT函数将单元格格式化为文本

ǞǞǞ T 延伸 功能 在Excel中是一个 工作表功能 那 转换器 a 数值 或 绳子 到一个 指定格式 .虽然它是 不 a VBA函数 的，我们可以通过引用一个 工作表功能对象 至 格式 a 电池 至 文本 比方说，我们有一个 长日期 在 细胞B6 我们希望 格式 作为 文本 .

把 以下代码 在 Visual Basic编辑器 来实现这一目标。

 Sub FormatCellAsText() Range("C6") = WorksheetFunction.Text(Range("B6"), "'0") End Sub 

通过 运行 编码的方法是使用 F5转换 的 长日期 变成一个 文本 同样，我们也可以对包含以下内容的单元格进行格式化处理 不同的数字格式 至 案文 .

代码解释。

• 我们用 范围对象 至 选择 的 细胞 工作表中包含的 输入 和 输出值。
• ǞǞǞ WorksheetFunction对象 使我们能够使用 TEXT功能 在 VBA代码 .
• ǞǞǞ TEXT功能 需要 2个论点-

价值 - 的 输入单元格参考 (在这个例子中 B6 ).

format_text- 我们用 " ' 0 " 至 转换 的 价值 至 文本格式。

阅读更多。 如何在Excel单元格中设置文本格式（10种方法）

3. 在Excel中使用VBA格式函数将单元格格式化为文本

ǞǞǞ 格式化功能 是其中一个 转换功能 在VBA Excel中，这将返回一个 格式化的表达方式 基于 格式 就是说 特定的 作为 第二个参数 的。 功能 在这个例子中，使用 以下代码 我们 觊觎的 a 长日期 在细胞中 C5 到一个 文本 .

 Sub FormatCellAsText() Range("C6").Value = Format(Range("B6").Value, "'0") End Sub 

代码解释。

• 我们用 范围对象 至 选择 的 细胞 工作表中包含的 输入 和 输出值。
• ǞǞǞ 格式化功能 需要 2个论点-

表情 - 的 输入单元格参考 (在这个例子中 B6 ).

格式- 我们用 " ' 0 " 至 转换 的 价值 至 文本格式。

替代代码。

 Sub FormatCellAsText() Range("C6").Value = " ' " & Format(Range("B6").Value, "0") End Sub 

阅读更多。 如何将文本格式化为Excel中的首字母大写（10种方法）

笔记

• 我们增加了一个 单引号 ( ' ) 之前 零 以进入 数字格式代码 作为 " ' 0 " 在 文本 和 格式化函数参数 至 格式 a 电池 到一个 文本值。
• 拟 观点 的 编码 与3种不同的方法有关。 点击 的 右键 关于 纸张名称 和 选择 的 查看代码选项。

总结

现在，我们通过3个不同的例子知道了如何在Excel中使用VBA代码将单元格格式化为文本。 希望它能帮助你更自信地使用这些方法。 有任何问题或建议，别忘了在下面的评论框中提出。