批量修改控件属性(VBA)

我在EXCEL-sheet2中设置了18个标签控件,名字分别为n1n2n3n4.....n18现在我想用for语句将它们前景色改为白色也就是打印的时候不会打印出来我用如下... 我在EXCEL-sheet2中设置了18个标签控件,名字分别为n1 n2 n3 n4.....n18现在我想用for语句将它们前景色改为白色也就是打印的时候不会打印出来我用如下语句可是不知道错在哪里,还望指点。谢谢!
Private Sub CommandButton7_Click()
Dim dx As Object
For i = 1 To 18
dx = "n" & i
Sheets("sheet2").dx.ForeColor = &HFFFFFF
Next i
UserForm4.Show
End Sub
展开
 我来答
qqlover_myl
2009-04-04
知道答主
回答量:10
采纳率:0%
帮助的人:9.4万
展开全部
1.dx本身不是字符串
2."n" & i 这个表达式有问题,至少应该是"n" + cstr(i),当然,即使改成这样也没用
3.最直接的办法就是
n1.forecolor= &HFFFFFF
n2.forecolor= &HFFFFFF
n3.forecolor= &HFFFFFF
n4.forecolor= &HFFFFFF
n5.forecolor= &HFFFFFF
n6.forecolor= &HFFFFFF
n7.forecolor= &HFFFFFF
n8.forecolor= &HFFFFFF
n9.forecolor= &HFFFFFF
n10.forecolor= &HFFFFFF
n11.forecolor= &HFFFFFF
n12.forecolor= &HFFFFFF
n13.forecolor= &HFFFFFF
n14.forecolor= &HFFFFFF
n15.forecolor= &HFFFFFF
n16.forecolor= &HFFFFFF
n17.forecolor= &HFFFFFF
n18.forecolor= &HFFFFFF
lxz1969
2009-03-26 · TA获得超过1.1万个赞
知道大有可为答主
回答量:8524
采纳率:33%
帮助的人:1.1亿
展开全部
如果是控件数组就好办了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式