If InStr(Sheets("應付票據data").Cells(i, "C"), X) > 0 Then '找到第一格資料
'Value
r = Sheets("應付票據data").Cells(i, "AC").Row
v = Sheets("應付票據data").Cells(i, "AC").Value
For p = 0 To v - 1
Sheets("票據簽收單").Cells(SummonsColumn, "X") = Sheets("應付票據data").Cells(i, "C") '傳票單號
Sheets("票據簽收單").Cells(NumberColumn, "Y") = Sheets("應付票據data").Cells(i, "V") '支票號
Sheets("票據簽收單").Cells(DayColumn, "z") = Sheets("應付票據data").Cells(i, "Y") '到期日
Sheets("票據簽收單").Cells(BusinessColumn, "aa") = Sheets("應付票據data").Cells(i, "D") '公司別
Next
p = p + 1
End If
Next
Sheets("票據簽收單").Select
End Sub
------------------------------------------------------------------------------------
Private Sub 清除查詢_Click()
'關閉螢幕跳躍
Application.ScreenUpdating = False
Sheets("票據簽收單").Range("X6:AA17").ClearContents
Sheets("票據簽收單").Cells(6, "W").ClearContents
Sheets("票據簽收單").Cells(9, "W").ClearContents
End Sub
--------------------------------------------------------------------------------------
Private Sub ClearFunction()
'關閉螢幕跳躍
Application.ScreenUpdating = False
Sheets("票據簽收單").Range(Cells(6, 24), Cells(12, 29)).ClearContents