|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
例如,一张表格设置sheet1中A1单元的值为:"c7", "c8", "c9", "c10", "c11", "c12", "c13", "c14" ,如何实现把这个A1的值赋值给宏中的数组。宏中的一个数组:dy = Array("c7", "c8", "c9", "c10", "c11", "c12", "c13", "c14") 想实现 SHEET1中 A1的值可以随时修改,dy数组的值自动跟着变。
Dim ohz As Worksheet, st As String
Set ohz = ActiveWorkbook.Sheets("报表参数") '读取报表参数表上的对应参数
Application.ScreenUpdating = False
st = ohz.Range("A1")
dy = Array(st)
改成上述这样就报错,如果直接是dy = Array("c7", "c8", "c9", "c10", "c11", "c12", "c13", "c14")就没问题
|
|