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

如何获取Ribbon自定义功能区中XML标记的元素以及属性的标准解释？

2019年6月17日作者：exceloffice

暂无评论

从office 2007开始，excel的文件格式变为 Microsoft Office Open XML 文件格式。

界面变成为了Ribbon功能区，如下图所示：

如果要自定义功能区，需要使用自定义功能区软件（比如Custom UI Editor For Microsoft Office）为excel文档添加自定义功能区代码，比如添加了如下的自定义功能区代码后：
[cray[……]

阅读全文

如何用excel做数值修约？

2019年6月17日作者：exceloffice

暂无评论

数值修约与四舍五入是有区别的，在介绍数值修约之前，先介绍excel内置的函数公式如何实现数值的舍入计算的。

一、在excel中做数值的四舍五入

在excel中有很多个函数可以做数值的舍入计算，它们分别是：

ROUND、ROUNDUP、ROUNDDOWN 、MROUND

其中ROUND、ROUNDUP、ROUNDDOWN 3个函数的语法都是相似的，如下所示：
[crayon[……]

阅读全文

如何用vba批量把固定分隔符或者固定宽度的文本文档另存为excel文件?

2019年6月17日作者：exceloffice

暂无评论

在平时的工作中经常会遇到固定分隔符或固定宽度的文本文档，如下图所示：

如果遇到大量的如上图所示的文本文档，可以借助vba批量将其另存为excel文档。

方法一、批量读取文本文档，用数组逐行写入excel单元格中，然后另存为excel文件。

以下代码将批量将同一文件夹下的所有按照固定分隔符分隔的文本文档另存为xlsx格式的Excel文档：
[crayon-5d086a47[……]

阅读全文

如何用excel函数公式将dd/mm/yyyy的日期转化为可以识别的日期格式？

2019年6月17日作者：exceloffice

暂无评论

在excel 中文版中，如果单元格中存储的是dd/mm/yyyy形式的日期，excel是无法识别的。

为了让excel可以识别该日期，需要将其进行转化，比如A列是上述形式的日期，在B列中可以使用如下的函数公式转化：

=DATE(MID(SUBSTITUTE(A2,"/",REPT(" ",100)),200,100),MID(SUBSTITUTE(A2,"/",REPT(" ",100)),100,100),MID(SUBSTITUTE(A2,"/",REPT(" ",100)),1,100))

1	=DATE(MID(SUBSTITUTE(A2,"/",REPT(" ",100)),200,100),MID(SUBSTITUTE(A2,"/",REPT(" ",100)),100,100),MID(SUBSTITUTE(A2,"/",REPT(" ",100)),1,100))

如下图所示：

如何在excel中用函数或vba生成a-z的英文字母序列？

2019年6月17日作者：exceloffice

暂无评论

我们知道英文字母有a-z 26个。

今天本文将介绍如何用excel函数或vba生成各种英文字母序列，如下图所示：

一、在excel中用函数公式生成a-z的英文字母序列

如果要在excel单元格中生成a-z 的英文字母序列，可以使用excel函数CHAR。

在A1单元格中输入公式

=CHAR(97)

1

=CHAR(97)

可以得到字母a。[……]

阅读全文

如何用vba开启word文档的修订功能？

2019年6月7日作者：exceloffice

暂无评论

当在word的“审阅”选项卡下的”修订“组中开启“修订”功能后，所有对word文档的修改都将被记录下来。

在vba中可以设置Document对象的TrackRevisions属性为True，开始修订功能。

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.TrackRevisions = True
End Sub

1

2

3

4

5

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

oDoc.TrackRevisions = True

End Sub

如何用vba遍历word文档的修订？

2019年6月7日作者：exceloffice

暂无评论

在word文档中可以通过开启修订功能来追踪文档的修改记录。

在vba中可以通过Revision对象访问文档中每一处的修订。

比如如下的代码将遍历当前文档中的所有修改，并列出修改者的姓名等信息：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oRevision As Revision
    Dim oRng As Range
    For Each oRevision In oDoc.Revisions
        With oRevision
            '返回修订者的名字
            sAuthor = .Author
            '返回修改的日期
            dDate = .Date
            '返回修订的类型
            iType = .Type
            '返回修改的格式描述
            sFD = .FormatDescription
            '返回包含了修订记录的Range对象
            Set oRng = .Range
            Debug.Print sAuthor, sFD
        End With
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oRevision As Revision

Dim oRng As Range

For Each oRevision In oDoc.Revisions

With oRevision

'返回修订者的名字

sAuthor = .Author

'返回修改的日期

dDate = .Date

'返回修订的类型

iType = .Type

'返回修改的格式描述

sFD = .FormatDescription

'返回包含了修订记录的Range对象

Set oRng = .Range

Debug.Print sAuthor, sFD

End With

其中Revision对象的Type属性显示了可以在word文档中所做的所有修改类型，通过该属性可以对修订记录进行进一步的筛选[……]

阅读全文

如何用vba在指定的路径下创建每年1到12月的文件夹？

2019年6月6日作者：exceloffice

暂无评论

要用vba在指定的路径下创建每年1到12月的文件夹，可以使用如下的代码：

Sub QQ1722187970()
    Dim sPath As String
    sPath = GetPath
    For i = 1 To 12
        VBA.MkDir sPath & "\" & i
    Next i
End Sub
Function GetPath() As String
    '声明一个FileDialog对象变量
    Dim oFD As FileDialog
    Dim oFDFilter As FileDialogFilters
'    '创建一个选择文件对话框
'    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    '创建一个选择文件夹对话框
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    '声明一个变量用来存储选择的文件名
    Dim vrtSelectedItem As Variant
    With oFD
        '允许选择多个文件
        .AllowMultiSelect = True
        '使用Show方法显示对话框，如果单击了确定按钮则返回-1。
        If .Show = -1 Then
            '遍历所有选择的文件
            For Each vrtSelectedItem In .SelectedItems
                '获取所有选择的文件的完整路径,用于各种操作
                GetPath = vrtSelectedItem
            Next
            '如果单击了取消按钮则返回0
        Else
        End If
    End With
    '释放对象变量
    Set oFD = Nothing
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

Sub QQ1722187970()

Dim sPath As String

sPath = GetPath

For i = 1 To 12

VBA.MkDir sPath & "\" & i

Next i

End Sub

Function GetPath() As String

'声明一个FileDialog对象变量

Dim oFD As FileDialog

Dim oFDFilter As FileDialogFilters

' '创建一个选择文件对话框

' Set oFD = Application.FileDialog(msoFileDialogFilePicker)

'创建一个选择文件夹对话框

Set oFD = Application.FileDialog(msoFileDialogFolderPicker)

'声明一个变量用来存储选择的文件名

Dim vrtSelectedItem As Variant

With oFD

'允许选择多个文件

.AllowMultiSelect = True

'使用Show方法显示对话框，如果单击了确定按钮则返回-1。

If .Show = -1 Then

'遍历所有选择的文件

For Each vrtSelectedItem In .SelectedItems

'获取所有选择的文件的完整路径,用于各种操作

GetPath = vrtSelectedItem

Else

End If

End With

'释放对象变量

Set oFD = Nothing

End Function

如何在excel中实现角度和弧度的相互转换？

2019年6月6日作者：exceloffice

暂无评论

在数学中 180度=π，1度=π/180，1弧度=180/π。

在excel中可以使用RADIANS函数将角度转换为弧度,用DEGREES函数将弧度转换为角度。

以下是使用方法：

角度
弧度
弧度公式
角度
角度公式

180
3.141592654
=RADIANS(A2)
180
=DEGREES(B2)

90
1.57079632[……]

阅读全文

如何在excel中用最小二乘法做线性拟合？

2019年6月6日作者：exceloffice

暂无评论

在科学分析实验中我们经常会遇到要寻找试验数据的线性关系的情况。

比如在某次实验中，获得了如下的的10组数据：

当把这10组数据画在图上，如下图所示：

为了寻找这10组数据之间的线性关系，需要找到一条直线来最佳的匹配这种关系，这一过程称为线性拟合。

如果是手动来找这个直线，我们可以去画这样一条直线，使得位于直线上和直线下的点一样多，并且这条直线穿过尽可能多的点[……]

阅读全文

ExcelOffice

如何获取Ribbon自定义功能区中XML标记的元素以及属性的标准解释？

如何用excel做数值修约？

如何用vba批量把固定分隔符或者固定宽度的文本文档另存为excel文件?

如何用excel函数公式将dd/mm/yyyy的日期转化为可以识别的日期格式？

如何在excel中用函数或vba生成a-z的英文字母序列？

如何用vba开启word文档的修订功能？

如何用vba遍历word文档的修订？

如何用vba在指定的路径下创建每年1到12月的文件夹？

如何在excel中实现角度和弧度的相互转换？

如何在excel中用最小二乘法做线性拟合？

加站长微信

您的支持是我持续创作的动力

功能

加站长微信

关键字

您的支持是我持续创作的动力

功能