Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » _Sonya_
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос, проверяющий цвет шрифта в ячейке
 
#
12.07.2017 15:58:24
yozhik,Эх, все равно нет результата. Все равно, спасибо за помощь)
 
Перейти    
Макрос, проверяющий цвет шрифта в ячейке
 
#
12.07.2017 15:33:01
yozhik,так, хорошо, а если в таблице применен не красный шрифт, а, скажем, стиль "плохой", на что тогда изменить условие?
 
Перейти    
Макрос, проверяющий цвет шрифта в ячейке
 
#
12.07.2017 15:01:58
yozhik,Все, поняла, почему ругался, исправила, попробовала ваш код - то же самое, результата нет
 
Перейти    
Макрос, проверяющий цвет шрифта в ячейке
 
#
12.07.2017 14:48:24
yozhik, Ругается на седьмую строчку почему то
 
Перейти    
Макрос, проверяющий цвет шрифта в ячейке
 
#
12.07.2017 14:29:54
Добрый день! Написала макрос, он должен проверять цвет шрифта в ячейке и, если он красный, копировать данные из этой ячейки в другую на другом листе, потом возвращаться на первый лист и копировать данные из другой ячейки той же строки, снова вставлять их в ячейку на другом листе
Скопированные данные должны располагаться друг под другом
Код
Sub Macro()
Dim Ma As Integer
Dim Sa As Integer
Dim Ra As Integer
Dim Ga As Integer
 Ma = 30
For Sa = 5 To 102
    Cells(Sa, 22).Select
    If Cells(Sa, 22).Font.Color = 255 Then
   Ra = ActiveCell.Row
   Ga = ActiveCell.Column
     Selection.Copy
     Sheets("Сюда вставляем").Select
     Range("I & Ma : J & Ma").Select
     ActiveSheet.Paste
  Sheets("Это проверяем на красный шрифт").Select
  Range("B & Ra").Select
     Selection.Copy
     Sheets("Сюда вставляем").Select
     Range("B & Ma : H & Ma").Select
     ActiveSheet.Paste
  Cells(S, 22).Value = D + 1
  Ma = Ma + 1
  End If
Next
End Sub
Вот собственно сам макрос, но по каким то причинам эксель вроде бы выполняет его, а результат почему то не вижу. Подскажите, где ошибка?
Изменено: _Sonya_ - 12.07.2017 15:00:11
 
Перейти    
Страницы: 1
Наверх