Блок TextBox VBA - Microsoft Office Excel - Страница 2

Teslenko_EA · 20.12.2009, 20:47

Снова здравствуйте EducatedFool.
Вы снова правы, но тогда уж лучше сделать так:
cmdRun.Enabled = Len(txtM.Text) * InStr(1, txtM.Text, ",")
Евгений.

warshadow · 21.12.2009, 00:26

Спасибо Вам EducatedFool и Евгений за ответы )
Еще такой вопросик что обозначает ошибка "формула слишком сложна для присваивания объекту" --как можно исправить ее?

омарат · 06.03.2010, 13:56

Добый день!
а у меня такая проблема
при вводе более одного значения, код начинает ругатся.
то есть при вводе 4, 5 и тд работает. а вот 55, илт 67 и тд, ругается
тожет поиожете разобратся
Private Sub CommandButton1_Click()

l = UserForm1.TextBox1.Text
Cells.Find(What:=CStr(l), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

UserForm1.Show

End Sub

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
textbox	NARTZISS	Общие вопросы .NET	5	19.12.2009 14:21
TextBox(readonly)	Chartvit	Общие вопросы C/C++	1	21.11.2009 22:36
Проблема с TextBox	miatu	Microsoft Office Word	3	10.09.2009 18:08
TextBox в С#	Natok	Помощь студентам	2	18.05.2009 17:47
TextBox	Freeman	Общие вопросы C/C++	3	28.05.2008 00:56

20.12.2009, 20:47	#11
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Снова здравствуйте EducatedFool. Вы снова правы, но тогда уж лучше сделать так: *cmdRun.Enabled = Len(txtM.Text) InStr(1, txtM.Text, ",")** Евгений.

21.12.2009, 00:26	#12
warshadow Пользователь Регистрация: 12.09.2009 Сообщений: 33	Спасибо Вам EducatedFool и Евгений за ответы ) Еще такой вопросик что обозначает ошибка "формула слишком сложна для присваивания объекту" --как можно исправить ее?

06.03.2010, 13:56	#13
омарат Регистрация: 03.11.2007 Сообщений: 5	Добый день! а у меня такая проблема при вводе более одного значения, код начинает ругатся. то есть при вводе 4, 5 и тд работает. а вот 55, илт 67 и тд, ругается тожет поиожете разобратся Private Sub CommandButton1_Click() l = UserForm1.TextBox1.Text Cells.Find(What:=CStr(l), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate UserForm1.Show End Sub