小编Ama*_*LOU的帖子

我有一个带有隐藏幻灯片的 Powerpoint 演示文稿。

我只想对可见的幻灯片进行编号。

我得到这个代码：

Sub Numerotation()
Dim x As Integer
Dim diapo As Slide
For Each diapo In ActivePresentation.Slides
  If diapo.SlideShowTransition.Hidden = False Then
    x = x + 1
    diapo.HeadersFooters.Footer.Text = x
  Else
    diapo.HeadersFooters.Footer.Text = ""
  End If
Next
End Sub

我收到这个错误：

Execution Error : '-2147188160 (80048240)':
HeaderFooter (unknown member) : Invalid request

我不明白为什么vba不能识别HeaderFooter成员（这是MSDN所说的）

你能帮我找出哪里出了问题吗？

我有这些循环：

xall = data.frame()
for (k in 1:nrow(VectClasses))
{
for (i in 1:nrow(VectIndVar))
  {
   xall[i,k] = sum(VectClasses[k,] == VectIndVar[i,])
  }
}

数据：

VectClasses =包含每个类别特征的数据框

VectIndVar =包含数据库的每个记录的数据框

这两个for循环可以工作并提供我可以使用的输出，但是，这花费的时间太长，因此我需要Apply系列

我正在寻找的输出是这样的：

    V1 V2 V3 V4
 1  3  3  2  2
 2  2  2  1  1
 3  3  4  3  3
 4  3  4  3  3
 5  4  4  3  3
 6  3  2  3  3

我尝试使用：

xball = data.frame()
xball = sapply(xball, function (i,k){
 sum(VectClasses[k,] == VectIndVar[i,])})

xcall = data.frame()
xcall = lapply(xcall, …