Создание линков на сторонний excel файл

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание линков на сторонний excel файл (Макросы/Sub)

Dimka209

Дата: Понедельник, 31.08.2015, 23:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Коллеги, прошу помощи!!!

Ранее сделали автоматическую линковку через формулу index + match + match с обращением к неактивной книге.
Сейчас возникла необходимость в более элегантом решении.

Хотелось бы, что бы после отработки макроса были линки.... просто ссылка на ячеку С15 (к примеру) вместо большой формулы.

понимаю, что это возможно. Так как два мэтча в составе имеющегося решения как раз таки и находят номера столбцов и строк.

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

Заранее большое спасибо!

С уважением, Дима

К сообщению приложен файл: Example.zip (38.0 Kb)

Ответить

nilem

Дата: Вторник, 01.09.2015, 12:03 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

не сказать, чтобы уж очень элегантно, но все же:
[vba]

Код

Sub Example()
Dim f$, sp
f = Application.GetOpenFilename()
If f = "False" Then Exit Sub

sp = Split(f, "\")
f = "'" & Mid(f, 1, InStrRev(f, "\")) & "[" & sp(UBound(sp)) & "]Source'!"

With Range("L14:O16")
     .FormulaR1C1 = "=""QQQ"" & ADDRESS(MATCH(RC4," & f & "R1C6:R10C6,0),MATCH(R13C," & f & "R7C1:R7C13,0))"
     .Value = .Value
     .Replace "QQQ", "=" & f
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Dimka209

Дата: Вторник, 01.09.2015, 16:09 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem, Спасибо Вам большое!!!!!

Это то, что нужно и отлично работает!!!!!!

Ответить

nilem

Дата: Вторник, 01.09.2015, 19:58 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Цитата Dimka209, 31.08.2015 в 23:21, в сообщении № 1

Коллеги, прошу помощи!!!

... это как бы от меня

давайте вот это
[vba]

Код

.FormulaR1C1 = "=""QQQ"" & ADDRESS(MATCH(RC4," & f & "R1C6:R10C6,0),MATCH(R13C," & f & "R7C1:R7C13,0))"
.Value = .Value
.Replace "QQQ", "=" & f

[/vba]
... заменим на одну строку с помощью Evaluate (ну или как-то еще)
просто вот не знаю, как это сделать....

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 01.09.2015, 19:58

Ответить

Dimka209

Дата: Среда, 02.09.2015, 19:47 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem, к сожалению сам не понимаю как это сделать...

может всемогущий Борода нам подскажет)) или другие старожилы...

Ответить

Dimka209

Дата: Четверг, 12.11.2015, 17:41 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem, коллега, день добрый!

Будьте добры, подскажите, а вы сталкивались с таким код подсказанный вами...
Срабатывает только один раз и то если перезагурзить комп...

Ответить

RAN

Дата: Четверг, 12.11.2015, 18:34 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

К сообщению приложен файл: 3531662.jpg (35.4 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

nilem

Дата: Четверг, 12.11.2015, 18:38 | Сообщение № 8

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Здравствуйте,
на всякий случай раз 15 запускал код - работает без вопросов. Собственно, макрос просто пишет формулу, каким-то глюкам неоткуда взяться.
Возможно, у Вас работают другие макросы (по Ontime, например)?

Кстати, стиль ссылок д.б. А1 (Параметры-Формулы-Стиль ссылок)

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Четверг, 12.11.2015, 18:50

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание линков на сторонний excel файл (Макросы/Sub)

Страница 1 из 1
1