Как сделать поиск по датам - VB
Формулировка задачи:
На форме есть DTPicker1 и DTPicker2 как сделать что бы при выборе дат поиск искал по датам начало брал с DTPicker1 а конец брал с DTPicker2 и по этим параметрам выводил данные в Spreadsheet1
Решение задачи: «Как сделать поиск по датам»
textual
Листинг программы
Spreadsheet2.Sheets("Sheet1").Cells.Select
Spreadsheet2.Selection.Clear
Spreadsheet2.Sheets("Sheet1").Range("A1") = "Г„Г*ГІГ*"
Spreadsheet2.Sheets("Sheet1").Range("B1") = "ГЌГ*èìåГ*îâГ*Г*ГЁГҐ"
Spreadsheet2.Sheets("Sheet1").Range("C1") = "Г–ГҐГ*Г*"
With Spreadsheet1.Sheets("sheet1")
e = 2
r = 1
Do While .Cells(e, 1) > ""
If DTPicker1 >= Spreadsheet1.Sheets("sheet1").Cells(e, 1) Or DTPicker2 >= Spreadsheet1.Sheets("sheet1").Cells(e, 1) Then
r = r + 1
Spreadsheet2.Sheets("Sheet1").Cells(r, 1) = .Cells(e, 1) 'Text2.Text
Spreadsheet2.Sheets("Sheet1").Cells(r, 2) = .Cells(e, 2) 'Text2.Text
Spreadsheet2.Sheets("Sheet1").Cells(r, 3) = .Cells(e, 3) 'Text3.Text
End If
e = e + 1
Loop
End With
Spreadsheet2.Sheets("Sheet1").Columns("A:A").Select
Spreadsheet2.Selection.NumberFormat = "m/d/yyyy"
Spreadsheet2.Sheets("Sheet1").Range("A1").Select