Excel VBA質問箱 IV

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

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


14001 / 76733 ←次へ | 前へ→

【68232】Re:VLOOKUPを使ったデータの参照
質問  ケメ子  - 11/2/16(水) 23:15 -

引用なし
パスワード
   UO3 さま

ケメ子です。
このたびは、大変お世話になっております。
遅くなりまして、申し訳ございません。

確認してみたところ、一点修正したい点がありました。

>'----------------------------------------
>'前月ファイルから各シートへランクデコード
>'----------------------------------------

のところで、
前月ファイルが、どのシートもKeyコードが「D」列というふうにしておりましたが、大変申し訳ないことに、こちらはシートごとにコードの位置が異なっておりました。

 シート「A」のKeyコード→E列
 シート「B」のKeyコード→H列
 シート「C」のKeyコード→O列
 シート「D」のKeyコード→G列

そこで、以下の部分をCase〜で行おうとしたら「オブジェクト変数またはwithブロック変数が設定されていません。」というエラーが表示されてしまいました。

根本的にCase〜の構文が理解できていないため、どこをどうしたらいいかご教示いただけますでしょうか?
         :
         :
         :
>           If z >= oTop Then
>            oRows = z - oTop + 1
>            oList = "[" & oBook.Name & "]" & oSh.Name & "!" & _
>                   Range("D" & oTop & ":" & oCol & z).Address
>            decCol = Columns(oCol).Column - Columns("D").Column + 1
>            nRank.Formula = _
>              "=VLOOKUP(D" & nTop & "," & oList & "," & decCol & ",FALSE)"
         :
         :
         :


     For Each shn In Array("A", "B", "C", "D")
      Select Case shn
        Case "A"
         oCol = "P"
         oList = "[" & oBook.Name & "]" & oSh.Name & "!" & _
                   Range("E" & oTop & ":" & oCol & z).Address
         decCol = Columns(oCol).Column - Columns("E").Column + 1
        Case "B"
         oCol = "O"
         oList = "[" & oBook.Name & "]" & oSh.Name & "!" & _
                   Range("H" & oTop & ":" & oCol & z).Address
         decCol = Columns(oCol).Column - Columns("H").Column + 1

        Case "C"
         oCol = "V"
          :
          :
        Case "D"
         oCol = "N"
          :
          :
      End Select

というようにしたいのですが、この構文では上記のエラーが表示されてしまいました。

どの位置に、どのように入れれば、シートごとのコード位置を判断できますでしょうか?

本当に申し訳ありませんが、よろしくお願いいたします。
1 hits

【68149】VLOOKUPを使ったデータの参照 ケメ子 11/2/7(月) 0:02 質問
【68152】Re:VLOOKUPを使ったデータの参照 UO3 11/2/7(月) 11:14 発言
【68162】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/7(月) 22:43 発言
【68164】Re:VLOOKUPを使ったデータの参照 UO3 11/2/8(火) 12:45 発言
【68173】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/8(火) 22:04 発言
【68174】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 11:43 発言
【68175】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 12:12 発言
【68176】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 12:25 発言
【68177】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 13:09 発言
【68180】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/9(水) 22:11 発言
【68182】Re:VLOOKUPを使ったデータの参照 UO3 11/2/10(木) 12:26 回答
【68183】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/10(木) 23:35 発言
【68232】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/16(水) 23:15 質問
【68237】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 10:29 回答
【68240】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 10:43 発言
【68243】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 11:02 回答
【68254】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/17(木) 22:39 発言
【68255】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 23:08 発言
【68259】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/18(金) 21:14 発言
【68303】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/22(火) 0:44 質問
【68306】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 9:28 発言
【68307】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 9:50 発言
【68308】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 10:27 発言
【68314】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/23(水) 0:19 発言
【68315】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:32 発言
【68316】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:36 発言
【68317】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:38 回答
【68321】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 22:04 発言
【68322】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/23(水) 22:04 質問
【68331】Re:VLOOKUPを使ったデータの参照 UO3 11/2/24(木) 11:46 発言
【68333】Re:VLOOKUPを使ったデータの参照 UO3 11/2/24(木) 11:47 発言
【68346】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/24(木) 22:46 発言
【68421】Re:VLOOKUPを使ったデータの参照2 ケメ子 11/3/3(木) 20:15 質問
【68425】Re:VLOOKUPを使ったデータの参照2 UO3 11/3/4(金) 12:32 回答
【68426】できました!! ですが・・・ ケメ子 11/3/4(金) 20:31 質問
【68429】Re:できました!! ですが・・・ UO3 11/3/4(金) 21:51 発言
【68431】Re:できました!! ですが・・・ UO3 11/3/5(土) 16:58 回答
【68432】Re:できました!! ですが・・・ ケメ子 11/3/5(土) 18:53 発言
【68441】プロシージャの追加場所 ケメ子 11/3/7(月) 21:21 質問
【68442】Re:プロシージャの追加場所 UO3 11/3/7(月) 21:59 回答
【68479】\(^o^)/ ケメ子 11/3/9(水) 20:58 お礼

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