صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 19

موضوع: مشکل حذف از لیست باکس

  1. #1
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام

    مشکل حذف از لیست باکس

    برای حذف سطر از لیست باکس کد زیر را نوشتم فقط دوستان عزیز کد زیر را بررسی کنید چرا عمل نمیکنه ممنون
    کد:
    On Error Resume Next
    
    If UserForm2.ListBox1.ListIndex < 0 Then
        d = MsgBox("موردی یافت نشد, vbOKOnly + vbInformation, "...")
        Exit Sub
    End If
    
    Dim n As Integer
    d = MsgBox("آیا مطمئن به حذف هستید", vbYesNo + vbCritical, "حذف اطلاعات...")
    If d = vbYes Then
        n = UserForm2.ListBox1.List(ListBox1.ListIndex, 0)
        Dim c As Range
        For Each c In Sheet3.Range("b2:b2000")
            If c.Value <> "" And c.Value = n Then
                Sheet3.Rows(c.Row).Delete Shift:=xlUp
                ListBox1.RemoveItem (UserForm2.ListBox1.ListIndex)
                Exit For
            End If
        Next c
    End If
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    ویرایش توسط mokaram : 2014/04/19 در ساعت 18:29


  2. سپاس ها (3)


  3.  

  4. #2


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    سورس لیست باکست از کجاست
    یعنی توسط حلقه انجام میشه یا به یک رنج ثابت ؟
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  5. سپاس ها (2)


  6. #3
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط Nima نمایش پست ها
    سورس لیست باکست از کجاست
    یعنی توسط حلقه انجام میشه یا به یک رنج ثابت ؟
    از طریق کد زیر وارد لیست باکس میشه
    کد:
    ListBox1.Clear
    Dim d As Range
    For Each d In Sheet3.Range("b2:b2000")
        If d.Value <> ""  Then
            ListBox1.AddItem d.Value
            For i = 2 To 9
                ListBox1.List(ListBox1.ListCount - 1, i - 1) = d.Offset(0, i - 1).Text
            Next i
        End If
    Next d


  7. سپاس ها (2)


  8. #4


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    به نظرم کد شما درست نیست چون هم از یک رنج دیتا به لیست باکس اضافه میکنی و دوباره بر اساس همون دیتا ها اون رنج رو حذف میکن ؟؟!!!

    اگه بتونی هدفی که از اینکار داری رو توضیح بدی شاید بشه کمک کرد.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  9. سپاس ها (2)


  10. #5
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    هدفم اینه که اطلاعاتی را که تو لیست باکس وارد کردم اگر هر کدومشا خواستم از لیست باکس و هم چنین سورس اصلی بتونم پاک کنم


  11. سپاس ها (2)


  12. #6


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    هدفم اینه که اطلاعاتی را که تو لیست باکس وارد کردم اگر هر کدومشا خواستم از لیست باکس و هم چنین سورس اصلی بتونم پاک کنم
    دوست عزیز شما با یک حلقه از شیت 3 دیتا ها رو به لیست باکس اضافه میکنی بعد با یک حلقه دیگه که شرطش برابر بودن دیتا های لیست باکس با شیت 3 هست اوتارو حذف میکنی!!! که این اصلا منطقی نیست.

    میتونی با کد زیر با انتخاب ایتم تو لیست باکس اونرو حذف کنی:

    کد:
    ListBox1.RemoveItem ListBox1.ListIndex
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  13. سپاس ها (2)


  14. #7
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    ممنون از حسن توجهتون
    فقط چه جوری میتونم از سورس اصلی پاک کنم؟


  15. سپاس ها (2)


  16. #8


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    ممنون از حسن توجهتون
    فقط چه جوری میتونم از سورس اصلی پاک کنم؟
    یک نمونه
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm M-R_M.xlsm اطلاعات (28.8 کیلو بایت, 133 نمایش)
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  17. #9
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    میشه بگید مشکل فایل من چیه که عملیات حذف را انجام نمیده ؟
    فايل هاي پيوست شده فايل هاي پيوست شده


  18. سپاس ها (3)


  19. #10


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    میشه بگید مشکل فایل من چیه که عملیات حذف را انجام نمیده ؟

    دوست عزیز خط زیر :

    کد PHP:
     If c.Value Val(ListBox1.List(i)) Then 
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************




صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

  1. پرسش جستجوی اطلاعات در لیست باکس و نمایش آن در لیست باکس یا...
    توسط kamyar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2019/02/27, 11:11
  2. جستجوی اسامی یک لیست در لیست مرجع
    توسط reshehri در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/01/13, 20:22

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

لیست موضوعات مشکلات جامعه

حذف لیست باکس

لیست باکس exceliran.com

تو اکسل چجوری لیست باکس رو پاک کنیم

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

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

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

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