- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
尝试执行以下代码时,出现 VBA 错误:类型不匹配。任何人都知道原因(和解决方案?:-))
我将数据类型从 Long 更改为 LongLong,以便能够处理更大的数字。在此之前,代码(摘录)运行良好。
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hDC As LongPtr) As Long
Public Sub TestScreenResolution()
Debug.Print ScreenResolution
End Sub
Private Function ScreenResolution() As Double
Dim hDC As Long
hDC = GetDC(0)
ScreenResolution = GetDeviceCaps(hDC, 88)
ReleaseDC 0, hDC
End Function
Public Sub TestMySub()
Call MySub(999999999)
End Sub
Private Sub MySub(ByVal x As LongLong)
Dim y As LongLong
Dim Max As LongLong
Dim Min As LongLong
Max = x * x
Min = (x - 1) * (x - 1)
Dim Arr() As Boolean 'Default Boolean type is False
ReDim Arr(Min To Max) ''<<< "Type Mismatch" compile error
For y = Max To Min Step -2
Arr(y) = True
Next y
End Sub
当然这段代码是没有结果的,只是为了测试这段代码。
最佳答案
您无法“处理”它 - LongLong
与您的 ReDim
语句不兼容。 (虽然 999999999
在技术上适合 Long
,但编译器不允许在那里进行缩小转换。
VBA 中任何数组的最大大小由 SAFEARRAY
structure 决定。 (在 OLE 自动化协议(protocol)规范的 section 2.2.30.10 中定义)它由内部支持。 C++中结构体的定义是这样的:
typedef struct tagSAFEARRAY {
USHORT cDims;
USHORT fFeatures;
ULONG cbElements;
ULONG cLocks;
PVOID pvData;
SAFEARRAYBOUND rgsabound[1];
}
注意,cbElements
数组项的大小(以字节为单位)。这有效地将每个项目限制为 ~4GB。
您遇到的问题在于 SAFEARRAYBOUND
structures存储有关数组维度的信息:
typedef struct tagSAFEARRAYBOUND {
ULONG cElements;
LONG lLbound;
} SAFEARRAYBOUND, *LPSAFEARRAYBOUND;
这意味着无论编程语言如何,您可以塞入 SAFEARRAY
的任何维度的最大总项目数是 ULONG_MAX
的值> (4,294,967,295)。因此,以下编译(尽管它在我的机器上分配内存不足):
Dim foo(-2147483646 To 2147483647) As Byte
请注意,在上面的示例中,下限是负数,因为 VBA 也不支持无符号类型,这对 VBA 代码来说是调整数组大小的另一个障碍。从技术上讲,您可以通过 SafeArrayCreate 请求一个范围为 0 到 4294967294
的数组。由 oleaut32.dll 导出的函数,但我怀疑您在索引它时会遇到类似的问题。
进一步剥离层,您开始遇到一些更有趣的限制。例如,回顾上面的 SAFEARRAYBOUND
结构,您会注意到虽然可以有 ULONG_MAX
elements,但数组的下限受 signed LONG
约束。这是处理 SAFEARRAY
的大多数其他 OLE 自动化的限制,包括 SafeArrayGetLBound
和其他人(有趣的是,SafeArrayGetUBound
也签名,这让我想知道你是否可以溢出它......)。
那么,为什么 MS 在添加 64 位支持时没有更新这个呢?好吧,它几乎会破坏一切。除此之外,真的没有任何迫切的需要——一旦你超越了 ULONG
元素,你就会开始遇到非常现实的内存问题,因为数据区域的内存必须 在创建结构时分配 - 否则无法通过 COM 使用它,因为该结构的根是指针,并且契约(Contract)规定调用代码(无论客户端如何)必须能够使用数据区域内的任何地址,包括 VBA。
关于arrays - 如何处理 VBA bool /LongLong 数组中的 "type mismatch"?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/54519858/
equal() 算法可以告诉我们两个序列是否匹配。mismatch() 算法也可以告诉我们两个序列是否匹配,而且如果不匹配,它还能告诉我们不匹配的位置。 mismatch() 的 4 个版本和 equ
我只是想在 emacs 中自定义一些 org-mode 导出设置,所以我做了 M-xcustomize-group组织导出 html。这是由 Customize buffer 提出的,除其他外,我着手
我正在尝试通过 ColdFusion 使用基于 HTTPS 的 SOAP WebService,但它返回“连接失败”。 在转储结果变量时,它显示: 错误详细信息:“I/O 异常:证书‘subdomai
我想匹配表单的输入:: commit a1b2c3 Author: Michael commit d3g4 Author: David 这是我写的语法: grammar commit; file
我正在尝试根据《Doing Bayesian Data Analysis: A Tutorial with R, JAGS, and Stan (2015)》一书来学习贝叶斯分析。 这本书里有例子。所
我有一些使用 java 泛型的类,一切都工作正常,直到我向类层次结构添加了一些附加层。 我想知道问题是否与“类型删除”有关,但我不确定如何表达继承来消除这个问题。 类定义: public interf
我正在尝试向我的应用程序添加一种语言,它一直运行到现在。经过一天尝试了解发生了什么,我放弃了。 这是我的问题: 我的基本语言是英语(开发语言),我的其他语言是法语。我在 Main.storyboard
我最近开始在 Go 中使用模块,但我经常遇到这样的问题,即在一台机器上一切正常,但在另一台机器上构建代码库时遇到校验和不匹配。 问题总是涉及相同的第三方依赖(github.com/ericlagerg
今天在用织梦系统搭建新站,在系统基本参数设置好了之后,像往常那样点击【确定】这个按钮,没想到却出现了Token mismatch!的提示,系统的基本参数无法改变,后经过查询,将出现Token mis
题目地址:https://leetcode.com/problems/set-mismatch/description/open in new window 题目描述 Theset S origi
在看似简单的任务上陷入了极大的困境...当我尝试隐藏 时出现类型不匹配错误多个 使用此代码的列.. 有什么更好的建议吗? 问候, Sub Hider() Sheets("Data So
大家好,我收到一个编译错误:类型不匹配。在下面的代码中。我希望你们能帮助我。谢谢! Private Sub cmbBusId_AfterUpdate() With Me .txtStOdo = App
我最近遇到了一条我从未见过的借用检查器消息,我试图理解它。这是重现它的代码(简化的,现实生活中的例子更复杂)- playground : fn foo(v1: &mut Vec, v2: &mut V
我尝试编写代码以打印Z字符。 zzzzzzz z z z z z zzzzzzz 但是当我编译这段代码时,它会抛出 D:\erlang\graphics>erlc zee
Sub Reset_Bet() Application.ScreenUpdating = False Sheets("Bet Angel").Select
我很难弄清楚这段应该是基本的代码片段出了什么问题。我想知道是否有人可以帮助我。任何想法都将非常感激,我对 VBA 还很陌生。 我的代码是: Dim table() as Variant: ta
我只是想从键盘读取整数、 double 、字符串值。它对于整数和 double 工作正常。但当涉及到字符串时,它会抛出输入不匹配异常,因此我无法从键盘读取字符串。 import java.util.S
给定一个学生花名册文件,其中第一行是类(class)中的学生人数,在接下来的几行中,我提供了他们的姓名、ID 和年龄,如下所示: 5 Mary, 1010, 15 Ben, 1
Android资源编译失败C:\Users\TTP\AndroidStudioProjects\TicCrossGame\app\src\main\res\layout\activity_main.x
found : (Int, String, Option[java.lang.String]) required: (Int, String, Option[java.lang.String])
我是一名优秀的程序员,十分优秀!