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

Вход

Регистрация

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

 

= Мир MS Excel/Протянуть ячейку содержащую ссылку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Протянуть ячейку содержащую ссылку (Макросы/Sub)
Протянуть ячейку содержащую ссылку
roman66rus Дата: Суббота, 13.02.2016, 20:43 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
Дорого времени суток. Мопогите с макросом если это возможно. Нужно чтобы макрос протягивал ячейку вниз. В ячейке ссылка, в ссылке должна меняться последняя цэфра. Начял вручную это все, но может есть способ автоматизировать.
К сообщению приложен файл: 123.xlsm (23.8 Kb)
 
Ответить
СообщениеДорого времени суток. Мопогите с макросом если это возможно. Нужно чтобы макрос протягивал ячейку вниз. В ячейке ссылка, в ссылке должна меняться последняя цэфра. Начял вручную это все, но может есть способ автоматизировать.

Автор - roman66rus
Дата добавления - 13.02.2016 в 20:43
StoTisteg Дата: Суббота, 13.02.2016, 21:15 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
R1C1 спасёт отца русской демократии.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеR1C1 спасёт отца русской демократии.

Автор - StoTisteg
Дата добавления - 13.02.2016 в 21:15
roman66rus Дата: Суббота, 13.02.2016, 21:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
StoTisteg, не понял, подскажи
 
Ответить
СообщениеStoTisteg, не понял, подскажи

Автор - roman66rus
Дата добавления - 13.02.2016 в 21:28
StoTisteg Дата: Суббота, 13.02.2016, 21:54 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Например,
[vba]
Код

Range(Cells(1, 1), Cells(8, 1)).FormulaR1C1 = "=RC[1]+1"
[/vba]
вставит формулу
Код
=B1+1

в ячейку A1
Код
=B2+1

в ячейку A2
и так далее. В квадратных скобках — смещение (положительное — вправо для columns и вниз для rows, отрицательное — соответственно влево и вверх), без скобок — абсолютные координаты.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеНапример,
[vba]
Код

Range(Cells(1, 1), Cells(8, 1)).FormulaR1C1 = "=RC[1]+1"
[/vba]
вставит формулу
Код
=B1+1

в ячейку A1
Код
=B2+1

в ячейку A2
и так далее. В квадратных скобках — смещение (положительное — вправо для columns и вниз для rows, отрицательное — соответственно влево и вверх), без скобок — абсолютные координаты.

Автор - StoTisteg
Дата добавления - 13.02.2016 в 21:54
roman66rus Дата: Суббота, 13.02.2016, 22:30 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
StoTisteg,
[vba]
Код
Sub Макрос1 ()
Range("B1"). Select
ActiveCell.FormulaR1C1=
"=INDIRECT(""'U:\GlzТабель 1 участок\2016\[Табель уч #1 2016.xls]""&TEXT(TODAY(),"" MMMM ГГГГ"")&""'!$B3" ")"
Range("B1:B2"). Select
Enb Sub
[/vba]
Не получается, покажите на этом коде...
Мне нужно чтобы при протягивает менялось "'!$B3" на "'!$B4" ну т.д.
 
Ответить
СообщениеStoTisteg,
[vba]
Код
Sub Макрос1 ()
Range("B1"). Select
ActiveCell.FormulaR1C1=
"=INDIRECT(""'U:\GlzТабель 1 участок\2016\[Табель уч #1 2016.xls]""&TEXT(TODAY(),"" MMMM ГГГГ"")&""'!$B3" ")"
Range("B1:B2"). Select
Enb Sub
[/vba]
Не получается, покажите на этом коде...
Мне нужно чтобы при протягивает менялось "'!$B3" на "'!$B4" ну т.д.

Автор - roman66rus
Дата добавления - 13.02.2016 в 22:30
buchlotnik Дата: Суббота, 13.02.2016, 23:21 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
а что мешает просто .. не не просто


Сообщение отредактировал buchlotnik - Суббота, 13.02.2016, 23:28
 
Ответить
Сообщениеа что мешает просто .. не не просто

Автор - buchlotnik
Дата добавления - 13.02.2016 в 23:21
StoTisteg Дата: Суббота, 13.02.2016, 23:28 | Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Мне религия, не люблю я .AutoFill :) А ТС — не могу сказать...


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеМне религия, не люблю я .AutoFill :) А ТС — не могу сказать...

Автор - StoTisteg
Дата добавления - 13.02.2016 в 23:28
roman66rus Дата: Суббота, 13.02.2016, 23:34 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
buchlotnik, так формула протягивается да.
Но мне надо что бы при протягивает в формуле менялось "'!$B3" на "'!$B4".
Посмотрите пример
 
Ответить
Сообщениеbuchlotnik, так формула протягивается да.
Но мне надо что бы при протягивает в формуле менялось "'!$B3" на "'!$B4".
Посмотрите пример

Автор - roman66rus
Дата добавления - 13.02.2016 в 23:34
buchlotnik Дата: Суббота, 13.02.2016, 23:37 | Сообщение № 9
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
roman66rus, уже увидел, забыл, что у ДВССЫЛ() аргумент - строка
 
Ответить
Сообщениеroman66rus, уже увидел, забыл, что у ДВССЫЛ() аргумент - строка

Автор - buchlotnik
Дата добавления - 13.02.2016 в 23:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Протянуть ячейку содержащую ссылку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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