在 Excel 中，我打開一個在 VBA 中創建的表單，它有一個命令按鈕，可以洗掉您在同一表單中顯示的 ListBox（顯示來自 Sheet1 的 6 列）中選擇的行。我想從其他作業表（在本例中為 Sheet5）打開表單，但我的代碼僅適用于當前作業表（擦除 Sheet5 上的相應行）。如何撰寫命令按鈕的代碼來擦除選中但在 Sheet1 上的行？這是我目前擁有的代碼：
Private Sub BotonBorrarP_Click()
Dim i As Integer
For i = 1 To Range("C1048576").End(xlUp).Row - 1
If ListaIngresos.Selected(i) Then
Rows(i 1).Select
Selection.Delete
End If
Next i
End Sub
uj5u.com熱心網友回復：
直接參考表格：
Private Sub BotonBorrarP_Click()
Dim i As Integer, ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
'step backwards when deleting rows!
For i = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row - 1 to 1 step -1
If ListaIngresos.Selected(i) Then
ws.Rows(i 1).Delete
End If
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/363798.html