Как засинить все поля где написан брэнд парфюмерии

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Алексей

Дата: Понедельник, 14.01.2013, 13:40 | Сообщение № 1

Группа: Гости

Здравствуйте

Как засинить все поля где написан брэнд парфюмерии (вверху файлов приведены примеры на первых брэндах) и удалить 100 в этой строке при помощи формулы???
Или при помощи какого нибудь другова автоматического метода

файл http://narod.ru/disk/65451169001.4f81e2bbe1f9810179e4910c08ab42c6/Vparfum_price_opt_09-01-13.xls.html

Ответить

Serge_007

Дата: Понедельник, 14.01.2013, 13:42 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (Алексей)

удалить 100 в этой строке при помощи формулы?

Формулы ничего не могут удалить

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Алексей

Дата: Понедельник, 14.01.2013, 13:50 | Сообщение № 3

Группа: Гости

ну а как на автомате эту процедуру можно сделать???

Ответить

AlexM

Дата: Понедельник, 14.01.2013, 14:08 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Макрос
[vba]

Код

Sub Macros()
Dim i As Long, Brand As String
For i = 6 To Range("B" & Rows.Count).End(xlUp).Row
      If Range("C" & i) = "" Then
          Range("G" & i) = ""
          Range("B" & i & ":H" & i).Interior.ColorIndex = 33
          Brend = Range("B" & i) & " "
      Else
          Range("B" & i) = Replace(Range("B" & i), Brend, "")
      End If
Next i
End Sub

[/vba]
См. Файл.

К сообщению приложен файл: Vparfum_price_o.rar (70.7 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Понедельник, 14.01.2013, 14:08

Ответить

Pelena

Дата: Понедельник, 14.01.2013, 14:13 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант, "засинить" можно с помощью Условного форматирования: выделяем таблицу, начиная с ячейки B6, и используем формулу для УФ

Код

=$C6=""

А чтобы удалить 100, фильтруем столбец С по пустым ячейкам, выделяем диапазон столбца G и Delete

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

AlexM

Дата: Понедельник, 14.01.2013, 14:20 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Что-то я перестарался с макросом.
Из названий парфюма убрал бренд. Если это не нужно замените код на
[vba]

Код

Sub Macros()
Dim i As Long
For i = 6 To Range("B" & Rows.Count).End(xlUp).Row
     If Range("C" & i) = "" Then
         Range("G" & i) = ""
         Range("B" & i & ":H" & i).Interior.ColorIndex = 33
     End If
Next i
End Sub

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Как засинить все поля где написан брэнд парфюмерии

Страница 1 из 1
1