在excel单元格中有时候我们需要动态的获取当前的excel工作簿所在的文件夹路径,这时候可以使用excel工作表函数Cell来实现。
工作表函数Cell的语法参数如下:
[crayon-6036b8[……]
关注和分享Excel以及Office系列软件的方方面面,致力于提高中国的办公软件的使用水平
表格在office的不同组件中都存在。
在excel中所有都是表格,word中可以插入表格,ppt中也可以插入表格。
在vba中,excel的表格是以range对象存在的,word中的表格是以ta[……]
阅读全文>>>在一个word表格的任意单元格中存储有数字,当任意选中不同的单元格时,希望可以对其中的数字进行求和,并弹窗显示结果,可以使用如下的代码:
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 |
[……]
阅读全文>>>