|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.11.2009, 14:19 | #1 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 15
|
Суммирование в зависимости от поиска по названию
Есть таблица с данными, нас интересует столбец "Рыночная стоимость".
В столбце "Имущество и обязательство" перечислены наименования ценных бумаг. НЕОБХОДИМО только ПО ОБЛИГАЦИЯМ ПЕРЕСЧИТАТЬ РЫНОЧНУЮ СТОИМОСТЬ. А именно, в соответствии с названием той или иной Облигации найти в строках ниже % по облигации соответствующее название с добавлением "НКД" и в колонке напротив данного названия поставить сумму (рыночная стоимость + НКД). Пример: Строка 37: "Облигация Общество с ограниченной ответственностью "Росинтер Ресторанс"; RESTO-3; № гос.рег. 4-03-36016-R;" Нужно в ячейке AC37 поставить сумму AC37 + AC48 В приложении это лист ИСХОДНЫЕ ДАННЫЕ. Примечание: НКД может быть не для всех видов облигаций, поэтому просто подряд суммировать ячейки нельзя, нужно организовать поиск по названию. Помогите реализовать МАКРОС Заранее большое спасибо! |
04.11.2009, 15:57 | #2 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 15
|
Может я не так объяснил или задача трудная?
Подскажите кто-нибудь, пожалуйста! Хотя бы совет как решать дайте |
04.11.2009, 16:56 | #3 |
Форумчанин
Регистрация: 06.08.2009
Сообщений: 472
|
поскольку мой Интернет просто умирает, скопируйте этот код в модуль VB
Sub bonds_sum() Dim i As Double, n As Double For i = ActiveWorkbook.Sheets(1).Cells.Find ("Облигации").Row + 1 To ActiveWorkbook.Sheets(1).Cells.Find ("Итого Облигации предприятий:").Row - 1 For n = ActiveWorkbook.Sheets(1).Cells.Find ("% по облигациям").Row + 1 To ActiveWorkbook.Sheets(1).Cells.Find ("Итого % по облигациям:").Row - 1 If Mid(Cells(n, 1), InStr(Cells(n, 1), "№")) & "; " = Mid(Cells(i, 1), InStr(Cells(i, 1), "№")) Then Cells(i, 29) = Cells(i, 29) + Cells(n, 29) Exit For End If: Next: Next: End Sub Последний раз редактировалось EugeneS; 04.11.2009 в 17:00. |
04.11.2009, 16:57 | #4 |
Форумчанин
Регистрация: 06.08.2009
Сообщений: 472
|
если удастся выложу файл с макросом
Последний раз редактировалось EugeneS; 04.11.2009 в 17:13. |
04.11.2009, 17:58 | #5 |
Форумчанин
Регистрация: 05.08.2009
Сообщений: 465
|
Для AC37
Код:
"Все следует делать настолько простым, насколько это возможно, но не проще." Альберт Эйнштейн
|
04.11.2009, 19:58 | #6 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 15
|
Спасибо Вам всем большое!
Особенно за макрос! EugeneS, а можно ли сделать так, чтобы при суммировании оставались еще формулы сложения ячеек? Или это нереально? |
04.11.2009, 21:21 | #7 | |
Форумчанин
Регистрация: 06.08.2009
Сообщений: 472
|
Цитата:
Если примечание не нужно, удалите в теле кода строку: Cells(i, 29).NoteText "= A" & i & "+ A" & n & "" |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сохранение книги Excel по названию ячейки и по пути ячейки | IFRSoff | Microsoft Office Excel | 16 | 07.06.2012 16:58 |
Nootebook, Tabset-удаление страницы по названию | Ильмир | Помощь студентам | 2 | 22.06.2009 18:58 |
Значение ячейки по названию листа | VadimSh | Microsoft Office Excel | 4 | 02.12.2008 15:29 |
суммирование от и до.... | snakezx | Microsoft Office Excel | 1 | 28.11.2008 15:38 |
организовать систему поиска книг, по названию и по автору | torin_gts | Помощь студентам | 9 | 30.04.2008 02:36 |