尝试将数据input到特定表单中的特定单元格

我试图build立一个简单的input表单，从特定的工作表中拉出一些显示数据，然后通过点击一个button，将input数据放在文本框中输出到特定的工作表和单元格引用。

当我去激活输出工作表时，我总是收到一个语法错误 – 我是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 

这可能是你正在寻找的，但有点难以分辨什么是一切。 您不必激活工作表并select单元格来修改它们。 大多数情况下，尽可能不要那样做。

 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