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

Вход

Регистрация

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

 

= Мир MS Excel/Нужна помощь в скрипте простого макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Нужна помощь в скрипте простого макроса
zmanz Дата: Четверг, 20.06.2013, 15:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Есть excel файл и нужно сделать так чтобы там где надпись брэнда в ячейке фон выделялся синим цветом, он выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток слева, снизу дан сам файл и макрос, который нужно немного подредактировать, я в них не разбираюсь, помогите пожалуйста.

Ниже представлен макрос, который мне писали на этом же форуме, правда это было давно, сайчас в файле стало больше только столбцов.

вот файл http://yadi.sk/d/5NDb5snI60Cu6

[vba]
Код

Sub Макрос()
Dim i As Long, Brand As String
For i = 11 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]


Сообщение отредактировал zmanz - Четверг, 20.06.2013, 15:21
 
Ответить
СообщениеЗдравствуйте

Есть excel файл и нужно сделать так чтобы там где надпись брэнда в ячейке фон выделялся синим цветом, он выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток слева, снизу дан сам файл и макрос, который нужно немного подредактировать, я в них не разбираюсь, помогите пожалуйста.

Ниже представлен макрос, который мне писали на этом же форуме, правда это было давно, сайчас в файле стало больше только столбцов.

вот файл http://yadi.sk/d/5NDb5snI60Cu6

[vba]
Код

Sub Макрос()
Dim i As Long, Brand As String
For i = 11 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]

Автор - zmanz
Дата добавления - 20.06.2013 в 15:11
Pelena Дата: Четверг, 20.06.2013, 16:07 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата (zmanz)
выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток

Осмелюсь предположить, что в тексте макроса надо заменить букву H на букву K
И цикл, наверное, должен начинаться не с 11, а с 8 (?)

И почему описывается переменная Brand, а используется Brend?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата (zmanz)
выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток

Осмелюсь предположить, что в тексте макроса надо заменить букву H на букву K
И цикл, наверное, должен начинаться не с 11, а с 8 (?)

И почему описывается переменная Brand, а используется Brend?

Автор - Pelena
Дата добавления - 20.06.2013 в 16:07
zmanz Дата: Пятница, 21.06.2013, 08:54 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Совершенно верно, спасибо вам большое ))
 
Ответить
СообщениеСовершенно верно, спасибо вам большое ))

Автор - zmanz
Дата добавления - 21.06.2013 в 08:54
  • Страница 1 из 1
  • 1
Поиск:

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