小编Low*_*par的帖子

我对 Word vba 还很陌生，这周我得到了这段代码的帮助。代码将图像插入标题中，现在我唯一的挑战是我只想在第一页上显示该图像，但是当我运行应该执行此操作的子活动时，原始页面上什么也没有出现。我正在通过访问数据库运行代码，一切正常，除了这个。

Public Sub UpdateHeader(oDoc As Word.Document)
        Dim oSec As Word.Section, rng As Range
        active oDoc
        For Each oSec In oDoc.Sections
            Set rng = oSec.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
                With rng
                    .Tables.Add Range:=rng, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow
                    With .Tables(1)
                        .Borders.InsideLineStyle = wdLineStyleNone
                        .Borders.OutsideLineStyle = wdLineStyleNone
                        .Rows.SetLeftIndent LeftIndent:=15, RulerStyle:=wdAdjustNone
                        .Cell(1, 1).Range.InlineShapes.AddPicture FileName:="C:\Images\Logo.jpg", LinkToFile:=False, SaveWithDocument:=True
                    End With
                End With
        Next oSec

    End Sub

    Sub active(oDoc As Word.Document)

    oDoc.Sections.PageSetup.DifferentFirstPageHeaderFooter = True

    End Sub

我有一个功能来检查工作表是否存在.我无法在if语句中使用它.

我宁愿不在if语句之前创建一个保存结果的变量.我应该将功能更改为子功能吗？

sub tester()
    If ShExist("Equity") = True then call differentfunction
end sub

Function ShExist(name As String)
    Dim WorksheetExists
    WorksheetExists = Evaluate("ISREF('" & (name) & "'!A1)")
End Function

我希望合并包含不同数据的两列。也就是说，一列中为空，另一列中不为空，本质上是从研究中的两个不同条件收集的数据，为了运行分析，我需要合并这些数据并运行 t 检验。我想知道如何将数字列与 dplyr 结合起来 -

check <- check %>% 
  mutate(cat = rowSums(.[1:2]))


> dput(head(check))
structure(list(t7_1_ExpA_Intro1 = c(NA_integer_, NA_integer_, 
NA_integer_, NA_integer_, NA_integer_, NA_integer_), t7_1_ExpB_Intro1 = c(NA, 
NA, NA, 3L, NA, NA), t7_1_ExpA_DV = c(NA_integer_, NA_integer_, 
NA_integer_, NA_integer_, NA_integer_, NA_integer_), t7_1_ExpB_DV = c(NA, 
NA, NA, 3L, NA, NA), cat = c(NA_integer_, NA_integer_, NA_integer_, 
NA_integer_, NA_integer_, NA_integer_)), .Names = c("t7_1_ExpA_Intro1", 
"t7_1_ExpB_Intro1", "t7_1_ExpA_DV", "t7_1_ExpB_DV", "cat"), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

我已根据各种条件创建了多个数据帧.现在我想对不同的数据帧进行采样,但是我想在采样后删除它们.我试过dplyrs sample_n:

sample_n(df, 4)

问题是这不会删除行,我是否需要一些递归循环,一旦它们被采样将删除行？或者是否有一些方便的功能可以帮助我？