Как получить только номер .address VBA Excel - PullRequest
0 голосов
/ 13 февраля 2020

Hy там

Я пытаюсь закодировать пользовательскую форму, в которой при нажатии cmdbuton пользовательская форма оценивает в каждом из двух текстовых полей данные и просматривает позицию (первый текстовый блок) или находит имя данных (второе текстовое поле) У меня возникли проблемы с анализом имени текстового поля. Я хотел бы найти имя, получить его местоположение и загрузить в другого пользователя все данные из этой строки. Проблема в том, что я не знаю, как убрать номер из адреса, который я получаю, когда нахожу слово.

Private Sub CommandButton2_Click()
If Not TextBox1.value = "" And TextBox2.value = "" Then
    Sheet1.Cells(1, 15) = TextBox1.value
    Unload Me 
    OpisVentila.Show
ElseIf TextBox1.value = "" And Not TextBox2.value = "" Then
Dim y As Range
Dim x As String
Dim z As String
Dim s As String
    x = TextBox2.Text
    Set y = Sheet1.Range("A:A").Find(x)
    z = y.Address(0, 0)
    s = StrConv(z, vbUnicode)
    s = Split(Left(s, Len(s) - 1, vbNullChar))
    Sheet1.Cells(1, 15) = s
    Unload Me 
    PromjenaVentila.Show
ElseIf Not TextBox1.value = "" And Not TextBox2.value = "" Then
    Msgbox "Please enter one way to find the desired location"
    TextBox1 = ""
    TextBox2 = ""
Else
    Msgbox "You didnt chose any way to find the desired location"
End If
End Sub

Ответы [ 2 ]

1 голос
/ 13 февраля 2020

Это даст вам номер строки. Это то, что вы ищете?

Dim y as Range
Dim z As Integer
Set y = Sheet1.Range("A:A").Find(x)
z = y.Row
0 голосов
/ 14 февраля 2020

Да, это решение. Из любопытства, каким образом это было бы решаемо, если бы мне нужно было получить число из ввода пользовательской формы, в котором вы не знаете, как будет выглядеть ввод? (например: nope6p3p4ll44?)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...