VBNet - Форум - Помогите разобраться,выдает ошибку

Вопрос: Помогите разобраться,выдает ошибку Добавлено: 17.01.08 09:58

Автор вопроса: Лёся | ICQ: 199122464

Есть вот такая задача
Private Sub CommandButton1_Click()
' Выбор пути для нового файла и запись выбранного файла в строку
Dim sStr As String
sStr = Application.GetOpenFilename(Title:=iTitle, filefilter:=FilterList, FilterIndex:=2)
Text1.Text = sStr
End Sub

Private Sub CheckBox1_Click()
For a = 10 To 10000
If Лист1.CheckBox1.Value = True And Лист1.Text1.Text <> "" Then

  sss = "=ВПР(B7;" & Лист1.Text1.Text & "!$B$2C$5;2;1)"
    Cells(a, 3).Formula = sss

End If
    Next
End Sub
вот в строке
Cells(a, 3).Formula = sss
выдает ошибку и я никак не могу разобраться что ему нужно, столбец указан верно а ошибку выдает
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #1	Добавлено: 17.01.08 11:29
	Номер, тип и описание ошибки. Быстрей станет понятно. Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 17.01.08 11:38
	Не надо номер ошибки. ошибочно задана строка sss с формулой. В Excel VBA не указываются рускоязычные формулы, у каждого русского названия есть англоязычный эквивалент, вот его и надо писать. Для функции ВПР это VLOOPUP. Лучше проверь написание твоей функции записью макроса. Там правда будет записано .FormulaR1C1 = , но все будет работать верно и так даже удобней. Список соответствий русский и английских названий функций есть в файле по адресу C:\Program Files\Microsoft Office\OFFICE11\1049\FUNCS.XLS Ответить

Номер ответа: 3 Автор ответа: Лёся ICQ: 199122464 Вопросов: 1 Ответов: 3	Профиль \| \| #3	Добавлено: 17.01.08 11:55
	Пробовала заменить на VLOOPUP а номер ошибки "1004" Application-defined or object-defined error Ответить

Номер ответа: 4 Автор ответа: Лёся ICQ: 199122464 Вопросов: 1 Ответов: 3	Профиль \| \| #4	Добавлено: 17.01.08 11:58
	точнее на VLOOKUP все равно та же ошибка... Ответить

Номер ответа: 5 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #5	Добавлено: 17.01.08 13:48
	по-моему, там кривая формула ошибка во втором параметре формулы! " & Лист1.Text1.Text & "!$B$2C$5 Ответить

Номер ответа: 6 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #6	Добавлено: 17.01.08 13:50
	Вроде бы надо так: Лист1.Text1.Text & "!$B$2C$5" Ответить

Номер ответа: 7 Автор ответа: Лёся ICQ: 199122464 Вопросов: 1 Ответов: 3	Профиль \| \| #7	Добавлено: 17.01.08 14:29
	не поняла о чем речь. что поменялось? без этого знака "&"? так как без него? работать вообще не будет Ответить

Номер ответа: 8 Автор ответа: Nytrogen Вопросов: 18 Ответов: 186	Профиль \| \| #8	Добавлено: 29.01.08 16:43
	Эм... А что такое $B$2C$5? Подозреваю, что это диапазон с B2 до C5. Так может двоеточие поставить надо между адресами - $B$2:C$5? Ответить

Страница: 1 |