Office菜单栏中英文对照表

获取Excel菜单命令的VBA代码:

Sub ShowInfo()
    '返回菜单命令栏CommandBar的名称
    Dim bar As CommandBar
    Dim i As Integer
    [a1] = "序号": [b1] = "英文名": [c1] = "中文名"
    For Each bar In Application.CommandBars
        With ActiveSheet
            i = i + 1
            .Cells(i + 1, 1) = bar.Index
            .Cells(i + 1, 2) = bar.Name
            .Cells(i + 1, 3) = bar.NameLocal
        End With
    Next
    Cells.EntireColumn.AutoFit '自适应列宽
End Sub
继续阅读“Office菜单栏中英文对照表”

Excel VBA:Range对象

  • Range("ListObjectsName[Title]")
Sub Examples01()
    Dim x As Integer, y As Integer, rngList As Range
    x = Sheet1.UsedRange.Rows.Count
    y = Sheet1.UsedRange.Columns.Count
    Set rngList = Range("A1", Cells(x, y))

    Sheet1.ListObjects.Add(xlSrcRange, rngList, , xlYes).Name = "表1"
    Range("表1[余额]").FormulaR1C1 = "=ROUND(SUM([@收入]-[@支出]),2)"
End Sub
继续阅读“Excel VBA:Range对象”

在 Microsoft Query 创建参数查询

在查询查询Excel,可能需要使用输入值(参数)来指定有关查询的一些内容。 为此,在 Microsoft Query 中创建参数查询:

参数在查询的 WHERE 子句中使用 – 它们始终用作检索数据的筛选器。

运行或刷新查询时,参数可以提示用户输入输入值,使用常量作为输入值,或使用指定单元格的内容作为输入值。

参数是它修改的查询的一部分,不能在其他查询中重复使用。

备注:若要使用另一种方法创建参数查询,请参阅使用 Power Query (创建参数)

继续阅读“在 Microsoft Query 创建参数查询”

Power Query 动态路径及自定义函数应用

PQ在数据清洗转化方面非常强大,但是文件如果发给别人,必须修改对应的路径才能刷新。

如何才能实现自动化的刷新?

首先新建一个超级表(命名为"Path"),表中利用CELL函数来获取当前文件的路径,如输入公式=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)&[文件名]&[后缀名]即得到该文件的完整路径。

01
继续阅读“Power Query 动态路径及自定义函数应用”