Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
как макросом вытащить из ячейки с большим числовым значением 2 первые цифры
 
#1
18.04.2012 15:26:08
Добрый день!  
Очень нужна помощь понимающих в макросах людей.  
Дело в том, что мне очень нужно чтобы из ячейки со значениями можно было как-то выковырять 2 первых знака и по ним найти в другой таблице данные.  
Я только учусь писать макросы, и попробовала через макрорекордер написать с помощью формулы ПСТР - эта часть получилась, но, к сожалению, числа выходили в текстовом формате (как после любой формулы, если скопировать ее и вставить значения), перевод формата не помог - ячейки были хоть и в числовом формате - значек ошибки все равно выходил.  
Во второй части (там где нужно найти по этим двум цифрам данные), тоже я думаю можно макрос (я планировала через макрорекордер формулу ВПР прописать).    
И совсем не знаю как все это сделать чтобы не видно было всех вычислений, а только результат.  
Пример прилагаю.На первой странице значения, из которых надо выковырять 2 первые цифры, на второй - данные, которые надо к этим цифрам приделать.  
 
Все заранее спасибо!
 
 
 
#2
18.04.2012 15:40:08
Без макросов :)
 
 
 
#3
18.04.2012 15:51:16
А с макросами?)    
К сожалению, нужно чтобы кнопочку нажал и все :)
 
 
 
#4
18.04.2012 16:02:11
Формулисты, кто следующий?  
:))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#5
18.04.2012 16:05:51
с макросами )
Редко но метко ...
 
 
 
#6
18.04.2012 16:11:25
Sub bb()  
With Range("A2", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1)  
   .Formula = "=INDEX(данные!$A$1:$A$999,MATCH(--LEFT(A2,2),данные!$B$1:$B$999,))"  
   .Value = .Value  
End With  
End Sub
 
 
 
#7
18.04.2012 16:32:31
ОООО! Спасибо всем преогромнейшеее!!!! Вы мне очень помогли!!!!!
 
 
 
#8
23.04.2012 23:19:54
Снова нужна ваша помощь в этом же вопросе.  
К сожалению, оказалось, что в значениях данных есть число 10, к которому могут быть 2 значения, в зависимости от следующих двух цифр. Т.е. у наших длинных чисел мы берем две первые цифры (пример во вложении) и подтягиваем яблоки и апельсины, но если эти две цифры 10, то нужно смотреть по следующим 2 цифрам (только 2 исключения) - получится, что если 1001 - то груши, а если 1002 - то сливы.  
Пробовала в макросе написать if, но если вставляла в конец записи, ничего не происходит, если в середину - выдается ошибку...  
Помогите, пожалуйста, разобраться!  
Всем заранее большое спасибо!
 
 
 
#9
24.04.2012 02:41:26
(простецкий)...
 
 
 
#10
24.04.2012 09:30:25
Решение есть, поэтому код писать не буду.  
Но я бы делал на словаре - так намного быстрее на большом объёме, чем циклом в цикле.  
А на этом малом проще код :) (т.к. тут скорость не важна, на 10 записей...)  
Сперва собрал в словарь (и возможно параллельный массив, если связанных данных много) данные второго листа (ключ - 2 или 4 цифры, сколько зададите), затем циклом по первому листу искал в словаре сперва по двум цифрам, если не найдено - ещё раз по четырём.  
Так всего два перебора диапазона.  
Можно словарь (с массивом) сделать публичным (заполнить его при открытии файла или по кнопке) и поставить работу кода на событие изменения первого столбца - так можно мнгновенно получать результат даже из огромной базы (хотя на 2 или 4 цифры база огромной быть не может... ну а если 7 или 10?)
 
 
 
#11
24.04.2012 12:39:03
Спасибо большое! Попробую разобраться и адаптировать пример под свой список.  
Я выложила здесь просто пример (поэтому он маленький), а так список около 1000 строк.  
Только последий ответ совсем не поняла((((
 
 
 
#12
24.04.2012 12:51:58
А формулой реально учесть все эти условия?
 
 
 
#13
24.04.2012 12:59:53
На 1000 строк думаю разницы не заметите - на словаре или двойным перебором работает.  
Так что мой ответ скорее как информация к размышлению - что есть другой вариант макроса, побыстрее.  
Формулу писать не возьмусь - но вероятно можно сперва искать по четырём знакам, а если ошибка - то по двум.
 
 
 
#14
24.04.2012 13:03:14
Спасибо, но мне пока тяжело осмылить как сделать двойной перебор, чтобы он был именно двойным, а не исключал один другого...))))
 
 
 
#15
24.04.2012 13:10:01
Написал :)  
 
=IF(ISNA(INDEX(данные!$A$1:$A$999,MATCH(--LEFT(A9,4),данные!$B$1:$B$9,))),INDEX(данные!$A$1:$A$999,MATCH(--LEFT(A9,2),данные!$B$1:$B$9,)),INDEX(данные!$A$1:$A$999,MATCH(--LEFT(A9,4),данные!$B$1:$B$9,)))
 
 
 
#16
24.04.2012 13:12:30
Т.е. сперва отрабатывает формула Казанского (ну или вариант Владимира думаю тоже подойдёт) по 4-м цифрам, если она дала ошибку - то она же но уже по 2-м.
 
 
 
#17
24.04.2012 13:21:35
оооо! огромное спасибо!!! вы просто спасли!!!!!!
 
 
 
#18
24.04.2012 13:41:10
Да, забыл сказать - я критерии 2/4 цифры писал в одну ячейку, а не в 2, как у Вас в примере (для простоты).  
Думаю (но не уверен), что несложно формулу скорректировать и на 2 ячейки.  
Ну в любом случае можно из двух сделать одну в допстлбце...
 
 
 
#19
24.04.2012 14:24:32
да, спасибо) теперь все просто)))
 
 
 
Страницы: 1
Наверх