Šis piemērs māca, kā to izdarīt salīdziniet datumus un laikus iekšā Excel VBA . Datumi un laiki programmā Excel tiek saglabāti kā skaitļi, un tiek skaitīts dienu skaits kopš 1900. gada 0. janvāra. Redzamais ir atkarīgs no skaitļu formāta.
1. Ievadiet dažus skaitļus A slejā.
2. Šie skaitļi ir datumi. Tas ir ideāls veids, kā ievadīt dažus datumus, neuztraucoties par datuma formātu. Mainiet formātu uz Datums (ar peles labo pogu noklikšķiniet uz kolonnas A galvenes, Formatēt šūnas un izvēlieties Datums).
Rezultāts:
Piezīme: datumi ir ASV formātā. Mēneši pirmie, otrās dienas. Šis formāta veids ir atkarīgs no jūsu Windows reģionālajiem iestatījumiem.
Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:
Excel formula, lai kolonnā skaitītu rakstzīmes
3. Deklarējiet Integer tipa mainīgo i.
NaviKāVesels skaitlis4. Pievienojiet cilni Nākotnei.
Priekši = 1 līdz 5Nākamaisi
5. Datuma funkcija atgriež pašreizējo datumu bez laika. Pievienojiet cilpai šādu koda rindiņu, lai iezīmētu visas šūnas, kurās ir pašreizējais datums (13.03.2020.).
JaŠūnas (i, 1). Vērtība = datumsTadŠūnas (i, 1). Fonts. Krāsa = vbSarkanaRezultāts:
6. Pievienojiet cilpai šādu koda rindiņu, lai izceltu visus datumus, kas ir agrāk par 19.04.2019.
JaŠūnas (i, 1). VērtībaRezultāts:
apgrieztā rindā secībā Excel
7. Bet kā ar laikiem, mēs dzirdam jūs sakām. Viņi ir decimāldaļas. Pārslēdzieties atpakaļ uz vispārējo formātu un mainiet ciparus uz decimāldaļskaitļiem.
8. Tagad mainiet formātu uz “Datuma un laika” formātu.
Rezultāts:
9. Ja vēlaties izcelt visas šūnas, kurās ir pašreizējais datums, mēs vairs nevaram izmantot koda rindu pie 5. Kāpēc ne? Tā kā skaitļi A slejā tagad ir decimāldaļskaitļi. Salīdzinot to ar datumu (vesels skaitlis), nebūtu nekādas atbilstības. (Tas precīzi atbilstu tikai 2020. gada 13. martam pusnaktī!) Šāda koda līnija darbojas:
JaInt (Šūnas (i, 1). Vērtība) = datumsTadŠūnas (i, 1). Fonts. Krāsa = vbSarkanaPaskaidrojums: mēs vienkārši izmantojam funkciju Int. Funkcija Int noapaļo skaitli uz leju līdz tuvākajam veselam skaitlim. Tādā veidā mēs varam iegūt datumus bez laika un salīdzināt šos datumus ar datumu.
Rezultāts:
10. Pievienojiet šādu koda rindiņu, lai iezīmētu visas šūnas, kurās ir laiks no rīta.
Ja(Šūnas (i, 1). Vērtība - Int (Šūnas (i, 1). Vērtība))<0.5 TadŠūnas (i, 1). Fonts. Krāsa = vbSarkanaPaskaidrojums: mums vajag tikai decimāldaļas, tāpēc mēs atņemam veselu skaitli. Pusdienlaiks (dienas vidū) tiek attēlots kā 0,5. Decimāldaļas zemākas par 0,5 ir no rīta.
Rezultāts:
kā numurēt rindu Excel
Doties uz nākamo nodaļu: Notikumi
