[[20120614143719]]　『セルの入力について』（Ｐ）　ページの最後に飛ぶ

『セルの入力について』（Ｐ）
どなたか教えて下さい。
A1　が空白の時と数字が入っている時があるのですが、
例えば、A1が３だとすると、空白の時と３以上の場合はB1 に数字が入力できないと
B1 に設定するにはどうしたら良いでしょうか。
因みにA1は数字ランダムに変わり、シートごとにA1に入る数字は違ってきます。
入力規則が利用できればと思っております。

宜しくお願い致します。

 >A1が３だとすると、空白の時と３以上の場合はB1 に数字が入力できない

 この意味は？
 空白ＯＫ，かつ3未満でもＯＫ　、3以上はだめ。　こういうこと？　であれば
 B1 に入力規則　ユーザー設定で　数式が　=OR(B1="",B1<A1)　とか。

 (ぶらっと)

『セルの入力について』（P)
すいません。
空白NG、１～３未満であればOK,３以上はだめということにしたいです。
宜しくお願い致します。

 式を =AND(B1>0,B1<A1)

 ただし、空白値入力もＯＫになってしまう。
 空白値を許さない方法については、識者からの回答を待っててね。

 (ぶらっと)

 ↑　空白値の件については、エキスパートさんからの回答を待つことにするけど、それまでのつなぎで
　ＶＢＡ処理。

 シートのタブを右クリックしてコードの表示を選んででてきた場所に以下を貼り付け。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        If Len(Range("B1").Value) = 0 Or Range("B1").Value < 0 Or Range("B1").Value >= Range("A1").Value Then
            Application.EnableEvents = False
            MsgBox "空白値　あるいは " & Range("A1").Value & "以上の値は入力できません" & vbLf & _
                   "入力を取り消します"
            Application.Undo
            Application.EnableEvents = True
        End If
    End If
 End Sub

 (ぶらっと)

『セルの入力について』（P)
ありがとうございます。
入力規則でお分かりになる方いらっしゃいましたら宜しくお願い致します。

 > 入力規則でお分かりになる方
 A1が空白でも入力できてしまうってことですか？

 入力規則の設定タブにある「空白を無視する」のチェックを外したらどうなります？

 （JPN）

たぶん、入力セルであるＢ１が空白ならエラーにしたいということではないかと。
なので、『空白を無視する』は、ちょっと、この要望にはそぐわない？

 こんなのはどうでしょう。

 【B1セルに設定する入力規則】
 ・入力値の種類 … ユーザ設定
 ・数式 … =OR(A1<>"",AND(0<A1,B1<A1))
 ・「空白を無視する」チェック外す

 WinXP＋Excel2003で正常動作したのでご報告まで。
 （通りすがりのヒマ人）

 1本古いの上げてしまった…orz

 数式正しくはこちらです。
 =AND($A5<>"",AND(0<$A5,B5<A5))

 （通りすがりのヒマ人）

 また間違ってるし…
 $A5じゃなくて$A1です。

 =AND($A1<>"",AND(0<$A1,B1<$A1))

 もう何と言うかお目汚しホントすんません。

 （通りすがりのヒマ人）

 えっと、2010ですが　=AND($A1<>"",AND(0<$A1,B1<$A1))
 これでも、A1に何か値があれば、B1の空白入力ができてしまわない？
 今回のテーマは、↑でななしさんも指摘しているように、【B1の入力】にかんしての規制なのでは？

 (ぶらっと)

 ぶらっとさん検証ありがとうございました。
 ご指摘の通り、B1空白の場合が抜け落ちておりました…ホントにすんませんorz
 「A1が空白のときB1に値が入らなくする」だけなのかと思っておりました。

 これで大丈夫だと思います。
 =AND($A1<>"",B1<>"",0<$A1,B1<$A1)

 （通りすがりのヒマ人）

 ↓ に移行済み
[[20120616151852]] 『入力規則について』（P）

 （よみびとしらず）

コメント返信：

[ 一覧(最新更新順) ]

[[20120614143719]] 『セルの入力について』（Ｐ） ページの最後に飛ぶ

[[20120614143719]]　『セルの入力について』（Ｐ）　ページの最後に飛ぶ