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

Вход

Регистрация

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

 

= Мир MS Excel/Автокопирование значения ячейки в соседний столбец Гугл Докс - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Автокопирование значения ячейки в соседний столбец Гугл Докс
evgenij_vl Дата: Вторник, 25.04.2017, 06:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

Подскажите, как реализовать в Google Docs

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


Сообщение отредактировал evgenij_vl - Вторник, 25.04.2017, 19:04
 
Ответить
СообщениеЗдравствуйте!

Подскажите, как реализовать в Google Docs

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

Автор - evgenij_vl
Дата добавления - 25.04.2017 в 06:49
китин Дата: Вторник, 25.04.2017, 07:47 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
    
     Target.Offset(0, 1) = Target
    End If
End Sub
[/vba]
упс не заметил, что это гугл докс. может не работать


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


Сообщение отредактировал китин - Вторник, 25.04.2017, 07:48
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
    
     Target.Offset(0, 1) = Target
    End If
End Sub
[/vba]
упс не заметил, что это гугл докс. может не работать

Автор - китин
Дата добавления - 25.04.2017 в 07:47
evgenij_vl Дата: Вторник, 25.04.2017, 19:06 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Моя вина. Название темы поправил.

может не работать

Точно не работает.

Может, кто ещё подскажет.
 
Ответить
СообщениеМоя вина. Название темы поправил.

может не работать

Точно не работает.

Может, кто ещё подскажет.

Автор - evgenij_vl
Дата добавления - 25.04.2017 в 19:06
Gustav Дата: Вторник, 25.04.2017, 19:57 | Сообщение № 4
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Как-то так:
[vba]
Код
function onEdit(e) {
   
var sheet = e.range.getSheet();
if ((sheet.getName() == "Лист1" || sheet.getName() == "Лист3") &&
     e.range.getNumColumns() == 1 &&
     e.range.getColumn() == 1) {
   
  e.range.offset(0, 1).setValues(e.range.getValues())
}
}
[/vba]
Работает для первой колонки некоторых листов (Лист1 и Лист3). При одновременном изменении диапазона из нескольких ячеек (несколько строк x 1 колонка), например, копированием - значения прописываются справа для всех ячеек.


МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеКак-то так:
[vba]
Код
function onEdit(e) {
   
var sheet = e.range.getSheet();
if ((sheet.getName() == "Лист1" || sheet.getName() == "Лист3") &&
     e.range.getNumColumns() == 1 &&
     e.range.getColumn() == 1) {
   
  e.range.offset(0, 1).setValues(e.range.getValues())
}
}
[/vba]
Работает для первой колонки некоторых листов (Лист1 и Лист3). При одновременном изменении диапазона из нескольких ячеек (несколько строк x 1 колонка), например, копированием - значения прописываются справа для всех ячеек.

Автор - Gustav
Дата добавления - 25.04.2017 в 19:57
  • Страница 1 из 1
  • 1
Поиск:

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