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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • narcissus

    • 2019/09/15
    • 17
    • 33.00

    [حل شده] خذف ردیف از شیت بوسیله لیست باکس

    سلام خدمت اساتید گرامی
    یه لیست داریم که با تکست باکس از ستون B که نام طرف حساب است فیلتر میشه
    و ستون A که شماره است
    حالا میخوایم ردیفی که از لیست باکس انتخاب می کنیم از شیت حذف بشه
    ممنون میشم راهنمایی کنید
    فایل پیوست:
    کد PHP:

    Private Sub AddCmd_Click()
    ListBox1.Clear
    Dim d 
    As Range
    For Each d In Sheet2.Range("b2:b20")
       If 
    d.Value <> "" And ComboBox1.Text Then
       ListBox1
    .AddItem d.Value
            
    For 0 To 9
                ListBox1
    .List(ListBox1.ListCount 1i) = d.Offset(0i).Text
            Next i
        End 
    If
    Next d
    End Sub

    Private Sub ClearCmd_Click()
        
    Dim i As Integer
        
            
    For Each d In Sheets(2).Range("a2:a20")
                For 
    0 To ListBox1.ListCount 1
                    
    If ListBox1.Selected(iThen
                        
    If d.Text ListBox1.List(iThen
                            Sheet2
    .Rows(d.Row).Delete shift:=xlUp
                            ListBox1
    .RemoveItem ListBox1.ListIndex
                            
    Exit For
                        
    End If
                    
    End If
                
    Next i
            Next d
    End Sub 
    Last edited by narcissus; 2020/05/31, 12:21.
  • narcissus

    • 2019/09/15
    • 17
    • 33.00

    #2
    نوشته اصلی توسط narcissus
    سلام خدمت اساتید گرامی
    یه لیست داریم که با تکست باکس از ستون B که نام طرف حساب است فیلتر میشه
    و ستون A که شماره است
    حالا میخوایم ردیفی که از لیست باکس انتخاب می کنیم از شیت حذف بشه
    ممنون میشم راهنمایی کنید
    فایل پیوست:
    کد PHP:

    Private Sub AddCmd_Click()
    ListBox1.Clear
    Dim d 
    As Range
    For Each d In Sheet2.Range("b2:b20")
       If 
    d.Value <> "" And ComboBox1.Text Then
       ListBox1
    .AddItem d.Value
            
    For 0 To 9
                ListBox1
    .List(ListBox1.ListCount 1i) = d.Offset(0i).Text
            Next i
        End 
    If
    Next d
    End Sub

    Private Sub ClearCmd_Click()
        
    Dim i As Integer
        
            
    For Each d In Sheets(2).Range("a2:a20")
                For 
    0 To ListBox1.ListCount 1
                    
    If ListBox1.Selected(iThen
                        
    If d.Text ListBox1.List(iThen
                            Sheet2
    .Rows(d.Row).Delete shift:=xlUp
                            ListBox1
    .RemoveItem ListBox1.ListIndex
                            
    Exit For
                        
    End If
                    
    End If
                
    Next i
            Next d
    End Sub 
    فایل پیوست
    فایل های پیوست شده

    کامنت

    • M_ExceL

      • 2018/04/23
      • 677

      #3
      نوشته اصلی توسط narcissus
      فایل پیوست
      با سلام،
      برای کلید اجرا کد زیر :
      کد:
      Private Sub AddCmd_Click()
      ListBox1.Clear
      Dim d As Range
      b = 0
      For Each d In Sheet2.Range("b2:b20")
      If d.Value <> "" And d = ComboBox1.Text Then
          ListBox1.AddItem
          For i = 0 To 9
              ListBox1.List(b, i) = Cells(d.Row, i + 1)
          Next i
          b = b + 1
      End If
      Next d
      End Sub
      وبرای کلید حذف کد زیر را وارد کنید :
      کد:
      Private Sub ClearCmd_Click()
      Dim ListIndx As Long
      Dim d As Range
      ListIndx = ListBox1.ListIndex
      For Each d In Sheets(2).Range("a2:a20")
          If Str(d.Value) = Str(ListBox1.List(ListIndx, 0)) Then
              d.EntireRow.Delete
              ListBox1.RemoveItem (ListIndx)
              Exit For
          End If
      Next
      End Sub
      [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
      [/CENTER]

      کامنت

      چند لحظه..