Question

我找到了一个宏，该宏读取“ Sheets Insert”上的A列中的值，基于这些值创建单个工作表，然后将“ Template”复制到每个新页面。

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy Before:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub

效果很好。

所以对我来说，下一步是获取在“ Sheets Insert”的A列中创建工作表的值，并将该值插入到创建的工作表的G3中。

然后我需要它在“ Sheets Insert”的B列的同一行中获取值，并将其复制到该页面的C3中。

例如：

“表格插入”

Column A   |   Column B

Motor A         12345
Motor B         23456

代码创建工作表Motor A，然后将Motor A粘贴到[g3]，然后将12345粘贴到[c3]在Motor A工作表上。

代码创建工作表Motor B，然后将Motor B粘贴到[g3]，然后将23456粘贴到[c3]在Motor B工作表上。

依次类推。我搜索了几个小时，没有运气。希望有人能提供帮助。谢谢。

Answer 1

如果我理解了您的问题，则必须添加两行代码：

export default {
    template: html,
    bindings: {
        binding1: '<',
        binding2: '<',
        binding3: '<'
    },
    controller: [SomeService, controller]
}

function controller(SomeService) {
    // code
}

希望这会有所帮助

根据列值创建图纸，然后在每张图纸的特定单元格的列中插入值

1 个答案: