Šī apmācība parādīs, kā VBA izmantot paziņojumu Nav nekas
VBA Paziņojums par neko izmanto operatoru VBA “Ir” un pārbauda, vai objekta mainīgajam ir piešķirts objekts.
| 123456 | Apakšpārbaudes objektsDim rng kā diapazonsJa rng nav nekas, tadMsgbox "Diapazons nav piešķirts"Beigas JaBeigu apakš |
Mēs varam arī izmantot funkciju Not with Is Nothing ar If, lai pārliecinātos, ka mūsu deklarētajam diapazona mainīgajam ir piešķirts diapazons, un pēc tam palaist kodu, kuru vēlamies izpildīt, ja šis mainīgais ir piešķirts.
| 1234567 | Sub CheckAssignedObjectDim rng kā diapazonsIestatīt rng = Diapazons ("A1: A6")Ja ne rng nav nekas, tad'' veiciet kādu kodu šeitBeigas JaBeigu apakš |
Mēs varam izmantot paziņojumu “Nekas” jebkura veida objektiem. Tas var būt ļoti noderīgi, lai novērstu kļūdas mūsu kodā, ja objekts, iespējams, nav piešķirts objekta mainīgajam.
Piemēram, mēs varam izmantot darblapas mainīgo un piešķirt to aktīvajai lapai. Ja mēs to izdarām veiksmīgi, tad šajā lapā varam izvēlēties A2.
| 1234567 | Sub CheckWorksheetObjectDim ws kā darblapuIestatiet ws = ActiveSheetJa ne ws nav nekas, tadws.Range ("A2"). AtlasietBeigas JaBeigu apakš |
Iepriekš minētajā kodā tiks atlasīta šūna A2. Ja mēs noņemtu līniju "Iestatiet ws = ActiveSheet", Tad Ja paziņojums apiet šo koda rindu, un šūna A2 netiks atlasīta.
Vai neko nevar izmantot arī citās Microsoft Office lietojumprogrammās, piemēram, PowerPoint, Outlook, Access un Word. Tālāk norādītais kods pārbauda, vai aktīvajam Word dokumentam ir piešķirts dokumenta objekts.
| 123456789 | Sub CheckDocumentObjectDim wdDoc kā dokumentsIestatiet wdDoc = ActiveDocumentJa wdDoc nav nekas, tadMsgBox "Dokuments nav piešķirts"CitādiMsgBox "Dokuments piešķirts"Beigas JaBeigu apakš |
