我正在尝试编写一个宏,让用户创建一个新工作表,命名它,然后根据他们选择的选项,将某个文本粘贴到新工作表中。但到目前为止,我的搜索和拼接只让我感到高兴。
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“)......”
提前致谢。
答案 0 :(得分:0)
显然,你的项目还有很多工作要做。在下面的代码中,我简化了您现有的代码,以便您可以更清楚地看到下一步。我希望它有所帮助。
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);