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

 

= Мир MS Excel/Можно ли "зациклить" при копировании - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Можно ли "зациклить" при копировании
stroika Дата: Понедельник, 24.04.2017, 12:02 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем добра.
(Тяжело объяснить, чтоб была понятна задумка и вопрос) Весь вопрос по ячейке (Е5)
В книге, пока что, пять листов. Но каждый раз я буду копировать лист (либо последний, либо первый (все зависит от Вашего ответа) и помещать его в конец.
В ячейке (Е5) стоит формула которая ссылается (должна ссылаться) на предыдущий лист. Пока что эта ссылка мною забивается вручную.

А можно ли сделать так, чтобы она при копировании листа ссылалась на предыдущий автоматически?
Спасибо
К сообщению приложен файл: 8116105.xlsx (40.4 Kb)
 
Ответить
СообщениеВсем добра.
(Тяжело объяснить, чтоб была понятна задумка и вопрос) Весь вопрос по ячейке (Е5)
В книге, пока что, пять листов. Но каждый раз я буду копировать лист (либо последний, либо первый (все зависит от Вашего ответа) и помещать его в конец.
В ячейке (Е5) стоит формула которая ссылается (должна ссылаться) на предыдущий лист. Пока что эта ссылка мною забивается вручную.

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

Автор - stroika
Дата добавления - 24.04.2017 в 12:02
AlexM Дата: Понедельник, 24.04.2017, 12:33 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Цитата stroika, 24.04.2017 в 12:02, в сообщении № 1 ( писал(а)):
формула которая ссылается (должна ссылаться) на предыдущий лист
Посмотрите тему Ссылка на предыдущий лист



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата stroika, 24.04.2017 в 12:02, в сообщении № 1 ( писал(а)):
формула которая ссылается (должна ссылаться) на предыдущий лист
Посмотрите тему Ссылка на предыдущий лист

Автор - AlexM
Дата добавления - 24.04.2017 в 12:33
stroika Дата: Понедельник, 24.04.2017, 12:40 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
AlexM, Спасибо. Сейчас почитаем
 
Ответить
СообщениеAlexM, Спасибо. Сейчас почитаем

Автор - stroika
Дата добавления - 24.04.2017 в 12:40
stroika Дата: Понедельник, 24.04.2017, 12:44 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
AlexM, Ну что же, раз формулами нельзя, то будем просто вручника менять номер ссылки на лист. Главное не забыть. Помечу ячейку желтым и все дела))) Макросами не хочется заморачиваться, я и в формулах-то профан)))) hands hands hands
 
Ответить
СообщениеAlexM, Ну что же, раз формулами нельзя, то будем просто вручника менять номер ссылки на лист. Главное не забыть. Помечу ячейку желтым и все дела))) Макросами не хочется заморачиваться, я и в формулах-то профан)))) hands hands hands

Автор - stroika
Дата добавления - 24.04.2017 в 12:44
китин Дата: Понедельник, 24.04.2017, 13:02 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
а может вот такие костыли помогут?
=ДВССЫЛ("'Ав.отч Бланк ("&$A$1&")'!"&"$E$5")

с ячейкой А1 аккуратнее там длинная формула. без нее работать не будет
К сообщению приложен файл: 111333.xlsx (47.2 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеа может вот такие костыли помогут?
=ДВССЫЛ("'Ав.отч Бланк ("&$A$1&")'!"&"$E$5")

с ячейкой А1 аккуратнее там длинная формула. без нее работать не будет

Автор - китин
Дата добавления - 24.04.2017 в 13:02
gling Дата: Понедельник, 24.04.2017, 13:22 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
Вариант формулами. В ячейке М1, номер предыдущего листа. Формула в Е5
=ЕСЛИ(ДВССЫЛ("'Ав.отч Бланк ("&M1&")'!E17")<>0;ДВССЫЛ("'Ав.отч Бланк ("&M1&")'!E17");)
Главное чтобы номера в скобках шли по порядку. И заменил двойные кавычки на ноль, считаю что так будет правильнее, и Excel так считает, не выдаёт ошибки. Если не нужны нули из можно скрыть в параметрах или пользовательским форматом.А выше указанною формулу можно записать без проверки ЕСЛИ.
К сообщению приложен файл: 0232003.xlsx (41.0 Kb)


ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 24.04.2017, 13:30
 
Ответить
СообщениеВариант формулами. В ячейке М1, номер предыдущего листа. Формула в Е5
=ЕСЛИ(ДВССЫЛ("'Ав.отч Бланк ("&M1&")'!E17")<>0;ДВССЫЛ("'Ав.отч Бланк ("&M1&")'!E17");)
Главное чтобы номера в скобках шли по порядку. И заменил двойные кавычки на ноль, считаю что так будет правильнее, и Excel так считает, не выдаёт ошибки. Если не нужны нули из можно скрыть в параметрах или пользовательским форматом.А выше указанною формулу можно записать без проверки ЕСЛИ.

Автор - gling
Дата добавления - 24.04.2017 в 13:22
sboy Дата: Понедельник, 24.04.2017, 13:38 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата stroika, 24.04.2017 в 12:44, в сообщении № 4 ( писал(а)):
Макросами не хочется заморачиваться

А чего там заморачиваться? копируете лист в конец, формула сама копируется.

Public C As Integer
Private Sub Workbook_Open()
C = Sheets.Count
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If C = Sheets.Count Then Exit Sub
    If C > Sheets.Count Then
        C = Sheets.Count
        Exit Sub
    End If
namelist = Sheets(C).Name
Sh.Range("E5").Formula = "=IF('" & namelist & "'!E17<>"""",'" & namelist & "'!E17,"""")"
C = Sheets.Count
End Sub

К сообщению приложен файл: 6110509-1-.xlsm (48.1 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата stroika, 24.04.2017 в 12:44, в сообщении № 4 ( писал(а)):
Макросами не хочется заморачиваться

А чего там заморачиваться? копируете лист в конец, формула сама копируется.
[vba]
Public C As IntegerPrivate Sub Workbook_Open()C = Sheets.CountEnd SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)If C = Sheets.Count Then Exit Sub    If C > Sheets.Count Then        C = Sheets.Count        Exit Sub    End Ifnamelist = Sheets(C).NameSh.Range("E5").Formula = "=ЕСЛИ('" & namelist & "'!E17<>"""",'" & namelist & "'!E17,"""")"C = Sheets.CountEnd Sub
[/vba]

Автор - sboy
Дата добавления - 24.04.2017 в 13:38
stroika Дата: Понедельник, 24.04.2017, 14:17 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, sboy, gling, Спасибо огромное. Даже не знаю как сказать. Это же сколько нужно знать, чтоб придумывать такие формулы и макросы. Спасибо всем Вам и форуму. girl_dance hands hands hands
 
Ответить
Сообщениекитин, sboy, gling, Спасибо огромное. Даже не знаю как сказать. Это же сколько нужно знать, чтоб придумывать такие формулы и макросы. Спасибо всем Вам и форуму. girl_dance hands hands hands

Автор - stroika
Дата добавления - 24.04.2017 в 14:17
  • Страница 1 из 1
  • 1
Поиск:

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