Excel VBA質問箱 IV

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

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


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

35866 / 76732

←次へ　｜　前へ→


	【46057】Re:ユーザーフォームのリストを検索→転記

yasu - 07/1/21(日) 23:32 -


	引用なし

	パスワード

▼かみちゃんさん：

>>セルをダブルクリックしテキスト.txtがユーザーフォーム上に表示されますね
>>その後→テキストボックスに検索値→コマンドボタン→リストボックス２に
>>検索値が表示→この中に目的とするデータがあれば→データをクリック転記
>
>私は、以下のような処理ということで理解していますが、違っていたら、教えてください。

ほぼOKですが
もう一度簡潔に書きます。UserForm2が１つです。
配してあるツールですが
ListBox1が1つ（始め特定セルをクリックした時---テキスト.txt表示用）
TextBox1が1つ（検索値入力用）
CommandButton1が1つ（検索値入力後クリック）
CommandButton2が1つ（検索の値クリア用）先ほどの問い合わせです。
ListBox2が1つ（検索結果表示用）
以上がユーザーフォームの構成です。

ユーザーフォームは
>1.特定のセルをダブルクリック
ok

>2.UserFormが表示される
ok

>3.TextBox1の値に検索値を入れる
>　（カタカナでもＯＫ。全角半角、大文字小文字はとりあえず区別すること）
ちょっと希望
検索時カタカナ　全角半角　大文字小文字はテキスト.txtがまちまちのため
オール対応どちらでも検索結果に表示したいです。

>4.コマンドボタンをクリック
ok

>5.テキスト.txtからListBox2に条件が一致するデータのみAddされる
ok

>6.ListBox2をクリックしたらセルへ転記？
ok
下記のように記述しました。

Private Sub ListBox2_MouseUp(ByVal Button As Integer, _
　　　　ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　ActiveCell.Value = Left(ListBox2.Value, 6)
　　Unload Me
End Sub

>　この部分が今ひとつわかりません。
>　どのタイミングでセルへ転記するのですか？
検索結果を表示後、表示された内容に目的の名前があれば
クリック→転記→終了　なければ再検索あるいは終了し手入力

>　ListBoxではなく、ComboBoxではないのですか？
どの部分ですかCombBox？

>
>UserFormは、いくつあって、そのUserFormには、どのようなコントロール
>（TextBoxや、ListBox）がいくつ配置されているのか（複数のUserFormがあるならばそれぞれ）
>教えていただけませんか？
>なんとなく、私が勘違いしているような気がするものですから。。。
>
>> 違う結果が出た場合コマンドボタン２で
>> 一度リストボックスをクリアしたい
>
>Listbox2.Clear
Private Sub CommandButton2_Click()
　　UserForm2.ListBox2.Clear
End Sub
↑このようにしました。
>です。
>以下も参考にしてみてください。
>ｈｔtp://homepage3.nifty.com/bear/basis/listbox.htm
>（先頭から二文字は（全角になっているので）半角にしてください）
あとでよく見ます。
以上なんですがかみちゃんさん
理解いただけましたか。。
その上で全角半角・大文字小文字を何とかなりませんか・・・
よろしくお願いします。

1 hits

▼

【46028】ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:02