|
>少し解説しておきますと、
>Sheetsコレクションで特定のワークシートを名前で指定する場合は
>Sheets("Sheet1")のようにダブルクォーテーションで括らなければ
>この時点で型の不一致が発生します。
度重なる誤りをお許し下さい。
すいません。ここに掲載するために、一部、実際のソースを変更しておりました。
→シート名を「Sheet1」に変更したのですが、
そのときに、ダブルクォーテーションを付け忘れておりました。
ここで、実際のソースを掲載します。
Sheets(strSheetName).Range("celComment_1").Value _
= "[長さ]: 1. " & Format(Trim$(Sheets(GET_DATA_SHEET).Range("AC" & lngGetDataCnt + 6).Value), "##,###") & " (m), " & _
"2. " & Format(Trim$(Sheets(GET_DATA_SHEET).Range("AD" & lngGetDataCnt + 6).Value), "##,###") & " (m)"
ここで、
・strSheetName:シート名
・celComment_1:セル名
・GET_DATA_SHEET:シート名
・lngGetDataCnt:Long型変数
です。
これを掲載するのはややこしいなぁ〜っと思て、簡単に掲載したんですが、
そこで、ボロボロと誤記や私の勘違いが発生したみたいです。
大変ご迷惑をおかけ致しました。
以後、気をつけます。
|
|