我已經從 vba 中的條件格式設定為如果 runner weight 使單元格顏色為橙色<6。現在，我被困在下面的第 (2) 步。如果單元格顏色為orange ，我想在哪里輸入NO列。其余的將作為輸入。我確實嘗試過找到類似的問題，但不幸的是仍然卡住了。Propose? YES/NOYES
Sub sort()
Dim R1 As Range
Dim Condition1 As FormatCondition
'(1) Change cell to orange if runner weight <6g
Set R1 = Range("G18", "G206")
R1.FormatConditions.Delete
Set Condition1 = R1.FormatConditions.Add(xlCellValue, xlLessEqual, "=6")
With Condition1
.Interior.Color = RGB(255, 165, 0)
End With
'(2) Input N to <6g runner weight as not collect runner weight, rest input Y
Range("K18", "K206").ClearContents
uj5u.com熱心網友回復：
您根據另一個單元格的值設定顏色。根據該 SAME 單元格，您可以確定下一個單元格應該是 No 還是 Yes。你不需要評估顏色，你需要評估跑步者的體重。
If Range("G18") < 6 then
Range("K18").value = "No"
else
Range("K18").value = "Yes"
end if
您可以將其放入該范圍內所有單元格的回圈中，如下所示
For Each cel In Range("G18:G208")
If cel.Value < 6 Then
Cells(cel.Row, "K").Value = "No"
Else
Cells(cel.Row, "K").Value = "Yes"
End If
Next cel
uj5u.com熱心網友回復：
不確定條件格式是否可以解決這個問題。但是您可以在Worksheet_SelectionChange事件中添加以下代碼并解決它。相應地更改范圍和訊息。
代碼：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Range("B2", "B5") 'Change the range address
Dim ocell As Range
For Each ocell In rng
If ocell.Offset(0, -1).value <= 6 Then 'Set the offset as per your req
ocell.value = "YES"
Else
ocell.value = "NO" 'Add what message you want to give
End If
Next
End Sub
圖片：
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/380372.html
上一篇：ExcelVBA隱藏行
下一篇：確定單元格上/內是否有按鈕