Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 11.06.2013
Сообщений: 19
1

Поиск в ячейке слова и вставка соответствующего слова в соседнюю ячейку

06.08.2013, 18:02. Просмотров 2029. Ответов 3
Метки нет (Все метки)

Привет всем

В общем пример:
В экселе есть строка "2423-423423342 Proliant DL380R03" и рядом в ячейке выпадающий список вендоров. (HP, Oracle, Lenovo, IBM)
Так вот список серверов очень огромен и вручную выбирать напротив каждого сервера своего вендора слишком долго.
Возможно ли так чтобы скрипт парсил строку и если там находил к примеру "DL" то рядом в ячейку писал "HP", а если "SUN" то вписывал "Oracle" и так далее.

Спасибо

P.S.
И с помощью формул тоже интересно как это сделать....

С формулами дела имел только на самом низком уровне, а с VBS дружу, но не сильно.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.08.2013, 18:02
Ответы с готовыми решениями:

Поиск в столбце слова и вставка соответствующего слова в соседнюю ячейку
Здравствуйте! Помогите, пожалуйста! Если в перечне состояний (столбец 20 - выделен оранжевым...

Вставка текста в ячейку, независимо от длины кодового слова
Доброго времени суток. Вопрос к специалистам. У меня есть скрипт, который извлекает выборочный...

В ячейке Е1 часть слова которую нужно найти и если есть то выделить эту ячейку со строкой в столбце С
Sub Поиск() ' Dim МестоПоиска As String Dim ЧтоИщем As String For i = 1 To 3 МестоПоиска =...

Поиск слова в ячейке - MS Excel
Добрый вечер. Помогите решить задачу. Нужно находить слово в ячейке и показывать его. Искомых слов...

3
3183 / 938 / 216
Регистрация: 29.05.2010
Сообщений: 2,046
06.08.2013, 20:41 2
Лучший ответ Сообщение было отмечено как решение

Решение

С помощью макроса:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Vnes()
    Dim a$(1 To 2, 1 To 2), c As Range, rCol1 As Range, i&
    ' äâóõìåðíûé ìàññèâ ñ çíà÷åíèÿìè ïîèñêà è çíà÷åíèÿ âûáîðà
    a(1, 1) = "DL": a(1, 2) = "HP"
    a(2, 1) = "SUN": a(2, 2) = "Oracle"
    '.... è òàê äàëåå
    Set rCol1 = ActiveSheet.UsedRange.Columns(1) 'Äîïóñòèì ñòðîêà â êîëîíêå A
    For Each c In rCol1.Cells
        For i = 1 To UBound(a, 1)
            If InStr(1, c, a(i, 1)) > 0 Then
                'Çàíåñòè ñîîòâåòñòâóþùèå äàííûå â êîëîíêó B
                c.Offset(0, 1) = a(i, 2)
                Exit For
            End If
        Next
    Next
End Sub
1
0 / 0 / 0
Регистрация: 11.06.2013
Сообщений: 19
07.08.2013, 09:36  [ТС] 3
Большое спасибо, работает
только вот при продолжении массива:
a(3, 1) = "...": a(3, 2) = "..."
выдает ошибку 9 'subscript out of range'....
0
6650 / 2663 / 495
Регистрация: 19.10.2012
Сообщений: 8,046
07.08.2013, 10:05 4
Нужно
Visual Basic
1
Dim a$(1 To число_вендоров, 1 To 2)
Ну и есть смысл сперва искать например SUN, а уж затем UN или SU.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.08.2013, 10:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

поиск слова и вставка после него кода
Добрый день. Поплась мне в руки кмс одна кривенькая, пришслось разбираться в php =) Помогите...

Поиск по списку ключевых слов в столбце и копирование ключевого слова напротив в следующей ячейке
Добрый день. Уже где-то близко, но не могу корректно составить макрос для поиска по списку...

Word. Поиск и замена [кодового слова] и вставка перекрестной ссылки
Приветствую. Использовал поиск, находил подобные задачи, но они создавались для изменения...

Поиск нужного слова в словаре, в котором слова расположены в лексикографическом порядке
Напишите задачу поиска нужного слова в словаре, в котором слова расположены в лексикографическом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.