Как создать форму VBA для соответствия значения Excel имени рабочей таблицы в той же книге?

Question

Я работаю над самостоятельно созданной формой VBA. Он имеет кнопку отправки и принимает записи, такие как пункт назначения, сроки и бюджет.

У меня есть лист Excel с именем "Бали". это состоит из доступной авиакомпании места назначения, времени и бюджета.

Я хотел бы создать метод, который мог бы получить вставленный пункт назначения, например. bali, когда пользователь нажал кнопку "Отправить", а затем сопоставил ее, чтобы отобразить и отобразить содержимое листа с именем "bali" на другом новом листе или в форме.

Кто-нибудь может помочь мне с этим, предоставив пошаговый код?

Answer 1

Это для справочного кода для простой формы, которую я имею.

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub ResetComboBox_Click() Dim ctl в качестве элемента управления для каждого ctl во мне.Управляет, если TypeName(ctl) = "TextBox" или TypeName(ctl) = "ComboBox", то ctl.Value = "" ElseIf TypeName(ctl) = "CheckBox" Тогда ctl.Значение = False End If Next ctl End Sub

Private Sub SubmitComboBox_Click() Если я.DestinationComboBox.Value = "" Тогда MsgBox "Пожалуйста, выберите пункт назначения.", VbExclamation, "Пункт назначения" Me.DestinationComboBox.SetFocus Exit Sub End If

 If Me.DateTextBox.Value = "" Then
    MsgBox "Please select a date.", vbExclamation, "Travel Date"
    Me.DateTextBox.SetFocus
    Exit Sub
End If

If Not IsDate(Me.DateTextBox.Value) Then
    MsgBox "The Date field must contain a date.", vbExclamation, "Travel Date"
    Me.DateTextBox.SetFocus
    Exit Sub
End If

 If Me.BudgetTextBox.Value = "" Then
    MsgBox "Please insert your budget.", vbExclamation, "Travel Budget"
    Me.BudgetTextBox.SetFocus
    Exit Sub
End If

If Not IsNumeric(Me.BudgetTextBox.Value) Then
    MsgBox "The budget field must contain number.", vbExclamation, "Travel Budget"
    Me.BudgetTextBox.SetFocus
    Exit Sub
End If

Dim RowCount As Long RowCount = Worksheets("Параметры").Range("A1").CurrentRegion.Ряды.Подсчет с помощью рабочих таблиц ("Параметры").Диапазон ("А1").Смещение (RowCount, 0).Значение = я.DestinationComboBox.Значение .Смещение (RowCount, 1).Значение = я.DateTextBox.Значение .Смещение (RowCount, 2).Значение = DateValue (Me.DateTextBox.Значение).Смещение (RowCount, 3).Значение = я.BudgetTextBox.Значение .Смещение (RowCount, 4).Значение = я.BudgetTextBox.Значение .Смещение (RowCount, 5).Значение = формат (теперь «дд / мм / гггг чч: нн: сс»)

Dim CTL в качестве контроля для каждого CTL во мне.Управляет, если TypeName(ctl) = "TextBox" или TypeName(ctl) = "ComboBox", то ctl.Value = "" ElseIf TypeName(ctl) = "CheckBox" Тогда ctl.Значение = False End If Next ctl End Sub