XL2000: ?? ??? ??????? ??? ????? ???? ?????????? ???????? ???? ????

?????? ????????? ?????? ?????????
???? ???????: 213790 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

?? ??? ??????

???????

????? Microsoft Excel 2000 ?? ???? ??? ??????? ???? ?? ?????? ???? ?????????? ???????? ???? ???? ???.

???? ??????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ????? ? ? ?? ????? ??? ?????? ???????? ??????? ?/?? ???????? ???? ????. ????? ??? ??????? ??? ????? ??? ??? ??????? ???? ?? ????? ???????? ????????? ?????? ????????? ????????. ???? ?? ????? ??????? ????? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ????????? ???????.
??? ??? ??? ?? ???? ???? ???? ?????? ?? ???? ???????? ?? ????? ??? ??????? ????? Microsoft ?? ????? ???????. ????? ?? ?????????? ?? ?????? ????? ??? Microsoft ???:

Microsoft ????????? Partners ? https://partner.microsoft.com/global/30000104

????? Microsoft ??????? ???? ???? ??????? - http://support.microsoft.com/gp/advisoryservice

?????? ??? ???? ?? ????????? ??? ?????? ????? ???????? ???? ????? ??????? ????? Microsoft ?? ?????? ???? Microsoft ?????? ??? ?????: 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 for Applications ????? ???? ?????? ??? ???? ?????????? ???????? ???? ???? ??? ?????? ????? ????? ??? ?? ?????? ?????. ??? ???? ??????? ????? ??? ???? ?????????? ???????? ?? ????? ?????? ????? ????? ???? ?? ?????? ?????.

??????: ?? ????? ??? ???? ????????? ???????? ?? ??? ?????? ????? (_) ??????? ??? ???????.
  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 - ????? ??? ??????: 06/???? ??????/1435 - ??????: 3.5
????? ???
  • Microsoft Excel 2000 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????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