Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4374 / 76734

←次へ　｜　前へ→


	【77983】Re:再び質問

ichinose - 16/2/23(火) 8:28 -


	引用なし

	パスワード

▼勤怠システムを自作したいさん：

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

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

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

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

ユーザフォームを一つ作ってください（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を表示させ、コンボボックスを選択してください。

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

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

6 hits

▼

【77980】再び質問 勤怠システムを自作したい 16/2/22(月) 14:34