Question

我搜索了很多示例，以指导我开发日历电子表格。客户有非常具体的准则。

前11列包含事件详细信息，将其设置为过滤器
第1行目前为空白，但将用于标题
从K列到无穷（BXY）的第2行是年份
从K列到BXY的行3是月份
从K列到BXY的第4行是天

其他说明：单元格K6的日期为18年7月1日。第4行中的所有单元格继续为= K $ 6 + 1..etc。周的计算公式为：

=CONCATENATE("WEEK ", IF((IF(MONTH(K6)>=10, WEEKNUM(K6)-WEEKNUM(DATE(YEAR(K6),10,1))+1, 53-WEEKNUM(DATE(YEAR(K6)-1,10,1))+WEEKNUM(K6)))=53,1,(IF(MONTH(K6)>=10, WEEKNUM(K6)-WEEKNUM(DATE(YEAR(K6),10,1))+1,53-WEEKNUM(DATE(YEAR(K6)-1,10,1))+WEEKNUM(K6)))))

计算第2行中的所有单元格：

=YEAR($K$6)

现在我陷入困境。我正在为一个用户窗体工作，以便用户输入填充电子表格中下一个空行的所有数据。我无法发布执行此操作的代码，因为它在专用计算机系统上。但是，填充过滤器范围A到J的代码可以正常工作。此代码查找下一个空行：

lastRow = ws.Cells.Find(What:="*", LookIn=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

作为表格的一部分，用户输入事件的开始日期和结束日期。我正在尝试在第4行中搜索开始日期和结束日期，合并开始日期和结束日期之间的所有单元格，然后将事件标题插入合并的单元格中。

到目前为止，这是我用于搜索第4行的代码：

For Each eventDate In .Range("K$4:BXY$4)
If IsDate(eventDate.Value) = IsDate(Me.tbStartDate.Value) Then
.Cells(lastRow, eventDate.Address(RowAbsolute:=True, ColumnAbsolute:=False)).Value = Me.tbEventName.Value
End If
Next eventDate

我是excel编程的新手，实际上只是一个业余程序员。在工作中，我被赋予了这项任务，并且一直在阅读和研究我尝试做的事的例子……无济于事。

我正在考虑修改此代码段以使其工作：

For iCounter = myLastRow To myFirstRow Step -1
If .Cells(iCounter, myCriteriaColumn).Value = myCriteria Then 
.Range(.Cells(iCounter, myFirstColumn), .Cells(iCounter, myLastColumn)).Merge
Next iCounter

与此：

LastCol = sh.Cells.Find(What:="*", After:=sh.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column

我们将非常感谢您提供有关如何实现此目标的任何帮助和指导。

v / r 尘土飞扬

Answer 1

我知道了，可能不是最好的解决方案，但是它可行：

lastRow = .Cells.Find(What:="*",_
    LookIn:=xlFormulas,_
    LookAt:=xlPart,_
    SearchOrder:=xlByRows,_
    SearchDirection:=xlPrevious).Row + 1
eventName = Me.tbID.Value + " " +_
    Me.tbOpName + " " +_
    Me.tbStartDate.Value + "-" +_
    Me.tbEndDate.Value
startDate = Format(Me.tbStartDate.Value, "dd-mmm-yyyy;@")
endDate = Format(Me.tbEndDate.Value, "dd-mmm-yyyy;@")

For startCol = 14 to 959
    startDateColumn = Format(.Cells(6, startCol).Value, "dd-mmm-yyyy;@")

    If StrComp(startDate, startDateColumn, vbTextCompare) = 0 Then
        For endCol = 14 to 959
            endDateColumn = Format(.Cells(6, endCol).Value, "dd-mmm-yyyy;@")
            If StrComp(endDate, endDateColumn, vbTextCompare) = 0 Then
                .Range(.Cells(lastRow, startCol), .Cells(lastRow, endCol)).Merge
                .Cells(lastRow, startCol).Value = eventName
                Exit For
            End If
        Next endCol
     End If
Next startCol

在日期中搜索一行，确定开始日期和结束日期，合并从开始日期到结束日期的行中的单元格

1 个答案: