سوال در مورد جستو جو در اكسل

[a_m_i_n_000]

سلام
من ميخوام يه برنامه بنويسم كه بهش يه تاريخ بدم بگرده تو اكسل همه اون نفراتي كه از اون تاريخ به قبل به دنيا اومدن رو تو تكست باكس بهم بده . مثلا در تصوير بگرده همه اونايي كه از يه تاريخي كه من ميگم به قبل رو اسمشونو تو يه تكست باكس و فاميليشونو تو يه تكست باكس وارد كنه . لطفا در مورد جستو جو در اكسلش راهنماييم كنين

[ho3ein.3ven]

سلام. من تنها چیزی که به ذهنم میرسه اینه که به کمک برنامه زیر که همین الان نوشتم یکی یکی فیلد هات رو چک کنی :

Const s1 As String = "22/9/1391"
Const s2 As String = "22/9/1391"
If Year(s1) > Year(s2) Then
MsgBox "s1 bozorgtar ast"
ElseIf Year(s1) = Year(s2) Then
If Month(s1) > Month(s2) Then
MsgBox "s1 bozorgtar ast"
ElseIf Month(s1) = Month(s2) Then
If Day(s1) > Day(s2) Then
MsgBox "s1 bozorgtar ast"
ElseIf Day(s1) = Day(s2) Then MsgBox "2 tarikh mosavi hastand"
Else
MsgBox "s2 bozorgtar ast"
End If
Else
MsgBox "s2 bozorgtar ast"
End If
Else
MsgBox "s2 bozorgtar ast"
End If

[دانشجوی تویسرکانی]

سلام


من ميخوام يه برنامه بنويسم كه بهش يه تاريخ بدم بگرده تو اكسل همه اون نفراتي كه از اون تاريخ به قبل به دنيا اومدن رو تو تكست باكس بهم بده . مثلا در تصوير بگرده همه اونايي كه از يه تاريخي كه من ميگم به قبل رو اسمشونو تو يه تكست باكس و فاميليشونو تو يه تكست باكس وارد كنه . لطفا در مورد جستو جو در اكسلش راهنماييم كنين

بهتر است برای انجام این فعل از محیط اکسل خارج نشوید.

1- developer اکسل را فعال کنید.

101508

2- یک فرم جدید اظافه کنید.
3- یک لیست باکس و یک تکست باکس و یک Button به فرم اظافه کنید.

101509

4- کد های زیر را به اتفاق کلیک Button اظافه کنید:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 100 Step 1
If Sheet1.Cells(i, 3) < TextBox1.Text Then
ListBox1.AddItem Str(i) + " " + Sheet1.Cells(i, 1) + " - " + Sheet1.Cells(i, 2)
End If
Next i
End Sub

ابته در محیط Microsoft Visual Basic 6.0 هم این کار را می توانید انجام دهید.(البته کار صحیحی نیست)

در ضمن از کتابخانه Shamsi.dll استفاده کنید و از قدرت کتابخانه shamsi.dll نهایت استفاده را ببرید.(این کتابخانه در همه زبان ها و کامپایلرها استفاده می شود.)
از Tools-References این کتابخانه را ظافه کنید.

نرم افزار روی دست اکسل نیومده!

101511