エクセルの学校：全文検索：Hyper Estraier： VLOOKUP

Results of 1 - 1 of about 7929 for VLOOKUP (0.002 sec.)

[[20140516152124]]: #score: 3346; @digest: 3ea597c101e60b60f7fcf73f1af0874c; @id: 65159; @mdate: 2014-05-16T11:46:41Z; @size: 3519; @type: text/plain; #keywords: 囲") (22938), ┣━━━┫ (15241), 置15 (14111), myerror (13969), 理x (11853), ・. (8445), listbox1 (6753), additem (6410), endwith (5684), └───┘ (5545), 列位 (4662), 得() (4166), worksheetfunction (3719), textbox1 (3715), かー (3069), textbox2 (2641), へセ (2532), vlookup (2045), ド部 (1948), listbox (1925), ス1 (1905), vbtab (1737), し" (1709), application (1518), ・en (1449), 取得 (1225), トボ (1204), 帳票 (996), ・・ (808), userform (805), false (716), ル値 (610); 『帳票のセル行値をvlookup関数で取得しListBoxへ表示させる方法について』（かーさ）
お世話になっております。 UserForm上のリストボックスへセル値を表示させたいと考えております。 UserForm構成は・TextBox1 にID番号を入力します。・ListBox1 にTextBox1のID番号を取得しVlookup関数で各セルの値を取得します。下記は現在作成中のコードですが、ListBoxのコード部分をどのようにすればよいか分からず困っております。アドバイスの程よろしくお願いします。 Private Sub 値の取得() Dim x As Long On Error GoTo myError If TextBox1 = "" Then MsgBox "データなし" Else 'エラーがなければ処理 x = TextBox1.Value 'テキストボックス1の値を取得 With ActiveSheet 'リストボックス1へセルの値を取得したい ListBox1.Value = Application.WorksheetFunction.VLookup(x, Range("Sheet1"), 2, False) ListBox1.Value = Application.WorksheetFunction.VLookup(x, Range("Sheet1"), 15, False) ListBox1.Value = Application.WorksheetFunction.VLookup(x, Range("Sheet1"), 28, False) ListBox1.Value = Application.WorksheetFunction.VLookup(x, Range("Sheet1"), 36, False) ListBox1.Value = Application.WorksheetFunction.VLookup(x, Range("Sheet1"), 45, False) End With End If Exit Sub myError: TextBox1.Value = "データなし" TextBox2.Value = "" End Sub ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ListBox1.AddItem Application.WorksheetFunction.VLookup(x, Sheet1.Range("A:AZ"), 2, False) （???） 2014/05/16(金) 15:54 ---- ご回答ありがとうございました。 TextBox1の検索値に基づきセル値を表示できました。これを、複数の列位置にある値をリスト化するためには、どのように記述すればよろしいのでしょうかアドバイスの程よろしくお願いします。 ↓ ListBox1.AddItem Application.WorksheetFunction.VLookup(x, Range("範囲"), 28, False) '※列位置 15,28,36,45 Private Sub 値の取得() Dim x As Long On Error GoTo myError If TextBox1 = "" Then MsgBox "データなし" Else 'エラーがなければ処理 x = TextBox1.Value 'テキストボックス1の値を取得 With ActiveSheet ' TextBox2.Value = Application.WorksheetFunction.VLookup(x, Range("範囲"), 6, False) ListBox1.AddItem Application.WorksheetFunction.VLookup(x, Range("範囲"), 28, False) '※列位置 15,28,36,45 End With End If Exit Sub myError: TextBox2.Value = "値なし" End Sub （かーさ） 2014/05/16(金) 17:06 ---- 結果を横に並べたい、ということでしょうか? ListBox1.AddItem Application.WorksheetFunction.VLookup(x, Range("範囲"), 15, False) & vbTab & _ Application.WorksheetFunction.VLookup(x, Range("範囲"), 28, False) & vbTab & _ Application.WorksheetFunction.VLookup(x, Range("範囲"), 36, False) & vbTab & _ Application.WorksheetFunction.VLookup(x, Range("範囲"), 45, False) （???） 2014/05/16(金) 17:19 ---- コメントありがとうございます。こんな感じでイメージしております。 ■UserForm1 ┌────┐ │ 101 TextBox1 ├────┤ │ あ様 TextBox2 └────┘ ┌───┐ │ あ1 ListBox1 ┣━━━┫ ┃ あ3 ┣━━━┫ │ あ2 │ │ あ4 │ │ あ5 └───┘ （かーさ） 2014/05/16(金) 18:02 ---- 下記でできました。 With ListBox1 .AddItem・・・・・ .AddItem・・・・・ .AddItem・・・・・ .AddItem・・・・・ .AddItem・・・・・ EndWith もう少しいじくってみます。（かーさ） 2014/05/16(金) 20:46 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201405/20140516152124.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ