код поиска - Microsoft Office Excel

vostok · 01.05.2011, 15:45

Всех с праздником и доброго дня. Нужна помощь. Есть код для поиска в списке:

Dim a_text As String

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
Selection.AutoFilter Field:=1
Else
a_text = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=1, Criteria1:=a_text, Operator:=xlAnd

End If
End Sub

Изменил в списке формат ячеек с текстового на общий, там цифры, код перестал работать, что в нем изменить?
Спасибо.

R Dmitry · 01.05.2011, 22:04

Код:

Criteria1:=Clng(a_text)

--------------------

хотя не поможет

, так вы ищете часть числа

01.05.2011, 15:45	#1
vostok Форумчанин Регистрация: 29.04.2009 Сообщений: 119	код поиска Всех с праздником и доброго дня. Нужна помощь. Есть код для поиска в списке: Dim a_text As String Private Sub TextBox1_Change() If TextBox1.Text = "" Then Selection.AutoFilter Field:=1 Else a_text = "" & TextBox1.Text & "" Selection.AutoFilter Field:=1, Criteria1:=a_text, Operator:=xlAnd End If End Sub Изменил в списке формат ячеек с текстового на общий, там цифры, код перестал работать, что в нем изменить? Спасибо.

01.05.2011, 22:04	#2
R Dmitry Форумчанин Регистрация: 07.03.2010 Сообщений: 796	Код: `Criteria1:=Clng(a_text)` -------------------- хотя не поможет , так вы ищете часть числа Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234 Последний раз редактировалось R Dmitry; 01.05.2011 в 22:07. Причина: ошибся

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Форма поиска - задать диапазон поиска	VictorM	Microsoft Office Excel	9	21.04.2011 00:12
Доп.код,обратный код,прямой код вычисления	Lukas077	Помощь студентам	0	20.03.2011 12:07
Код написал код, но ответ постоянно один и тот же	SkuLLL	Помощь студентам	4	14.12.2010 19:25
Помогите дописать мои код поиска!	AlexII	Общие вопросы Delphi	5	17.05.2008 20:07
Помогите сдать экзамен!!! Нужен код деревьев двоичного поиска и еще 2 програмки	Девчонка	Помощь студентам	8	18.01.2008 19:02