ymy YourMyYour Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Просьба к посетителям топика дополнять шапку наиболее часто задаваемыми вопросами со ссылками на ответы в обязательном порядке   Смена представления имен столбцов с буквенного на цифровое и обратно Надстройки "Сумма прописью"   Тема Excel VBA в разделе Прикладное программирование     Вот такой вопрос у меня, помогите хто может: Как в Exсel-e ограничить число строк и колонок отображаемых на листе, точно можно, сам видел, но как?, в непонятках. Всего записей: 1339 | Зарегистр. 22-04-2002 | Отправлено: 17:00 17-09-2002 | Исправлено: Maz, 22:44 24-02-2017

ivas Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Tushkanchyk Есть ещё надстройка SumInWords.xla Просто хороша! Поищи в Инете, довольно распространённая. Если не найдёшь - в понедельник могу намылить с работы. Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 23:42 12-08-2005

NPC Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ivas Цитата: =СУММЕСЛИ(B1:B50;"Дима") не получается, пишет 0 сумма     Добавлено: ссумирует только сами очки Всего записей: 8943 | Зарегистр. 17-02-2005 | Отправлено: 18:51 16-08-2005

HeT BonpocoB Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору NPC Цитата: не получается, пишет 0 сумма   а так?       =СУММЕСЛИ(A1:A50;"Дима";B1:B50)     ну на худой конец   ="Дима "&СУММЕСЛИ(A1:A50;"Дима";B1:B50) Всего записей: 1342 | Зарегистр. 30-03-2003 | Отправлено: 19:40 16-08-2005 | Исправлено: HeT BonpocoB, 19:46 16-08-2005

NPC Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору HeT BonpocoB не работает, видимо эта функция с буквами не катит только с цифрами... Всего записей: 8943 | Зарегистр. 17-02-2005 | Отправлено: 21:30 16-08-2005

ivas Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору NPC Цитата: не работает Давно не заглядывал   =СУММЕСЛИ(A1:A10;"Дима";B1:B10) Только что проверил, всё работает. Можно так, если надо будет распространять формулу=СУММЕСЛИ($A$1:$A$10;А1;$B$1:$B$10) ---------- "Не видно ни ..." (три буквы, но они у каждого свои) Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 23:42 16-08-2005

ivas Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору teymax Если таблицы можно изменять, то ставь приход по датам, каждую отдельно (и нагляднее будет), а за месяц поставь диапазон суммирования значений, например,  =СУММ(С1:С10) в одну ячейку. Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 10:16 17-08-2005

dro981 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет! Есть достаточно большое число чисел в столбце, мне нужно вычислить количество разных значений в этом столбце. Например: 2 3 4 4 5 То есть в данном случае надо получить 4. спасибо Всего записей: 335 | Зарегистр. 10-11-2003 | Отправлено: 11:06 17-08-2005

Mushroomer Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dro981 Наверное, все же макрос писать придется. А в каждом конкретном (конечном) случае можно сделать так: добавляешь 2 столбца. В первый переносишь (как значения) значения из столбца с данными. сортируешь их по возрастанию. А в следующем столбце формула: если следущий не равен предыдущему, то 1 иначе 0. А потом суммируй 1. Всего записей: 22840 | Зарегистр. 19-01-2002 | Отправлено: 13:01 17-08-2005

Vetal303 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Да похоже это единственное решение Цитата:  добавляешь 2 столбца. В первый переносишь (как значения) значения из столбца с данными. сортируешь их по возрастанию. А в следующем столбце формула: если следующий не равен предыдущему, то 1 иначе 0. А потом суммируй 1. иначе придётся писать макрос, к сожаления спец. функции вроде как нету, по крайней мере я не нашел нечего даже отдалённо похожего.   Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 13:23 17-08-2005

velto0 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В книге около 50 листов. Есть ли возможность отсортировать их по имени?   Спасибо. Всего записей: 9 | Зарегистр. 27-05-2004 | Отправлено: 12:43 19-08-2005

ivas Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору velto0 Цитата: В книге около 50 листов. Есть ли возможность отсортировать их по имени Если мне не изменяет память - вопрос уже поднимался и ответ на него был - нет. Если не прав - поправьте. Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 18:36 19-08-2005

Vetal303 Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ага и тем же velto0 на предыдущей странице   http://forum.ru-board.com/topic.cgi?forum=5&topic=4495&start=1200#20   а по поводу вопроса, velto0 , нечего подходящего нету, видать майкрософтовцы не продумали возможность сортировки, по крайней мере в 2000 офисе.   Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 15:29 22-08-2005

ivas Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: видать майкрософтовцы не продумали возможность сортировки, по крайней мере в 2000 офисе. В 2003 тоже. Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 17:33 22-08-2005

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Для такой сортировки не сложно и макрос написать. На скорую руку с заимствованием процедуры сортировки у неизвестного обитателя интернета, чтото типа этого вышло: Код: Option Base 1 Dim ard() As String   Sub BubbleSort(pstrArray() As String)   plngMaxItem = UBound(pstrArray)   Dim i As Long   Dim fSwitched As Boolean   Dim strTemp As String   Do     fSwitched = False     For i = 1 To plngMaxItem - 1       If pstrArray(i) > pstrArray(i + 1) Then 'сортируем по возрастанию         fSwitched = True         strTemp = pstrArray(i)         pstrArray(i) = pstrArray(i + 1)         pstrArray(i + 1) = strTemp       End If     Next   Loop While fSwitched End Sub     Sub Sort()   ReDim ard(Sheets.Count)   For i = 1 To UBound(ard())     ard(i) = Sheets(i).Name   Next i       Call BubbleSort(ard())   For i = 1 To UBound(ard())     Sheets(ard(i)).Move Before:=Sheets(i)   Next End Sub   Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 10:48 23-08-2005

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Excel FAQ (Часть 1)

Widok (01-04-2006 15:33): лимит страниц. переезжаем сюда.

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование