Ошибка компиляции: не удается найти проект или библиотеку (OSX)

Question

У меня возникла проблема с тем, что мои макросы совместимы с OSX, где он работает в Windows.

У меня есть следующий вопрос:

Compile error: Can't find project or library error when running the macro on Office 2016 on a MAC

Код/функция используется для изменения определенных диапазонов в верхнем регистре/Proper случая. Отладчик выделяет "UCase(Cell)" и "Cell"

Sub ChkSheet() 
'========================================================================= 
' Format the cell boarders when the info needs to be corrected or updated 
'========================================================================= 
Dim historyWks As Worksheet 
Set historyWks = Worksheets("Namelist") 
Dim lRow As Long 
Dim emailRng As Range 
Dim Cell As Range 

With historyWks 

' Flags cells where the Email fieldcontains invalid characters 
lRow = Range("G" & Rows.Count).End(xlUp).Row 
Set emailRng = Range("Q2:Q" & lRow) 

    For Each Cell In emailRng 
     If Cell.Value = "," _ 
      Or Cell.Value = " " _ 
      Or Cell.Value = "wd" _ 
      Or Cell.Value = "" _ 
      Or Cell.Find("@") Is Nothing Then 
      Cell.Interior.Color = vbRed 

      Else: 
      Cell.Interior.ColorIndex = 0 

     End If 
    Next 

    'Change the text case 
    With Application 
     .ScreenUpdating = False 
     .EnableEvents = False 
    End With 

     For Each Cell In Range("NListUpper") 
     Select Case True 
     Case Application.IsText(Cell) = True 
      Cell = UCase(Cell) 
     End Select 
    Next Cell 
    With Application 
     .ScreenUpdating = True 
     .EnableEvents = True 
    End With 

    'Change the case to proper 
    With Application 
     .ScreenUpdating = False 
     .EnableEvents = False 
    End With 
    For Each Cell In Range("NListProp") 
     Select Case True 
     Case Application.IsText(Cell) = True 
      Cell = StrConv(Cell, vbProperCase) 
     End Select 
    Next Cell 
    With Application 
     .ScreenUpdating = True 
     .EnableEvents = True 
    End With 

End With 

End Sub 

Я заметил, что некоторые библиотеки не хватает на Excel 2016 на OSX и я знаю, что MS упала много библиотек из Excel для OSX.

Любые советы по этому вопросу были бы замечательными.

Answer 1

Вы можете попытаться избежать, используя свойства Range объекта по умолчанию - они могут отличаться между ОС Windows и OSX:

Таким образом, вместо того, чтобы:

Select Case True 
    Case Application.IsText(Cell) = True 
     Cell = UCase(Cell) 
End Select 

Вы можете просто попробовать:

If Application.IsText(Cell.Value) Then 
    Cell.Value = UCase(Cell.Value) 
End If