Excel 列范围突出显示和计算数据的插入

Question

我有以下问题：

我需要通过所有列突出显示生产订单开始和结束周的期间 - 正如您在标题中看到的那样，有很多生产订单。

vba 可以吗？

第二个问题：

每条生产线都有时间容量，因此在突出显示期间结束时，生产分钟数应除以所选生产线的每周容量。

这也需要在按钮单击时完成，例如使用 vba 或公式，但我不知道将这些公式放在哪里，因为整个表格和标题应该是动态的 - 生产计划每周更新。

更新：

这里的代码，从开始到结束周的订单制造期间插入公式，我需要遍历所有列并根据以下订单开始和结束周插入此公式。而且我不知道该怎么做，因此非常感谢您的帮助:)

Sub test()

    Dim Rng, Rng2, Rng3 As Range
    Dim v1, v2 As String

    x = Range("E8")
    w = Range("E11")
    'Search Column or range
    With Sheets("forecast").Range("D:D")

            Set Rng = .Find(What:=x, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            Set Rng2 = .Find(What:=w, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)

                    'MsgBox Rng.Offset(0, 1).Address
                    'MsgBox Rng2.Offset(0, 1).Address
                    v1 = Rng.Offset(0, 1).Address
                   v2 = Rng2.Offset(0, 1).Address

            Range(v1 & ":" & v2).Select
            Selection.formula = "=E$12/(E$10-E$7)"
            Selection.NumberFormat = "0"

    End With
End Sub

生产计划示例：

http://postimg.org/image/3vkx0fv5d/ http://s8.postimg.org/cdud4s1o4/stack3.jpg

Answer 1

至于突出显示，您需要输入“条件格式”。 （它在首页丝带上。） 从 D11 列中选择单元格，直到需要公式的列范围的末尾。点击条件格式，输入公式：

=AND($B11>D$6;$B11<D$7)

确保美元标记在正确的位置。并设置要应用的格式，例如填充为红色。应用公式，您刚刚为 D 列创建了条件格式。现在选择单元格 D11 并单击“格式刷”按钮，然后选择要应用公式的整个范围。完成。

更新，添加年份：

我只在表格中看到一年。即在顶部。因此，如果开始/结束周也可能是其他年份，则应该添加额外的行开始年份和结束年份。然后为借助公式创建的 excel date_formats 创建额外的行和列： creating excel_date_format

那么你现在可以使用和以前一样的CF，使用新添加的列和行，如：