مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

(آموزشی) انتخاب خودکار آیتم در لیست باکس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali.b

    • 2014/01/12
    • 798
    #1

    (آموزشی) انتخاب خودکار آیتم در لیست باکس

    سلام
    با کمک این کد می تونید هر متین که در تکست باکس تایپ کردین به صورت خودکار در لیست باکس انتخاب بشه
    به همراه فایل نمونه
    کد:
    Private Sub TextBox1_Change()
Dim i As Long
Dim sFind As String


sFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub
    فایل های پیوست شده
    [CENTER]
    [/CENTER]
    برچسب ها: هیچ‌کدام
    • Amir Mohsenpour

      • 2010/02/10
      • 146
      • 53.33
      #2
      سلام استاد عزیز
      فایل ضمیمه قابل دانلود نیست
      با تشکر
      [align=center]با تشکر
      امیر محسن پور[/align]

        کامنت

        • كامران

          • 2016/06/29
          • 147
          • 41.00
          #3
          نوشته اصلی توسط ali.b
          سلام
          با کمک این کد می تونید هر متین که در تکست باکس تایپ کردین به صورت خودکار در لیست باکس انتخاب بشه
          به همراه فایل نمونه
          کد:
          Private Sub TextBox1_Change()
Dim i As Long
Dim sFind As String


sFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub
          اتفاقآ منم دنبال این کد بودم ولی برای combobox کار کنه
          اگه توی این کد عوضش کنم کار میکنه ؟

            کامنت

            قبلی template بعدی
            چند لحظه..