VBA がないと、これを行う方法がわかりません。これが発生するシートに次のように記述すれば、ニーズを満たすはずです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Cells(24, 6) And Cells(22, 7) <> 0 And Cells(22, 7) <> "" Then
If Target.Value < Cells(24, 3) / Cells(22, 7) Then
Target.Value = Cells(24, 3) / Cells(22, 7)
End If
End If
End Sub
これが何をするか:
- まず、ターゲット (フォーカス) が F24 にあり、G22 セルが 0 または空白でないことを確認します。これらの条件がすべて満たされていない場合は、何もしません。
- 2 番目に、F24 で入力された値が C24/G22 より小さいかどうかをチェックし、そうである場合は、入力された値を C24/G22 の結果で置き換えます。値が C24/G22 以上の場合、何もしません。
まだ VBA 以外の方法を考えていますが、今のところ何も思い浮かびません。