请教如何实现表格中某个单元格的值赋值给宏中的数组？？？

hnzwei · 发表于 2019-4-21 15:08

例如，一张表格设置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"）就没问题

liulang0808 · 发表于 2019-4-21 15:25

dy=split(ohz.Range("A1"),",")
这样看看吧

hnzwei · 发表于 2019-4-21 15:52

@liulang0808 大神啊，好像不行，还是报错，能麻烦帮我再看看吗

719404338 · 发表于 2019-4-21 16:05

dy = Split(Sheet3.Range("b1"), ", ")

西瓜9527 · 发表于 2019-4-21 16:06

把B1的所有引号去掉：c7，c8，c9，c10
dy=split(ohz.Range("B1"),",")

hnzwei · 发表于 2019-4-21 20:34

西瓜9527 发表于 2019-4-21 16:06
把B1的所有引号去掉：c7，c8，c9，c10
dy=split(ohz.Range("B1"),",")

高手啊，谢谢！

hnzwei · 发表于 2019-4-21 20:42

西瓜9527 发表于 2019-4-21 16:06
把B1的所有引号去掉：c7，c8，c9，c10
dy=split(ohz.Range("B1"),",")

搞定了，谢谢！

hnzwei · 发表于 2019-4-21 20:43

719404338 发表于 2019-4-21 16:05
dy = Split(Sheet3.Range("b1"), ", ")

谢谢！搞定了！

		自动登录	找回密码
密码			免费注册

[求助] 请教如何实现表格中某个单元格的值赋值给宏中的数组？？？

评分

评分

评分