Select the product you need help with

添加或删除在 Excel 中的隐藏的撇号的 Mac 的 vba 宏

文章编号: 192891 - 查看本文应用于的产品

查看机器翻译免责声明

点击这里查看逐句中英文对照机器翻译

展开全部 | 关闭全部

概要

使用应用程序的宏的 Visual Basic，可以更改一个公式或值为文本，反之亦然。若要更改为文本的公式或值，运行一个宏，将添加一个隐藏的前导撇号前面的公式或值。若要恢复公式或值，运行一个宏来删除撇号。

本文包含一个示例宏更改为文本的公式或单元格中的值，通过添加隐藏的撇号和一个反转该过程的示例宏。

Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。在 Excel 中为 Mac，您不能在一个区域在工作表并在另一个区域中公式的结果的工作表中查看公式。而是，您必须编辑公式，以使其显示的文本格式。若要执行此操作将插入公式的等号前面的撇号。执行此操作的有效方式是使用 Visual Basic 应用程序的过程。

请注意其中撇号的是第一个字符的单元格都不受此过程。

下面的过程将当前所选内容中添加一个撇号前面的文本、值，或公式：

'Appends hidden apostrophe as first character.
'Works on cells with formulas, text, or values.
'Excellent for displaying formulas when printing.

Sub ApostroPut()
    For Each currentcell In Selection
        'Prevents inserting apostrophes in blank cells.
        If currentcell.Formula <> "" Then
            currentcell.Formula = "'" & currentcell.Formula
        End If
    Next
End Sub

以下过程在当前所选内容中删除文本、值，或公式前面的撇号：

'Removes hidden apostrophes that are first characters.
'Works on cells with formulas, text, or values.

Sub ApostroRemove()
    For Each currentcell In Selection
        If currentcell.HasFormula = False Then
            'Verifies that procedure does not change the
            'cell with the active formula so that it contains
            'only the value.
            currentcell.Formula = currentcell.Value
        End If
    Next
End Sub

注：您可以恢复一个值，它通过复制数字 1、选择包含想要还原的文本的单元格和使用与乘法运算的编辑菜单上的 选择性粘贴 命令更改为文本。

属性

文章编号: 192891 - 最后修改: 2007年1月23日 - 修订: 3.2

这篇文章中的信息适用于:

Microsoft Excel 2004 for Mac
Microsoft Excel X for Mac
Microsoft Excel 2001 for Mac
Microsoft Excel 98 for Macintosh

kbmt kbdtacode kbhowto KB192891 KbMtzh

机器翻译

注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版： 192891

(http://support.microsoft.com/kb/192891/en-us/ )

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。