Kaip įterpti atgalinės atskaitos laikmatį į „Excel“ darbalapį

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

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.

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į.

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

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ė

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į.