|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2003/XP/2000 - [архив] Microsoft Excel |
|
potapich
Сообщения: n/a |
Кто-нибудь, помогите пожалуйста! Есть таблица в Exel, допустим, 1 строка и бесконечное количество повторяющихся столцов (знаю, что макс-256), например, "кол-во" и "сумма"(повторяются по дням) ,
__1мая _ | 2мая | 3мая | и т.д. _кол|сум |кол|сум|кол|сум| и т.д. необходимо в конце таблицы сделать два столбца, "Общее кол-во" и "Общ сумма", в которых будет выводится сумма по столбцам "кол-во" и "сумма" соответственно, повторюсь, кол-во столбцов принимается за бесконечность. Слышал, что существует суммирование значений по строке с каким-либо шагом(в нашем случае шаг=2), но человек, который это делал, давно забыл как это делается. Помогите пожалуйста. Если не сделаю до конца недели, в бухгалтерии меня жахнут.... |
Отправлено: 11:48, 23-05-2006 | #261 |
Динохромный Сообщения: 700
|
Профиль | Отправить PM | Цитировать вообще по-хорошему пишется макрос на VBA и всего делов.
Навскидку посчитать такую таблицу очень легко: делаешь строку 2 и строку 3. В строку 2 копируешь количество по дням, в строку 3 - сумму. __1мая _ | 2мая | 3мая | и т.д.summ1 _кол|сум |кол|сум|кол|сум| и т.д.summ2 _кол|___ |кол|___|кол|___| и т.д.=summ1 ' эту ячейку копируешь выше, а строку скрываешь ____|сум |___|сум|___|сум| и т.д.=summ2 ' эту ячейку копируешь выше, а строку скрываешь суммируешь эти две строки сответственно в две ячейки (то что тебе нужно). Дальше, выделяешь обе строки (2 и 3), кликаешь пр.клавишей мыши и выбираешь "скрыть", чтобы эти строки не путались под руками. Кстати поковыряйся http://support.microsoft.com/?scid=k...512&sid=global , может найдется встроеная функция. Если сильно надо, могу макрос написать. |
------- Отправлено: 13:03, 23-05-2006 | #262 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
potapich
Сообщения: n/a |
Вариант с переносом значений изначально не подходит, так как суммирование с шагом делается для того, чтобы бухгалтер, вручную указывая какие ячейки складывать, не ошибся. Иначе, мне кажется, проще было бы сделать СУММ(A2;C2;E2.....и т.д.).
Если тебе не сильно сложно, напиши пож. Буду очень признателен. potapich@inbox.ru |
Отправлено: 13:41, 23-05-2006 | #263 |
Динохромный Сообщения: 700
|
Профиль | Отправить PM | Цитировать я на ящик отослал.
|
------- Отправлено: 14:22, 23-05-2006 | #264 |
potapich
Сообщения: n/a |
Поймал, спасибо. Еще один момент, извеняюсь, что сразу не сказал. Строку 1 я для примера взял. На самом деле их будет тоже много. Поэтому хотелось бы чтобы лишние строки не были задействованы. Все таки вариант, который ты мне прислал, тоже требует ручного выбора ячеек (чтобы снести значения на другую строку).
|
Отправлено: 14:42, 23-05-2006 | #265 |
Динохромный Сообщения: 700
|
Профиль | Отправить PM | Цитировать тоже требует ручного выбора ячеек (чтобы снести значения на другую строку).
нет, не требует. Значения сносятся до самой последней ячейки, посмотри лист 2. Фактически, ты можешь добавлять скока угодно данных. Попробуй вбить еще несколько столбцов, суммы должны поменятся. А строки 2 и3 и столбец1 скрыты, так что их никто не увидит. Их вроде как-бы и нету, для тех кто не ищет. Может, ты вышлишь эту табличку (без данных, просто форму), чтоб нагляднее было? мне непонятно,, куда результаты суммирования записывають нужно. |
------- Отправлено: 15:25, 23-05-2006 | #266 |
potapich
Сообщения: n/a |
Проблема в том, чтобы преобразовать номера телефонов формата 65*53*02, 669-548-88, "номера нет" и т.п. к формату 655302, 66954888, ""(пустая строка) и т.д. Номера распологаются в одну колонку. Много номеров.
|
Отправлено: 10:29, 08-06-2006 | #267 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Я бы написал макрос на бейсике. Когда-то надо было выполнить обратную задачу, из последовательности символов вычленить дату. Если сейчас найду могу выложить.
|
Отправлено: 12:04, 08-06-2006 | #268 |
potapich
Сообщения: n/a |
На сколько я понял, это не обратная, а такая же задача. Выложи пожалуйста, попробую.
|
Отправлено: 12:43, 08-06-2006 | #269 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Получите.
Sub Ìàêðîñ1() ' ' Ìàêðîñ1 Ìàêðîñ ' Ìàêðîñ çàïèñàí 08.06.2006 (Þðà) ' ' Ñî÷åòàíèå êëàâèø: Ctrl+m ' ind_col = ActiveCell.Column For i = 1 To 65536 dl = Len(Cells(i, ind_col)) zn = Cells(i, ind_col).Value j = 1 Do While j <= dl sim = Mid(zn, j, 1) If (sim <> Val(sim)) Then zn = (Left(zn, (j - 1)) + Mid(zn, (j + 1), (dl - j))): j = j - 1 dl = Len(zn) j = j + 1 Loop Cells(i, ind_col).Value = zn Next i End Sub проверял у меня но EXCEL XP работает |
Отправлено: 17:00, 08-06-2006 | #270 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2003/XP/2000 - [архив] Microsoft Excel 2003 и более ранние версии | bobm | Microsoft Office (Word, Excel, Outlook и т.д.) | 541 | 25-01-2010 10:45 | |
2007 - [архив] Microsoft Excel 2007 | graverman | Microsoft Office (Word, Excel, Outlook и т.д.) | 100 | 12-12-2009 10:18 | |
2007 - Microsoft Excel - общие вопросы | shaint | Microsoft Office (Word, Excel, Outlook и т.д.) | 27 | 07-09-2009 16:17 | |
Разное - [архив] Microsoft Office | Microsoft Office (Word, Excel, Outlook и т.д.) | 327 | 08-11-2007 23:21 | ||
Разное - [архив] Microsoft Outlook | Bugs | Microsoft Office (Word, Excel, Outlook и т.д.) | 294 | 19-07-2007 21:50 |
|