工程量计算表超级表使用的代码超级实用

详细解析

这段代码是用于操作 Excel 表格的 VBA 宏代码。它包含了一系列子过程（Sub）和函数（Function），用于实现不同的功能。下面是对每个子过程和函数的简要说明：

1. `交替运行分级显示()`：根据布尔变量 `IsSub1Running` 来切换分级显示和清除分级显示。

2. `折叠展开分级显示()`：根据布尔变量 `IsSub2Running` 来切换折叠分级显示和展开分级显示。

3. `分级显示()`：对工作表的数据进行分级显示，以便在行上创建分组。

4. `折叠分级显示()`：折叠已创建的分级显示。

5. `清除分级显示()`：取消已创建的分组，重新显示所有行和列。

6. `切换重算()`：切换 Excel 计算模式（自动重算或手动重算）。

7. `按钮自适应到相应内容的单元格()`：遍历工作表上的按钮，并根据按钮标签的内容调整按钮的大小和位置，使其适应相应单元格的内容。

8. `HZ(C)`：自定义函数，用于在特定条件下对单元格范围内的数据进行累加。

9. `TJ(C)`：自定义函数，用于在特定条件下对单元格范围内的数据进行累加。

10. `JC(C)`：自定义函数，对单元格内容进行复杂的数学计算和替换操作。

11. `手动调整行高()`：手动调整行高，以美化工作表的外观。

12. `替换单位()`：根据单元格的数值，替换成相应的单位。

13. `行高自动加五()`：自动调整行高，将每行的行高增加 5 个单位。

14. `整理计算式()`：对单元格中的计算式进行格式化和替换操作。

15. `重算()`：手动触发工作表的重新计算。

16. `在所选单元格下方插入表行()`：在超级表的范围内，在所选行的下方插入新行。

17. `填充到所在行()`：将最近有数据的整行的内容填充到当前行以下的空行。

18. `删除内容保留格式和公式()`：在表格范围内，删除单元格中的常量内容，但保留公式和格式。

这些代码段涵盖了许多不同的操作，包括单元格样式调整、分级显示、函数计算、行高调整等。您可以根据需要在 Excel 的 VBA 编辑器中调用这些子过程和函数。请注意，对于正确运行和调试这些代码，您需要在正确的 Excel 工作簿中进行操作。