|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
请问大家,以下代码怎么转成C#的VSTO代码:
Sub SelectNum() '选择数字
On Error GoTo 100
Selection.SpecialCells(xlCellTypeConstants, 1).Select: Exit Sub
100: MsgBox "没找到数字!"
End Sub
Sub SelectTxt() '选择文本
On Error GoTo 100
Selection.SpecialCells(xlCellTypeConstants, 2).Select: Exit Sub
100: MsgBox "没找到文本!"
End Sub
Sub SelectErr() '选择错误
On Error GoTo 100
Selection.SpecialCells(xlCellTypeFormulas, 16).Select: Exit Sub
100: MsgBox "没找到错误!"
End Sub
Sub SelectBoln() '选择逻辑值
On Error GoTo 100
Selection.SpecialCells(xlCellTypeFormulas, 4).Select: Exit Sub
100: MsgBox "没找到逻辑值!"
End Sub
Sub SelectBlnk() '选择空单元格
Dim rng As Range
On Error GoTo 100
Selection.SpecialCells(xlCellTypeBlanks).Select
Exit Sub
100: MsgBox "没找到空格!"
End Sub
|
|