Question

因此，我创建了一个包含2种不同流程图的电子表格。用户键入他需要的流程图的数量，并自动倍增，以便用户可以填写每个流程图中的数据。在每个流程图的顶部都有一行包含它的结果。直到这里一切都很完美。现在，我需要创建一个选项卡，其中包含每个流程图的总体结果，我面临的问题是： 1）每个选项卡将由用户重命名 - 所以我想我可以创建一个代码来使用工作表的代号（sheet1等）获得结果，但它也不起作用bc： 2）有两种不同类型的流程图（它表示2种不同的结果标准，行数不同等），用户为每种流程创建的工作表数量也是不知情的。

我真的迷失在这里，我真的很感谢你的帮助！

P.S。我对宏很新，所以我对VBA并不熟悉。

” 'Ausführungbeiklick auf den Button“Anzahl Bauteile eingeben” “ Private Sub CommandButton4_Click（）

'Insert Blatt
Dim InAnzahl As Integer, intI As Integer, insL As Integer, insR As Integer, ws As Worksheet
InAnzahl = Application.InputBox("Anzahl der Prozesse (eingeben", "Kopie", 0, Type:=1)
If InAnzahl = 0 Then Exit Sub
If InAnzahl = 1 Then Sheets("Prozessbewertung").Select
For intI = 1 To InAnzahl - 1
    Sheets("Prozessbewertung").Select
    Sheets("Prozessbewertung").Copy after:=Sheets(ActiveSheet.Name)
Next intI

 'Insert Lines (ALSO UPDATED)
If InAnzahl > 2 Then Sheets("Gesamtbewertung").Select
For insL = 1 To InAnzahl - 1
Sheets("Gesamtbewertung").Rows("11:11").Insert shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove
Next insL

更新：

我创建了下面的程序来插入结果（但它限制在我将在程序中创建的行数）另外，我仍然不知道如何使excel明白我有2种不同的结果标准，所以我只创建了一个。

Sub Ergebnisse（）

'Prozessbewertung Blatt 1
Sheets(5).[C3:AL3].Copy Sheets(3).[C10:AL10]
'Prozessbewertung Blatt 2
Sheets(6).[C3:AL3].Copy Sheets(3).[C11:AL11]
'Prozessbewertung Blatt 3
Sheets(7).[C3:AL3].Copy Sheets(3).[C12:AL12]
'Prozessbewertung Blatt 4
Sheets(8).[C3:AL3].Copy Sheets(3).[C13:AL13]

End Sub

依旧......

有人帮忙吗？我还不能解决这个问题！请！

Answer 1

好吧，因为我没有找到解决方法，所以我决定将2种不同的结果标准分成2个不同的Excel表格。

VBA - 变量命名选项卡和不同标准的总体结果

1 个答案: