پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    January_2014
    نوشته ها
    724
    امتیاز
    1500
    سپاس
    540
    سپاس شده
    1,075 در 380 پست

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

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

    کد:
    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


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    اصفهان-بندرعباس
    نوشته ها
    145
    امتیاز
    70
    سپاس
    23
    سپاس شده
    77 در 57 پست

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

  4. #3


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    June_2016
    نوشته ها
    69
    امتیاز
    51
    سپاس
    17
    سپاس شده
    41 در 27 پست

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

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

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

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

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