Results of 1 - 1 of about 7934 for VLOOKUP (0.002 sec.)
- [[20140225154806]]
- #score: 3345
- @digest: 540b46eb332e45d762fcd89744059cfb
- @id: 64587
- @mdate: 2014-02-25T09:55:41Z
- @size: 3904
- @type: text/plain
- #keywords: 品シ (40515), s0 (10356), 理( (9105), optionbutton2 (8681), ト! (7051), 品価 (6774), optionbutton1 (5869), listbox1 (5065), evaluate (4376), 商品 (3781), 品コ (3395), みけ (3303), 照結 (3194), けね (2698), ト1 (2217), 照シ (2075), vlookup (1772), worksheets (1599), 合分 (1509), シー (1496), ンボ (1242), 格を (1177), ート (1151), ト") (1109), string (1086), 価格 (1055), 合) (965), 稲葉 (965), トボ (903), range (898), 2014 (883), activex (781)
- 『オプションボタンとIf関数の併用』（みけねこ）
ActiveXのリストボックスとオプションボタンを使い、 リストボックス（商品コードのリスト、別シートにあり）をクリックした時、 OptionButton1 = Trueなら、A1に商品コードを入力 OptionButton2 = Trueなら、A3に商品コードを入力 さらに、 A1(A3、括弧内はOptionButton2 = Trueの場合) の商品コードからVLookupで別シートの商品シートから商品名と商品価格を取得し、 商品名をA2(A4)へ、商品価格をB2(B4)へ入力する、 ということを考えています。 しかし、変数とIfをどう記述したらよいのかわからず、うまくいきません。 ご教授くだされば幸いです。初心者です。 Private Sub ListBox1_Click() Dim C1 As Variant Dim C2 As Variant Dim C3 As Variant If OptionButton1 = True Then C1 = Worksheets("シート1").Range("A1") C2 = Worksheets("シート1").Range("A2") C3 = Worksheets("シート1").Range("B2") Range("A1").Value = ListBox1 ElseIf OptionButton2 = True Then C1 = Worksheets("シート1").Range("A3") C2 = Worksheets("シート1").Range("A4") C3 = Worksheets("シート1").Range("B4") Range("A3").Value = ListBox1 End If Worksheets("シート1").Range(C2).Value = Application.WorksheetFunction.VLookup _ (Worksheets("シート1").Range(C1), Worksheets("商品シート").Range("A:F"), 2, False) Worksheets("シート1").Range(C3).Value = Application.WorksheetFunction.VLookup _ (Worksheets("シート1").Range(C1), Worksheets("商品シート").Range("A:F"), 5, False) End Sub ＜ 使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- よくわかんないけど、こういうこと? Private Sub ListBox1_Click() Select Case True Case OptionButton1 Call 処理(ListBox1.Text, "A1", "A2", "B2") Case OptionButton2 Call 処理(ListBox1.Text, "A3", "A4", "B4") End Select End Sub Sub 処理(s0 As String, s1 As String, s2 As String, s3 As String) With Sheets("シート1") .Range(s1) = s0 .Range(s2) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:F,2,0)") .Range(s3) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:F,5,0)") End With End Sub （稲葉） 2014/02/25(火) 16:51 ---- 拙い内容を読み取っていただき、ありがとうございます。 オプションボタンの場合分けと、A1(A3)への入力はうまくいきました。 ただ、A2(A4)およびB2(B4)へのVLOOKUPの参照結果が#NAME?になってしまいます。 （みけねこ） 2014/02/25(火) 17:37 ---- 実際のコードはどうなっていますか? 商品シートの「!」 が抜けていたりしませんか? （稲葉） 2014/02/25(火) 17:56 ---- 実際のコードは以下の通りです。 実際は商品シートにはA列からAP列まで、1000行以上のデータが入っています。 標準モジュール Sub 処理(s0 As String, s1 As String, s2 As String, s3 As String, s4 As String, s5 As String, s6 As String, s7 As String) With Sheets("シート1") .Range(s1) = s0 .Range(s2) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,2,0)") .Range(s3) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,5,0)") .Range(s4) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,6,0)") .Range(s5) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,19,0)") .Range(s6) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,27,0)") .Range(s7) = Evaluate("VLOOKUP(" & s0 & ",商品シート!A:AI,35,0)") End With End Sub シート1のプロシージャ Private Sub ListBox1_Click() Select Case True Case OptionButton1 Call 処理(ListBox1.Text, "D17", "D18", "F17", "G17", "J6", "L17", "L18") Case OptionButton2 Call 処理(ListBox1.Text, "D19", "D18", "F19", "G19", "J6", "L19", "L20") End Select End Sub （みけねこ） 2014/02/25(火) 18:12 ---- リストボックスが参照しているシートと VLookupの参照シートが異なるからでしょうか。 （みけねこ） 2014/02/25(火) 18:23 ---- なんとかやりたいことができるようになりました。 稲葉さま、ありがとうございました。 （みけねこ） 2014/02/25(火) 18:55... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201402/20140225154806.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97056 documents and 608292 words.
訪問者：