| Вопрос: работа в екселе с ячейками | Добавлено: 13.05.08 16:22 |
Автор вопроса:  noob
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа:  noob Вопросов: 5 Ответов: 25 |
Профиль | | #16 | Добавлено: 16.05.08 17:31 |
|
если так то все складывается в прогрессии на первом листе верно на втором добавляется на третьем еще добавляется
Dim yelow, broun, green, blue As Integer
For wer = 1 To 6 If wer = 1 Then Sheets("retre"  .Select
If wer = 2 Then Sheets("rt" .Select
If wer = 3 Then Sheets("rtrt" .Select
If wer = 4 Then Sheets("ret" .Select
If wer = 5 Then Sheets("ert" .Select
If wer = 6 Then Sheets("ter" .Select
For b = 7 To 150 If Range("a" & b).Interior.ColorIndex = 6 Then yelow = yelow + vbNull ElseIf Range("a" & b).Interior.ColorIndex = 40 Then broun = broun + vbNull ElseIf Range("a" & b).Interior.ColorIndex = 43 Then green = green + vbNull ElseIf Range("a" & b).Interior.ColorIndex = 42 Then blue = blue + vbNull End If Next Range("c2" = "srtr" & ", " & yelow
Range("c3" = "sert" & ", " & broun
Range("d1" = "ert" & ", " & green
Range("d3" = "sert" & ", " & blue
Next End Sub |
||
|
Номер ответа: 17 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #17 | Добавлено: 16.05.08 18:12 |
|
после того как отобразил результаты на листе
Range("c2" = "srtr" & ", " & yelow
Range("c3" = "sert" & ", " & broun
Range("d1" = "ert" & ", " & green
Range("d3" = "sert" & ", " & blue
yelow = 0 broun = 0 green = 0 blue = 0 и перед тем как перешел к следующему листу нужно сбросить результаты на 0 |
||
|
Номер ответа: 18 Автор ответа: noobВопросов: 5 Ответов: 25 |
Профиль | | #18 | Добавлено: 16.05.08 19:34 |
|
спасибо
как все коротко и просто только одно равенство yelow = 0 а я чуть голову не сломал 
Sub () Dim yelow, broun As Integer For nod = 1 To 5 If nod = 1 Then Sheets("asdf" .Select
If nod = 2 Then Sheets("sdf" .Select
If nod = 3 Then Sheets("sadf" .Select
If nod = 4 Then Sheets("rt" .Select
If nod = 5 Then Sheets("ertee" .Select
For z = 7 To 150 If Range("a" & z).Interior.ColorIndex = 6 Then yelow = yelow + vbNull ElseIf Range("a" & z).Interior.ColorIndex = 40 Then broun = broun + vbNull End If Next Range("c2" = "dfaf" & "," & yelow
Range("c3" = "dsfds" & "," & broun
yelow = 0 broun = 0 Next End Sub |
||