Excel VBA質問箱 IV

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

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


35837 / 76732 ←次へ | 前へ→

【46086】Re:ユーザーフォームのリストを検索→転記
発言  かみちゃん E-MAIL  - 07/1/22(月) 18:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ところで、後問題として残っているのは、

>>1.ListBoxに一旦全体のデータを反映させるのか?
>これは前にも申し上げたように一応表示させたいです。

やっぱりわかりません。一応というくらいの簡単なコードではないですよ。
無意味(と思われる)コントロールを、UserForm上に配置するのは、スペース
の無駄使いと思うのですが?
私は、表示させる必要はないと思いますし、すでにできていますよね?

それとは、別にTextBox1に検索値を入力し、CommandButtonをClickすると、
ListBox1からではなく、再度、テキスト.txtからListBox2(ComboBoxでも可)
に条件に部分一致するデータだけをAddする形ではいけませんか?

>>2.検索条件に一致したもののListBoxはComboBoxにではいけませんか?
>お勧めでやってみます

決して、押し付けているわけではありませんので、念のため。
私なら、UserForm上での配置スペース、コードの記述の簡単さから、操作上の
制約がない(複数選択はしない)こちから、総合的に判断してComboBoxでいい
のでは?と申し上げています。

>>3.全角半角、大文字小文字統一処理は可能か?
>上のコードのSub Sample1()実行してみましたが
>いまいち使い方が解りませんsample1を実行すると
>MsgBoxが表示され元データ 6byte等表示されますが
>エクセル上で(テキスト.txt登録前)に変換させるプログラムですか?

そうなのですが、いろいろな変換パターンを記述しました。
MsgBox上で等幅フォントでない場合は、表示がわかりづらいかもしれません。
全角・半角、大文字・小文字を検索する場合(今回は、Findメソッド等は使え
ません)何かに統一しないといけないのです。
まず、それをきちんと理解してください。だから、後回しと申し上げました。

>>4.2.で反映されたListBox(またはComboBox)からセルへの転記は、CommandButtonをClickしたとき?
> ハイそうです。

ComboBox1とCommandButton1をUserForm上に配置して、UserFormモジュールに
以下のコードを記述して動作確認してみてください。
ComboBoxから選択して、CommandButtonをClickすると、MsgBoxで選択された
値が表示されると思います。

Private Sub UserForm_Initialize()
 Me.ComboBox1.AddItem "AAA"
 Me.ComboBox1.AddItem "BBB"
End Sub

Private Sub CommandButton1_Click()
 MsgBox Me.ComboBox1.Value
End Sub

>操作を行ったsheetのA1からのデータなんですが
>コード.xlsを読んでいない
>下記間違ってます

すみません。私、間違っていました。
以下のように★の行を追加してください。

Private Sub UserForm_Initialize()
 Dim ws As Worksheet

 Set ws = Workbooks("コード.xls").Sheets("Sheet1")
 With Range("A1", Cells(Rows.Count, 3).End(xlUp))
  Me.ListBox1.ColumnCount = .Columns.Count
  Me.ListBox1.ColumnWidths = "30 pt;50 pt;40 pt"
  ws.Activate '★
  Me.ListBox1.RowSource = .Address
  ThisWorkbook.Activate '★
 End With
End Sub
1 hits

【46028】ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:02 質問
【46030】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 17:15 発言
【46031】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:33 発言
【46037】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 18:43 発言
【46039】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 20:29 発言
【46043】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 20:46 発言
【46051】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 22:51 発言
【46052】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 23:12 発言
【46057】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 23:32 発言
【46058】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 0:09 発言
【46060】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 0:21 発言
【46061】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 7:15 発言
【46063】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 10:21 発言
【46064】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 11:35 発言
【46067】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:18 発言
【46070】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 13:01 発言
【46071】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 13:09 発言
【46066】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:04 発言
【46084】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 17:25 発言
【46085】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:06 発言
【46087】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:12 発言
【46088】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:23 発言
【46086】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:07 発言
【46090】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:45 発言
【46092】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 20:48 発言
【46098】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 21:48 発言
【46099】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:07 発言
【46100】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 22:44 発言
【46101】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:55 発言
【46106】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 2:51 発言
【46107】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 3:03 発言
【46109】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 7:33 発言
【46114】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 9:28 発言
【46117】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 11:09 回答
【46120】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 14:09 発言
【46121】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 14:42 発言
【46122】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 15:09 発言
【46124】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 16:51 回答
【46129】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 17:33 発言
【46133】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 20:22 発言
【46134】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 20:40 発言
【46139】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 3:58 発言
【46140】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 7:28 発言
【46157】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 20:44 発言
【46159】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 20:51 発言
【46168】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/25(木) 0:22 お礼

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