پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: حذف يك يا چند داده از listbox از طريق زدن دكمه delete

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12377
    سپاس
    8,959
    سپاس شده
    10,648 در 3,760 پست
    سطح اکسل
    100.00 %

    Question حذف يك يا چند داده از listbox از طريق زدن دكمه delete

    سلام اساتيد عزيز

    بازم سوال دارم

    يك ليست باكس دارم. ميخوام بعضي از آيتم هاشو حذف كنم. يك كد پيدا كردم كه با درگ و دراپ حذف ميكنه . اين آدرسشه Delete Item By Dragging Out Of Listbox

    ولي ميخوام با زدن دكمه delete اين كار انجام بشه.
    يك كد هم براي اين پيدا كردم ولي جواب نميده.

    کد:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim intindex As Integer
        If KeyCode = vbKeyDelete Then
            ' Code to delete selected item in listbox
        End If
    End Sub
    ممنون ميشم دوستان راهنماييم كنين
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    میخوای فقط از لیست باکس حذف بشه یا از سورس کلا حذف شه؟




  4. #3


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
    درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

    کد:
    Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = 46 Then
      
     ' MsgBox ("del")
      For intindex = ListBox1.ListCount - 1 To 0 Step -1
    
    If ListBox1.Selected(intindex) Then
    
    ListBox1.RemoveItem intindex
    
    End If
    
    Next
        End If
    End Sub
    مهدی کریمی


  5. #4


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12377
    سپاس
    8,959
    سپاس شده
    10,648 در 3,760 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط vatanparast نمایش پست ها
    میخوای فقط از لیست باکس حذف بشه یا از سورس کلا حذف شه؟
    فقط ميخوام از ليست باكس حذف بشه

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
    درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

    کد:
    Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = 46 Then
      
     ' MsgBox ("del")
      For intindex = ListBox1.ListCount - 1 To 0 Step -1
    
    If ListBox1.Selected(intindex) Then
    
    ListBox1.RemoveItem intindex
    
    End If
    
    Next
        End If
    End Sub
    ممنون مهدي جان. از اين كد استفاده كردم جواب نداد.

    اگه بگم براي چه كاري ميخوام شايد راه بهتري به نظرتون برسه.
    ميخوام با زدن يك دكمه فايل اتچ كنم. از نظر تعداد مشكلي ندارم فقط همين كه نميتونم از ليست حذف كنم.

  6. سپاس ها (2)


  7. #5


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12377
    سپاس
    8,959
    سپاس شده
    10,648 در 3,760 پست
    سطح اکسل
    100.00 %

    دوستان عزيز مشكل با كمك استاد وطن پرست حل شد

    کد:
    Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 46 Or KeyCode = 8 Then
            Dim intindex
            For intindex = Me.ListBox1.ListCount - 1 To 0 Step -1
                If Me.ListBox1.Selected(intindex) Then Me.ListBox1.RemoveItem intindex
            Next
        End If
    End Sub


  8. #6


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    متوجه نشدم اتچ فایل چه ربطی به حذف کردن از لیست باکس داره ؟
    اگه میتونی فایلتو بذار
    مهدی کریمی

  9. #7


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12377
    سپاس
    8,959
    سپاس شده
    10,648 در 3,760 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    متوجه نشدم اتچ فایل چه ربطی به حذف کردن از لیست باکس داره ؟
    اگه میتونی فایلتو بذار
    خب ديگه ربط داره
    وقتي اتچ ميكني آدرس فايل اتچ شده رو تو تكست باكس يا ليست باكس يا هر چي كه تعريف ميكني ميذاره.

    درضمن مهدي عزيز، كد شما هم دقيقا درسته. من از همين كد استفاده كرده بودم ولي با خط اول متفاوت. براي همين به اشتباه گفتم كد شما رو قبلا استفاده كردم و جواب نگرفتم. شرمنده عزيز

  10. سپاس ها (2)


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


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

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,812
    امتیاز
    6436
    سپاس
    8,164
    سپاس شده
    5,190 در 1,505 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
    درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

    کد:
    Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = 46 Then
      
     ' MsgBox ("del")
      For intindex = ListBox1.ListCount - 1 To 0 Step -1
    
    If ListBox1.Selected(intindex) Then
    
    ListBox1.RemoveItem intindex
    
    End If
    
    Next
        End If
    End Sub
    دوستان اگه بخوایم از سورس هم حذف کنیم باید چه کدی بنویسیم؟


  12. سپاس ها (1)


  13. #9


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

    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  14. سپاس ها (2)



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

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

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

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

  1. جلوگیری از delete شدن محتویات سلول و خالی ماندن آن
    توسط hs208 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 28
    آخرين نوشته: 2022/02/23, 18:08
  2. نحوه فاكتورگيري از يك عبارت در يك فرمول ؟؟؟
    توسط hamidreza313 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 4
    آخرين نوشته: 2012/12/18, 12:27
  3. header در listbox
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/06/27, 12:19
  4. listbox در ماكرو نويسي
    توسط 4017 در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 1
    آخرين نوشته: 2011/01/17, 11:48
  5. listbox
    توسط esyoo در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 3
    آخرين نوشته: 2010/08/15, 22:10

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

برگرداندن یک خانه ازlistbox

پاک کردن listbox

پاک کردن آیتم لیست تکست باکس توسط دکمه در vb

حذف داده از لیست باکس

چگونگی پاک کردن اطلاعات یک تکست باکس در vba

list box ویژوال بیسیک

اکسل لیست باکس حذف

حذف با دکمه delete

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

پاک کردن یک ایندکس از listbox

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

حذف ار لیست باکس با بانک اطلاعاتی

پاک کردن لیست موارد سرچ شده از تکست باکس اكسس

پاك كردن تكست باكس اكسس

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

پیدا کردن شماره Selected() لیست باکس در اکسس

زوش حذف در لیست باکس اکسل

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

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

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

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