Excel VBA質問箱 IV

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

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


5997 / 13646 ツリー ←次へ | 前へ→

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

【47789】入力と同時に
質問  kawa  - 07/3/22(木) 16:00 -

引用なし
パスワード
   エクセルで会社への案内書を作っているんですが、
会社名を入力すると決められたセルへその会社の電話番号が出てくるようにしたいんですが・・。エクセルの違うシートに住所録も作ってありそれを活用したいんですができますでしょうか?

【47790】Re:入力と同時に
発言  ウッシ  - 07/3/22(木) 16:09 -

引用なし
パスワード
   こんにちは

VLookupとかの関数でも出来そうですけど?

【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

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