Как заполнить пользовательскую форму по названию продукта, который вы ввели Если в Excel есть два идентичных продукта - PullRequest
0 голосов
/ 08 октября 2018

Этот вопрос является продолжением предыдущего вопроса, который был успешно решен благодаря экспертам здесь

У меня есть форма, которую я печатаю в записях и вставляю влист, и он хорошо работает

Теперь мне нужно, чтобы при наборе продукта остальные поля получали значения из таблицы, если они существуют

То есть, если продуктуже существует, будут заполнять соответствующие значения, в остальных полях формы

Но я вижу, что ситуация может быть перечислена два идентичных продукта , и это не ошибка

Как мне это сделать в соответствии с выбором в "ComboBox1"

Заполните оставшуюся часть формы соответствующими значениями

То есть он распознает местоположение выделения в раскрывающемся списке

. Если бы это был выбор первой строки, он бы заполнил значения первой строкой. И так далее

Икогда я изменяю значения, он меняется наame line

Возможно ли это сделать? Или лучше подумать о другой идее?

Надеюсь, это понятно

example

Код IДо сих пор использовал

Option Explicit
Private Sub ComboBox1_Change()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheets")
Dim Found As Range
Set Found = ws.Range("A1:C3").Find(What:=ComboBox1.Value, MatchCase:=False)
If Not Found Is Nothing Then
    Me.TextBox1 = Found.Offset(, 1)
    Me.TextBox2 = Found.Offset(, 2)
            Else
    Me.TextBox1 = ""
    Me.TextBox2 = ""
End If

End Sub
Private Sub update_Click()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheets")
Dim Found As Range
Set Found = ws.Range("A1:C3").Find(What:=ComboBox1.Value, MatchCase:=False)
If Not Found Is Nothing Then
        Found.Offset(, 1).Value = Me.TextBox1.Value
        Found.Offset(, 2).Value = Me.TextBox2.Value
End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...