Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
データが入力されたときに変更する必要があるフォームがあります。説明するのは難しいですが、これが私の状況を説明できる最良の方法です。
A b 1 .5 10 2 .5 5 3 エンド ユーザーは b1 に 10 を入力し、入力時に 5 に変更したいと考えています。これはフォームが設定されているため、列を変更することはできません。
何か案は?ありがとうございました。
申し訳ありませんが、書式設定がわかりません...
ワークシート コードに次のようなものを入れることができます。
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