Excel VBA質問箱 IV

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

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


21276 / 76732 ←次へ | 前へ→

【60857】検索値をセル内最初の2文字に指定して、検索結果を出す場合は?
質問  うしねこ E-MAIL  - 09/3/18(水) 14:12 -

引用なし
パスワード
   検索値をセル内最初の2文字に指定して、検索結果を表示させるために、VLOOKUPとLEFTを使って、下記のように作成したところ、エラーが出ます。

Dim gyoy As Integer
Dim ii As Interger

Sheets("LIST").Select
gyoy = 10
Sheets("LIST").Select
Do Until Worksheets("LIST").Range("e" & gyoy).Text = ""
     gyoy = gyoy + 1
Loop
Sheets("LIST").Select
ii = 10
For ii = 10 To gyoy -1
  If Worksheets("LIST").Range("e" & ii).Text <> "" Then
Worksheets("LIST").Range("b" & ii).Value ="= VLOOKUP(LEFT($e" & ii & ", 2) " & ii & ",CODE,3,FALSE)"

VLOOKUPから先の式がおかしいのか、Valueでやるのがおかしいのか、いろいろ
試してみましたが、うまくいきません。
ちなみに、セル内最初の2文字に限定せず、セルそのものを検索値にした下の式はうまくいきます。
Worksheets("LIST").Range("c" & ii).Value ="=VLOOKUP($d" & ii & ", CODE2,2,FALSE)"

どうぞ宜しくお願いします。

2 hits

【60857】検索値をセル内最初の2文字に指定して、検索結果を出す場合は? うしねこ 09/3/18(水) 14:12 質問
【60859】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/18(水) 15:42 発言
【60860】Re:検索値をセル内最初の2文字に指定して... うしねこ 09/3/18(水) 16:03 発言
【60861】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/18(水) 16:16 発言
【60862】Re:検索値をセル内最初の2文字に指定して... うしねこ 09/3/18(水) 16:48 発言
【60863】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/18(水) 17:09 発言
【60864】Re:検索値をセル内最初の2文字に指定して... うしねこ 09/3/18(水) 18:01 発言
【60873】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/19(木) 12:49 発言
【60877】Re:検索値をセル内最初の2文字に指定して... うしねこ 09/3/19(木) 15:18 質問
【60878】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/19(木) 16:48 発言
【60879】Re:検索値をセル内最初の2文字に指定して... Jaka 09/3/19(木) 17:00 発言
【60880】Re:検索値をセル内最初の2文字に指定して... うしねこ 09/3/19(木) 17:25 お礼

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