Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подтягивание прошлых данных из ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Подтягивание прошлых данных из ячейки
ssserzh Дата: Четверг, 30.05.2024, 11:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Всем привет, профессионалы!))

Всё облазил, и нейронки пытал, но не могу понять, можно ли так сделать((
есть столбец A и B, мне нужно, чтобы при изменении данных в ячейке B1 старое значение переносилось в ячейку A1
например:
а1 - 10
b1 - 10
при изменение в ячейке b1 на 15 становится:
а1 - 10
b1 - 15
при изменение в ячейке b1 на 7 становится:
а1 - 15
b1 - 7

И тд((
 
Ответить
СообщениеВсем привет, профессионалы!))

Всё облазил, и нейронки пытал, но не могу понять, можно ли так сделать((
есть столбец A и B, мне нужно, чтобы при изменении данных в ячейке B1 старое значение переносилось в ячейку A1
например:
а1 - 10
b1 - 10
при изменение в ячейке b1 на 15 становится:
а1 - 10
b1 - 15
при изменение в ячейке b1 на 7 становится:
а1 - 15
b1 - 7

И тд((

Автор - ssserzh
Дата добавления - 30.05.2024 в 11:44
Nic70y Дата: Четверг, 30.05.2024, 12:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
в модуль книги
[vba]
Код
Public a
Private Sub Workbook_Open()
    a = Selection.Value
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    a = Target.Value
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("b:b")) Is Nothing Then
        b = Target.Value
        If a <> b Then Target.Offset(0, -1) = a
    End If
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениев модуль книги
[vba]
Код
Public a
Private Sub Workbook_Open()
    a = Selection.Value
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    a = Target.Value
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("b:b")) Is Nothing Then
        b = Target.Value
        If a <> b Then Target.Offset(0, -1) = a
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 30.05.2024 в 12:05
ssserzh Дата: Четверг, 30.05.2024, 12:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

моя вина, не указал сразу, что делаю это в гугл документах(

попробовал адаптировать под него, таким образом:

var b;

function onOpen() {
b = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet().getActiveRange().getValue();
}

function onSelectionChange(e) {
var sheet = e.source.getActiveSheet();
if (sheet.getSheetName() === 'Лист 19') {
b = e.range.getValue();
}
}

function onEdit(e) {
var sheet = e.source.getActiveSheet();
if (sheet.getSheetName() === 'Лист 19') {
var range = e.range;
if (range.getColumn() == 2) {
var c = range.getValue();
if (b !== c) {
range.offset(0, -1).setValue(b);
}
}
}
}

но ничего не работает( явно я косячу(((
 
Ответить
Сообщениемоя вина, не указал сразу, что делаю это в гугл документах(

попробовал адаптировать под него, таким образом:

var b;

function onOpen() {
b = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet().getActiveRange().getValue();
}

function onSelectionChange(e) {
var sheet = e.source.getActiveSheet();
if (sheet.getSheetName() === 'Лист 19') {
b = e.range.getValue();
}
}

function onEdit(e) {
var sheet = e.source.getActiveSheet();
if (sheet.getSheetName() === 'Лист 19') {
var range = e.range;
if (range.getColumn() == 2) {
var c = range.getValue();
if (b !== c) {
range.offset(0, -1).setValue(b);
}
}
}
}

но ничего не работает( явно я косячу(((

Автор - ssserzh
Дата добавления - 30.05.2024 в 12:27
ssserzh Дата: Четверг, 30.05.2024, 16:23 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±


в модуль книги
не подскажите, как переписать код под условия выше?(

Ничего не получается, попробовал сам подставить, но нет результат, в интернете тоже не нашел ответа( и в документации(
 
Ответить
Сообщение

в модуль книги
не подскажите, как переписать код под условия выше?(

Ничего не получается, попробовал сам подставить, но нет результат, в интернете тоже не нашел ответа( и в документации(

Автор - ssserzh
Дата добавления - 30.05.2024 в 16:23
Nic70y Дата: Четверг, 30.05.2024, 16:25 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
ssserzh, в гуглотаблицах вообще не понимаю


ЮMoney 41001841029809
 
Ответить
Сообщениеssserzh, в гуглотаблицах вообще не понимаю

Автор - Nic70y
Дата добавления - 30.05.2024 в 16:25
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!