定义要在整个访问数据库中使用的常量

Question

我不想为数据库中的每个元素指定颜色，而是将其分配给变量，以便我可以一次更改所有元素。我知道在android中，它位于res文件夹中，类似于

res folder: //Definition <resources> <color name="white">#ffffff</color> 

不确定//如何在VBA中应用

Answer 1

您可以定义全局常量。

我建议创建一个带有全局常量的模块* ：

' for use within the VBA
Public Const WhiteColor As Long = &HFFFFFF

' (optional) make the constant accessible for use in SQL queries
' they can consume only functions, not constants
Public Function GetWhiteColor() As Long
    GetWhiteColor = WhiteColor
End Function

如果您添加了该功能，则可以在SQL中使用它：

SELECT GetWhiteColor() AS WhiteColor;

*）如何添加和命名新模块：

1. 使用菜单插入＆gt;的模块

2. 通过菜单查看＆gt;显示属性窗口（如果尚未显示） 属性窗口或按 F4 ，

3. 在树中选择模块。

4. “属性”窗格中的第一个属性是（名称）属性。将其值更改为您想要的值，例如mConst。

Answer 2

Dim ColourIndex_1 As Long

ColourIndex_1 = RGB(255, 0, 0)
Range("A1").Interior.Color = ColourIndex_1