Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34145 / 76732 ←次へ | 前へ→

【47800】Re:入力と同時に
回答  Kein  - 07/3/22(木) 17:00 -

引用なし
パスワード
   >会社名を入力
どこへ入力するかによって大きく違ってきます。
"入力と同時"ということから、ニュアンスとしては特定のセルへの
入力と解釈します。ならばシートモジュールへ、セル入力イベント
として入れたら良いでしょう。仮に A2 へ入力した値をシート"リスト"
のA列で検索し、ヒットした行のB列の値をMsgBoxで表示するなら・・

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim MyCp As String
  Dim CkR As Variant

  With Target
   If .Address <> "$A$2" Then Exit Sub
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   If IsNumeric(.Value) Then Exit Sub
   MyCp = .Value
  End With
  CkR = Application _
  .Match(MyCp, Sheets("リスト").Range("A:A"), 0)
  If IsError(CkR) Then
   MshBox "その名前は登録されていません", 48
  Else
   MsgBox Sheets("リスト").Cells(CkR, 2).Value
  End If
End Sub
0 hits

【47789】入力と同時に kawa 07/3/22(木) 16:00 質問
【47790】Re:入力と同時に ウッシ 07/3/22(木) 16:09 発言
【47800】Re:入力と同時に Kein 07/3/22(木) 17:00 回答

34145 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free