صفحه 3 از 5 نخستنخست 12345 آخرینآخرین
نمایش نتایج: از شماره 21 تا 30 , از مجموع 43

موضوع: آموزش فیلتر داده ها بر مبنای چند محدودیت اختیاری و نمایش در لیست باکس

  1. #21


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

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


  2.  

  3. #22


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    دوستان من میخوام برای جستجوی این فرم شرط بذارم
    شرطی که میخوام بذارم اینه که مثلا اگه در فیلد نام تایپ کرد علی توی جدول هر نامی که علی توش باشه مثل محمد علی یا علی یار باشه رو تو لیست باکس بیاره
    برای نام خانوادگی هم همینطور
    دستور sql رو بلدم ولی نمیدونم چه جور باید تو این فرم استفادش کرد
    کد:
    where name,family like '*" & str & "*'
    شاید هم اشتباه باشه
    دوستان هر کس میتونه کمک کنه
    ممنون

  4. #23


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    Depressed کمک

    با سلام خسته نباشید
    اگر امکان تمام قسمت های این کد را برام توضیح بدید ممنون میشم
    تو اینترنت هر چی گشتم چیزی پیدا نکردم
    راستش میخواهم با همین کدهایی که دادید که فیلتر درست کنم با این تفاوت که تعداد ستون ها و ردیف های بیشتری داره
    Private Sub filllistbox()

    Dim I As Integer, J As Integer

    With ListBox1

    .BoundColumn = 1
    .ColumnCount = rsReserve.Fields.Count
    .ColumnHeads = False
    .ColumnWidths = ""
    .ControlSource = ""
    .RowSource = ""
    .Clear
    I
    = 0

    If Not rsReserve.BOF Then rsReserve.MoveFirst
    If rsReserve.EOF = True Then
    MsgBox
    "this record nor exist"
    End If
    Do
    Until rsReserve.EOF
    I
    = I + 1
    .AddItem
    For J = 1 To .ColumnCount
    .List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
    Next J
    rsReserve
    .MoveNext
    Loop
    End With



  5. #24


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط ozviat83 نمایش پست ها
    با سلام خسته نباشید
    اگر امکان تمام قسمت های این کد را برام توضیح بدید ممنون میشم
    تو اینترنت هر چی گشتم چیزی پیدا نکردم
    راستش میخواهم با همین کدهایی که دادید که فیلتر درست کنم با این تفاوت که تعداد ستون ها و ردیف های بیشتری داره
    Private Sub filllistbox()

    Dim I As Integer, J As Integer

    With ListBox1

    .BoundColumn = 1
    .ColumnCount = rsReserve.Fields.Count
    .ColumnHeads = False
    .ColumnWidths = ""
    .ControlSource = ""
    .RowSource = ""
    .Clear
    I
    = 0

    If Not rsReserve.BOF Then rsReserve.MoveFirst
    If rsReserve.EOF = True Then
    MsgBox
    "this record nor exist"
    End If
    Do
    Until rsReserve.EOF
    I
    = I + 1
    .AddItem
    For J = 1 To .ColumnCount
    .List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
    Next J
    rsReserve
    .MoveNext
    Loop
    End With



    مباحثی که در این کدها مطرح شده مربوط به ADO هست که خودش یک مبحث مفصل و طولانیه ، برای فیلتر با تعدا بیشتر ستون نیازی به دستکاری کدها نیست کافیه به نکته زیر عمل کنید


    هر تکست باکس می بایست نام ستون متناظر خود در شیت اکسل را به اضافه حروف flt در پایان آن داشته باشد به عنوان مثال ستون نام در شیت به fname نامگذاری شده است پس تکست باکس آن را با fnameflt نام گذاری کنید.



  6. سپاس ها (1)


  7. #25


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    این کار را کردم ولی به ارور میده که مربوط به خط
    List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
    هست
    ویرایش توسط ozviat83 : 2015/01/31 در ساعت 14:51 دلیل:اضافه کردن پیوست

  8. #26


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    این کار را کردم ولی به ارور میده که مربوط به خط
    List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
    هست

  9. #27


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    Depressed کمـــــــــــــــــــــــ ــــــــــــــــک

    کمـــــــــــــــــــــــ ــــــــــــــــک
    این کار را کردم ولی به ارور میده که مربوط به خط
    List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
    هست

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

  10. #28


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    datafilter(1) -.xlsm
    تو این فایل که پیوست زدم ستون آخر را ضافه کردم که هنگامی که میخوام فیلتر را اعمال کنم ارور میده

  11. #29


    آخرین بازدید
    2017/01/29
    تاریخ عضویت
    October 2016
    محل سکونت
    مازندران
    نوشته ها
    12
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  12. #30


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    راه اول با استفاده از Advance fillter یک لیست بدون تکرار از لیست خود ایجاد کنید و سپس آنها را به کمبوباکس ارتباط دهید


    کد PHP:
    Private Sub UserForm_Initialize()

    Z1 Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row
        Application
    .CutCopyMode False
        Range
    ("A1:A" Z1).AdvancedFilter Action:=xlFilterInPlaceUnique:=False
        Range
    ("A1:A" Z1).AdvancedFilter Action:=xlFilterCopyCopyToRange:=Range_
            
    "B1"), Unique:=True
            
            Z2 
    Sheet1.Cells(Sheet1.Rows.Count"B").End(xlUp).Row
            
            
    For 2 To Z2
            
            ComboBox1
    .AddItem Range("B" I)
            
            
    Next

    End Sub 
    راه دوم با استفاده از Collection یک لیست بدون تکرار و خالی در حافظه ایجاد کنید و سپس به کمبوباکس ارتباط دهید
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2016/10/04 در ساعت 19:58

  13. سپاس ها (2)



صفحه 3 از 5 نخستنخست 12345 آخرینآخرین

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

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

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

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

  1. افزونه مدیریت تیبل
    توسط ~M*E*H*D*I~ در انجمن برنامه های کاربردی اکسل
    پاسخ ها: 0
    آخرين نوشته: 2014/03/27, 11:14
  2. طراحی تیرچه کرومیت به روش تنش مجاز asd
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/17, 16:12
  3. پاسخ ها: 0
    آخرين نوشته: 2013/11/14, 17:11
  4. آپدیت پیوت تیبل
    توسط mokaram در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/02/21, 14:16
  5. مشکل اینسرت در یک تیبل در موقع پروتکت بودن شیت
    توسط بهنام در انجمن پیوت تیبل و پايگاه داده - Pivot Table and Database
    پاسخ ها: 3
    آخرين نوشته: 2012/03/10, 19:30

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

آموزش پيوت تيبل

فیلتر کردن لیست باکس اکسل

روش ساخت کمبو باکس در اکسل 2010

چیدن تکس باکس ها در اکسل

لیست باکس ویژوال بیسیک چند ردیف

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

اموزش فیلتر کردن محصولات در php

لیست چندین داده

فیلترکردن لیست باکس exceliran.com

فیلتر داده ها در php

کاربرد additem درلیست باکس در vb6

نمایش اطلاعات فیلتر شده در لیست باکس

کلمات کلیدی این موضوع

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

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

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