VBA拼写检查Excel中的特定单元格

Question

除其他功能外，我使用宏在保存之前对在Excel中创建的发票进行拼写检查。 当前，它会拼写检查整个工作簿。 我只想拼写检查特定工作表的certian单元格（因为我不想在发票上拼写检查人的姓名和地址）。

具体来说，我只想拼写检查“发票”工作表上的单元格D15-D19和“安全检查”工作表上的单元格D38

有人可以指出我正确的方向吗？

这是我目前正在使用的VBA代码，我想对其进行完善：

Option Explicit
Sub SaveAsSafety()
 'Saves filename as value of A1 plus the current date


Application.CommandBars("Tools").Controls("Spelling...").Execute
 'Invokes spell check

Dim newFile As String, fName As String
 ' Don't use "/" in date, invalid syntax
fName = Range("M9").Value
 'Change the date format to whatever you'd like, but make sure it's in quotes
newFile = fName & " - " & Range("D10").Value & " - " & Range("D9")
 ' Change directory to suit your PC, including USER NAME

Sheets(Array("Safety Inspection", "Invoice")).Select
Sheets("Safety Inspection").Activate

ChDir _
"C:\Users\Brian\Google Drive\Buller Heating and Air\Invoices"
ActiveWorkbook.SaveAs Filename:=newFile
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

Answer 1

要检查特定单元格中的拼写，请尝试：

Sub bbuller()
    Dim boo As Boolean

    s = Array("Invoice!D15", "Invoice!D16", "Invoice!D17", "Invoice!D18", "Invoice!D19", "'Safety Inspection'!D38")
    For Each ss In s
        boo = CheckItNew(Range(ss))
        If boo Then
            MsgBox ss & " has no errors"
        Else
            MsgBox ss & " has errors"
        End If
    Next ss
End Sub

Public Function CheckItNew(r As Range) As Boolean
    Dim MyText As String
    MyText = r(1).Text
    Dim oxlAp As Object
    Set oxlAp = CreateObject("Excel.Application")
    CheckItNew = oxlAp.CheckSpelling(MyText)
    oxlAp.Quit
    Set oxlAp = Nothing
End Function