Dažkārt nevēlaties, lai lietotājs aizvērtu Excel darbgrāmatu, neievadot konkrētu datu daļu. Šādās situācijās būtu lietderīgi liegt lietotājam iespēju aizvērt darbgrāmatu, līdz tiek aizpildīta mērķa šūna (kā parādīts šeit). Šeit parādās šis lieliskais makro.
Novērst aizvēršanu, līdz tiek aizpildīta noteikta šūna.
Šo kodu aktivizē darbgrāmatas notikums BeforeClose. Mēģinot aizvērt darbgrāmatu, šis notikums tiek aktivizēts, palaižot tajā esošo kodu. Šis makro pārbauda, vai mērķa šūna (šūna C7, šajā gadījumā) ir tukša. Ja tas ir tukšs, aizvēršanas process tiek atcelts. Ja C7 nav tukšs, darbgrāmata tiek saglabāta un aizvērta:
Private Sub Workbook_BeforeClose (Atcelt kā Būla)
1. darbība. Pārbaudiet, vai šūna C7 ir tukša
Ja Sheets("Sheet1").Range("C7").Vērtība = " Tad
'2. darbība. Ja šūna ir tukša, atceliet aizvēršanu un informējiet lietotāju
Atcelt = patiess
MsgBox "Šūna C7 nevar būt tukša"
3. darbība. Ja šūna nav tukša, saglabājiet un aizveriet
Citādi
ActiveWorkbook.Close SaveChanges:=Tiesa
Beigas Ja
Beigt apakš
1. darbībā tiek pārbaudīts, vai lauks C7 ir tukšs.
Ja lauks C7 ir tukšs, stājas spēkā 2. darbība, atceļot aizvēršanas procesu, nosūtot True uz Atcelt Būla vērtību. 2. darbība aktivizē arī ziņojumu lodziņu, informējot lietotāju par viņa stulbumu (nu, tas tiešām nav tik skarbi).
Ja 3. darbībā šūna C7 nav tukša, darbgrāmata tiek saglabāta un aizvērta.
Lai ieviestu šo makro, tas ir jākopē un jāielīmē notikuma koda logā Workbook_BeforeClose. Ievietojot makro šeit, tas tiks palaists katru reizi, kad mēģināt aizvērt darbgrāmatu:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Projekta logā atrodiet sava projekta/darbgrāmatas nosaukumu un noklikšķiniet uz pluszīmes blakus tam, lai redzētu visas lapas.
Noklikšķiniet uz šī darbgrāmata.
Nolaižamajā sarakstā Notikums atlasiet notikumu BeforeClose.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.
Ievadiet savu kodu pasākumā Workbook BeforeClose.
Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk
Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag
Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]
Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]
Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.
Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.
Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]
Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]
Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]
Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]
