|
以下のようなマクロを組みました。
現状で、無効(予定価格超過)"と"無効(最低制限価格未満)"
はちゃんと表示されるますが、
「最低制限価格未満」以上の最小値に
"落札"の文字を表示させたいのですが
式がわかりません。
ためしに、「一つ上のセルが空白で、一つ下のセルが"無効(最低制限価格未満)"
のとき、"落札"の文字を表示させる」設定を試してみましたが、
表示されません。
今回のコードの訂正とともに、
他にも"落札"の文字を表示させる方法がありましたら、
ご教示いただければ有難いです。
よろしくお願いいたします。
===========================
Sub Sample3()
Dim i As Long
For i = 17 To 116
If Cells(i, 3) > 0 Then
Select Case Cells(i, 3).Value
Case Is > Cells(4, 2).Value
Cells(i, 4).Value = "無効(予定価格超過)"
Case Range("B9") To Range("B14")
Cells(i, 4).Value = "無効(最低制限価格未満)"
Case Cells(i - 1, 4) = "" And Cells(i + 1, 4) = "無効(最低制限価格未満)"
Cells(i, 4).Value = "落札"
End Select
End If
Next i
End Sub
=====================
|
|