Доброго времени суток, Друзья!
Начну с напоминания, о том, что я гусь в написании макросов и все что сделано из макросов, сделано благодаря людям и форуму Планеты Эксель)
У меня имеется код макроса, но он на столько велик...а будет еще больше на конечном результате
Скажите пожалуйста, возможно ли этот код сократить?
По условию макрос ищет значения в столбце В и согласно условий ставить значок в определенный столбец
Заранее спасибо
| Код |
|---|
Sub Macro22()
Dim i&, msg$, dicObj As New Collection
Dim cell As Range
On Error Resume Next
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If CStr(Worksheets("Лист1").Cells(i, 2)) = "1-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-0" Then
Range("ae" & i) = "n"
With Range("ae" & i).Font
.Name = "Webdings"
.Color = RGB(0, 177, 92)
End With
End If
If CStr(Worksheets("Лист1").Cells(i, 2)) = "1-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-0" Then
Range("af" & i) = "n"
With Range("af" & i).Font
.Name = "Webdings"
.Color = RGB(0, 177, 92)
End With
End If
If CStr(Worksheets("Лист1").Cells(i, 2)) = "0-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-10" Then
Range("ag" & i) = "n"
With Range("ag" & i).Font
.Name = "Webdings"
.Color = RGB(0, 177, 92)
End With
End If
Next i
End Sub
|
