Lang L: none (table-of-contents)
Järgmine alamprogramm kustutab iga rea vahemikust, kus veeru A väärtus algab ettenähtud tekstiosaga:
| 12345678910111213 | Alam Delete_Rids (andmevahemik vahemikuna, tekst stringina)Dim Row_Counter täisarvunaRow_Counter = Data_range.Rows.Count kuni 1. samm -1Kui Data_range pole midagi, siisVälju subLõpp KuiKui UCase (Left (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text) thenData_range.Cells (Rida_loendur, 1). Kogu rida. KustutaLõpp KuiJärgmine rida_loendurEnd Sub |
Näiteks Kustuta_Ridad (Lehed („Leht1”). Vahemik („A1: E23”, „Koer”) kustutab kõik read vahemikus A1: E23, kus veeru A väärtus algab sõnaga „Koer”. Pange tähele Ucase kasutamine tähendab, et valemid on TÄHELEPANU, st lahtrid, mis algavad mis tahes koer, koer, DoG või koer, kustutatakse.
See:
Saab:
