|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.03.2009, 16:33 | #11 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
Благодарю, даже не обратил внимание на Integer
1. заметил, что Vb не любит много переносов _ пишит too many continuations лекарство есть? можно ли условия поиска для case is вложить в переменную? 2. также хотелось, реализовать автоматический импорт файла txt и выполнения макроса после этого. Последний раз редактировалось mistx; 30.03.2009 в 16:41. |
30.03.2009, 17:04 | #12 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
В любом случае, можно записать код иначе. Если бы Вы привели пример кода, уже получили бы готовое решение. |
|
30.03.2009, 17:30 | #13 | |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
Цитата:
они импортируется вместе с ИНН и другими данными. то есть "монтажзавод ИНН 3453634564 КПП 345634563456 ЛС 097869485769" и.т.д. организаций может быть в каждом условии около 25-50 на 21 переносе получил too many continuations Sub net() Dim i As Long For i = 2 To 38454 Select Case Cells(i, 1) Case Is = "Монтажзавод", _ "'энергосервис", _ "'сибхимонтаж", _ ...... ..... ..... "'эльдорадо" Cells(i, 17) = "за услуги" End Select Next i End Sub Последний раз редактировалось mistx; 30.03.2009 в 17:33. |
|
30.03.2009, 17:39 | #14 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Вот несколько вариантов записи:
Код:
Проще это сделать не макросом, а формулами. Ну а лучше предусмотреть по небольшому списку значений (в ячейках где-нибудь в свободном месте листа) для каждого из возможных значений Cells(i, 17), и макрос (или формула) будет гораздо короче... |
30.03.2009, 17:53 | #15 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
Спасибо за быстрый ответ.
могу ли я создать несколько Case? не отразится это на работе в целом? например Case "Монтажзавод": Cells(i, 17) = "за услуги" Case "энергосервис": Cells(i, 17) = "за услуги" Case "сибхимонтаж": Cells(i, 17) = "за услуги" .... ... у меня одна организация имеет следующий вид "Школа N 13, ИНН 456456765, л/с 56756756756 в УФК по Свердловской области (Администрация г. Екатеринбург)" Последний раз редактировалось mistx; 30.03.2009 в 18:04. |
30.03.2009, 18:03 | #16 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Для VBA запись Код:
Код:
То есть, если вероятность встретить в первой ячейке слово Монтажзавод намного выше, чем какое-либо другое слово, ставьте первой проверку Case "Монтажзавод" (после первого совпадения остальные значения не проверяются) Полагаю, Ваш код работает достаточно медленно из-за перебора десятков тысяч ячеек: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 30.03.2009 в 18:06. |
|
30.03.2009, 21:31 | #17 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
никак не могу разобраться с кавычками помогите плиз
выражение уж очень длинное МОУ "ГИМНАЗИЯ 22", ИНН 456456456, Л/С 45645645 В УФК ПО свердл.ОБЛ.(АДМИНИСТРАЦИЯ Г.Екатеринбурга) Case "МОУ" & Chr(34) & "ГИМНАЗИЯ 22" & Chr(34) дальше не могу понять, как быть с запятой |
30.03.2009, 21:42 | #18 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Попробуй так:
"МОУ " & Chr(34) & "ГИМНАЗИЯ 22" & Chr(34) & ", ИНН 456456456, Л/С 45645645 В УФК ПО свердл.ОБЛ.(АДМИНИСТРАЦИЯ Г.Екатеринбурга)"
Можно сделать все! Было бы время, да деньги...
|
30.03.2009, 21:56 | #19 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
иногда бывает все так просто.
спасибо всем за помощь!!! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировать месяцы соответственно их номера, а не по алфавиту в сводной таблице | maxic | Microsoft Office Excel | 4 | 10.10.2008 17:51 |
Итоги и фильтр данных в сводной таблице | ExcArt | Microsoft Office Excel | 6 | 22.05.2008 01:56 |
Сортировка в таблице... | Gektor | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 23.09.2007 12:10 |