Цитата

Открываешь лист нажимаешь правую кнопку мышки,выберешь VB и Элементы управления. С Э\управления стащишь кнопку,хлопнешь по ней два раза и вставляй код. И еще с цветом поэксперементируй вот так - Rows(rwIndex).Interior.ColorIndex = k + 1 + "14 А вообще тебе ко мне на сайт надо зайти. Я когда училась ,так сама себе экзамены здавала.Там для чайников в самый раз.Сайт бесплатный. Переменные не забудь обьявить

Извиняюсь за беспокойство.

А как перемееные объявить?
Адрес сайта какой?

Код

Dim d As Integer Dim c As Integer Dim k As Integer

Поставь вначале кода.

Цитата

Ругается run-time error '424'

А у тебя какая версия офиса? И что пишет после кода?

Jureth ,посмотрела твой код, сразу у себя нашла лишнии детали. Только я не думаю ,что надо закрашивать все одним цветом .

Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer
Dim k As Integer

d = UsedRange.Rows.Count
c = UsedRange.Rows.Count

For rwIndex = 1 To d

For rwIn = 1 To c

If Range("A" & rwIndex).Value = Range("A" & rwIn).Value Then

Range("C" & rwIndex).Value = Range("C" & rwIndex).Value + Range("B" & rwIn).Value

k = 1

Else
k = k + 1

End If
Rows(rwIndex).Interior.ColorIndex = k + 1 + "14"
Next rwIn
Next rwIndex

End Sub
А то что ты сумму в одну ячейку поместил мне понравилось ,только пока не получилось

Сделать раскраску разными цветами, ИМХО, не проблема - сам способ ты уже предлагала, только проверку нужно исправить:

Код

If Cells(i, 1).Interior.ColorIndex = xlNone Then

PS: Пользуйся тегом [code=vb], plz - а то читать невозможно.

Это сообщение отредактировал(а) Jureth - 30.11.2004, 14:04

Я дома пользуюсь. А на работе подсветка даже не показывается.У меня правов Администратора нет . И администратор уволился. Даже смалики не вставляются.

Всем большое спасибо за помощь

Цитата

С цветом вот тоько не успела.Пока не соображу как.Может кто подскажет.

в том же цикле для Cells или Range присваивать ) нужный .Interior.ColorIndex

Цитата

в том же цикле для Cells или Range присваивать ) нужный .Interior.ColorIndex

- Поезд ушел