相关疑难解决方法(0)

如何在VBA中声明全局变量?

我写了以下代码:

Function find_results_idle()

    Public iRaw As Integer
    Public iColumn As Integer
    iRaw = 1
    iColumn = 1
Run Code Online (Sandbox Code Playgroud)

我收到错误消息:

"Sub或Function中的无效属性"

你知道我做错了吗?

我尝试使用Global而不是Public,但遇到了同样的问题.

我试图将函数本身声明为`Public,但这也没有用.

创建全局变量需要做什么?

excel vba scope global-variables

128
推荐指数
5
解决办法
96万
查看次数

如何在用户定义的函数上放置工具提示

在Excel 2007中,如何向用户定义的函数添加描述和参数提示?当我开始为内置函数键入函数调用时,Excel会显示描述和参数列表 - 工具提示.我想对我定义的函数做同样的事情.

不只是公式插入向导,而是在公式框中,所以如果我键"=myFun(",在"("工具提示弹出就像它为"=average("

在VBA帮助中没有任何帮助,在MSDN上没有任何帮助,在我能找到的任何Excel和VBA专用论坛上都没有,所以这显然是一个很长的镜头.

excel vba

70
推荐指数
6
解决办法
11万
查看次数

如何在Excel vba中引用表?

Excel VBA中是否可以引用命名表?

假设这可能是......

Sheets("Sheet1").Table("A_Table").Select
Run Code Online (Sandbox Code Playgroud)

我已经看到一些提到表是列表对象,但我不确定这是不是同样的事情......

excel vba excel-vba listobject excel-tables

29
推荐指数
6
解决办法
13万
查看次数

复制表但不是Range Excel VBA时出错

我有一个工作scriptauto-copies具体的cells从主Sheet到二级Sheet.script如果将Master设置为a range但在转换为a时返回错误,则此方法正常table.

脚本:

Option Explicit

Sub FilterAndCopy()
    Dim rng As Range, sht1 As Worksheet, sht2 As Worksheet

    Set sht1 = Worksheets("SHIFT LOG")
    Set sht2 = Worksheets("FAULTS RAISED")

    sht2.UsedRange.ClearContents

    With Intersect(sht1.Columns("B:BP"), sht1.UsedRange)
        .Cells.EntireColumn.Hidden = False ' unhide columns
        If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
        'within B:BP, column B is the first column
        .AutoFilter field:=1, Criteria1:="Faults Raised"
        'within B:BP, Columns B:C, AC:AE, BP are referenced as .Columns …
Run Code Online (Sandbox Code Playgroud)

excel vba copy range

3
推荐指数
1
解决办法
189
查看次数