excel - 有条件的,我怎样才能使操作自动化?
问题描述
我需要我的代码可以评估几个单元格的值,并且我不需要为每个答案更改单元格
我希望这个过程是自动的
我尝试使用 for,但它不起作用
Sub Test()
If Range("E5").Value <> "OK" Or Range("F5").Value <> "OK" Or Range("G5").Value <> "OK" Then
Range("h5").Value = "NOT ACEPT"
ElseIf Range("E5").Value = "NOT OK" And Range("F5").Value = "NOT OK" And Range("G5").Value = "NOT OK" Then
Range("H5").Value = "ACEPT"
End If
End Sub
解决方案
Sub test()
If WorksheetFunction.Or(UCase(Range("E5")) <> "OK", UCase(Range("F5")) <> "OK", UCase(Range("G5")) <> "OK") Then
Range("h5").Value = "NOT ACCEPT"
Else
Range("H5").Value = "ACCEPT"
End If
End Sub
如果您只想使单元格 H5“接受”或“不接受”,则不需要 vba,您可以使用公式来完成并将其复制到 H 列中的最后一个单元格
IF(AND(UPPER(E5)="OK",UPPER(E5)="OK",UPPER(E5)="OK"),"接受","不接受")
如果您需要vba然后修改上面的代码以满足您在H列中多行的要求
Sub test()
Dim lastrow, cell As Range
lastrow = Cells(1048576, 7).End(xlUp).Row
' not fill the formula from H5 to the last row
For Each cell In Range("H5:H" & lastrow)
If WorksheetFunction.Or(UCase(cell.Offset(0, -3)) <> "OK", UCase(cell.Offset(0, -2)) <> "OK", UCase(cell.Offset(0, -1)) <> "OK") Then
cell = "NOT ACCEPT"
Else
cell = "ACCEPT"
End If
Next
End Sub
推荐阅读
- reactjs - 反应管理员分页无法正常工作
- javascript - 将对象元素传输到表
- ruby-on-rails - Rails 应用程序“出现问题”仅在(某些)手机上
- swift - 在便利初始化程序中使用 `self =` 来委托给 JSONDecoder 或 Swift 中的工厂方法,以避免`Cannot assign to value: 'self' is immutable`
- javascript - 结构化和检索具有多种大小的 JSON 对象(图像)
- javascript - Fs说没有文件但是有
- jquery - 防止在jquery中重复插入dom中的元素
- c - 由其他内存支持的 mmap 内存?
- python - 停止重新采样栅格数据的栅格
- apache-spark - 使用 spark 写入大约 100 GB 的大型数据集,只有一个分区用于配置单元