Низове за личен профил, използващи системния регистър, използвайки VBA в Microsoft Excel

Низовете за частни профили често се използват за съхраняване на специфична за потребителя информация извън приложението/документа за по -късна употреба.
Можете например да съхранявате информация за най -новото съдържание в диалогов прозорец/UserForm,
колко пъти е отворена работна книга или последният използван номер на фактура за шаблон на фактура.
Лични профилни низове за всеки потребител могат да се съхраняват в регистъра. Можете също да използвате INI-файл,
или на локалния твърд диск, или в споделена мрежова папка.

Ето примерните макроси за писане и четене от низове на частни профили в регистъра.

„примерите по -долу предполагат, че диапазонът B3: B5 в активния лист съдържа„ информация за фамилия, име и дата на раждане Sub WriteUserInfoToRegistry () “записва информация в регистъра на„ HKEY_CURRENT_USER \ Software \ VB и VBA Program Settings \ TESTAPPLICATION On Error Resume Следваща Настройка за запазване „TESTAPPLICATION“, „Лично“, „Фамилно име“, Обхват („B3“). Запазване на стойност „TESTAPPLICATION“, „Лично“, „Име“, Обхват („B4“). Запазване на стойност „TESTAPPLICATION“, „Лично "," Birthdate ", Range (" B5 "). Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'чете информация в регистъра от' HKEY_CURRENT_USER \ Software \ VB и VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Формула = GetSetting ("TESTAPPLICATION", "Personal", "Lastname", "") Range ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'примерът по -долу предполага, че диапазонът D4 в активната таблица t съдържа 'информация за уникалния номер Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) On Error GoTo 0 Range ("D4"). Формула = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () 'изтрива информация в регистъра от' HKEY_CURRENT_USER \ Software \ Настройки на програмата VB и VBA \ TESTAPPLICATION При възобновяване на грешката Следващо Изтриване Настройка „TESTAPPLICATION“ „изтриване на цялата информация“ Изтриване Настройка „TESTAPPLICATION“, „Лично“ „изтриване на един раздел“ Изтриване Настройка „TESTAPPLICATION“, „Лично“, „Дата на раждане“ „изтриване на един ключ Вкл. Грешка GoTo 0 End Sub