نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

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

    سلام
    با کمک این کد می تونید هر متین که در تکست باکس تایپ کردین به صورت خودکار در لیست باکس انتخاب بشه
    به همراه فایل نمونه

    کد:
    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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده



  2.  

  3. #2


    آخرین بازدید
    2018/06/21
    تاریخ عضویت
    February 2010
    محل سکونت
    اصفهان-بندرعباس
    نوشته ها
    146
    امتیاز
    79
    سپاس
    23
    سپاس شده
    86 در 63 پست
    سطح اکسل
    53.33 %

    سلام استاد عزیز
    فایل ضمیمه قابل دانلود نیست
    با تشکر
    [align=center]با تشکر
    امیر محسن پور[/align]

  4. #3


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط 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 کار کنه
    اگه توی این کد عوضش کنم کار میکنه ؟


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. (آموزشی) یافتن آیتم مورد نظر و اعمال تغییرات
    توسط ali.b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2018/01/14, 09:22
  2. انتقال اطلاعات از کل شیتها به لیست کلی اصلاحی
    توسط ali719 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 0
    آخرين نوشته: 2016/05/18, 09:58
  3. انتخاب آیتم از طریق لیست باکس
    توسط ali719 در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 1
    آخرين نوشته: 2014/09/20, 09:26
  4. اولین آیتم در لیست فیلتر شده با فرمول در اکسل
    توسط امين اسماعيلي در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/08/12, 20:52
  5. نمایش آیتم های یک لیست باکس با حلقه
    توسط امیر رضا در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/04/14, 00:39

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است