Как переместить флажок со страницы 1 на страницу 2 многостраничного1 в пользовательской форме Word-VBA? - PullRequest
0 голосов
/ 06 июня 2018

Я работаю над поисковым фильтром для 70+ вариантов флажков.На каждой странице из нескольких страниц я создал 44 флажка из таблицы Excel.

Я почти закончил с поисковым фильтром.Моя единственная проблема заключается в том, что я не могу найти способ переместить флажок на странице 2 на страницу 1 многостраничного.

Перемещение флажка на страницу 1 сохранит выбор флажков, так что причина НЕ генерироватьфлажки снова.Другая причина заключается в том, что создание флажков приведет к зависанию пользовательской формы на пару секунд.

В настоящее время у меня есть следующая идея переместить флажок со страницы 2 на страницу 1:

C.Parent.Name = "Page" &VAR_Sub.curMultipage + 1`    

Однакоизменение Parent.Name, кажется, не перемещает флажок на страницу1.Я подтвердил, что C.Parent.Name был Page2, и он изменился на Page1. С - флажок.

Код для цикла:

For Each C In UserForm1.MultiPage1.Pages(UserForm1.MultiPage1.Value).Controls
     `If TypeName(C) = "CheckBox" Then
          VAR_Sub.i = VAR_Sub.i + 1
          If InStr(1, C.Caption, strSearchTerm, vbTextCompare) = 0 Then
              C.Visible = False
          Else
          C.Visible = True
          If Var_Sub.i > 44 Then
              chkName = C.Parent.Name
              'MsgBox "OLD" & chkName
              C.Parent.Name = "Page" & VAR_Sub.curMultiPage + 1
              chkName = C.Parent.Name
              'MsgBox "NEW" & chkName
          End If
         ''Below more positioning code
             ....
     End If`
 Next C

Заранее спасибо и всего наилучшего. PS: Если в моем сообщении чего-то не хватает, пожалуйста, сообщите мне. Я улучшу его.

Я пытаюсь добиться этого: Требуемый результат

В настоящее время я достигследующее: Page1 с сгенерированными флажками Page2 с сгенерированными флажками Использование фильтра приводит к: Page1 после фильтра Page2 после фильтра

Как вы можете видеть на изображениях выше того, чего я достиг, флажки находятся на другой странице многостраничного сайта, даже если имя parent.name было изменено на Page1

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...