Я работаю над поисковым фильтром для 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
Добавлены изображения того, что япытаюсь достичь.В настоящее время я пытаюсь достичь вышеуказанного с помощью списка.