XL2000: не команду меню, чтобы выбрать все гиперссылки В листе

Переводы статьи Переводы статьи
Код статьи: 213790 - Vizualiza?i produsele pentru care se aplic? acest articol.
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Развернуть все | Свернуть все

В этой статье

Проблема

Microsoft Excel 2000 имеет не команды меню, которое позволяет выбрать все гиперссылки в лист.

Временное решение

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и или подразумеваемых, включая, но не ограничиваясь только ими, подразумеваемые гарантии товарности или пригодности для определенной цели. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки.. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается..
, Если имеют ограниченный опыт программирования, может потребоваться обратиться к партнеру корпорации Майкрософт или консультационной службе корпорации Майкрософт. Для получения дополнительных сведений посетите следующие веб-узел Майкрософт:

Корпорация Майкрософт Сертифицированные партнеры-https://Partner.Microsoft.com/Global/30000104

Рекомендации корпорации Майкрософт службы-http://support.Microsoft.com/gp/advisoryservice

Для получения дополнительных сведений о поддержке, которые доступны, а также о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSЧтобы устранить эту проблему, используйте макрос, чтобы выделить все ячейки, которые содержат гиперссылки.
  1. Создать новую рабочую книгу в Microsoft Excel.
  2. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуРедактор Visual Basic.
  3. В редакторе Visual Basic наВставкаменю, нажмите кнопкуМодуль.
  4. Введите следующий код в модуль:
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

Дополнительная информация

Другие макросы для работы с гиперссылками

С помощью Microsoft Visual Basic для приложений подпрограммы можно перебрать все ссылки на лист и выполнять определенные операции для каждой гиперссылки. Например, можно удалить все ссылки, или можно просто сообщить расположение каждой гиперссылки.

Примечание: Некоторые строки кода были изменены с помощью символа продолжения строки (_) в соответствии с этого документа.
  1. Создать новую рабочую книгу в Microsoft Excel.
  2. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуРедактор Visual Basic.
  3. В редакторе Visual Basic наВставкаменю, нажмите кнопкуМодуль.
  4. Введите следующий код в модуль:
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. НаФайлменю, нажмите кнопкуЗакрыть и вернуться в Microsoft Excel.
При вставке некоторых гиперссылки в электронной таблице, можно выполнить различные макросы, указывая наМакроснаСредстваменю и нажмите кнопкуМакросы. Выберите имя макроса для запуска и нажмите кнопкуЗапустить.

Макрос DeleteAllHyperlinks() Удаление диапазона, а не текст гиперссылки Свойства гиперссылки. Он оставляет позади текста гиперссылки.

Ссылки

Дополнительные сведения о гиперссылках в редакторе Visual BasicСправка по Microsoft Visual BasicнаСправкаменю, типобъект гиперссылкив поле помощника Office или мастера ответов и нажмите кнопкуПоискдля просмотра раздела.

Свойства

Код статьи: 213790 - Последний отзыв: 2 ноября 2013 г. - Revision: 4.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Excel 2000 Standard Edition
Ключевые слова: 
kbnosurvey kbarchive kbdtacode kbprb kbmt KB213790 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Данная статья переведена с использованием программного обеспечения Майкрософт для машинного перевода и, возможно, отредактирована посредством технологии Community Translation Framework (CTF). Корпорация Майкрософт предлагает вам статьи, обработанные средствами машинного перевода, отредактированные членами сообщества Майкрософт и переведенные профессиональными переводчиками, чтобы вы могли ознакомиться со всеми статьями нашей базы знаний на нескольких языках. Статьи, переведенные с использованием средств машинного перевода и отредактированные сообществом, могут содержать смысловое, синтаксические и (или) грамматические ошибки. Корпорация Майкрософт не несет ответственности за любые неточности, ошибки или ущерб, вызванные неправильным переводом контента или его использованием нашими клиентами. Подробнее об CTF можно узнать по адресу http://support.microsoft.com/gp/machine-translation-corrections/ru.
Эта статья на английском языке: 213790

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com