Протянуть ячейку содержащую ссылку
roman66rus
Дата: Суббота, 13.02.2016, 20:43 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация:
0
±
Замечаний:
0% ±
2010
Дорого времени суток. Мопогите с макросом если это возможно. Нужно чтобы макрос протягивал ячейку вниз. В ячейке ссылка, в ссылке должна меняться последняя цэфра. Начял вручную это все, но может есть способ автоматизировать.
Дорого времени суток. Мопогите с макросом если это возможно. Нужно чтобы макрос протягивал ячейку вниз. В ячейке ссылка, в ссылке должна меняться последняя цэфра. Начял вручную это все, но может есть способ автоматизировать. roman66rus
К сообщению приложен файл:
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
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение 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] вставит формулу в ячейку A1 в ячейку A2 и так далее. В квадратных скобках — смещение (положительное — вправо для columns и вниз для rows, отрицательное — соответственно влево и вверх), без скобок — абсолютные координаты.
Например, [vba]Код
Range(Cells(1, 1), Cells(8, 1)).FormulaR1C1 = "=RC[1]+1"
[/vba] вставит формулу в ячейку A1 в ячейку A2 и так далее. В квадратных скобках — смещение (положительное — вправо для columns и вниз для rows, отрицательное — соответственно влево и вверх), без скобок — абсолютные координаты. StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение Например, [vba]Код
Range(Cells(1, 1), Cells(8, 1)).FormulaR1C1 = "=RC[1]+1"
[/vba] вставит формулу в ячейку A1 в ячейку 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
Ответить
Сообщение 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
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение Мне религия, не люблю я .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
Ответить
Сообщение 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
Ответить
Сообщение roman66rus , уже увидел, забыл, что у ДВССЫЛ() аргумент - строкаАвтор - buchlotnik Дата добавления - 13.02.2016 в 23:37