特定のセルに入力規制をしたいのです。教えてください。

いつもお世話になります。
更新ボタンををクリックすると、ある条件のもとに、別表からデータの一部が抽出されます。（添付の表）
その抽出された該当者№をセルＤ１で指定し、その備考欄の数字によって、処理をします。

その際、【セルＤ１】に処理する該当者の　№　を入力するのですが、表の該当者欄が空白の№を入力できないようにするにはどうすればいいですか？

よろしくお願いします。

質問者からの補足コメント

• 

  ご指摘のように、マクロに組み込みましたが、うまく作動しないのです。どうしてなのかが分かりません。ヒントでもあればお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/05/03 17:56

No.4 回答者： WindFaller 回答日時： 2018/05/04 21:35

>マクロに組み込みましたが、うまく作動しないのです。

どうしてなのかが分かりません。ヒントでもあればお願いします。

マクロの質問？コードも何もないのに、うまく作動しないとか、どうしてと言われても、分かりません。ここのいつもの回答者さんの十八番みたいなコードになりますが、例えば、こんなふうとか？
エラー処理でちょっとコードがくどいかもしれません。

DropDown方式なら、空白を詰めればよいことです。ただし、DropDownを編成する別のマクロが必要になる可能性があります。


'//
Sub Button1_Click()
Dim Rng As Range
Dim target As String
Dim c As Variant
If Trim(Range("D1").Value) = "" Then Exit Sub
target = Trim(Range("D1").Value)
Set Rng = Range("B3", Cells(Rows.Count, "B").End(xlUp))
Set c = Rng.Find(target, , xlValues, xlWhole)
If Not c Is Nothing Then
　If c.Offset(, 1).Value <> "" Then
　 MsgBox "'実行" 'ここに実行マクロを入れる
　Else
　 MsgBox "実行できません。", vbExclamation
　 Exit Sub
　End If
Else
　MsgBox "その番号はありません。", vbExclamation
End If
End Sub

この回答へのお礼

ありがとうございます。
＞マクロに組み込みましたが
表現がまずかったですね、ごめんなさい。
Ｃ１にある更新ボタンをクリックして、下の表を更新作成します。（ここまでで最初のマクロ１終了です）
その次に、右側の処理作業に入るマクロ（マクロ３を実行する）前に、№２の箇所で
示していただいたマクロ（マクロ２）を単独で実行したがうまく作動しなかった、という意味でした。

お礼日時：2018/05/06 10:41

No.3 回答者： あらっそ 回答日時： 2018/05/04 00:37

ちょっと変わってしまいますが、

D4～Dxに以下の式を入れて、該当者がいるNoのみを表示するようにして、

　=IF(C4<>"",B4,"")


D4～DxをD1の入力規則のリスト対象にしたら、その番号しか入力できなくなると思いますが、いかがでしょうか？

※ドロップダウンリストには空白が多くなってしまいますので、ドロップダウンリストを使用しないほうがいいかも

この回答へのお礼

ありがとうございます。
そういう方法もあるのですね。
参考になりました。
ありがとうございます。

お礼日時：2018/05/04 08:04

No.2 回答者： programmermas999mac 回答日時： 2018/05/03 17:21

ボタンをクリックした際にデータを持ってくるのはマクロでやっているのでしょうか。

でしたら、データを持ってくる際に、D1に設定したい値リストを作成します。

　Dim strValList as String

　strValList = "1,5,14" '図の例だとこうなるはずですよね。

　With Range("D1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:=strValList
.IgnoreBlank = True
.InCellDropdown = True
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
　
　これでセルD1に入力規則が設定されるはずです。

この回答へのお礼

早速の回答ありがとうございます。
データを持ってくるのはマクロですので、参考になります。

お礼日時：2018/05/03 17:36

No.1 回答者： ママチャリ 回答日時： 2018/05/03 17:05

質問文に余計な説明が多いようですが・・・。

D1セルの入力規則に、次の式を設定するだけで良いのではないでしょうか。

=VLOOKUP(D1,B4:C20,2,FALSE)<>""

この回答へのお礼

早速の回答ありがとうございました。
そうでした、了解しました。

お礼日時：2018/05/03 17:34