Получите данные строки из Sheet1, затем поместите их в другой UserForm

Excel 2013 с VBA

UserForm1 показывает TextBox и ListBox. Он отобразит имя на основе идентификатора в TextBox. Я хотел отобразить всю информацию для этого конкретного человека, а затем отобразить ее во 2-й пользовательской форме.

Скриншот

Вот мой код:

Private Sub txtID_Change() Dim x, dict Dim i As Long Dim cnt As Long Set mySheet = Sheets("Sheet1") ListBox1.Clear x = mySheet.Range("A1").CurrentRegion.Value Set dict = CreateObject("Scripting.Dictionary") If Application.CountIf(mySheet.Columns(2), txtID.Text) > 0 Then For i = 2 To UBound(x, 1) If x(i, 2) = txtID.Text Then dict.Item(x(i, 1)) = "" End If Next i ListBox1.List = dict.keys Else ListBox1.AddItem "Match not found" End If End Sub 

  • Excel VBA - Как открыть Userform с использованием переменной в имени
  • Как обнаружить mouse_down на кадре Userform, пока мышь все еще нажата
  • Ошибка 381 при создании combobox (2 столбца) пустая
  • Заполнение Combobox на второй пользовательской форме
  • Как использовать значение переменной Userform Global Variable в разных книгах с помощью VBA
  • VBA Excel: аргумент не является необязательным
  • Загрузка различных пользовательских форм последовательно
  • VBA UserForm с несколькими значениями с одинаковыми значениями
  • Назначение обработчиков событий для элементов управления в пользовательской форме, созданных динамически в VBA, в подпункте
  • Сгенерированное кодом командная кнопка в vba Userform_initialize () не реагирует
  • Имя пользователя из пользовательской формы
  • Давайте будем гением компьютера.