如何使用 VBA 宏为仅可见单元格求和

文章编号: 150363 - 查看本文应用于的产品
机器翻译查看机器翻译免责声明
展开全部 | 关闭全部

本页

概要

如果您的单元格区域，包括隐藏的行或隐藏的列的 Microsoft Excel 将不会提供一种简单的方法来汇总仅可见的单元格。

函数 SUM 汇总中包括隐藏的单元格的某一范围的所有单元格。 仅当它们是使用自动筛选或高级筛选命令创建的筛选列表的一部分，SUBTOTAL 函数将忽略隐藏的行。

下面的自定义函数对求和只有可见单元格区域中。若要用于自定义函数的工作表上的单元格中键入以下
=Sum_Visible_Cells(A1:A5)
在 a1: a5 为要进行求和的区域。
回到顶端 | 提供反馈

更多信息

Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。

示例 Visual Basic 过程

   Function Sum_Visible_Cells(Cells_To_Sum As Object)
       Application.Volatile
       For Each cell In Cells_To_Sum
           If cell.Rows.Hidden = False Then
               If cell.Columns.Hidden = False Then
                   total = total + cell.Value
               End If
           End If
       Next
       Sum_Visible_Cells = total
   End Function
请注意是否隐藏，或者取消隐藏单元格，公式输入到工作表中后该公式将重新进行不计算自动，这是即使计算设置为自动。您可以使公式重新计算如果设置为自动计算，而您取得了下列操作之一：

  • 编辑工作表上的任意单元格。 -或者-

  • 按下它会强制重新计算 f9 键。 -或者-

  • 关闭工作簿。
回到顶端 | 提供反馈

参考

有关在 Microsoft Excel 97，从 Visual Basic 编辑器中创建自定义函数的详细信息单击 Office 助手、 键入 函数语句、 单击搜索，然后单击查看"函数声明。

注： 如果隐藏的助手单击常用工具栏上的 Office 助手按钮。如果不能够回答您的查询助手，请参阅 Microsoft 知识库中下面的文章：
176476
(http://support.microsoft.com/kb/176476/EN-US/ )
未应答 Visual Basic 问题 OFF： Office 助手
"Visual Basic 用户指南，"版本 5.0，第 3 章"创建一个用户定义函数"
回到顶端 | 提供反馈

属性

文章编号: 150363 - 最后修改: 2006年10月11日 - 修订: 2.3
这篇文章中的信息适用于:
  • Microsoft Excel 97 标准版
  • Microsoft Excel 95 标准版
  • Microsoft Excel 5.0 标准版
  • Microsoft Excel 98 for Macintosh
关键字：?
kbmt kbdtacode kbhowto kbprogramming KB150363 KbMtzh
机器翻译
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版： 150363
(http://support.microsoft.com/kb/150363/en-us/ )
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供，并且不再更新。
回到顶端 | 提供反馈

提供反馈

 
回到顶端回到顶端