0

データが入力されたときに変更する必要があるフォームがあります。説明するのは難しいですが、これが私の状況を説明できる最良の方法です。

A b
1 .5 10
2 .5 5
3 エンド ユーザーは b1 に 10 を入力し、入力時に 5 に変更したいと考えています。これはフォームが設​​定されているため、列を変更することはできません。

何か案は?ありがとうございました。

申し訳ありませんが、書式設定がわかりません...

4

1 に答える 1

0

ワークシート コードに次のようなものを入れることができます。

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = Range("B1").Address Then

    If Range("B1") = 10 Then

        Range("B1").Value =  5

    Else

        Range("B1").Value = 5

    End If

End If


End Sub
于 2013-02-11T12:09:20.313 に答える