ol7ca
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SAS888
еще раз спасибо.
я извиняюсь за шквал вопросов, но у меня еще загвоздка:
Цитата:| что нужно сделать, чтобы в итоге не появлялись значения: #N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, #NULL!и им подобные? |
я селал так:
For i = 1 To ActiveSheet.Cells(65536, 28).End(xlUp).Row
If IsNumeric(Cells(i, 28)) And Cells(i, 28) <> "" Then
On Error Resume Next
Cells(i, 2) = Cells(i, Stolb)
Cells(i, 3) = Cells(i, Stolb + Sdvig1)
Cells(i, 5) = Cells(i, Stolb + Sdvig2)
Cells(i, 12) = Application.Sum(Range(Cells(i, 28), Cells(i, Stolb)))
Cells(i, 13) = Application.Sum(Range(Cells(i, 28 + Sdvig1), Cells(i, Stolb + Sdvig1)))
Cells(i, 15) = Application.Sum(Range(Cells(i, 28 + Sdvig2), Cells(i, Stolb + Sdvig2)))
If Err <> 0 Then
Cells(i, 2) = 0
Cells(i, 3) = 0
Cells(i, 5) = 0
Cells(i, 12) = 0
Cells(i, 13) = 0
Cells(i, 15) = 0
Else
Cells(i, 2) = Cells(i, Stolb)
Cells(i, 3) = Cells(i, Stolb + Sdvig1)
Cells(i, 5) = Cells(i, Stolb + Sdvig2)
Cells(i, 12) = Application.Sum(Range(Cells(i, 28), Cells(i, Stolb)))
Cells(i, 13) = Application.Sum(Range(Cells(i, 28 + Sdvig1), Cells(i, Stolb + Sdvig1)))
Cells(i, 15) = Application.Sum(Range(Cells(i, 28 + Sdvig2), Cells(i, Stolb + Sdvig2)))
End If
End If
но ошибочные значения остались
Добавлено:
вот еще проблема:
цикл работает только на ткущем листе и не переходит к остальным
поправьте меня, пожалуйста,
я уже все перепробывал(
Dim ws As Object, k As Integer, a
Dim i As Long, wb As Workbook
Application.ScreenUpdating = False
a = Array("S", "I", "X")
For k = 0 To UBound(a)
Set ws = Sheets(a(k))
With ws
For i = 1 To .Cells(65536, 28).End(xlUp).Row
If Cells(i, 28).Interior.ColorIndex = 1 Then
Range(Cells(i, 2), Cells(i, 27)).Interior.ColorIndex = 1
End If
Next i
End With
Next
End Sub
|
