Msgbox将行数复制到哪个工作表

时间:2015-11-25 09:17:56

标签: excel vba excel-vba excel-2010 msgbox

在这里有许多乐于助人的人的帮助下,我已经达到了代码完全符合我的需要的程度!

我最后在MsgBox处挣扎,显示已复制到每张表的行数。如果同一MsgBox中的全局工作表中存在任何非匹配项,我还希望显示它。如果未找到不匹配,则可以省略该部分。

以下是我在column Q中搜索工作表的代码,并在ComboBox2的{​​{1}}中找到匹配项。这将告诉需要将行复制到哪个工作表,如果需要新工作表,那么还要将其命名为一些其他所需信息。

UserForm

这是Private Sub CommandButton1_Click() Dim i As Long, j As Long, k As Long, strWS As String, rngCPY As Range Dim noFind As Variant: noFind = UserForm2.ComboBox2.List '<~~~ get missed items With Application: .ScreenUpdating = False: .EnableEvents = False: .CutCopyMode = False: End With If Range("L9") = "" Then: MsgBox "You can't Split the Jobs at this stage. " & vbLf & vbLf & "Please create the form for the Sub-Contractor First." & vbLf & vbLf & "Please press Display Utilities to create form.", vbExclamation, "Invalid Operation": Exit Sub Dim lastG As Long: lastG = sheets("Global").Cells(Rows.Count, 17).End(xlUp).row Dim cVat As Boolean: cVat = InStr(1, sheets("Payment Form").Range("A20").value, "THE VAT SHOWN IS YOUR OUTPUT TAX DUE TO CUSTOMS AND EXCISE") If sheets("PAYMENT FORM").Cells(35 - cVat * 5, 12) >= 1 Then: MsgBox "It appears you have already split the jobs, this operation can only be performed once.", vbExclamation, "Invalid Operation": Exit Sub For j = 0 To UserForm2.ComboBox2.ListCount - 1 noFind(j, 4) = 0 For i = 3 To lastG If noFind(j, 0) = sheets("Global").Cells(i, 17) Then k = i strWS = UserForm2.ComboBox2.List(j, 1) On Error Resume Next '<~~ if the worksheet in the next line does not exist, go make one If Len(Worksheets(strWS).Name) = 0 Then With ThisWorkbook On Error GoTo 0 Dim nStr As String: With sheets("Payment Form").Range("C9"): nStr = Right(.value, Len(.value) - Len(Left(.value, InStr(.value, "- ")))): End With Dim CCName As Variant: CCName = UserForm2.ComboBox2.List(j, 2) Dim lastRow As Long: lastRow = sheets("Payment Form").Range("U36:U53").End(xlDown).row Dim strRng As String: strRng = Array("A18:A34", "A23:A39")(-1 * cVat) Dim lastRow2 As Long: lastRow2 = sheets("Payment Form").Range(strRng).End(xlDown).row Dim wsTemplate As Worksheet: Set wsTemplate = ThisWorkbook.sheets("Template") Dim wsNew As Worksheet With sheets("Payment Form") For Each cell In .Range(strRng) If Len(cell) = 0 Then If sheets("Payment Form").Range("C9").value = "Network" Then cell.Offset.value = strWS & " - " & nStr & ": " & CCName Else cell.Offset.value = strWS & " -" & nStr & ": " & CCName End If Exit For End If Next cell End With With wsNew wsTemplate.Visible = True wsTemplate.Copy before:=sheets("Details"): Set wsNew = ActiveSheet wsTemplate.Visible = False wsNew.Name = strWS wsNew.Range("D4").value = sheets("Payment Form").Range(strRng).End(xlDown).value wsNew.Range("D6").value = sheets("Payment Form").Range("L11").value wsNew.Range("D8").value = sheets("Payment Form").Range("C9").value wsNew.Range("D10").value = sheets("Payment Form").Range("C11").value End With With .sheets("Payment Form") .Activate .Range("J" & lastRow2 + 1).value = 0 .Range("L" & lastRow2 + 1).Formula = "=N" & lastRow2 + 1 & "-J" & lastRow2 + 1 & "" .Range("N" & lastRow2 + 1).Formula = "='" & strWS & "'!L20" .Range("U" & lastRow + 1).value = strWS & ": " .Range("V" & lastRow + 1).Formula = "='" & strWS & "'!I21" .Range("W" & lastRow + 1).Formula = "='" & strWS & "'!I23" .Range("X" & lastRow + 1).Formula = "='" & strWS & "'!K21" End With End With End If '<~~~ end new sheet On Error GoTo 0 While sheets("Global").Cells(k + 1, 17).value = noFind(j, 0) And k < lastG k = k + 1 Wend Set rngCPY = sheets("Global").Range("Q" & i & ":Q" & k).EntireRow With Worksheets(strWS) rngCPY.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Insert shift:=xlDown End With noFind(j, 4) = noFind(j, 4) + k - i + 1 i = k End If Next i Next j With Application: .ScreenUpdating = True: .EnableEvents = True: .CutCopyMode = True: End With 'noFind(x, y) > x = item / y: 0 = name / y: 4 = counter noFind(0, 0) = noFind(0, 0) & " " & noFind(0, 4) & " times copied" For i = 1 To UBound(noFind) noFind(0, 0) = noFind(0, 0) & vbLf & noFind(i, 0) & " " & noFind(i, 4) & " times copied" Next MsgBox noFind(0, 0) End Sub

当前显示的内容

enter image description here

这就是我希望MsgBox显示信息的方式:

enter image description here

我希望它显示工作表名称,然后复制了多少行。

下面是复制的总行数。

然后,如果需要,在全局工作表上找到的显示错误下方以及您找到该值的次数。 I.e(BRERRORS)&lt; - 这是单元格值。

如果可能的话,可能也会在工作表上找到错误总数。

在最底部,是在全局工作表中搜索到的总行数,这将用于比较,因此如果复制的总行数与全局工作表的总数不匹配,那么用户会知道他们需要在检查行值后手动复制一些行。

如果它有帮助,那么原始代码没有MsgBox的代码,如果你能想到更好的方法。

MsgBox

0 个答案:

没有答案