[已解决]变量赋值？

cxzfy12758

Sub aa()
Dim rng As Range
Dim what As String
what = "澳门彩票"
Set rng = Sheets("亚盘").Cells.Find("澳门彩票", , , xlWhole)
    If rng Is Nothing Then
    rng = "未开盘"
    End If
这句怎么不对啊？什么原因？出错位置rng = "未开盘"

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-29 11:22

{:111:}打不到如何等于？
再设一个变量呗。

原因：RNG是RANGE对象，如果直接rng = "未开盘"
就等于rng.value= "未开盘"，既然NOTHING，何来VALUE属性。

跳转到最佳答案楼层

QLZ0602

建议上传附件

cxzfy12758

回复 QLZ0602 的帖子

问一下这句代码格式对吗？谢谢

liuguansky

  If rng Is Nothing Then
    rng = "未开盘"
    End If
既然RNG是NOTHING了，你如何还对它进行赋值呢？

cxzfy12758

回复 liuguansky 的帖子

如果找不到就等于未开盘，因为我下一步还要引用rng变量。

liuguansky

{:111:}打不到如何等于？
再设一个变量呗。

原因：RNG是RANGE对象，如果直接rng = "未开盘"
就等于rng.value= "未开盘"，既然NOTHING，何来VALUE属性。

cxzfy12758

回复 liuguansky 的帖子

还要设变量？

liuguansky

你上传示例文件，说明要求。这样问来问去，你也得不到解答的。

QLZ0602

回复 cxzfy12758 的帖子

RNG是一个 RANGE变量,
RANGE变量需用 SET 赋值
  而且给他的值 是单元格地址

cxzfy12758

回复 liuguansky 的帖子

从新设变量。弄好了，谢谢