标签: excel-vba

我有一个包含20个不同数据透视表的工作簿.有没有简单的方法来查找所有数据透视表并在VBA中刷新它们？

所以我不得不在我的电脑上运行别人的excel应用程序,而且我在日期,格式,十六进制,中间等标准功能上"找不到项目或库".

一些研究表明,如果我用"VBA"为这些函数添加前缀.就像在"VBA.Date"中一样,它会正常工作.

网页建议它与我的系统上的项目引用有关,而它们必须在开发人员的系统上正常.我将在一段时间内与其他人讨论此问题,并将这些应用程序分发给其他人,因此我需要了解我需要修复的excel设置有什么问题,或者需要更改的内容. xls文件,以便它可以在各种系统上运行.我想避免让每个人都使用"VBA".作为一个明确的参考,但如果没有理想的解决方案,我想这就是我们必须要做的.

• 我如何制作"VBA".隐含在我的项目属性/ references/etc中？

-亚当

是否有内置的方法在Excel VBA中对字符串进行URL编码,还是需要手动滚动此功能？

如何使用Excel宏从Excel中的列名获取列号？

好吧,我刚刚创建了一个简单的sub,它给出了溢出的错误.但是,我没有看到代码有什么问题,而且真的很奇怪,因为50000*100远大于500*100.

sub add()
    'This will cause an overflow error
    cells(1,1) = 500 * 100
    'But this won't
    cells(2,2) = 50000 * 100
end sub

我正在做一个需要从数据库进行大量数据更新的Excel应用程序,因此需要时间.我想在userform中创建一个进度条,它会在数据更新时弹出.我想要的酒吧只是一个小的蓝色条左右移动并重复,直到更新完成,不需要百分比.我知道我应该使用progressbar控件,但我曾尝试过一段时间,但是无法做到.

编辑:我的问题是progressbar控件,我看不到栏'进展',它只是在表格弹出时完成.我使用循环,DoEvent但这不起作用.另外,我希望这个过程重复,而不仅仅是一次.

可能重复:
使用VBA检查下面的单元格是否为空

作为VBA通过检查一个单元格是否为空,具有特定信息？例如:如果A:A ="产品特殊"而B:B为空则C1 ="产品特殊"这只是一个想法.

以及如何在范围内使用For Each.并返回其他单元格中的值？

这个问题来自Range.Formula =在VBA下的注释引发了一个奇怪的错误.

我通过反复试验编写了该程序,所以我自然会尝试+连接字符串.

但是&比+连接字符串更正确吗？

通过完整类型的变量,我指的是您在即时窗口中获得的信息类型:

我想使用VBA动态确定类型信息.该函数TypeName()不能做我想要的,因为它返回变量的子类型,并且不区分例如保持范围的变量变量,保持范围的对象变量和保持范围的范围变量.

作为初步步骤,我编写了一个函数,用于检测变量是否传递给它.它的工作原理是利用传递引用语义.代码使用其参数执行的操作只能通过变量完成,因此如果传递的变量实际上不是变量,则会触发错误:

Function IsVariant(var As Variant) As Boolean
    Dim temp As Variant
    Dim isVar As Boolean

    If IsObject(var) Then
        Set temp = var
    Else
        temp = var
    End If

    On Error Resume Next
        Set var = New Collection
        var = "test"
        If Err.Number > 0 Then
            isVar = False
        Else
            isVar = True
        End If
    On Error GoTo 0

    If IsObject(temp) Then
        Set var = temp
    Else
        var = temp
    End If
    IsVariant …

我正在尝试为工程项目实现一些形状并将其抽象出来以用于一些常见功能,以便我可以使用通用程序.

我正在尝试做的是有一个调用的接口,cShape并拥有cRectangle并cCircle实现cShape

我的代码如下:

cShape 接口

Option Explicit

Public Function getArea()
End Function

Public Function getInertiaX()
End Function

Public Function getInertiaY()
End Function

Public Function toString()
End Function

cRectangle 类

Option Explicit
Implements cShape

Public myLength As Double ''going to treat length as d
Public myWidth As Double ''going to treat width as b

Public Function getArea()
    getArea = myLength * myWidth
End Function

Public Function getInertiaX()
    getInertiaX = (myWidth) * (myLength ^ 3) …