エクセルVBAでのプログラム移植時にListBoxに表示される列を変更する方法

質問

• エクセルVBAのプログラムを移植する際に、ListBox1に表示される列を変更する方法について教えてください。
• 移植したプログラムにおいて、ListBox1には2列目のデータが表示されてしまいますが、1列目のデータを表示させたいです。
• myCrRange.Value = WorksheetFunction.Transpose(Array("エンドユーザー", "*"))の部分を変更することで、ListBox1に1列目のデータを表示させることができるのでしょうか？

回答No.2

Wendy02

こんばんは。Wendy02です。

＞リスト範囲はb1:c501
ということですが、「販売店よみ」は、どこにあるのですか？
AdvancedFilter の範囲に、「販売店よみ」を含めなければ、検索できません。
B列が販売店名, C列がエンドユーザー, D列がよみ？

全体の位置情報が分らなくなりました。

また、クライテリア部分（検索条件範囲）は、１列しか使わなくても、２列の余裕を持ったほうがよいです。論理和検索だけでなく、論理積検索のことも考えなくてはなりません。今の話の流れからすると、E-F列をクライテリア部分にし、G列からということになってしまいます。

それから、

「読み」は、Phonetic 関数をお使いなのですか？半角全角の区別があります。メニューの書式－ふりがな－編集　で、全角か半角か、カタカナかを設定をみて、クリアテリア部分の入力を決定します。

もう１つは、Version（Excel 2002 のみ、ワイルドカード・オプションの違いがあります）によって、「アジア○○○」の時もあるので、「アジア*」というようにしてあげなくてはならない、ということがあります。
また、Excel 2002 以外（つまり　Excel 2003 /Excel 2000　などということ)ですと、デフォルトが、ワイルドカード（文字に「*」をつけた状態）付きになっていますので、逆に、ワイルドカードなし状態にするには、このクライテリア部分を、２列にしないと、フィルタオプションを使いこなすのは難しいはずです。

＞UserForm2でTextBox1アジアを入力したい時

正直なところ、UserFormをふたつにすることで、前回よりも、難しくなっています。手直ししてみましたが、たぶん、全部作り直しのほうが早いような気がします。任意の部分なので、タイミング（イベント）は、こちらでは決めかねますが、ボタンなどでUserForm2 を起動するなど考えなくてはなりません。いままでの、変数も、グローバルレベルに変更したほうが良いかもしれません。

補足

再度のご返答ありがとうございます。惑わしてしまい申し訳ありません
実はWorksheet3は
A1：No、B1:販売店、C1:販売店よみ、D1:エンドユーザ
又、抽出条件としてF1:(販売店よみ）抽出範囲にH1としています。
自分なりに教えていただいたマクロのセル位置を作り変えてみました。
Dim myCrRange As Range
Dim myCrRange2 As Range
Dim mySh As Worksheet

Private Sub UserForm_Activate()
Set mySh = Worksheets("Sheet2")
Set myCrRange = mySh.Range("f1:f2") '’検索条件範囲
Set myCrRange2 = mySh.Range("l1:l1")'’UserForm2で一時書き込む所
'出力データは、ちゃんと消さないと次の検索に出てきません。
mySh.Range("F1", mySh.Range("F65536").End(xlUp).Offset(, 2)).ClearContents

'Criteriaへの書き込み
myCrRange.Value = WorksheetFunction.Transpose(Array("販売店よみ", myCrRange2))

myFilterExecute myCrRange 'サブルーチンへ

ListBox1.ColumnCount = 3 '3列表示
'列が離れすぎていたら、
'ColumnWidths | 30 ; 30 ;30 　'などと入れます。

'RowSource よりもListのほうが動きが速い
ListBox1.List = mySh.Range(mySh.Range("h1"), mySh.Range("h1").End(xlDown)).Value ''"h1"はListBox1に表示したい列
End Sub
Private Sub myFilterExecute(myCrRange As Range)
mySh.Range("b1", mySh.Range("b65536").End(xlUp).Offset(, 2)).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=myCrRange, _
CopyToRange:=mySh.Range("h1"), Unique:=True ''b1からOffset(, 2)で選択範囲’h1から3列表示が抽出範囲
End Sub
Private Sub UserForm_Terminate()
Set mySh = Nothing
Set myCrRange = Nothing
End Sub
UserForm2でセルl1に一時書き込み抽出条件としました。

なんとか目的を達することが出来ました。
''のコメント部分がいろいろ数値を入れ替えて試した結果です
まだエクセルＶＢの初心者の私には中身は理解出来ていないのですが！
これは初心者なりに納品書入力プログラムの一部でしてUserForm1には他に品名入力など有りまして
抽出を多用しますとListBoxのRowSourceプロパティが原因でエラーになる事があり困っていました。

「読み」は、Phonetic 関数を使わず強引によみを単体で半角カタカナで入力しています。
（ユーザーフォームで入力させると"よみ"をうまく読み取ってもらえず、
販売店名とよみのテキストボックスを使っていますが良い方法があるのでしょうか？）

Excel 2002 とExcel 2000でそのような事があったのですか、Excel 2003は所持していないのですが
Excel 2002 で作成し（自宅ｐｃ）Excel 2000（事務所ｐｃ）で使用していますので気をつけます

エクセルＶＢは変数を余り意識せず出来るので初心者の私はOption Explicitを表示させないで
使ってきましたが、今後、Dim宣言して使うようにいたします。