WORD Frequency List: 12,500 Most Common Words / Частотный список: 12,500 наиболее употребляемых слов [XLS, DOC]

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
    Const SND_SYNC = &H0
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
Sub GoToN()
n = ActiveCell.EntireRow.Cells(1, 1).Value
If ActiveSheet.Name = "Список" Then
    s = "Расширенный"
Else
    s = "Список"
End If
With Worksheets(s).Range("a1:a20000")
    Set c = .Find(n, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Worksheets(s).Activate
        c.Activate
    Else
        If Worksheets(s).AutoFilter.FilterMode Then
            MsgBox "На листе <" + s + "> установлен фильтр. Снимите фильтр и повторите попытку."
        Else
            MsgBox "Номер <" + CStr(n) + "> на листе <" + s + "> не найден."
        End If
    End If
End With
End Sub
Sub GoToN2()
n = ActiveCell.EntireRow.Cells(1, 1).Value
With Worksheets("Базовый").Range("a1:a20000")
    Set c = .Find(n, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Worksheets("Базовый").Activate
        c.Activate
    Else
        If Worksheets("Базовый").AutoFilter.FilterMode Then
            MsgBox "На листе <Базовый> установлен фильтр. Снимите фильтр и повторите попытку."
        Else
            MsgBox "Номер <" + CStr(n) + "> на листе <Базовый> не найден."
        End If
    End If
End With
End Sub
Sub CheckN()
f1 = False
f2 = False
If ActiveSheet.Name = "Список" Then
f1 = Worksheets("Базовый").AutoFilter.FilterMode
f2 = Worksheets("Расширенный").AutoFilter.FilterMode
If f1 = False And f2 = False Then
    n = ActiveCell.EntireRow.Cells(1, 1).Value
    m = ActiveCell.EntireRow.Cells(1, 7).Value
    If m = "" Then
        m = "x"
    Else
        m = ""
    End If
    r = True
    With Worksheets("Базовый").Range("a1:a20000")
        Set c = .Find(n, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            c.EntireRow.Cells(1, 5).Value = m
        Else
            MsgBox "Номер <" + CStr(n) + "> не найден на листе <Базовый> и не может быть помечен."
            r = False
        End If
    End With
    With Worksheets("Расширенный").Range("a1:a20000")
    Set c = .Find(n, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.EntireRow.Cells(1, 4).Value = m
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
      MsgBox ("Номер <" + CStr(n) + "> не найден на листе <Расширенный> и не может быть помечен.")
      r = False
    End If
    End With
    ActiveCell.EntireRow.Cells(1, 7).Value = m
    With ActiveCell.EntireRow.Cells(1, 8)
    If r = True Then
        .Value = ""
    Else
        .Value = "#Ошибка"
        .Font.Color = RGB(255, 0, 0)
    End If
    End With
Else
    MsgBox "Операцию невозможно выполнить пока на листах <БАЗОВЫЙ> и <РАСШИРЕННЫЙ> установлен активный фильтр. Снимите фильтр и повторите попытку."
End If
End If
End Sub
    Sub PlayWAV()
    WAVFile = ThisWorkbook.Path & ".\Sound\" + ActiveCell.EntireRow.Cells(1, 2).Value + ".wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub