|
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
というようにしたいのですが、この構文では上記のエラーが表示されてしまいました。
どの位置に、どのように入れれば、シートごとのコード位置を判断できますでしょうか?
本当に申し訳ありませんが、よろしくお願いいたします。
|
|