vba - 如果在 power point 表中发现空单元格并且使用 vba 在哪个幻灯片中发现空单元格,则发出警报
问题描述
如果在电源点的每个表格中发现空单元格,我必须找到并提醒。
我在这里找到了下面的代码,但它不起作用,不应该为所有表找到它,而不是为选定的表找到。
Sub CheckTableCells()
Dim oCell As Cell
Dim oRow As Row
Dim MyRange As Range
For Each oRow In Selection.Tables(1).Rows
For Each oCell In oRow.Cells
If Selection.Text = Chr(13) & Chr(7) Then
oCell.Select
MsgBox oCell.RowIndex & " " & oCell.ColumnIndex & " is empty."
End If
Next oCell
Next oRow
End Sub
请任何人帮助我。
解决方案
此代码循环遍历活动演示文稿中的每张幻灯片,并在每张幻灯片中检查幻灯片上的每个形状是否包含表格,如果包含,则检查每个单元格是否为空白。干杯。
Sub CheckTableCells()
Dim vSlide As Slide
Dim vShape As Shape
Dim vRow As Long
Dim vColumn As Long
For Each vSlide In Application.ActivePresentation.Slides
For Each vShape In vSlide.Shapes
If vShape.HasTable Then
For vRow = 1 To vShape.Table.Rows.Count
For vColumn = 1 To vShape.Table.Columns.Count
If vShape.Table.Cell(vRow, vColumn).Shape.TextFrame.TextRange.Text = "" Then
MsgBox vSlide.Name & " Table: """ & vShape.Name & """ cell (" & vRow & "," & vColumn & ") is blank."
End If
Next
Next
End If
Next
Next
End Sub
推荐阅读
- mysql - SQL 保存已删除行的 PRIMARY KEY
- node.js - 对 passport.use(strategy) done 功能及其与 passport.authenticate 的关系感到困惑
- regex - 空字符串上的 Grep Perl 非贪婪范围正则表达式匹配问题
- python - 我如何将这个数据框中的可用兆瓦数量逐小时与价格范围相加到不同的列中?
- c - c实现的二叉树
- c++ - 为什么 std::vector::at 不是 const 函数?
- reactjs - 所有 Bootstrap 行都在一行中
- python - While 循环除 ValueError 外,未按预期工作
- ios - 如何考虑 SnapKit 中导航栏的高度?
- javascript - Reactjs应用程序中的路线更改时如何将浏览器缩放级别重置为“100%”