Office365|VBA教程|Excel教程|Word教程|WPS-ExcelOffice

Sub 宏1()
'
' 宏1 宏
'
    Selection.Consolidate Sources:=Array("[工作簿1]Sheet1!R1C1:R4C2", _
        "[工作簿1]Sheet1!R1C5:R4C6", "[工作簿1]Sheet1!R7C7:R10C8"), Function:=xlSum, TopRow _
        :=False, LeftColumn:=False, CreateLinks:=False
End Sub

1

2

3

4

5

6

7

8

Sub 宏1()

'

' 宏1 宏

'

Selection.Consolidate Sources:=Array("[工作簿1]Sheet1!R1C1:R4C2", _

"[工作簿1]Sheet1!R1C5:R4C6", "[工作簿1]Sheet1!R7C7:R10C8"), Function:=xlSum, TopRow _

:=False, LeftColumn:=False, CreateLinks:=False

End Sub

经过修改[……]

阅读全文

如何用excel计算方差、标准偏差？

2019年4月10日作者：exceloffice

暂无评论

标准偏差，又名标准差、均方差、standard deviation，可以用希腊字母 σ表示。

标准偏差反映一个数据集的离散程度，标准偏差越小，这些值偏离平均值就越少，反之亦然。

在统计学中，我们经常通过从总体中随机抽取样品来观察，对应的就会有样本标准偏差（sample standard deviation ）和总体标准偏差（population standard deviation）[……]

阅读全文

如何用vba显示或删除图表的标题？

2019年4月9日作者：exceloffice

暂无评论

在vba中表示ChartTitle对象代表图表的标题。

如果要设置图表对象Chart的标题，首先要设置图表对象Chart的HasTitle属性为True，然后设置ChartTitle对象的Text为具体要显示的标题文本即可。

如果要删除图表对象Chart的标题，则只需要设置图表对象Chart的HasTitle属性为False即可。

代码如下：
[crayon-5cbbb4a35[……]

阅读全文

如何用vba获取word中所有的标题所在的页码？

2019年4月9日作者：exceloffice

暂无评论

在【如何用vba调用word的定位功能快速地定位具体的内容区域】一文中我们介绍了如何用goto方法快速地定位到word文档中的具体内容区域。

如果用vba获取word中所有的标题所在的页码，可以先定位到每个标题所在的Range对象，然后再通过Range对象的Information(wdActiveEndPageNumber)属性获取对应的页码即可。

代码如下：
[crayon-5cb[……]

阅读全文

如何用vba调用word的定位功能快速地定位具体的内容区域？

2019年4月9日作者：exceloffice

暂无评论

如下图所示

在word中可以用“定位”功能快速地定位到具体的页、节、行、书签、批注、脚注、尾注、域、表格、图形、公式、对象、标题等。

在vba中可以使用Document、Range、Selection对象的GoTo方法实现上图中的定位功能，它的语法如下：

expression .GoTo(What, Which, Count, Name)

1	expression .GoTo(What, Which, Count, Name)

其中what参数表示要定位的对象，可以有如下值：[……]

阅读全文

如何用vba显示或者取消数据透视表的分类汇总？

2019年4月8日作者：exceloffice

暂无评论

当用录制宏的方式录制数据透视表是否显示分类汇总时，录制的宏代码如下：

Sub 宏3()
    ActiveSheet.PivotTables("第一个透视表").PivotFields("姓名").Subtotals = Array(True, _
        False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("第一个透视表").PivotFields("店名").Subtotals = Array(True, _
        False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("第一个透视表").PivotFields("大指标").Subtotals = Array(True, _
        False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("第一个透视表").PivotFields("小指标").Subtotals = Array(True, _
        False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("第一个透视表").PivotFields("内容").Subtotals = Array(True, _
        False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("第一个透视表").SubtotalLocation xlAtBottom
    ActiveSheet.PivotTables("第一个透视表").SubtotalLocation xlAtTop
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

Sub 宏3()

ActiveSheet.PivotTables("第一个透视表").PivotFields("姓名").Subtotals = Array(True, _