Question

我按照在线指南说要在用户表单中设置多页，然后提供代码但仍然会出现语法错误，似乎无法解决错误。

我希望最终用户选择要填写的页面，然后点击提交，然后将数据提交到工作簿中的正确工作表中。

如果用户在系统中注册了新的套件，他们填写寄存器位然后点击提交并将数据放入寄存器表，依此类推，例如，等等。填写部署工具包表单，将数据放入部署表。

表单顶部的资产编号会自动添加到每个条目中。

忽略报告页面将在以后处理该问题。

我尝试在发布问题错误后添加代码

server.on('request', function(req, respond) {
    filePath = '1.jpg';

    var chunks = []
    req.on('data', d => {
      chunks.push(d)
    })

    req.on('end', function (){
      var data =  Buffer.concat(chunks)      
      fs.writeFile(filePath, data, function() {
        respond.end();
      });
    });
});

Answer 1

我会这样做，使用Range和Declaring Workbook，并且在调用其对象时总是提到UserForm的名称。

Private Sub SB1_Click()
'Declare the Variables
Dim lrREG As Long
Dim WrReg as Long
Dim Wk As Workbook

'Assign the Declared Variables
Set Wk = ActiveWorkbook

lrREG = Wk.Sheets("Register").Range("A" & Rows.Count).End(xlUp).Row
WrReg = lrREG + 1

Sheets("Register").Range("A" & wrReg).Value = FormName.TextBox1.Value
Sheets("Register").Range("B" & wrReg).Value = FormName.TextBox2.Value
Sheets("Register").Range("C" & wrReg).Value = FormName.TextBox3.Value
Sheets("Register").Range("D" & wrReg).Value = FormName.TextBox4.Value
Sheets("Register").Range("E" & wrReg).Value = FormName.TextBox5.Value
Sheets("Register").Range("F" & wrReg).Value = FormName.TextBox6.Value


End Sub

Userform将数据输入到多个工作表

1 个答案: