小编Gan*_*alf的帖子

我试图CountIf在可见细胞上的vba中使用一个函数来计算所有可见的单元格yes,有25个,但是我得到了错误

无法获得班级的CountIf财产WorksheetFunction

它突出显示returnCount,不确定是否也有错误myrange,任何帮助将不胜感激.

Set myrange = _
Range("D4",Range("D4").End(xlDown)).SpecialCells(xlCellTypeVisible)

returnCount = WorksheetFunction.CountIf(myrange, "yes")

有谁知道如何暂停和恢复 robocopy 任务。我正在服务器之间移动大量文件，希望在两天内完成移动，但不知道是否可以暂停，然后在重新连接到网络后恢复任务？

所以你的问题是，有谁知道一旦你的 robocopy 任务开始，如何暂停然后恢复它？

谢谢！

我有一个返回运行时错误13的循环,我不知道为什么.我已经将整个列更改为文本,但它仍然无效 - 任何人都知道为什么？myColumn中有字符串"Test".返回错误的行是一个开头If Left(

Option Explicit

Sub myMacro()

Dim startPoint As range
Dim myCell As range
Dim columnToFind As Integer
Dim i As Integer
Dim myColumn As range

Application.ScreenUpdating = False

Worksheets("mySheet").Activate

Dim myDate As String                            

myDate = Application.InputBox("Please enter the date you would like to run 
the macro for (DD/MM/YY)")



Rows("4:4").Select
Selection.Find(What:=myDate, After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

Set startPoint= ActiveCell.Offset(1, 1)

ActiveCell.EntireColumn.Offset(0, 2).Insert

columnToFind = Application.WorksheetFunction.Match(myDate, Rows("4:4"), 0) - 
1


i = startPoint.CurrentRegion.Columns.Count

Set …