cell | ExcelOffice【微信公众号：水星Excel】

如何用excel函数公式返回工作簿文件所在的文件夹路径？

2018年12月25日作者：水星Excel
2,735 次浏览暂无评论

在excel单元格中有时候我们需要动态的获取当前的excel工作簿所在的文件夹路径，这时候可以使用excel工作表函数Cell来实现。

工作表函数Cell的语法参数如下：
[crayon-6036b8[……]

阅读全文>>>
如何用vba批量修改ppt中表格的文字字体、边框、单元格填充色的格式？

2018年4月3日作者：水星Excel
5,513 次浏览暂无评论

表格在office的不同组件中都存在。

在excel中所有都是表格，word中可以插入表格，ppt中也可以插入表格。

在vba中，excel的表格是以range对象存在的，word中的表格是以ta[……]

阅读全文>>>

如何用vba对选中的word表格单元格的数字进行求和？

2018年3月13日作者：水星Excel

2,243 次浏览暂无评论

在一个word表格的任意单元格中存储有数字，当任意选中不同的单元格时，希望可以对其中的数字进行求和，并弹窗显示结果，可以使用如下的代码：

Sub QQ1722187970()
    Dim oRng As Range
    Dim oCell As Cell
    Dim oTable As Table
    Dim dSum As Double
    Dim sCellValue
    Dim arr()
    Dim i, j
    With Word.Application.Selection
        For Each oCell In .Cells
        sCellValue = oCell.Range.Text
        '把单元格结尾字符去掉
        sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")
            '判断单元格内容是否是数值
            If VBA.IsNumeric(sCellValue) Then
                ReDim Preserve arr(i)
                arr(i) = sCellValue
                dSum = dSum + arr(i)
                i = i + 1
            End If
        Next
    End With
    MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Sub QQ1722187970()

Dim oRng As Range

Dim oCell As Cell

Dim oTable As Table

Dim dSum As Double

Dim sCellValue

Dim arr()

Dim i, j

With Word.Application.Selection

For Each oCell In .Cells

sCellValue = oCell.Range.Text

'把单元格结尾字符去掉

sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")

'判断单元格内容是否是数值

If VBA.IsNumeric(sCellValue) Then

ReDim Preserve arr(i)

arr(i) = sCellValue

dSum = dSum + arr(i)

i = i + 1

End If

Next

End With

MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum

End Sub

[……]

阅读全文>>>

如何用vba删除新增的自定义菜单命令或者恢复原来的菜单栏功能？

2017年6月1日作者：水星Excel
2,123 次浏览暂无评论

如下图所示，

在单元格右键快捷菜单中新增了一个自定义菜单命令“测试”。

每次打开excel文件都会有这个命令，现在如果不需要了，可以CommandBar对象的Reset方法进行重置。[……]

阅读全文>>>
如何用vba处理word表格？

2017年1月11日作者：水星Excel
2,234 次浏览暂无评论

在word中可以插入表格，这个表格与excel的表格很相似，但是在用vba处理word表格时，还是有所区别。

每一个word表格就是一个table对象，行列分别属于row、column对象，每一个单元格[……]

阅读全文>>>