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

作者: 楊♡
发布时间: 2024-05-16 06:00:36 (4天前)
转自：

2 条回复

0#
回复此人
天线宝宝 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 要检查特定单元格中的拼写，请尝试： </p> <pre> <code> 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 </code> </pre> </DIV>

编辑

登录后才能参与评论