Блог

Я пытаюсь создать пользовательскую форму, которая позволяет вставлять число в список, если это число совпадает с одним из имен листов, чтобы выбрать этот рабочий лист. В случае, если совпадение отсутствует, выдать окно сообщения о том, что номер не найден. Но у меня проблема с определением того, что текст списка должен сравниваться с именами листов. Это выглядит следующим образом:

Код следующий:

 Private Sub CommandButton1_Click()
Option Explicit
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
        'this line i could not manage
        If ws.Name Like "Tel*" Then
        Sheets("Tabella Riepilogativa").Select
        End If
        Else: MsgBox "Phone number was not found"
    Next
End Sub

Private Sub Label1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub
  

Может кто-нибудь помочь с этим, пожалуйста?

Option Explicit Принадлежит в верхней части файла.

Чтобы найти лист с именем "Tel{whatever the user entered in a TextBox}" :

 Private Sub CommandButton1_Click()

Dim ws As Worksheet, wsFound As Worksheet, searchFor As String

searchFor = "TEL" amp; UCase$(Trim$(TextBox1.Text))

For Each ws In ThisWorkbook.Sheets
    If UCase$(ws.Name) = searchFor Then
        Set wsFound = ws
        Exit For
    End If
Next

If wsFound Is Nothing Then
    MsgBox "Not Found (I should probably be a label to save the user an unnecessary click)"
Else
    wsFound.Select
End If

End Sub