Pati „Excel“ neturi funkcijos įtraukti atgalinės atskaitos laikmatį. Tačiau su programavimo kalba, vadinama Visual Basic programoms, galima parašyti paprastą makrokomandą, kad būtų atlikta atgalinės atskaitos funkcija. Šiame straipsnyje parodyta, kaip sukurti makrokomandą, leidžiančią laikmačiui skaičiuoti iki 12 valandų, tinkančią laiko valdymui darbalapyje.
Formatuokite laikmačio langelį
1 žingsnis
Naujame atidarytame darbalapyje eikite į langelį A1. Tai bus pavyzdinio laikmačio vieta.
Dienos vaizdo įrašas
2 žingsnis
![Prieiga prie langelio formato](/f/a341e8bf80b085cdb67ada1c887e3153.png)
Vaizdo kreditas: Vaizdas „Microsoft“ sutikimas
Dešiniuoju pelės mygtuku spustelėkite langelį A1 ir pasirinkite Formatuoti langelius.
3 veiksmas
![Valandų minučių sekundžių formato pasirinkimas.](/f/3c70031f308a701ab17c713a0d8b1514.png)
Vaizdo kreditas: Vaizdas „Microsoft“ sutikimas
Pasirinkite Laikas iš laukelio Kategorija ir pasirinkite vieną iš formatų valandos: minutės: sekundės. Spustelėkite Gerai kad nustatytumėte langelio formatą.
Sukurkite makrokomandą
1 žingsnis
![Atidarykite VBA modulį.](/f/58a40c1987a08c2a32df3edf5c485972.png)
Vaizdo kreditas: Vaizdas „Microsoft“ sutikimas
Pasiekite „Visual Basic“ redagavimo langą paspausdami ALT-F11. Spustelėkite Įdėti meniu juostoje ir spustelėkite Modulis.
2 žingsnis
![VBA kodo įvedimas](/f/9de6aa51a24a40f6a93e8d1b57a737b8.png)
Vaizdo kreditas: Vaizdas „Microsoft“ sutikimas
1 modulio lange įveskite šį tekstą:
Neryškus gCount kaip data
Papildomas laikmatis ()
gCount = dabar + laiko vertė ("00:00:01")
Taikymas. OnTime gCount, „EndMessage“
Pabaigos sub
Sub EndMessage()
Dim xRng As Range
Nustatyti xRng = Programa. ActiveSheet. Diapazonas („A1“)
xRng. Reikšmė = xRng. Reikšmė – laiko serija (0, 0, 1)
Jei xRng. Reikšmė <= 0 Tada
MsgBox "Atgalinis skaičiavimas baigtas."
Išeiti iš sub
Pabaiga, jei
Skambinimo laikmatis
Pabaigos sub
Tu gali Kopijuoti ir įklijuoti kodo tekstą aukščiau arba galite jį įvesti eilutę į 1 modulio langą. VBA redaktorius prireikus taiko formatavimą.
3 veiksmas
![Įrašymas kaip makrokomandos įgalinta darbaknygė](/f/b81c143345125e3ef781f7f186c9ddb8.png)
Vaizdo kreditas: Vaizdas „Microsoft“ sutikimas
Sumažinkite VBA langą spustelėdami - simbolis viršutiniame dešiniajame kampe. Spustelėkite Failas ant juostelės ir Išsaugoti kaip. Pasirinkite vietą, kurioje norite išsaugoti failą. Lange Įrašyti kaip suteikite darbaknygei pavadinimą ir pasirinkite „Excel“ makrokomandos įgalinta darbaknygė (*.xlsm) nuo Išsaugoti kaip tipą Pasirinkimu sarasas. Spustelėkite Sutaupyti ir grįžkite į darbo knygą.
Laikmačio naudojimas
1 žingsnis
Spustelėkite langelį A1 ir įeikite 0:3:0, tada paspauskite Įeikite. Tai nustato laiką 0 valandų, 3 minučių ir 0 sekundžių.
2 žingsnis
Spustelėkite Žiūrėti skirtuką ant juostelės ir spustelėkite Makrokomandos. Pasirinkite Laikmatis iš makrokomandų sąrašo ir spustelėkite Bėk. Jūsų laikmačio langelis pradės skaičiuoti iki nulio, kai a Atgalinis skaičiavimas baigtas atsidaro dialogo langas. Spustelėkite Gerai grįžti į savo darbą.
Patarimas
Nereikia naudoti langelio A1. Padėkite laikmatį bet kur ir pakeiskite langelio nuorodą 8 laikmačio kodo eilutėje iš A1 į bet kurį naudojamą langelį.