Юрий М, помогите пожалуйста:
При вставке в основной файл, не работает.
Прописал так:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Color1 As Integer, Color2 As Integer, Color3 As Integer, Color4 As Integer
If Not Intersect(Target, Range("A15933:A25000")) Is Nothing Then |
Код |
---|
Range(Cells(Target.Row, 11), Cells(Target.Row, 13)).Interior.ColorIndex = xlNone
Color1 = Cells(15929, 20).Interior.ColorIndex
Color2 = Cells(15930, 20).Interior.ColorIndex
Color3 = Cells(15931, 20).Interior.ColorIndex
Color4 = Cells(15932, 20).Interior.ColorIndex
Select Case Target.Value
Case "Заказано"
Target.Offset(0, 10).Interior.ColorIndex = Color1
Target.Interior.ColorIndex = Color1
Case "Пришло"
Target.Offset(0, 11).Interior.ColorIndex = Color2
Target.Interior.ColorIndex = Color2
Case "Выдано"
Target.Offset(0, 12).Interior.ColorIndex = Color3
Target.Interior.ColorIndex = Color3
Case "Частично пришло"
Target.Offset(0, 11).Interior.ColorIndex = Color4
Target.Interior.ColorIndex = Color4
End Select
End If
'Заказано - 3
'Пришло - 44
'Выдано - 14
'Частично - 48
End Sub
|
Но почему то не работает.