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

如何在excel中计算等额本金还款方式的每月还款金额？

2019年2月4日作者：exceloffice

暂无评论

等额本金是指一种贷款的还款方式，是在还款期内把贷款数总额等分，每月偿还同等数额的本金和剩余贷款在该月所产生的利息，这样由于每月的还款本金额固定，而利息越来越少，借款人起初还款压力较大，但是随时间的推移每月还款数也越来越少。

等额本金贷款计算公式：

每月还款金额= （贷款本金/ 还款月数）+（本金 — 已归还本金累计额）×每月利率

1	每月还款金额= （贷款本金/ 还款月数）+（本金 — 已归还本金累计额）×每月利率

根据上述的知识背景，可以制作出如下图所示的等额本金还款明细表：

[……]

阅读全文

如何用vba设置图表的坐标轴的刻度线类型和刻度线标签的位置？

2019年1月31日作者：exceloffice

暂无评论

图表的坐标轴刻度线可以有主刻度线和次刻度线，在VBA中可以用Axis对象的MajorTickMark属性和MinorTickMark属性分别表示主刻度线和次刻度线。

另外还可以用Axis对象的TickLabelPosition属性设置坐标轴的刻度线标签的位置。

有了以上的知识可以使用如下的vba代码设置图表的横纵坐标轴的刻度线类型和刻度线标签的位置：
[crayon-5c6d5030[……]

阅读全文

如何用vba更改excel图表的类型？

2019年1月31日作者：exceloffice

暂无评论

更改excel图表的类型可以分为更改整个图表的类型和更改具体的某个系列的图表类型。

在vba中可以分别通过Chart对象的ChartType属性和Series对象的ChartType属性来获取或设置整个图表的类型和某个系列的图表类型。

其中图表类型的具体值可以参考图表类型枚举常量。

以下是vba代码举例演示了如何更改整个图表的类型和更改具体的某个系列的图表类型：
[crayon[……]

阅读全文

如何用vba给数据透视表添加计算字段？

2019年1月28日作者：exceloffice

暂无评论

要用vba给数据透视表添加计算字段，可以使用PivotTable对象的CalculatedFields方法返回CalculatedFields集合对象。然后用CalculatedFields集合对象的Add方法添加计算字段。

以下vba代码举例演示了如何用vba给数据透视表添加计算字段：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet8
    Set oPT = oWK.PivotTables(1)
    With oPT
        Set oPF = .CalculatedFields.Add(Name:="这是一个计算字段", Formula:="=2*到期本金", UseStandardFormula:=True)
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub QQ1722187970()

Dim oPC As PivotCache

Dim oPT As PivotTable

Dim oPF As PivotField

Dim oPI As PivotItem

Dim oWK As Worksheet

Set oWK = Sheet8

Set oPT = oWK.PivotTables(1)

With oPT

Set oPF = .CalculatedFields.Add(Name:="这是一个计算字段", Formula:="=2*到期本金", UseStandardFormula:=True)

End With

End Sub

这里要特别注意的是Calculat[……]

阅读全文

如何用vba切换数据透视表的报表布局？

2019年1月28日作者：exceloffice

暂无评论

在vba中要切换数据透视表的报表布局，需要设置PivotTable对象的RowAxisLayout方法。

其中RowAxisLayout方法可以有3种不同的参数，分别是xlCompactRow （以压缩形式显示） , xlTabularRow （以表格形式显示）, xlOutlineRow（以大纲形式显示）。

以下vba代码举例演示了如何切换数据透视表的报表布局：
[crayon-[……]

阅读全文

如何用vba显示或隐藏数据透视表的行列总计？

2019年1月28日作者：exceloffice

暂无评论

在vba中要显示或隐藏数据透视表的行列总计，需要设置PivotTable对象的RowGrand和ColumnGrand属性。

其中RowGrand属性设置数据透视表的行总计，ColumnGrand属性设置数据透视表的列总计。

以下vba代码举例演示了如何显示或隐藏数据透视表的行列总计：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet8
    Set oPT = oWK.PivotTables(1)
    With oPT
        '对行总计禁用
        .RowGrand = False
        '启用列总计
        .ColumnGrand = True
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Sub QQ1722187970()

Dim oPC As PivotCache

Dim oPT As PivotTable

Dim oPF As PivotField

Dim oPI As PivotItem

Dim oWK As Worksheet

Set oWK = Sheet8

Set oPT = oWK.PivotTables(1)

With oPT

'对行总计禁用

.RowGrand = False

'启用列总计

.ColumnGrand = True

End With

End Sub

&nbsp[……]

阅读全文

如何用vba设置数据透视表中的错误值和空单元格的显示值？

2019年1月25日作者：exceloffice

暂无评论

在vba中可以使用PivotTable对象的DisplayNullString 、DisplayErrorString 两个属性分别设置是否对于数据透视表中的空单元格和错误值进行的特殊的显示，然后通过ErrorString、NullString设置要替换显示的字符。

代码如下：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet2
    Set oPT = oWK.PivotTables(1)
    With oPT
        .DisplayErrorString = True
        .DisplayNullString = True
        .NullString = "空白单元格"
        .ErrorString = "错误值"
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Sub QQ1722187970()

Dim oPC As PivotCache

Dim oPT As PivotTable

Dim oPF As PivotField

Dim oPI As PivotItem

Dim oWK As Worksheet

Set oWK = Sheet2

Set oPT = oWK.PivotTables(1)

With oPT

.DisplayErrorString = True

.DisplayNullString = True

.NullString = "空白单元格"

.ErrorString = "错误值"

End With

End Sub

如何用vba对数据透视表的页字段进行筛选？

2019年1月25日作者：exceloffice

暂无评论

在vba中PivotField对象代表数据透视表的字段。

数据透视表的行、列、数值、筛选（页）字段均可以用PivotField对象表示。

所有的字段项目可以使用PivotItem对象表示。

要对数据透视表的页字段（筛选字段）进行筛选，先使用ClearAllFilters方法清除原字段的选项，然后可以直接使用CurrentPage属性设置要显示的筛选值即可。

以下vba代码举[……]

阅读全文

如何用vba添加创建用于排序和填充序列的自定义列表？

2019年1月25日作者：exceloffice

暂无评论

在excel中内置了许多排序和填充序列的列表，如下图所示；

如果要用vba添加自定义系列，可以使用Application对象的AddCustomList方法。

比如要添加自定义系列”A,B,C,D,E,F,G”，可以使用如下的vba代码：

Sub QQ1722187970()
    arr = Array("A", "B", "C", "D", "E", "F", "G")
    Excel.Application.AddCustomList arr
End Sub

1

2

3

4

Sub QQ1722187970()

arr = Array("A", "B", "C", "D", "E", "F", "G")

Excel.Application.AddCustomList arr

End Sub

每一个自定义系列在自定义系列列表中都有序号，序号从1开始，比如上图的自[……]

阅读全文

如何在excel中用函数公式将数字按照出现的次数排序组合成新的字符串？

2019年1月24日作者：exceloffice

暂无评论

如下图所示：

C列分别列出了B列的数字在A1单元格中出现的次数，现在希望将B列的数字按照C列统计的次数，从大到小组合起来成为“3465298710”，可以在D1单元格中输入如下的函数公式：

=TEXT(SUMPRODUCT(N(OFFSET(B1,--RIGHT(LARGE(C1:C10*100000+ROW(1:10),ROW(1:10)),5)-1,0))*10^(10-ROW(1:10))),"0000000000")

1	=TEXT(SUMPRODUCT(N(OFFSET(B1,--RIGHT(LARGE(C1:C10100000+ROW(1:10),ROW(1:10)),5)-1,0))10^(10-ROW(1:10))),"0000000000")

公式的算法如下：

先将C列的出现次数同时乘以一个特大的数，然后加上它们所在的行号
用Large函数从大到小依次[……]

阅读全文

ExcelOffice

如何在excel中计算等额本金还款方式的每月还款金额？

如何用vba设置图表的坐标轴的刻度线类型和刻度线标签的位置？

如何用vba更改excel图表的类型？

如何用vba给数据透视表添加计算字段？

如何用vba切换数据透视表的报表布局？

如何用vba显示或隐藏数据透视表的行列总计？

如何用vba设置数据透视表中的错误值和空单元格的显示值？

如何用vba对数据透视表的页字段进行筛选？

如何用vba添加创建用于排序和填充序列的自定义列表？

如何在excel中用函数公式将数字按照出现的次数排序组合成新的字符串？

近期文章

功能

近期文章

关键字

功能