Yksityisiä profiilijonoja käytetään usein käyttäjäkohtaisten tietojen tallentamiseen sovelluksen/asiakirjan ulkopuolelle myöhempää käyttöä varten.
Voit esimerkiksi tallentaa viimeisimmän sisällön tiedot valintaikkunaan/UserForm,
kuinka monta kertaa työkirja on avattu tai viimeksi käytetty laskun numero laskumallissa.
Kunkin käyttäjän yksityiset profiilijonot voidaan tallentaa rekisteriin. Voit käyttää myös INI-tiedostoa,
joko paikalliselle kiintolevylle tai jaetulle verkkokansioon.
Tässä on esimerkkimakroja rekisterin yksityisprofiilijonojen kirjoittamiseen ja lukemiseen.
'alla olevissa esimerkeissä oletetaan, että aktiivisen taulukon alue B3: B5 sisältää tietoja sukunimestä, etunimestä ja syntymäpäivästä Sub WriteUserInfoToRegistry ()' 'tallentaa tiedot rekisteriin kohtaan HKEY_CURRENT_USER \ Software \ VB ja VBA Program Settings \ TESTAPPLICATION On Error Resume Seuraava Tallennusasetus "TESTAPPLICATION", "Personal", "Sukunimi", Alue ("B3"). Arvo SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal" "," Syntymäpäivä ", alue (" B5 "). Arvo On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'lukee rekisterin tiedot kohdasta' HKEY_CURRENT_USER \ Software \ VB and VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Kaava = GetSetting ("TESTAPPLICATION", "Personal", "Sukunimi", "") Alue ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5") ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'alla oleva esimerkki olettaa, että aktiivisen sheen alue D4 t sisältää 'tietoa yksilöllisestä numerosta Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 Virhe Jatka Seuraava UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) Virhe GoTo 0 Range ("D4".) VB- ja VBA -ohjelman asetukset \ TESTAPPLICATION Virheessä Jatka Seuraava PoistaAsetus "TESTAPPLICATION" 'poista kaikki tiedot' PoistaAsetus "TESTAPPLICATION", "Personal" 'poista yksi osa' PoistaAsetuksen "TESTAPPLICATION", "Personal", "Birthdate" poistaminen yksi Virhe GoTo 0 End Sub