Гиперссылка на реальную дату - Страница 2

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

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

Гиперссылка на реальную дату (Гиперссылка на реальную дату)

Гиперссылка на реальную дату

R_Dmitry

Дата: Воскресенье, 02.12.2012, 11:44 | Сообщение № 21

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

Ранг: Участник

Сообщений: 74

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

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

2010

Это пользовательская функция
[vba]

Code

Function RD_Hiperlink(FindRangeColumn As Range, ColumnCriteria, _
FindRangeRows As Range, RowCriteria)
Dim i&, R, C
For i = 1 To FindRangeColumn.Count
If FindRangeColumn(i) = ColumnCriteria Then C = FindRangeColumn(i).Address: Exit For
Next

For i = 1 To FindRangeRows.Count
If FindRangeRows(i) = RowCriteria Then R = FindRangeRows(i).Address: Exit For
Next
C = Split(Mid(C, 2, Len(C) - 1), "$", 2)(0)
R = Split(Mid(R, 2, Len(R) - 1), "$", 2)(1)
RD_Hiperlink = "[" & ThisWorkbook.Name & "]" & FindRangeColumn.Parent.Name & "!" & C & R
End Function

[/vba]

{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Ответить

dumacuk87

Дата: Воскресенье, 02.12.2012, 12:20 | Сообщение № 22

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

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

Сообщений: 17

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

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

R_Dmitry, Дмитрий спасибо большое
скажите я сделал под себя все ссылки ....но перевел эксель в 2010 и теперь при входе выбивает окно "ЭТА КНИГА СОДЕРЖИТ СВЯЗИ С ДРУГИМИ ИСТОЧНИКАМИ ДАННЫХ" это как? так и должно быть или я что то накосячил?