Если активен многостраничный лист пользовательской формы, то выполнить функцию

Question

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

Мне нужно имя страницы, чтобы я мог классифицировать результаты кнопки выбора.Вот несколько способов, которые я пробовал.

1. If Page1.Page.Value = 0 Then
      x.Cells(nextRow, 4) = "Category 1"
   End IF
   

2. If Page1.Value = True Then
      x.Cells(nextRow, 4) = "Category 1"
   End IF
   

3. If Page1.Value = True Then
      x.Cells(nextRow, 4) = Me.Page1.Caption
   End IF
   

Есть предложения?

Answer 1

Попробуйте использовать заголовок свойства SelectedItem, чтобы получить имя активной страницы:

If MultiPage1.SelectedItem.Caption = "myPageName" Then
   x.Cells(nextRow, 4) = "needed value"
End IF

Или, если вы хотите, чтобы значение ячейки указывало на текущее многостраничное имя:

x.Cells(nextRow, 4) = MultiPage1.SelectedItem.Caption

См. Этот информативный учебник об объекте MultiPages.