Excel VBA質問箱 IV

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

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


35833 / 76732 ←次へ | 前へ→

【46090】Re:ユーザーフォームのリストを検索→転記
発言  yasu  - 07/1/22(月) 18:45 -

引用なし
パスワード
   ▼かみちゃん さん:


>>>1.ListBoxに一旦全体のデータを反映させるのか?
>>これは前にも申し上げたように一応表示させたいです。
>
>やっぱりわかりません。一応というくらいの簡単なコードではないですよ。
>無意味(と思われる)コントロールを、UserForm上に配置するのは、スペース
>の無駄使いと思うのですが?
>私は、表示させる必要はないと思いますし、すでにできていますよね?

ハイ今現在はテキスト.txtは読み込み出来てます。

>
>それとは、別にTextBox1に検索値を入力し、CommandButtonをClickすると、
>ListBox1からではなく、再度、テキスト.txtからListBox2(ComboBoxでも可)
>に条件に部分一致するデータだけをAddする形ではいけませんか?
上記でいいと思います 現にこれで出来ています。
ただ違うのはかみちゃんさんの言うListBox1に読込をしているところだけです
ListBox1にテキスト.txtを読まない場合はコードがかわるのですか。

>
>>>2.検索条件に一致したもののListBoxはComboBoxにではいけませんか?
>>お勧めでやってみます
>
>決して、押し付けているわけではありませんので、念のため。
>私なら、UserForm上での配置スペース、コードの記述の簡単さから、操作上の
>制約がない(複数選択はしない)こちから、総合的に判断してComboBoxでいい
>のでは?と申し上げています。
>
>>>3.全角半角、大文字小文字統一処理は可能か?
>>上のコードのSub Sample1()実行してみましたが
>>いまいち使い方が解りませんsample1を実行すると
>>MsgBoxが表示され元データ 6byte等表示されますが
>>エクセル上で(テキスト.txt登録前)に変換させるプログラムですか?
>
>そうなのですが、いろいろな変換パターンを記述しました。
>MsgBox上で等幅フォントでない場合は、表示がわかりづらいかもしれません。
>全角・半角、大文字・小文字を検索する場合(今回は、Findメソッド等は使え
>ません)何かに統一しないといけないのです。
>まず、それをきちんと理解してください。だから、後回しと申し上げました。
Findが使えないのでLikeなんですね
わかりました今回は元データの半角カタカナを全角に変更して
利用することのします。
>
>>>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
ハイ MsgBoxに表示できました
要領は理解しました。
>
>>操作を行った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
上記確認しましたOKでーす。
下記是非お願いします。
いくつも難題ですみません
返事遅くなりました ダイアログの件ですが
ダイアログは開いたのですが既にbookが開いている状態では
開く必要ありませんので

UserForm2.Show vbModelessをショーしたいのですが

どう書けばよいですか 下記コードです。

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
  If 1 < Target.Count Then Exit Sub
    On Error Resume Next
 If Not Intersect(Target, Range("R8:R107")) Is Nothing Then
    Cancel = True
   
  Dim OpenFileName As String
  OpenFileName = Application.GetOpenFilename _
          ("Microsoft Excelブック,*.xls")
  If OpenFileName <> "False" Then
    Workbooks.Open OpenFileName
    Windows("帳票2007.xls").Activate
  End If

  UserForm2.Show vbModeless
 Else
  UserForm2.Hide
 End If
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 お礼

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