VBA Excel宏可基于多个条件更新单元格值
卡塔琳·塞纳特（Catalin Cernat）
我无法解决这个问题，即时通讯处于我的沸点上限，因此我真的可以使用您的指导或帮助。我已经在标题中附加了一张图片。我需要一个vba宏，以使用以下条件更新/更改E列（Ve Planning）中的值：
- D列必须为空白。
- 必须仅针对列A中的相同值进行更新。
- 第I列（操作）=激光。
- 如果F列（W NO）的值相等。
然后使用操作LASER + 10天的E列值更新Operation = SUDURA的E列值。
我不知道您是否了解这种混乱情况，但如果您理解，则将不胜感激。
非常感谢！
Shai Rado
尝试下面的简短代码，它在有限的数据记录下可以用于我的测试。让我知道它是否也适用于您的数据。
Sub UpdateVEPlanning()
Dim sht As Worksheet
Dim LastRow, lRow As Long
' modify "Sheet1" to whatever worksheet name you have
Set sht = ThisWorkbook.Worksheets("Sheet1")
' find last row in sheet with data
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).row
For lRow = 2 To LastRow
If sht.Cells(lRow, 1) = sht.Cells(lRow - 1, 1) Then
If Not (sht.Cells(lRow, 9).Find("SUDURA") Is Nothing) And (IsEmpty(sht.Cells(lRow, 4).Value2) Or sht.Cells(lRow, 4).Value2 <= 0) Then
If sht.Cells(lRow, 6) = sht.Cells(lRow - 1, 6) Then
sht.Cells(lRow, 5) = sht.Cells(lRow - 1, 5) + 10
End If
End If
End If
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
Excel VBA-更改单元格时运行宏
- 2
Excel VBA宏-复制并插入复制的单元格
- 3
Excel VBA选择多个单元格
- 4
Excel VBA重现单元格的值
- 5
从if语句宏vba中排除某些单元格值
- 6
VBA Excel单元格值是“ not” NULL
- 7
Excel VBA宏-在选定的单元格上运行
- 8
Excel VBA：基于单元格值的颜色范围
- 9
Excel VBA：查找具有多个条件的单元格的值的方法
- 10
Excel VBA：根据条件更新单元格
- 11
基于单元格VBA的Excel自动更改表名称
- 12
VBA宏如果在多个单元格中找到该单元格，则
- 13
Excel 2010 VBA单击单元格触发器宏以显示值列表
- 14
每个选定单元格的Excel VBA循环宏
- 15
Excel VBA-如果单元格值满足条件，则在工作表之间复制单元格
- 16
宏/ VBA：基于列中的值清除行中的单元格，并遍历整个列
- 17
VBA Excel单元格值是“ not” NULL
- 18
如何基于单元格值在Excel VBA中设置条件？
- 19
（Excel VBA）-从宏中的单元格文本绘制
- 20
Excel中的VBA代码以基于两个条件选择单元格
- 21
Excel VBA宏将多个excel中使用的单元格复制到一个excel中
- 22
基于单元格值代码的 Excel vba 复制和粘贴不起作用
- 23
Excel VBA 单击单元格以触发宏 - 不适用于合并的单元格
- 24
基于单元格文本值的行的 VBA 条件格式
- 25
如果使用 Excel VBA 不满足条件，则编辑特定列中单元格的值
- 26
基于Excel VBA中单元格颜色的值计算
- 27
VBA - 基于数据值的高级宏更改单元格颜色
- 28
合并多个单元格值作为 VBA 中 Sum-if 函数的条件
- 29
基于单元格的 VBA 条件格式 .rank 值 - Top10
我来说两句