Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21282 / 76738

←次へ　｜　前へ→


	【60857】検索値をセル内最初の２文字に指定して、検索結果を出す場合は？

うしねこ

- 09/3/18(水) 14:12 -


	引用なし

	パスワード

検索値をセル内最初の２文字に指定して、検索結果を表示させるために、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でやるのがおかしいのか、いろいろ
試してみましたが、うまくいきません。
ちなみに、セル内最初の２文字に限定せず、セルそのものを検索値にした下の式はうまくいきます。
Worksheets("LIST").Range("c" & ii).Value ="=VLOOKUP($d" & ii & ", CODE2,2,FALSE)"

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

0 hits

▼

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

≪