MacOS M1环境下VBA中BitAnd函数触发溢出错误（Error 6）原因咨询

问题背景 #

在MacOS M1设备的VBA环境中，使用BitAnd函数时触发了溢出错误（Error 6）。相关枚举定义代码如下：

Public Enum eLogLocations
  inListBox = 2&
  inDebug = 4&
  inFile = 8&
  Everywhere = inListBox & inDebug & inFile
End Enum

错误特征 #

• 直接使用数字而非枚举值时，仍会触发相同错误；
• 溢出发生在If判断语句的条件部分，而非Then后的执行代码；
• 仅当BitAnd返回0时触发错误：即时窗口中运行同一段代码不会溢出，使用Everywhere或inFile等非0结果的枚举值时也无异常。例如：

  4 = 100（二进制）
  8 = 1000（二进制）
  按位与结果= 0000（二进制）
  

额外疑问 #

位操作本应针对整数类型，但BitAnd函数的参数和返回值却都是Double类型？是否误解了BitAnd的用法？

1. BitAnd返回0时触发溢出的原因 #

这是MacOS M1版VBA的已知兼容性Bug。ARM架构的Mac VBA在处理BitAnd运算的0值结果时，存在类型转换逻辑异常：即便你用&后缀指定了长整型（Long），VBA仍会错误地将0值结果在类型转换过程中触发溢出。

临时修复方案 #

• 显式强制转换结果类型：用CLng()将BitAnd结果强制转为长整型，规避异常转换逻辑：

  If CLng(BitAnd(inDebug, inFile)) = 0 Then
      ' 你的业务逻辑代码
  End If
  

• 反向逻辑绕开0值判断：通过判断结果是否不等于目标值，替代直接判断0的逻辑：

  ' 原逻辑：If BitAnd(A,B) = 0 Then ...
  ' 改为反向判断，等效原逻辑
  If BitAnd(inDebug, inFile) <> 4 Then
      ' 对应原等于0的业务逻辑
  End If
  

2. BitAnd参数/返回值为Double的原因 #

VBA的BitAnd函数确实设计为接收Double类型参数并返回Double，这是早期VBA为兼容浮点类型位操作的设计遗留。实际使用中，传入整数类型（如Integer、Long）时，VBA会自动将其转换为Double运算，再返回Double结果。

使用时需注意：

• 当传入整数超出Double的精确整数范围（大于2^53）时，会丢失精度导致位运算结果错误；
• 对于你的枚举场景（值均为小范围长整型），Double可精确表示这些数值，只需在需要时将结果转换回整数类型即可。

额外说明 #

MacOS M1的ARM版Office VBA在底层功能（如位运算、类型转换）上仍存在与Windows版的兼容性差异。遇到此类架构相关Bug，优先尝试显式类型转换、逻辑绕开等临时方案，同时可关注Office更新，微软后续可能修复这类兼容性问题。

内容的提问来源于stack exchange，提问作者RoGKôT