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

时间:2014-11-19 11:47:12

标签: excel vba coordinates

我有以下问题:

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

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

1 个答案:

答案 0 :(得分:0)

至于突出显示,你需要加入“条件格式”。 (它在主页上。) 从列D11中选择单元格,直到需要公式的列范围结束。单击条件格式并输入公式:

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

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

更新,添加年份:

我只在表格中看到一年。即在顶部。因此,如果开始/结束周也可以是其他一年,那么应该添加额外的行开始年份和结束年份。然后为使用公式创建的excel date_formats创建额外的行和列: creating excel_date_format

然后您可以使用与之前相同的CF,使用新添加的列和行,如:like it would look if you don't hide the newly added orange coloured entries