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

Вход

Регистрация

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

 

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

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

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

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

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеR1C1 спасёт отца русской демократии.

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

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

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

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

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

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

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеНапример,
[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
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 20% ±

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
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


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

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

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеМне религия, не люблю я .AutoFill :) А ТС — не могу сказать...

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

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

Автор - roman66rus
Дата добавления - 13.02.2016 в 23:34
buchlotnik Дата: Суббота, 13.02.2016, 23:37 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщениеroman66rus, уже увидел, забыл, что у ДВССЫЛ() аргумент - строка

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

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