excel：连接来自userform的值

我有这个用户窗体叫CompData ，它看起来像这样：

这种forms的主要目的是更新CONSULTA工作表中的一个单元格，这个string=">" & DATE(year, month, day) （或变体），其中DATE和正确的math符号的值来自表单。

在“Inserir”（这是我的插入button）我把这个代码关联起来：

 Private Sub Inserir_Click() If Maior.Value = True Then Worksheets("CONSULTA").Range("K23") = "=" > " & DATE(CompData.Ano.Value, CompData.Mes.Value, CompData.Dia.Value)" ElseIf Maior.Value = True Then Worksheets("CONSULTA").Range("K23") = "=" < " & DATE(CompData.Ano.Value, CompData.Mes.Value, CompData.Dia.Value)" ElseIf MaiorIgual.Value = True Then Worksheets("CONSULTA").Range("K23") = "=" >= " & DATE(CompData.Ano.Value, CompData.Mes.Value, CompData.Dia.Value)" ElseIf MenorIgual.Value = True Then Worksheets("CONSULTA").Range("K23") = "=" <= " & DATE(CompData.Ano.Value, CompData.Mes.Value, CompData.Dia.Value)" End If End Sub 

Maior，Menor，MaiorIualual和MenorIgual是我的选项button的名称。

无论如何，当我运行代码时，它给了我：

运行时错误461：未find方法或数据成员

并强调这一部分：

 Private Sub Inserir_Click() 

我知道存在一个CONCATENATE函数，但我不认为它会在我的VBA代码上工作。

我不知道我是否正确连接，但我真的不知道如何解决这个问题。

Answer 1

如果您想将K23的公式设置为=">"&DATE(2017,6,8)那么您可以编码：

 Worksheets("CONSULTA").Range("K23").Formula = "="">""&DATE(" & CompData.Ano.Value & "," & CompData.Mes.Value & "," & CompData.Dia.Value & ")" 

在string中注意双""你想要包括一个" 。