Помогите написать макрос в Excel

[Alextiger]

Сообщение от Andriy

соответственно, цифры постоянно пересчитываются и меняются. и их надо убивать

ну и? Пересчитали. Убили все формулы на листе одним кликом. Отдали руководству
на след. деть то же самое. Руководству то формулы не нужны. Не понимаю прикола

[Andriy]

Сообщение от Alextiger

ну и? Пересчитали. Убили все формулы на листе одним кликом. Отдали руководству
на след. деть то же самое. Руководству то формулы не нужны. Не понимаю прикола

а кто Вам про прикол говорил?!
еще раз:
1. отчет имеет сейчас n число строк и m столбцов.
2. каждый день, если не убивать формулы, отчет обновляется. и его надо высылать руководству
3. формулы надо в высылаемом отчете убивать.
4. структура отчета может поменяться.
5. (прихоть) иногда руководству надо видеть, а как мол средняя ставка считается. эту группу формул убивать не надо. также могут и другие формулы попросить расписать. поэтому приходится убивать только определенные группы формул, что сделать 1 кликом - только так, как я привел в ссылке в сообщении так № 4.

Я понимаю эту приходить руководства. Мне если бы прислали отчет, в котором тупо строки, хотя там есть и суммирование, и вычитание, и нахождение средней, но не было бы формул, не понравилось бы. простые формулы должны быть, чтобы не писать, как что считается напротив наименования строки. ну тот же расчет прибыли должен быть понятен, А минус В. У меня там 6 финрезов от различных операций, операционная прибыль, расходы 3 группы, доходы 2 группы. Затем активы и пассивы, которые тоже определенную структуру имеют. ну в общем нужны им формулы простые, чтобы понимать структуру расчета основных показателей.

[Alextiger]

понятно, любознательное руководство

[Andriy]

да это скорее всего не руководство, а один из адресатов. есть у нас филиал в Вашем городе, так там такие сидят, дундуки

[gav]

Код полностью решил проблему?

[Andriy]

gav, решил. Это не Вы были?:-)
у меня еще есть проблема, если Вы хорошо разбираетесь, могу обратиться?

если что, вот моя проблема:
http://www.planetaexcel.ru/forum.php...m=1#post242882

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

Добавлено через 5 часов 7 минут
и эту задачу решили уже..

[Maksimus]

Не хочется создавать отдельную тему, напишу здесь.

Дано: Excel 2010.
Требуется:
1. Сделать так, чтоб в ячейке появлялась текущая дата.
2. Дата должна появляться только после клика на ячейку.
3. Дата д.б. фиксированной (с течением времени не должна самостоятельно изменяться).

Вопрос к корифеям: Реализуемо? Если да, то как?

Заранее спасибо.

[Kayra]

Сообщение от Maksimus

Дано: Excel 2010.
Требуется:
1. Сделать так, чтоб в ячейке появлялась текущая дата.
2. Дата должна появляться только после клика на ячейку.
3. Дата д.б. фиксированной (с течением времени не должна самостоятельно изменяться).

Способ для чайников:
Запускаете запись макроса: в ячейку вводите функцию =СЕГОДНЯ(), копируете из ячейки это число и вставляете в другую ячейку как значение. Останавливаете запись макроса. Только вот можно ли сделать так, чтобы макрос запускался при клике на ячейку, не знаю. Можно создать кнопку, запускающую макрос при нажатии. Можно без марания ячеек, прописать в VBA и привязать к клику кнопки.
Только зачем нужен такой макрос, не проще ли набивать дату на клавиатуре ? Ползти в этом случае точно не будет.

[Maksimus]

Сообщение от Kayra

копируете из ячейки это число и вставляете в другую ячейку как значение

Не, копирование не пойдет.

Сообщение от Kayra

Только зачем нужен такой макрос, не проще ли набивать дату на клавиатуре ?

Какие все любобытные
Хорошо, расскажу в чем смысл. Есть некий журнал в Excel, в котором должны фиксироваться дата и время определенного события (например, получение продукции). Поскольку продукции м.б. много, то вручную набивать дату-время трудозатратно. А вот одним кликом было бы удобно - щелкнул по ячейке, туда автоматом записались дата-время, щелкнул по другой - следующая.

Т.е. решить задачу можно только написанием доп.программы?

Добавлено через 16 минут
Зы. Нужен именно эксель. Любые другие программы не подойдут.

[Hogfather]

Сообщение от Kayra

Способ для чайников

(патетично) Мда. И это гордость отечественной науки. Вышел из забоя, глянул, а тут такой позор: элементарную вещь написать не могут...

Maksimus, только ради Вас оторвался от производства. Цените.

Option Explicit
' Обратите внимание! Это функция конкретного листа, она должна быть там, а не в модуле
' Откройте VBA проект, выберите лист и по правой кнопке мыши Viev Code
' В открывшееся окно скопируйте программу. Работает по двойному нажатию
'
' Копирайт (ц) 2013 Hogfather. Олл райтс резервед
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ErrorEvent
' Только одна ячейка
If Target.Cells.Count > 1 Then
    Exit Sub
End If
' Чтобы избежать зацикливания 
   Application.EnableEvents = False
' Если ячейка пустая -- ставим дату
    If Target.Offset(0, 0).Value = "" Or IsNull(Target.Offset(0, 0).Value) Then
        Target.Offset(0, 0).Value = Date
    End If
ExitNormally:
' Возвращаем всё взад
    Application.EnableEvents = True
    Exit Sub
ErrorEvent:
    MsgBox Err.Description
    Resume ExitNormally
End Sub