Kuinka lisätä päivämääräleima soluun, jos valintaruutu on valittu Excelissä?
Tavallisesti syötät päivämääräleiman käyttämällä Excelin pikanäppäimiä. Mitä jos lisäisit päivämääräleiman soluun valintaruudun avulla Excelissä? Kun valitset valintaruudun, aikaleima lisätään määritettyyn soluun automaattisesti. Tämä artikkeli auttaa sinua ratkaisemaan sen.
Lisää päivämääräleima soluun, jos se on valittuna VBA-koodilla
Lisää päivämääräleima soluun, jos se on valittuna VBA-koodilla
Tässä osiossa esitellään VBA-komentosarja, jonka avulla voit lisätä päivämääräleiman soluun automaattisesti, jos valintaruutu valitaan Excelissä. Toimi seuraavasti.
1. Kun olet lisännyt valintaruudun, paina muut + F11 näppäimiä samanaikaisesti avataksesi Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit. Kopioi ja liitä sitten alla oleva VBA-koodi Moduuli-ikkunaan.
VBA-koodi: Lisää päivämääräleima soluun, jos valintaruutu on valittuna
Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
If xChk.Value = xlOff Then
.Value = ""
Else
.Value = Date
End If
End With
End Sub
3. Lehdistö muut + Q avaimet sulkeaksesi Microsoft Visual Basic for Applications ikkunassa.
4. Napsauta valintaruutua hiiren kakkospainikkeella ja valitse Määritä Micro hiiren kakkospainikkeella valikosta. Katso kuvakaappaus:
5. Vuonna Määritä makro valintaikkunassa, valitse CheckBox_Date_stamp vuonna Makron nimi -ruutua ja napsauta sitten OK -painiketta. Katso kuvakaappaus:
Kun valitset valintaruudun, päivämääräleima lisätään automaattisesti viereiseen soluun.
Liittyvät artikkelit:
- Kuinka muuttaa määritettyä solun arvoa tai väriä, kun valintaruutu on valittuna Excelissä?
- Kuinka korostaa solu tai rivi valintaruudulla Excelissä?
- Miten valintaruutu valitaan solun arvon perusteella Excelissä?
- Kuinka suodattaa tietoja valintaruudun perusteella Excelissä?
- Kuinka piilottaa valintaruutu, kun rivi on piilotettu Excelissä?
- Kuinka luoda pudotusvalikko, jossa on useita valintaruutuja Excelissä?
Parhaat toimiston tuottavuustyökalut
Lataa Excel-taitojasi Kutools for Excelillä ja koe tehokkuutta kuin koskaan ennen. Kutools for Excel tarjoaa yli 300 lisäominaisuutta tuottavuuden parantamiseen ja ajan säästämiseen. Napsauta tästä saadaksesi eniten tarvitsemasi ominaisuuden...
Office-välilehti tuo välilehtikäyttöliittymän Officeen ja tekee työstäsi paljon helpompaa
- Ota välilehtien muokkaus ja lukeminen käyttöön Wordissa, Excelissä, PowerPointissa, Publisher, Access, Visio ja Project.
- Avaa ja luo useita asiakirjoja saman ikkunan uusilla välilehdillä uusien ikkunoiden sijaan.
- Lisää tuottavuuttasi 50 % ja vähentää satoja hiiren napsautuksia joka päivä!