Вопрос : Script colums той проверки 2 в 2 листах и hyperlinks. Нужна дорога проверить точно - спичка и hyperlink.

Hi,

Script которое проверяет 2 colums в 2 листах и hyperlinks. Нужна дорога проверить точно - спичка и hyperlink.
в настоящее время говорят я имеет hyperlinks as

Sharath C
It слова, котор Sharath к Sharath C

Case не должно быть делом а точно - спичку быть linked.

Can любым помощь изменяя code.

REgards
sharath class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
createhyperlink >Sub " class= " " codeSnippet777581 id= 
 c.Value после этого
        x = c.Value
        Установите rng2 = ws. Колонки (1).Find (: =x, поже: =ws. Клетки (1), LookIn: =xlFormulas, LookAt: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Если не rng2 ничего после этого анкер ws. Hyperlinks.Add:, то=c, адрес: = "", SubAddress: = "" & ws. Имя & «!» & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Закончитесь если
    Следующий c
Подводная лодка конца
class= " ясное " >
Related: сценарий " title= " " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26210674.html href= Script создает hyperlinks проверяя 1 лист к другим. Потребность проверить sheet1 ColumA…

Ответ : Script colums той проверки 2 в 2 листах и hyperlinks. Нужна дорога проверить точно - спичка и hyperlink.

Уточнение ниже будет сопрягать все шнуры


hth

Дэйв

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

createhyperlink ub ()
    Тусклый ws как рабочий лист
    Тусклое ws1 как рабочий лист
    Тусклое rng как ряд
    Тусклый c как ряд
    Тусклое rng2 как ряд

    Установите ws = листы («Sheet1»)
    Установите ws1 = листы («Sheet2»)
    Установите rng = ws1.Range («a2: » & ws1.Cells (Cells.Rows.Count, «a»). Конец (xlUp). Рядок)

    Для каждого c в rng
    Если "" <> c.Value после этого
        x = c.Value
        Установите rng2 = ws. Колонки (1).Find (: =x, поже: =ws. Клетки (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Если не rng2 ничего после этого анкер ws. Hyperlinks.Add:, то=c, адрес: = "", SubAddress: = "" & ws. Имя & «!» & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Закончитесь если
    Следующий c
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us