|
こんにちは。かみちゃん です。
>上記のように数字を並べて数字の"2"の右のセルに"1"を入れるのを禁止と
>いう条件のコードを作りたい
Blueさんから入力規則の案が提示されましたが、VBAでの方法を作ってみましたので
参考にしてみてください。
なお、このコードは、シートモジュールに記述します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntMax
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If .Column > 1 Then
vntMax = Application.WorksheetFunction.Max(Range(.Offset(, (.Column - 2) * -1), .Offset(, -1)))
If .Value < vntMax Then
MsgBox vntMax & "より大きい値を入力できません"
.ClearContents
.Select
End If
End If
End With
End Sub
|
|