История изменения ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

История изменения ячейки (Формулы/Formulas)

evgenij_vl

Дата: Понедельник, 24.04.2017, 11:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте!

На данном форуме нашел следующий скрипт:
[vba]

Код

function onEdit(e) {
var sheet = e.source.getActiveSheet();
var idCol = e.range.getColumn();
var idRow = e.range.getRow();
if ( idCol == 1 ) {
sheet.getRange(idRow, idCol + 1).setValue(new Date().toString());
}
};

[/vba]

При редактировании ячейки добавляется дата в соседнюю ячейку и в дальнейшем при редактировании дата просто обновляется.

Подскажите, что изменить в скрипте, чтобы старая дата изменения ячейки сохранялась. Т.е., чтобы новая дата постоянно дописывалась и таким образом велась история изменений.

Сообщение отредактировал evgenij_vl - Понедельник, 24.04.2017, 12:50

Ответить

китин

Дата: Понедельник, 24.04.2017, 11:26 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Как оформлять сообщения?
Зачем темам давать осмысленное название?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 24.04.2017, 11:27

Ответить

Gustav

Дата: Понедельник, 24.04.2017, 11:45 | Сообщение № 3

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата evgenij_vl, 24.04.2017 в 11:24, в сообщении № 1 ()

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

Постоянно дописывалась - во всё новые ячейки правее? Или в одну и ту же соседнюю правую ячейку через какой-нибудь разделитель, скажем, через точку с запятой?

МОИ: Ник, Tip box: 41001663842605

Ответить

evgenij_vl

Дата: Понедельник, 24.04.2017, 12:53 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата Gustav, 24.04.2017 в 11:45, в сообщении № 3 ()

В одну и ту же ячейку с разделителем. Можно через точку с запятой.

Ответить

Gustav

Дата: Понедельник, 24.04.2017, 14:38 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Если не будет раздражать самая первая точка с запятой в ячейке истории, то самой малой кровью можно обойтись так:
[vba]

Код

function onEdit(e) {
var sheet = e.source.getActiveSheet();
var idCol = e.range.getColumn();
var idRow = e.range.getRow();
if ( idCol == 1 ) {
var rngHist = sheet.getRange(idRow, idCol + 1);
rngHist.setValue(rngHist.getValue()+"; "+ new Date());
}
}

[/vba]
Если же будет раздражать, а также если вместо такого формата даты "Mon Apr 24 2017 14:31:59 GMT+0300 (EAT)" захочется чего-то более родного типа "24.04.17", то надо будет еще понапрягаться...

МОИ: Ник, Tip box: 41001663842605

Ответить

evgenij_vl

Дата: Вторник, 25.04.2017, 06:44 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата Gustav, 24.04.2017 в 14:38, в сообщении № 5 ()

Если не будет раздражать самая первая точка с запятой в ячейке истории, то самой малой кровью можно обойтись так

Спасибо за направление.

Сделал так:
[vba]

Код

function onEdit(e) {
var sheet = e.source.getActiveSheet();
var idCol = e.range.getColumn();
var idRow = e.range.getRow();
var d = new Date();
var curr_date = d.getDate();
var curr_month = d.getMonth() + 1;
var curr_year = d.getFullYear();
var h = d.getHours();
var m = d.getMinutes();
var s = d.getSeconds();

if ( idCol == 1 ) {
var rngHist = sheet.getRange(idRow, idCol + 1);
rngHist.setValue(rngHist.getValue()+"; "+ ('0' + curr_date).slice(-2) + "." + ('0' + curr_month).slice(-2) + "." + curr_year + " " + h + ":" + m + ":" + s);
}
}

[/vba]

Дата и время в формате - "ДД-ММ-ГГГГ ЧЧ:ММ:СС"

Ответить

История изменения ячейки (Формулы/Formulas)

Страница 1 из 1
1