我有以下问题:
我需要突出显示生产订单开始和结束周的期间,通过所有列 - 正如您在标题中看到的那样,有很多生产订单。
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
答案 0 :(得分:0)
至于突出显示,你需要加入“条件格式”。 (它在主页上。) 从列D11中选择单元格,直到需要公式的列范围结束。单击条件格式并输入公式:
=AND($B11>D$6;$B11<D$7)
确保美元标记位于正确的位置。并设置要应用的格式,例如填充为红色。应用公式,您刚刚为D列创建了条件格式。现在选择单元格D11并单击“格式画家”按钮并选择要应用公式的整个范围。完成。
更新,添加年份:
我只在表格中看到一年。即在顶部。因此,如果开始/结束周也可以是其他一年,那么应该添加额外的行开始年份和结束年份。然后为使用公式创建的excel date_formats创建额外的行和列: creating excel_date_format
然后您可以使用与之前相同的CF,使用新添加的列和行,如: