Question

我正在尝试编写一个宏，让用户创建一个新工作表，命名它，然后根据他们选择的选项，将某个文本粘贴到新工作表中。但到目前为止，我的搜索和拼接只让我感到高兴。

Sub AddNameNewSheet1()
Dim Newname As String
Newname = InputBox("Name for new account?")
If Newname <> "" Then
    Sheets.Add Type:=xlWorksheet
    ActiveSheet.Name = Newname
    Range("D1") = Newname
End If

Dim LR As Long, i As Long
With Sheets("Start Page")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        With .Range("A" & i)
            If .Value = "Debit" Then
                Sheets("Account Styles").Range("A1:G3").Copy Destination:=Sheets("").Range("A1:G3")
            ElseIf .Value = "Credit" Then
                Sheets("Sheet1").Range("A1:A1").Copy Destination:=Sheets("Sheet1").Range("A2:A2")
            ElseIf .Value = "Savings" Then
                Sheets("Sheet1").Range("A1:A1").Copy Destination:=Sheets("Sheet1").Range("A2:A2")
            End If
        End With
    Next i
End With

起点很棒，因为我发现很多相对相似的答案与我将它与我的项目联系起来并不相似。我知道代码可能无法以当前形式修复。到目前为止它一直工作到“Sheets（”帐户样式“）。范围（”A1：G3“）......”

提前致谢。

Answer 1

显然，你的项目还有很多工作要做。在下面的代码中，我简化了您现有的代码，以便您可以更清楚地看到下一步。我希望它有所帮助。

    let options = {
    method: "POST",
    headers: new Headers({'content-type': 'application/json'}),
    body: JSON.stringify({
          "Title": "title"
          })
    };
    const url = "http://localhost:8080/myserver/data/list";
    return fetch(url, options);

如何引用由宏的第一部分命名的工作表？

1 个答案: