MS Excel - решение практических задач

В этой теме размещаем вопросы и ответы, а также советы и рекомендации по решению конкретных задач, которые требуют создания формулы, применения макроса, написания кода VBA, т.е. Практикум.

------------------------------

Вопросы и ответы, а также советы и рекомендации по настройке MS Excel, ошибки в работе программы, решение задач по импорту/экспорту документов, ссылки и обсуждение надстроек для Excel, обучающие материалы и т.п. размещаем в теме MS Excel - настройка, импорт/экспорт.
Если решение задачи не требует применения формул и макросов (VBA), то это обсуждение будет перенесено в тему по настройкам.

Все пожелания по принципам размещения сообщений по этим темам рассматриваются - пишите в личку Andrey_k.

[mrzed]

а если значение равно "1 321,34".. Где пробел - это символ с кодом 160? Если я набираю Найти/Заменить то он не находит, т.к. код пробела - 32.. Как сделать поиск и замену по коду?

[Zhlobny Hmur]

mrzed, Чтобы убрать этот пробел, надо изменить формат отображения числовой ячейки.

[acid1]

Подскажите, pls, необходимо на графике в Excel, каждой точке приписать свою y-погрешность, как это можно сделать (и можно ли вообще), очень уж не хочется все графики перестраивать в другой программе (не люблю Origin)...

[ДЫСЫпы]

Цитата: Сообщение от mrzed Где пробел - это символ с кодом 160?

Никаких проблем не увидел, спецом скопировал из ворда колонку со 160 символом. Ексель заменил без проблем. Только вводить этот символ в поле Найти нужно не через Shift+ctrl+пробел, а скопировав этот символ из какой нибудь ячейки.

[volontoyr]

Пару вопросов.
Мне надо в эксеел сделать так. Что бы ячейки имели какой-нить цвет, но при этом, при печати, что не выводились цвета ячеек, а было так как будто они не закрашены.
Это надо для того, чтобы было видно какие ячейки заполняються.
Как это можно сделать и можно ли вообще?

И еще вопрос. Как сделать, если в ячейки А1 прописываем число, то в я В1 сразу отображалось то же число. (Я только знаю как это делается таким способом: копирование и специальная вставка - связь). Но при таком раскладе есть минусы. Во-первых, если в ячейке А1 не будет числа , то в ячеки В1 ставиться 0, А мне так не надо, надо , чтоб была пустая ячейки. Во-вторых, чтоб я мог поставить в В1, а она отобразилась в А1.
Т.е. мне надо, чтоб они были взаимосвязаны.

Как все это воплотиьт в жизнь?

[Chet]

Цитата: Сообщение от volontoyr Что бы ячейки имели какой-нить цвет, но при этом, при печати, что не выводились цвета ячеек, а было так как будто они не закрашены. Это надо для того, чтобы было видно какие ячейки заполняються.

это просто: заливаешь каким хочешь цветом, а на предварительном просмотре через параметры страницы (закладка Лист) указать - Печать черно-белая... фон не печатается (проверено)

Цитата: Сообщение от volontoyr Т.е. мне надо, чтоб они были взаимосвязаны.

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

[volontoyr]

Цитата: это просто: заливаешь каким хочешь цветом, а на предварительном просмотре через параметры страницы (закладка Лист) указать - Печать черно-белая... фон не печатается (проверено)

За это конечно спаибо, а вот подругому ни как низя? Там к примеру фоном скрытым сделать, али еще как. Просто есть юзеры которым это бестолку объяснять. Самому это просто, а вот им

Цитата: пока не понял... но скорее всего

На счет воторого. Объясняю есть две ячейки, если в обдну из них прописываешь что-то, что в другой отображалось то же самое. Только если там нет ничего, чтоб в другой не отображался ноль.
Я не знаю конечно, может это на макросах выполнено, но я такое видел.

[vAviLons]

volontoyr,
По поводу второго вопроса
В ячейке B1 использую функцию "Если" напиши: Если А1=1 тогда В1=А1 иначе т.е. если А1=0, тогда В1="" - т.е. пустое значение (=ЕСЛИ(A1;A1;""))
И наоборот
В ячейке А1 использую функцию "Если" напиши: Если В1=1 тогда А1=В1 иначе т.е. если В1=0, тогда А1="" - т.е. пустое значение (=ЕСЛИ(В1;В1;""))

[DmitriC]

vAviLons

Цитата: Сообщение от vAviLons volontoyr, По поводу второго вопроса В ячейке B1 использую функцию "Если" напиши: Если А1=1 тогда В1=А1 иначе т.е. если А1=0, тогда В1="" - т.е. пустое значение (=ЕСЛИ(A1;A1;"")) И наоборот В ячейке А1 использую функцию "Если" напиши: Если В1=1 тогда А1=В1 иначе т.е. если В1=0, тогда А1="" - т.е. пустое значение (=ЕСЛИ(В1;В1;""))

Очень плохой подход к делу. Обрати внимание, что volontoyr будет работать с числовыми данными. А в твоем выражении: =ЕСЛИ(В1;В1;"") стоят пустые кавычки. Пустой символ является символьным выражением. Попробуй сделать так:

В ячейку A1 запиши формулу =""
В ячейку A2 запиши какое-нибудь число, например 3.
В ячейку A3 запиши формулу =A1+A2

И в качестве результата ты получишь не 3, а #ЗНАЧ!. Потому что ты пытаешься складывать яблоки с помидорами.

Избавиться от нулевых значений можно либо отключив их отображение (Сервис -> Параметры -> Вид, снять галку с параметра нулевые значения), либо установив соответствующий формат ячейки (для целых чисел, например, # ###).

Кроме того, если в обе ячейки и в A1, и в B1 записать формулы, как в эти ячейки volontoyr числа вводить будет?

Для решения поставленной задачи можно написать вот такой макрос и повесить его на изменение ячейки:

Цитата: Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$A$1" Range("B1").Value = Target.Value Case "$B$1" Range("A1").Value = Target.Value End Select End Sub

В этом случае, если ввести значение в ячейку A1, оно автоматически отобразится в B1. И наоборот, если ввести значение в ячейку B1, оно автоматически отобразится в A1.

[kosLLL]

Подскажите как сделать ячейку с нарастающим и убывающим числом

Добавлено через 1 минуту
Кто знает где найти программу под EXCEL для расчета кредита.

[DmitriC]

Цитата: Сообщение от kosLLL Подскажите как сделать ячейку с нарастающим и убывающим числом

Это как? Свинина-говядина?
Опиши подробнее что тебе надо.

[newsletter]

kosLLL,

Цитата: Кто знает где найти программу под EXCEL для расчета кредита.

дифференцированный

[IMG]http://img81.**************/img81/7460/downloadbuttonsf4.gif[/IMG]

аннуитетный

[IMG]http://img81.**************/img81/7460/downloadbuttonsf4.gif[/IMG]

про технику вычислений аннуитете почитать ЗДЕСЬ

---
Кредитный калькулятор: дифференцированный или аннуитетный?

Цитата: Подскажите как сделать ячейку с нарастающим и убывающим числом

можно
Вид>Панель инструментов>формы ДАЛЕЕ выбрать элемент СЧЕТЧИК ->правой кнопкой по элементу ФОРМАТ ОБЪЕКТА>ЭЛЕМЕНТ УПРАВЛЕНИЯ>ДАЛЕЕ думаю понятно….

ну а лучше поподробней, что вам надо...?

[PALY]

Цитата: Сообщение от SV80 Возможно – есть пользовательские функции – они пишутся в VBA. Меня не раз выручали. Посмотри в справке пользовательские функции. Добавлено через 6 минут Если использовать сводную таблицу там есть сумма нарастающим итогом. Если не подходит добавь еще один столбец «B» например и напиши формулу в ячейке «B2» =СУММ($A$1:A2), скопируй ее в остальные ячейки внизу (или так сказать растяни) Добавлено через 15 минут Добавь еще один контрольный столбец «B» и напиши формулу в ячейке «B2» =ЕСЛИ(ЕНД(ПОИСКПОЗ(A2;A$1:A1;0));"Значение уникально";"Значение уже есть"), скопируй ее в остальные ячейки внизу (или так сказать растяни). Потом можем воспользоваться условным форматированием.

А не проще просто перед вводом чисел поставить = и сумировать числа, приэтом в командной строке видны все числа, а в самой ячейке результат

[Олег Крам]

Помогите решить проблему...
После перехода на EXCEL 2007 возникла проблема с открытием DBF-файлов . Неправильно преобразуются поля формата даты . Точнее EXCEL путаем месяц и число . В результате даты с числом до 12 отображаются неправильно , а свыше отображаются как текст .
Где что подправить ?

[Jasur79]

Имеется функция Couple объединяющая ячейки
Function Couple(Diapazon)
' Ob'edinenie dannyh, soderzhaschihsya v yacheikah diapazona _
Diapazon (razdelitel' mezhdu znacheniyami - probel)
' iCell - tekuschaya yacheika
For Each iCell In Diapazon
' Stseplyayutsya dannye tol'ko zapolnennyh yacheek
If IsEmpty(iCell) <> True Then
' Dobavlenie znacheniya yacheiki v vyhodnuyu stroku
If Couple = "" Then
Couple = iCell
Else
Couple = Couple & " " & iCell
End If
End If
Next
End Function

Каким образом его нужно запустить. Дайте пожалуйста пошаговую инструкцию