主题：code文件（4月29日更新）

增加了20个并且比帮助中精减了代码
帮助：
If e.Table.Position = -1 Then '如果当前行不是数据行
    StatusBar.Message1 = "共" & e.Table.Rows.Count & "行" '只显示总行数
Else '否则显示当前行位置和总行数
    StatusBar.Message1 = "第" & e.Table.Position+1 & "行,共" & e.Table.Rows.Count & "行"
End If
精减：
StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"