| Вопрос: .Find как ее добить | Добавлено: 04.08.05 22:58 |
Автор вопроса:  Oleg
|
|
Добрый день !
Есть вот такой код: Visual Basic: Private Sub VendorEnterButton_Click()
If BarCodeVendorTextBox.Text = "" Then BarCodeVendorTextBox.SetFocus InfVendorLabel.Caption = "Enter The BarCode" Exit Sub Else If QuanVendorTextBox = "" Then QuanVendorTextBox.SetFocus InfVendorLabel.Caption = "Enter The Quantity" Exit Sub Else With Worksheets("All").Range("d3:d2000") Set c = .Find(BarCodeVendorTextBox.Text, LookIn:=xlValues) If c Is Nothing Then InfVendorLabel.Caption = "Enter The New Goods With BarCode" Exit Sub End If Unload VendorForm End With firstAddress = c.Address(RowAbsolute:=False, _ ColumnAbsolute:=False) Set Vtext = QuanVendorTextBox Worksheets("All").Activate Range(firstAddress).Activate tbl = ActiveCell.Cells.Row VtextCol = Worksheets("All").Cells(tbl, 5) VtextCol = VtextCol + Vtext Worksheets("All").Cells(tbl, 5).Value = VtextCol End If End If End Sub Когда я выполняю поиск функцией .Find , программа ищет, но если в тексте есть 2 похожих слова, например "12345" и "2345" он выбирает "12345", хотя я ищу "2345". Как сделать так, чтобы он искал только то, что я набрал ? Спасибо ! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  coder ICQ: 330202812 Вопросов: 0 Ответов: 3 |
Профиль | | #1 | Добавлено: 12.09.05 17:36 |
|
Set c = .Find(BarCodeVendorTextBox.Text, LookIn:=xlValues)
Ещё добав коды так: Set c = .Find(BarCodeVendorTextBox.Text, LookIn:=xlValues,LookAt:=xlWhole)
|
||
Страница: 1 |