» Excel FAQ

xcm
Function Sum(c, cs, S)
Sum = 0
i = 1
Set Worksheet = Sheets("Лист1")
n_Rw_cnt = Worksheet.Cells(1, 1).CurrentRegion.Rows.Count + 1
With Worksheet

Do While .Cells(i, c) <> ""


If Mid(.Cells(i, c).Value, 1, 3) = S Then
Sum = Sum + .Cells(i, cs).Value
End If
i = i + 1

Loop

End With
End Function

А как мне реализовать этот код? Как сделать макрсо и связать его со страницей?
Мне бы файлик для наглядности. Было бы супер chaikas@inbox.ru

Добавлено
Alexdon

С этой функцией не работает.
Знак вопроса не заменяет любое число.

Добавлено
XCM

Спасибо большое!!!

То что нужно!

routewin

Цитата:

С этой функцией не работает.
Знак вопроса не заменяет любое число.

Работает в том случает если номер счета текстовое значение, а не число.

А не подскажите где мона скачать книжек по Excel 2003?

например в варезнике,топик электр. книги
http://www.forum.ru-board.com/topic.cgi?forum=35&topic=22019

XCM

Еще раз спасибо все работает!

Хотел спросить. А как все это обновлять? Т.е. один раз можно так сделать все номрально. А если я другую таблицу вставлю, значения то старые останутся, как сделать обновление? можно даже форму с кнопкой типа "обновить" Только я не знаю как это все запустить? Если нельзя, получается бессмыслено было этим заниматься, потому как другой фоайл придется открывать каждую формулу и нажимать Enter чтобы оновить. Очень жду совета.

Есть файл, где первый столбец - список из 1119 ФИО. Поставил автофильтр. Если по этому столбцу хочу поставить параметр выбора, то замечаю, что некоторых фамилий нет. А именно всех последних.
Отсюда вопрос. Сколько строк попадает в выборку автофильтра?

Horex

Цитата:

Сколько строк попадает в выборку автофильтра?

1000

mp3exchanger
Спасибо.
Да, только что просортировал ФИО по алфавиту, нашел последнего - лишь тысяча. Чтобы устроить более-менее нормальную выборку, нужно сначала сделать отбор по полу, тогда можно найти нужного человека.

Как переносить шапку таблицы на последующие страницы ?
наверняка кто-то спрашивал - если что напишите в ПМ
спасибо

Solenaja
Чтобы при печати на каждой странице была шапка таблицы:
Файл -> Параметры страница -> Лист -> Печатать - Сквозные строки
Выбираешь строки шапки и ок.

Alexdon
точно
а я не там ищу до параметров страницы времени не хватило

Добрый день!
Я обычный пользователь, не программист, поэтому сразу мне не удалось решить такую проблему.
Есть в "книге" много листов, данные в каждом нужно отсортировать по три столбца так: первые три по третьему, вторые три - по шестому и т.д.
Делал так: "записать макрос, проводил выделение нужной области, проводил сортировку, переставить курсор на столбец, который через два, остановить запись макроса".
При попытке выполнить этот записанный макрос, он всё время сортирует только, что я выделял.
Как правильно записать/исправить макрос?
Буду признателен за советы.

vask
Вот только не вспомнил/придумал я, как автоматом перебирать колонки по три, только с листами получилось. Придется пока руками писать ячейки.

Код:
Sub Макрос1()

For cnt = 1 To Worksheets.Count
Set curWS = Worksheets(cnt)

curWS.Range("A1:C1000").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

curWS.Range("D1:F1000").Select
Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'и так далее
curWS.Cells(1, 1).Select

If cnt < Worksheets.Count Then
ActiveSheet.Next.Select
End If

Next cnt

End Sub

vask

Попробуй это:

Код: Sub TripleSort()

Dim i As Integer, j As Integer, k As Integer, n As Integer, m As Integer, Rng As Range

k = Sheets.Count
For i = 1 To k
Sheets(i).Select
n = Range("A1").CurrentRegion.Rows.Count
m = Range("A1").CurrentRegion.Columns.Count
m = m \ 3
Set Rng = Range(Cells(1, 1), Cells(n, 3))
For j = 1 To m
Rng.Select
Rng.Sort Key1:=Rng.Cells(1, 3), Order1:=xlAscending, Header:=xlGuess
Set Rng = Rng.Offset(0, 3)
Next j
Next i
End Sub

Нужна помощь

Можно ли как-нибудь заставить Ексель подсвечивать сроку-столбец в котором установлен курсор

Прибольших таблицах постоянно теряешь строку

Подскажите если не трудно,

как заставить функцию "=ПРОПИСН(A1)" сработать на содержимое ячейки A1

проще говоря строчные буквы из ячейки перевести туда же в прописные

KeNaR

Поставь Excel XP или 2003 - там подсвечивает.

snakeufa

Подумай о том, что спрашиваешь. Если ввести в ячейку A1 формулу =ПРОПИСН(A1), появится сообщение об ошибке - Циклическая ссылка. В ячейке может находиться или исходный текст, или обрабатывающая текст формула. Как там может одновременно находиться и то, и другое? Не саму же себя формула будет обрабатывать! И чем не устраивает эта формула в другой ячейке, например, B1?

snakeufa
Как справедливо заметил Robert, с циклическими ссылками вы погорячились.
Есть вариант подвешать макрос на кнопку или событие. Например такой:

For Each c In ActiveWindow.Selection.Cells
c.Value = UCase(c.Text)
Next

Robert

Цитата:

Подумай о том, что спрашиваешь. Если ввести в ячейку A1 формулу =ПРОПИСН(A1), появится сообщение об ошибке - Циклическая ссылка. В ячейке может находиться или исходный текст, или обрабатывающая текст формула. Как там может одновременно находиться и то, и другое? Не саму же себя формула будет обрабатывать! И чем не устраивает эта формула в другой ячейке, например, B1?

В этом то и вся проблема !!!
В другую ячеку подставить проще простого, не стал бы Вас и беспокоить,
а я спрашиваю как этот текст в той же ячейке оставить причем прописным ???

max67

Цитата:

For Each c In ActiveWindow.Selection.Cells
c.Value = UCase(c.Text)
Next

А вот это вариант !

1. Подскажите можно ли задать интервал, к примеру, Х принадлежит [-2;2], для того чтобы построить график функции ?
Т.е. не создавая к примеру 20 (ячеек) значений от -2 до 2 чтобы строить диаграмму.

2. Как решать уравнения в Excel? Через подбор параметра ?
т.е. найти к примеру все корни уравнения: x3+1.41*x2-5.4724x-7.380384=0

Solenaja

1. Нет, нельзя. Диаграмма строится по точкам.

2. Да. Сначала примерно определить корень, или интервал, где он находится (например, табулированием функции, по смене знака), потом подбор параметра с разными начальными данными.

в Excel 2003 некорректно открываются файлы CSV. все значения попадают в первую ячейку каждой строки, а запятые игнорируются... кто подскажет в чем проблемка и как устранить?

skotov

Замени все запятые на точку с запятой.

Robert
спасибо за совет.. действительно помогло. Тем не менее, даже в названии формата указывается, что разделители - запятые..когда приходится обрабатывать много больших файлов, заменять в каждом запятиые на точки с запятой не всегда удобно. можно ли вылечить это дело сразу и навсегда?

skotov
Проверьте, что у вас прописанно в качестве разделителя для целой и дробной части. По умолчанию в русском виндоусе применяется запятая, а в Excel в "Сервис->Параметры->Международные" по умолчанию стоит использование системного разделителя.
Поменяйте разделитель на точку. Либо в Excel, либо для всей системы в панели управления (Языки и региональные стандарты).

Есть проблема.
В последнее время Excel стал гораздо дольше открывать и обрабатывать один документ.
Документ очень не маленький, в нем проводиться много различных подсчётов и пересчетов, но ещё недавно всё происходило гораздо быстрее.

Обратили внимание на то, что при открытии этого документа моргает индикатор сетевого окружения в трее, идёт небольшой трафик.
Причём даже если ничего не делать, а просто открыть документ и попытаться закрыть, то Excel предлагает "сохранить изменения". Замечу что никаких авоматических пересчётов, ссылок на другие файлы и т.д. в этом документе не используется.

Поэтому хотелость бы узнать - как можно точно проверить не появились ли в этом документе ссылки на сетевые ресурсы, или ещё куда-нибудь.

Может кто-то сталкивался с подобным?

приветствую!

буду признателен за ответы на следующие вопросы:

1. Вот функция:
=ЕСЛИ(A1=ИЛИ(361;440;321);A2*2,2;"WRONG CODE")
смотрит че за код стоит в ячейке А1, и если находит те кода что надо, множит число из ячейки А2 на индекс 2,2...
вроде функцию правильно написал, но мне все время выдает WRONG CODE, т.е. ИЛИ возвращает ЛОЖЬ а не ИСТИНА...
сама по себе функция ИЛИ (если убрать осколки ЕСЛИ) выдает значение ИСТИНА, внутри ЕСЛИ - выдает ЛОЖЬ...
непонятно...

2. Есть Лист, в листе 3 столбца, в первом табельный номер, во втором - имя фамилия, в третьем - доп.информация.
Вопрос: как сделать на другом листе так, что если в одну ячейку пишешь табельный номер то автоматом подставлялись в другие ячейки значения из второго и третьего столбца?

NecroHill
1. =ЕСЛИ(ИЛИ(A1=361;A1=440;A1=321);A2*2,2;"WRONG CODE")
2. Используй функцию ВПР

Mushroomer
спасибо!
работает.
до ВПР еще не добрался, если возникнут вопросы, буду знать кого терроризировать )))
спасибо большое, еще раз!

еще вопрос всплыл, не знаю, реально ли это реализовать некоторые моменты.
попробую в виде задачки позже сформулировать, если сам не въеду

Как мне решать уравнения: квадратные, кубические - неважно какие, т.е. как находить мне корни.
Одно решение уравнения я нахожу (через подбор параметра), а как быть с остальными ?