|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Sub test()
Dim inLineShp As InlineShape, n&, k&
Application.ScreenUpdating = False
With ActiveDocument
With .Tables(1)
For k = 2 To .Rows.Count
For Each inLineShp In .Cell(k, 4).Range.InlineShapes
If Not inLineShp.OLEFormat Is Nothing Then
If inLineShp.OLEFormat.Object.Value = True Then
n = n + Left(.Cell(k, 3).Range.Text, Len(.Cell(k, 3).Range.Text) - 2)
End If
End If
Next
Next k
End With
End With
MsgBox n
Application.ScreenUpdating = True
Beep
End Sub
|
评分
-
1
查看全部评分
-
|