Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выделение чисел из строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение чисел из строк (Макросы Sub)
Выделение чисел из строк
lexa19921904 Дата: Четверг, 20.02.2014, 17:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Здравствуйте!!!
Помогите пожалуйста макросом решить следующую задачу:
Имеется столбец, в каждой строке число и слова, число надо извлечь, это я сделал.
далее надо извлеченное число сравнить с другими строками, которые содержат это число (одно число содержится только в одной строке), строки или поменять местами в соответствии с извлеченными числами или поместить в новый столбец в том порядке, в котором расположены соответствующие числа.
К сообщению приложен файл: space1.xls (36.0 Kb)
 
Ответить
СообщениеЗдравствуйте!!!
Помогите пожалуйста макросом решить следующую задачу:
Имеется столбец, в каждой строке число и слова, число надо извлечь, это я сделал.
далее надо извлеченное число сравнить с другими строками, которые содержат это число (одно число содержится только в одной строке), строки или поменять местами в соответствии с извлеченными числами или поместить в новый столбец в том порядке, в котором расположены соответствующие числа.
Автор - lexa19921904
Дата добавления - 20.02.2014 в 17:29
KuklP Дата: Четверг, 20.02.2014, 22:24 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Не знаю, правильно ли понял:
[vba]
Код
Sub www()
     With [i1].CurrentRegion.Offset(, 3)
         .FormulaR1C1 = "=VLOOKUP(""*""&RC[-6]&""*"",R1C6:R15C6,1,0)"
         .Value = .Value
     End With
End Sub
[/vba]
К сообщению приложен файл: 1928708.xls (41.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНе знаю, правильно ли понял:
[vba]
Код
Sub www()
     With [i1].CurrentRegion.Offset(, 3)
         .FormulaR1C1 = "=VLOOKUP(""*""&RC[-6]&""*"",R1C6:R15C6,1,0)"
         .Value = .Value
     End With
End Sub
[/vba]
Автор - KuklP
Дата добавления - 20.02.2014 в 22:24
lexa19921904 Дата: Четверг, 20.02.2014, 23:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
нет, так скрип просто копирует все ячейки, а нужно что бы установилось цифры в столбце только с цифрами соответствовали столбцы с буквами и символами. в примере это соответствие подсвечено заливкой.
К сообщению приложен файл: space2.xls (42.5 Kb)
 
Ответить
Сообщениенет, так скрип просто копирует все ячейки, а нужно что бы установилось цифры в столбце только с цифрами соответствовали столбцы с буквами и символами. в примере это соответствие подсвечено заливкой.
Автор - lexa19921904
Дата добавления - 20.02.2014 в 23:06
KuklP Дата: Четверг, 20.02.2014, 23:14 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Измените формулу так:
[vba]
Код
.FormulaR1C1 = "=VLOOKUP(""*""&RC[-3]&""*"",R1C6:R15C6,1,0)"
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИзмените формулу так:
[vba]
Код
.FormulaR1C1 = "=VLOOKUP(""*""&RC[-3]&""*"",R1C6:R15C6,1,0)"
[/vba]
Автор - KuklP
Дата добавления - 20.02.2014 в 23:14
lexa19921904 Дата: Четверг, 20.02.2014, 23:29 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Да, все так.
Большое спасибо!!!

With [i1].CurrentRegion.Offset(, 3) - это выбор столбца с цифрами и куда осуществляется вывод результата?
RC[-3] - это получается столбец, с которым сравниваются цифры?
 
Ответить
СообщениеДа, все так.
Большое спасибо!!!

With [i1].CurrentRegion.Offset(, 3) - это выбор столбца с цифрами и куда осуществляется вывод результата?
RC[-3] - это получается столбец, с которым сравниваются цифры?
Автор - lexa19921904
Дата добавления - 20.02.2014 в 23:29
KuklP Дата: Четверг, 20.02.2014, 23:43 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Да.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеДа.
Автор - KuklP
Дата добавления - 20.02.2014 в 23:43
lexa19921904 Дата: Четверг, 20.02.2014, 23:47 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо большое!!!
 
Ответить
СообщениеСпасибо большое!!!
Автор - lexa19921904
Дата добавления - 20.02.2014 в 23:47
lexa19921904 Дата: Пятница, 21.02.2014, 10:47 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
подскажите пожалуйста, почему, когда я в выражении:
With [i1].CurrentRegion.Offset(, 3)
меняю offset( ,3), например, на offset( ,4) или offset( ,2), то результат выводится не правильно??
с чем это может быть связано?
 
Ответить
Сообщениеподскажите пожалуйста, почему, когда я в выражении:
With [i1].CurrentRegion.Offset(, 3)
меняю offset( ,3), например, на offset( ,4) или offset( ,2), то результат выводится не правильно??
с чем это может быть связано?
Автор - lexa19921904
Дата добавления - 21.02.2014 в 10:47
KuklP Дата: Пятница, 21.02.2014, 11:03 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Потому, что смещение надо менять еще и в формуле:
Код
=VLOOKUP(""*""&RC[-2], или "=VLOOKUP(""*""&RC[-4])

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПотому, что смещение надо менять еще и в формуле:
Код
=VLOOKUP(""*""&RC[-2], или "=VLOOKUP(""*""&RC[-4])
Автор - KuklP
Дата добавления - 21.02.2014 в 11:03
lexa19921904 Дата: Пятница, 21.02.2014, 11:18 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
понятно, а если делать offset(, -2)
так можно делать или нет? если можно, то что тогда в формуле "=VLOOKUP(""*""&RC[???] прописывать?
 
Ответить
Сообщениепонятно, а если делать offset(, -2)
так можно делать или нет? если можно, то что тогда в формуле "=VLOOKUP(""*""&RC[???] прописывать?
Автор - lexa19921904
Дата добавления - 21.02.2014 в 11:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение чисел из строк (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!