Question

我遇到的问题是我需要打印每天都在变化的文档。数据库有4列，正在更改的工作表上的数据从一列中取值并将其插入所需的单元格，并根据不同部门的需要打印4份副本。

问题是我不想直接打印500份，因为它目前正在发生。数据库具有在块上划分文档的列，它通常约为15到20个。

我需要输入框以便一次打印所需的块。这是我到目前为止的代码：

Sub SEAL()
Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range
  fnd = InputBox("Please input Block number to print")
Set myRange = Worksheets("DATA").Range("K10:K300")
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)
  If Not FoundCell Is Nothing Then
    FirstFound = FoundCell.Address
  Else
    GoTo NothingFound
  End If
Set rng = FoundCell
  Do Until FoundCell Is Nothing
      Set FoundCell = myRange.FindNext(after:=FoundCell)
      Set rng = Union(rng, FoundCell)
      If FoundCell.Address = FirstFound Then Exit Do
        Loop
  For Each C1 In rng.Offset(0, -1)
        Worksheets("MASTER 8.1").Range("B17") = C1.Value
    For Each T1 In Worksheets("Data").Range("E1:E4")
    Worksheets("MASTER 8.1").Range("A19") = T1.Value
        Worksheets("MASTER 8.1").PrintOut
    Next
    Next
 Exit Sub
NothingFound:
  MsgBox "Block wasn't found!"
End Sub

目前唯一的问题是当我输入块1时我得到块：1,10,11,12等打印出来，我需要得到完全匹配。有什么提示吗？

更改由相应单元格

0 个答案: