使用'RefEdit'控件来检查特定的范围

我有一个用户表单，用户被要求使用RefEditselect一个单元格区域。 我试图将相应的范围存储在范围variables中，以便可以在该范围上运行多个检查（无空单元格，有效input…）。 现在我试图用它（正如我见过很多人在互联网上这样做）：

 Dim Data_Range as Range Set Data_Range = Range(RefEdit_DataRange.Value) 

但它只是以一个错误结束：

“对象”_Global“的错误1004：方法”范围“失败。 （近似翻译）

我在MsgBox中打印了RefEdit_DataRange.Value ，它是一个string格式化的Sheet!Cell1:Cell2所以它看起来像我期待的，但它不工作。

有没有人遇到同样的问题？

Answer 1

你需要在范围地址之前传递你的工作表参考，从你的工作中， split似乎是最简单的方法：

 Dim Data_Range As Range, _ A() As String A = Split(RefEdit_DataRange.Value, "!") Set Data_Range = Sheets(replace(A(0),Chr(39),"")).Range(A(1))