Question

我正在尝试构建一个简单的输入表单，从特定工作表中提取一些显示数据，然后在单击按钮时输出/输入放置在文本框中的输入数据到特定工作表和单元格引用。

当我去激活输出表时，我一直遇到语法错误 - 我是VB和编码的新手，所以对最基本的问题表示歉意。

这是我用于输出的代码。

Private Sub CommandButton1_Click()     
    activateSheet(Weeklyhours As String)      
    Sheets(Weeklyhours).Select     
    ActiveSheet.Range("I2").Select = TxtMonhours.Text  
    ActiveSheet.Range("j2").Select = TxtTueshours.Text

当我运行它时，我收到语法错误。

非常感谢任何帮助。

Answer 1

这一行肯定不是正确的语法。

activateSheet(Weeklyhours As String)

使用As的唯一时间（我知道）在声明声明中

dim Weeklyhours as string

这可能是您正在寻找的东西，但要知道一切是什么有点难。您不必激活工作表并选择单元格来修改它们。不管怎样，最好不要这样做，这在大多数情况下都是如此。

Private Sub CommandButton1_Click()
    sheets("Weeklyhours").range("I2").value = TxtMonHours.text
    sheets("Weeklyhours").range("J2").value = TxtTueshours.text
    'This assumes you have a sheet with the name "Weeklyhours"
end sub

尝试从输入中获取数据并写入特定工作表中的特定单元格

1 个答案: