Excel列范围突出显示和计算数据的插入
提问于 2014-11-19 03:47:12
我有以下问题：
我需要高亮期间的生产订单开始和结束一周，通过所有的列-正如您在标题中看到的，有很多生产订单。
有可能用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
Stack Overflow用户
回答已采纳
发布于 2014-11-19 08:47:51
至于突出显示，您需要使用“条件格式”。(它在家里的彩带上)从列D11中选择单元格，直到需要公式的列范围结束为止。单击条件格式并输入公式：
=AND($B11>D$6;$B11<D$7)确保美元马克在正确的位置。并设置要应用的格式，例如，“填充”设置为“红色”。应用公式，您刚刚为列D创建了一个条件格式。现在选择单元格D11，然后单击"format want“按钮，然后选择要应用公式的整个范围。好了。
更新，增加年份：
我只看到了一年的时间。也就是在顶端。因此，如果开始/结束周也可能是其他年份，那就应该添加额外的行开始年和结束年。然后为在公式：format的帮助下创建的excel date_formats创建额外的行和列。
然后，可以使用与以前相同的CF，使用新添加的列和行，如下所示：
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27016081
复制相关文章
点击加载更多
腾讯云开发者
