Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: как найти ячейки с определенным цветом?  (Прочитано 19218 раз)
0 Пользователей и 1 Гость смотрят эту тему.
cybereug
Гость
« : 18-07-2006 12:27 » 

необходимо в excel найти в столбце 1 ячейку синего цвета и скопировать ее в столбец 2 во все строки до нахождения следующей синей ячейки в столбце 1. Далее опять копируется синяя ячейка до нахожденя следующей синей. Заранее спасибо!
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 18-07-2006 12:58 » 

Сервис-Макрос-Начать запись

Потом выбираешь Правка-Найти Формат, указываешь цвет ячейки для поиска

После посмотри полученный код и подгони его под себя
Записан

I Have Nine Lives You Have One Only
THINK!
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #2 : 18-07-2006 13:15 » 

а зачем тут синию искать?  иди по столбцу и как наткнулся на синию, начинай её вставлять во второй столбец для всех "не синих"
Записан

Удачного всем кодинга! -=x[PooH]x=-
cybereug
Гость
« Ответ #3 : 18-07-2006 13:36 » 

а как это програмно сделать? вопрос в том что синие ячейки имеют разные значения и значение должно меняться после нахождения следующей синей ячейки
« Последнее редактирование: 18-07-2006 14:05 от cybereug » Записан
cybereug
Гость
« Ответ #4 : 18-07-2006 14:07 » 

вот в приложении примерно что нужно сделать и что должно получиться

* before.jpg (22.4 Кб - загружено 1419 раз.)
* after.jpg (38.6 Кб - загружено 1360 раз.)
Записан
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 18-07-2006 23:49 » 

Код:
Sub Макрос1()
Dim sht As Worksheet, i As Integer
Set sht = Application.ActiveWorkbook.ActiveSheet

'находим первую синию ячейку
For i = 1 To 100 '100 - диапазон
    If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
        Exit For
    End If
Next

'ну и собственно вставка
For i = i To 100 '100 - диапазон
    If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
        sht.Cells(i, 1).Select
        Selection.Copy
    Else
            sht.Cells(i, 2).Select
            sht.Paste
    End If
Next
End Sub
« Последнее редактирование: 19-12-2007 18:19 от Алексей1153++ » Записан

R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
cybereug
Гость
« Ответ #6 : 19-07-2006 04:42 » 

большое спасибо! а как удалить потом строчки с синими ячейками с кторых начиналась вставка?
« Последнее редактирование: 19-07-2006 04:44 от cybereug » Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #7 : 19-12-2007 18:21 » new

Offtopic:

нужны ли больше аттачи в посте №4 ?
Поставлю в угол.
Записан

Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines