|
▼kanabun さん:
>▼りん さん:
ご回答どうもありがとうございます。
>横からすみません
>
>> 「Run-time error'13'」のエラーが出てきました。
>ランタイムエラーといっても、いろいろあると思います。
>その下に エラーの内容が出ていませんですか?
>たとえば 「型が一致しません」とか?
エラーにもいろいろあるんですね。言葉足らずですみません。下には
「Type mismatch」
と出ております。
>あと、
>本題からは外れますが、
>> Cells(6, 5).End(xlToRight).Offset(0, 1).Formula = _
>> "=VLOOKUP(C" & 6 & ",'[PL-GS.xls]作業表'!$J$" & 6 & ":$W$" &
>> 109 & "," & 5 & "," & 0 & ")"
>は、単に
> Cells(6, 5).End(xlToRight).Offset(0, 1).Formula = _
> "=VLOOKUP(C6,'[PL-GS.xls]作業表'!$J$6:$W$109,5,0)"
>ということではないですか?
>6 とか 109 とかは 定数なので。
数字と文字は分けて入力しないといけないと勘違いしておりました。
教えて頂いた記述に修正しました。ありがとうございます。
>
>> Cells(7, 5).End(xlToRight).Offset(-1, 1).Select
>> Selection.Copy
>も
> Cells(7, 5).End(xlToRight).Offset(-1, 1).Copy
>と一行で書けますよね?
>
>その下も同様ですが、なるべく 「Selectしない」コードを書くように
>しましょう。
Selectしない方がよいのですね。
初歩的なことだとは思いますが、知りませんでした。
ご教授ありがとうございます。
|
|