如何设置公共模块和全局变量

乄蜗牛

想通过VBA代码实现以下功能：
通过定义一部分变量，该变量与例表的表头一一对应    ，通过查询变量在列表中位置，得出对应表头的列号
在“变量初始”模块中：
(1)Public了公共变量
(2)设置了一个位置查询函数PositionSearch
(2)宏过程“初始化”，将表头对应的变量存入了序列wsList，并查询变量在列表中位置
在此模块中可以查询变量所在函数

在模块1、模块2中，也进行了变量位置查询，但是报错。


请教各位老师：
如何修改VBA代码，才能使得只设置一次wsList ，即可在其他模块中引用位置查询函数

再进一步请教：如何修改代码，才能使得列表中变量不带引号，并实现以上功能，感谢各位老师。                                       

taller

先运行“初始化()”，然后再运行“测试1” “测试2”，没有任何错误

才能使得列表中变量不带引号 - 列表中带引号，表明是字符串，这个对楼主有什么影响呢？

如果纠结这个形式，可以改用

1. wsList = Split("Number Province City Address Manufacturer Modle Caps Status_Shape Notes")

复制代码

乄蜗牛

taller 发表于 2024-1-4 04:06
先运行“初始化()”，然后再运行“测试1” “测试2”，没有任何错误

才能使得列表中变量不带引号 - 列表 ...

因为我正式的表格中，每个sheet都有200+的列，就设置了200+对应的变量，通过查询变量在对应列表中位置，返回变量对应列的列号，在每个sheet插入、删除列之后，我只要修改表格对应列表中变量位置和数量，就能维护我在其他过程中的计算和判断，提高可用性。
如果每个变量都添加引号，感觉太麻烦了
所以在尝试有没有比较省事的办法

yynrzwh

call 初始化

乄蜗牛

yynrzwh 发表于 2024-1-4 09:43
call 初始化

已解决，多谢多谢