Excel VBA質問箱 IV

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

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


4374 / 76734 ←次へ | 前へ→

【77983】Re:再び質問
発言  ichinose  - 16/2/23(火) 8:28 -

引用なし
パスワード
   ▼勤怠システムを自作したい さん:

>ここをVlookupで解決しようとしましたが訳がわからなくなってしまいました。
コンボボックスって優れものです。


新規ブック(Sheet1というワークシートがある)にて


Sheet1のセルA1からB5に以下のようなデータがあったとします。

 A         B
白岡あさ     あさが来たの主人公
白岡新次郎    あさの夫
白岡千代     おさの娘
白岡榮三郎    新次郎の弟
眉山はつ     あさの姉


ユーザフォームを一つ作ってください(UserForm1)

コンボボックス(ComboBox1)を一つ配置してください

Userform1のモジュールに

Option Explicit
Private Sub ComboBox1_Change()
  With ComboBox1
    If .ListIndex >= 0 Then
     MsgBox .List(.ListIndex, 0) & vbCrLf & .List(.ListIndex, 1)
    End If
  End With
End Sub
Private Sub UserForm_Initialize()
  With ComboBox1
    .Style = fmStyleDropDownList
    .List = Worksheets("sheet1").Range("a1:b5").Value
    .ColumnCount = 1
  End With
End Sub


標準モジュールに


Option Explicit

Sub test()
  UserForm1.Show
  
End Sub

testを実行し、UserForm1を表示させ、コンボボックスを選択してください。

対応したメッセージも表示されます。

このように使うと 検索機能が不要です。

5 hits

【77980】再び質問 勤怠システムを自作したい 16/2/22(月) 14:34 質問[未読]
【77983】Re:再び質問 ichinose 16/2/23(火) 8:28 発言[未読]
【77984】Re:再び質問 勤怠システムを自作したい 16/2/23(火) 12:06 発言[未読]
【77985】Re:再び質問 β 16/2/23(火) 19:24 発言[未読]
【77986】Re:再び質問 β 16/2/23(火) 19:52 発言[未読]
【77987】Re:再び質問 yuto 16/2/23(火) 20:16 発言[未読]
【77991】Re:再び質問 ichinose 16/2/24(水) 6:55 発言[未読]
【77992】Re:再び質問 β 16/2/24(水) 7:36 発言[未読]
【77993】Re:再び質問 勤怠システムを自作したい 16/2/24(水) 11:53 質問[未読]
【77994】Re:再び質問 ichinose 16/2/25(木) 2:11 発言[未読]
【78000】Re:再び質問 ichinose 16/2/28(日) 15:46 発言[未読]
【77999】Re:再び質問 β 16/2/27(土) 19:59 発言[未読]

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