| Вопрос: Суммирование чисел, выделенных цветом, в Excel | Добавлено: 25.07.06 06:15 |
Автор вопроса:  Виктор
|
|
Добрый день.
Вот такая небольшая задачка. В ячейку вводится строка типа: 5+10+15+20+25. Формат - текстовый, плюс некоторые числа выделены другим цветом. Как можно преобразовать эту строку в числовой формат и подсчитать сумму чисел для каждого цвета в отдельности? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #1 | Добавлено: 25.07.06 12:48 |
|
Dim Массив() As Integer, Колво As Integer, x As Integer
Соответственно у тебя двумерный массив с номерами цветов и числами. А дальше перебирай массив и подводи итоги какие хочешь.
With ActiveCell Колво = .Characters.Count For x = 1 To Колво If IsNumeric(.Characters(Start:=x, Length:=1).Text) Then ReDim Preserve Массив(2, x) Массив(1, x) = CInt(.Characters(Start:=x, Length:=1).Text) Массив(2, x) = CInt(.Characters(Start:=x, Length:=1).Font.ColorIndex) End If Next x End With |
||
|
Номер ответа: 2 Автор ответа: Виктор Вопросов: 1 Ответов: 3 |
Профиль | | #2 | Добавлено: 26.07.06 02:58 |
|
Да понимаешь, я в программировании вообще профан. Ну не пошло оно у меня и всё тут, не моё.
Если тебе не трудно, напиши, как это должно всё выглядеть в законченном варианте. |
||
|
Номер ответа: 3 Автор ответа: НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #3 | Добавлено: 26.07.06 22:31 |
|
ИМХО: если оно тебе фиолетово, то не мучь себя и решай "небольшие задачки" другими способами.
Если же необходимо реально разобраться (есть желание - будешь пытаться сам). Желания вникать у тебя похоже 0,0. Так что не обессуть, но писать за тебя все готовое без мазы!!! |
||
|
Номер ответа: 4 Автор ответа: ВикторВопросов: 1 Ответов: 3 |
Профиль | | #4 | Добавлено: 27.07.06 02:54 |
|
Да, ты прав, вникать в ЭТО нет никакого желания.
Буду искать другие способы, мож чего и получится. Ну и спасибо за то, что есть. |
||
|
Номер ответа: 5 Автор ответа: ВикторВопросов: 1 Ответов: 3 |
Профиль | | #5 | Добавлено: 27.07.06 02:55 |
|
Да, ты прав, вникать в ЭТО нет никакого желания.
Буду искать другие способы, мож чего и получится. Ну и спасибо за то, что немного помог. |
||
Страница: 1 |