0

参考画像の様に、セルに数値だけを入力しただけでマクロ等を設定 参考画像の様に、セルに数値だけを入力しただけでマクロ等を設定

参考画像の様に、セルに数値だけを入力しただけで
マクロ等を設定しておけば、自動的に入力数値×4を
表示させる方法があれば教えてください。
例えば1000を入力した場合4000とひょうじされればＯＫです。

補足なんですが、入力した数値をデリートで消した場合でも、再度数値を入力する事で、入力数値×4の数値が表示できれば幸いです。お願い致します。

上記の事は先ほど下記の通り教えていただき解決したのですが、

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C5:C9")) Is Nothing Then Exit Sub
If WorksheetFunction.IsNumber(Target.Value) = True Then
Application.EnableEvents = False
Target.Value = Target.Value * 4
Application.EnableEvents = True
End If
End Sub

E5からE9のセルにも入力すると入力数値×４の数値に表示させる方法も以下の通り解決したのですが

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Set myRng = Union(Range("C5:C9"), Range("E5:E9"))
If Intersect(Target, myRng) Is Nothing Then Exit Sub
If WorksheetFunction.IsNumber(Target.Value) = True Then
Application.EnableEvents = False
Target.Value = Target.Value * 4
Application.EnableEvents = True
End If
End Sub

ただRange("E5:E9")等のレンジを３０個以上入力したらエラーになります。
何か対策方法等ございますでしょうか？

質問者が選んだベストソリューション

Yahoo!知恵袋 5199日前