» Excel FAQ (часть 5)

Antonio755

Еще пару вариантов:

=СУММ(ИНДЕКС(A:A;ПОИСКПОЗ(1E+99;A:A)-2):ИНДЕКС(A:A;ПОИСКПОЗ(1E+99;A:A)))

=СУММ(СМЕЩ(ИНДЕКС(A:A;ПОИСКПОЗ(1E+99;A:A));;;-3))

Спасибо взял последний вариант, как самый простой, работает.

Еще вопрос:
Есть формула: =СРЗНАЧЕСЛИ(AP5:AP28;"<99,5")
В том случае если значений нет меньше 99,5 в столбце формула выдает ошибку, как сделать чтоб при отсутствии значения <99,5 был 0

Antonio755
Цитата:

Есть формула: =СРЗНАЧЕСЛИ(AP5:AP28;"<99,5")
В том случае если значений нет меньше 99,5 в столбце формула выдает ошибку, как сделать чтоб при отсутствии значения <99,5 был 0

=ЕСЛИ(СУММЕСЛИ(AP5:AP28;"<99,5")>0;СРЗНАЧЕСЛИ(AP5:AP28;"<99,5");0)

Antonio755
Добавьте проверку:

=ЕСЛИ(ЕОШ(СРЗНАЧЕСЛИ(AP5:AP28;"<99,5"));;СРЗНАЧЕСЛИ(AP5:AP28;"<99,5"))

vallyol
А где же обещанные апострофы?

В поле "Найти" - Alt+0160
Поле "Заменить" - оставить пустым.

Или формульное решение:

=--ПОДСТАВИТЬ(A1;СИМВОЛ(160);)

kimtan

Цитата:

А где же обещанные апострофы?

Ну, апострофы... домики... разница, ИМХО, только в выравнивании в ячейке.... Упоминание об апострофах вылезло из опенофиса, ибо только им я могу пользоваться под линухом...

Кстати, самое главное - СПАСИБО!!! Формульное решение помогло!

vallyol

Символ 160 - неразрывный пробел.

kimtan

Цитата:

Символ 160 - неразрывный пробел.

То есть это из юникодового набора.... Теперь понял твой вопрос про апострофы!!!

Наконецто все работает!
Всем спасибо, вы мне очень помогли!

ALeXkRU

Цитата:

самое простое - макрос записать:
- встать в первую строку с данными в первой ячейке
- включить запись макроса
- проделать всё, что требуется (т.е. перейти вниз на 50 строк (клавиатурой!), оказавшись в строке итога, шагнуть в ячейку D, вписать в ней "ИТОГО", выделить, сделать жирным, шагнуть в следующую ячейку, вставить формулу Сумма... и т.п. до конца алгоритма, шагнуть на строку ниже, в первую ячейку)
- остановить запись макроса..

- открыть (макросы/изменить) макрос и подправить что нужно.. например, цикл сделать, чтобы не каждый раз его запускать вручную..
- встать на следующую первую ячейку первой строки
- запустить записанный макрос

К сожалению, это не помогло . В макросе при записи прописываются определенные диапазоны ячеек. Напр., "Range("A102:G102").Select" или "Range("E102").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)". И когда я запускаю макрос на исполнение, то все операции повторяются с одними и теми же ячейками. Как разрулить эту ситуацию?

Цитата:

К сожалению, это не помогло . В макросе при записи прописываются определенные диапазоны ячеек. Напр., "Range("A102:G102").Select" или "Range("E102").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)". И когда я запускаю макрос на исполнение, то все операции повторяются с одними и теми же ячейками. Как разрулить эту ситуацию?

Но блок команд для заданного форматирования Вы же записали. Дальше

Код: Sub цикл()
For stroka = start To end Step 50
Cells(stroka, 5).Select
выполнить_форматирование
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
Next
End Sub

Помогите, пожалуйста, со следующей задачей.

Есть ячейка, содержащая текст и цифры (например, RW1000). Ясли взять ячейку и потащить вниз, в следующих ячейках появляются значения RW1001, RW1002 и т.д.

Можно ли как-нибудь изменить шаг этого изменения - чтобы было, например, RW1005, RW1010 и т.д.

С обычными числовыми значениями проблем нет, а вот с содержащими текст никак не получается...

Unnicked
Цитата:

Можно ли как-нибудь изменить шаг этого изменения - чтобы было, например, RW1005, RW1010 и т.д.
С обычными числовыми значениями проблем нет, а вот с содержащими текст никак не получается

Почему не получается? Напишите ДВА последовательных значения RW1000 и RW1005 (чтобы была база для интерполяции), выделите оба. В правом нижнем углу рамки выделения будет точка. Хватайте за нее и тяните.

ded2007,
Сутра была запарка, поэтому пришлось вручную все делать и не было уже времени эксперементировать .
Сейчас протестировал. И это то, что и было нужно! Добавил только строку "Range(Cells(stroka, 1), Cells(stroka, 9)).Borders(xlEdgeTop).Weight = xlMedium", т.к. рисовало только нижнюю жирную полосу, а нужно было и сверху и снизу.
Еще раз спасибо! В следующий раз все сделаю за пять минут!

RJ2k6
Цитата:

В следующий раз все сделаю за пять минут!

Кстати, о времени исполнения. Когда мы производим с помощью макросов большое количество форматирования или добавление формул на лист, который и без того перенасыщен формулами, то нередко процедура затягивается. Ускорить обработку позволяет отключение перерисовки и пересчета формул на время выполнения макроса.

Код: sub очень_медленная_обработка()
' Отключить автоматический расчет и перерисовку экрана
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With

' собственно тело макроса
...
...
...

' Включить автоматический расчет и перерисовку экрана
With Application
.ScreenUpdating = True
.Calculation = xlAutomatic
End With
Calculate
end sub

как функцию написать помогите плиз есть столбец чисел а рядом столбец имен.... вот функция такая чтобы в ячейке писалось имя со второго столбца, возле которого минимальное число. Спасибо

denisAzef
Цитата:

как функцию написать помогите плиз есть столбец чисел а рядом столбец имен.... вот функция такая чтобы в ячейке писалось имя со второго столбца, возле которого минимальное число. Спасибо

А однозначность гарантирована? Вдруг таких чисел несколько или, хуже того, все одинаковые

ну если несколько то любое имя из собпавших (а лучше всего конечно через запятую всех с одинаковыми)

Добавлено:
ну хотябы так что все разные числа будут

Привет, есть простенькая задача, но мозгом не могу понять как .
есть список в Excel

00354131490101593717
00354131490101593724
00354131490101593755
00354131490101593809
00354131490101593816
00354131490101593854
00354131490101593885
00354131490101593892
00354131490101594028


Как быстро через строчку добавить постоянное значение например PALLET что бы получилось
00354131490101593717
PALLET
00354131490101593724
PALLET
00354131490101593755
PALLET
00354131490101593809
PALLET

Спасибо

denisAzef

Цитата:

ну если несколько то любое имя из собпавших (а лучше всего конечно через запятую всех с одинаковыми)

Вот формула для первого значения сопадающего с минимальным.

= ДВССЫЛ("E"&ПОИСКПОЗ(МИН(D4:D27);D4:D27;0)+4-1)

Пояснения:
D4:D27 - диапазон с числовыми значениями;
"+4-1" - номер первой строки диапазон за вычетом 1;
"E" - имя столбца с извлекаемыми данными



Добавлено:

---

chel78 Ну макрос надо написать. Количество значений известно?

Цитата:

chel78 Ну макрос надо написать. Количество значений известно?

колво бывает разное, но в данном случае 33

chel78
Вставлять пустую строку или сдвигать список вниз не затрагивая соседних столбцов?

Через строку вставить значение, неважно как, сдвигая вниз, либо вставлять пустую а в нее значение.

chel78

Код: Sub sdvig()
stroka = ActiveCell.Row
stolbec = ActiveCell.Column
Do
stroka = stroka + 1
Cells(stroka, stolbec).Insert Shift:=xlDown
stroka = stroka + 1
Cells(stroka - 1, stolbec).Value = "PALLET"
Loop While Cells(stroka + 1, stolbec) <> ""
End Sub

ded2007 спасибо!

Доброго времени всем.
Народ, может мне кто поможет.
Есть макрос


Код:
Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$146507").AutoFilter Field:=1, Criteria1:= _
"=*goingod*", Operator:=xlAnd
Selection.Copy
Sheets("Лист2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$902844").AutoFilter Field:=1, Criteria1:="=*mp*" _
, Operator:=xlAnd
End Sub

Нуждаюсь в помощи! Нужно написать макрос. Задание такое:
Имеется столбец чисел неизвестной заранее высоты. Заменить в этом столбце все элементы, меньшие заданного X1, на X1, а большие заданного X2>X1 — на X2. Числа X1 и X2 записаны в ячейки B1 и B2 соответственно. В ячейку B3 необходимо записать количество сделанных замен.
Скорее всего, похожие задания здесь уже прорешивались, но мне не хватило терпения просмотреть все сообщения. Заранее спасибо!

LeshaK89
Может у Вас хватит терпения хотя бы прочесть шапку топика?

LeshaK89
Шапка топика - первое сообщение на странице.
Цитата:

Все вопросы по программированию (макросы, скрипты, пользовательские функции и т.п.) обсуждаются в теме Excel VBA в разделе Прикладное программирование.

kimtan
Он новичек. Ему нужно более подробно расписывать

Цитата:

Смена представления имен столбцов с буквенного на цифровое и обратно

Для Excel 2007: Кнопка Office-->Параметры Excel-->Формулы-->Работа с формулами-->Стиль ссылок R1C1

Добрый день, у меня такая проблемма:
Excel 2003 начал вылетать при добавлении или редактировании диаграмм. Попробовал установить excel xp, проблемма осталась. Что это может быть?