0

セル内のa1値は常に変化しています。a2のa1の最小値を追跡したい。どうしてそれは可能ですか?

4

1 に答える 1

0
  1. A1の値をA2に格納します。
  2. A1の変更に対応するイベントを実装します。
  3. イベントが発生したら、A1とA2を比較し、A1が小さい場合は、新しい値を保存します。

これは、A2にすでに値があることを前提としています。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Dim a2val As Variant
        Dim a1val As Variant
        a2val = Range("$A$2").Value2
        a1val = Range("$A$1").Value2
        If a1val < a2val Then
            Range("$A$2").Value2 = a1val
        End If
    End If
End Sub
于 2012-11-01T10:32:28.453 に答える