Список обновлен - PullRequest
       13

Список обновлен

0 голосов
/ 06 ноября 2019

Я работаю в пользовательской форме, у которой есть список, когда я открываю лист Excel с помощью поиска (Dim xName As String Dim xfound As Boolean xName = InputBox ("Введите имя листа, чтобы найти в книге:", "Поиск листа") ЕслиxName = "" Затем выйдите из Sub On Ошибка Возобновить Далее ActiveWorkbook.Sheets (xName). Выберите

xfound = (Err = 0) При ошибке Перейти к 0 Если xfound Then MsgBox "Лист" "& xName &" 'Êã!ÍÇÑ ÇáÑÞã! "Else

MsgBox" Лист '"& xName &"' ÑÞã ÛíÑ ãæÌæÏ ÈÞÇÚÏÉÈíÇäÇÊ! "Exit Sub

Конец, если UserForm3.Hide

UserForm6. В первый раз покажите, что он открыт очень хорошо, но когда я выполняю другой поиск, в списке отображается первый искомый лист, и мне нужно что-то, когда я возвращаюсь, чтобы выбрать другой лист, я хочу, чтобы список обновлялся вместе со мной, и отображал новый лист. выбран

...