xls:CopyFromRecordset罫線描写

質問

• エクセルからアクセスを読み込みに行き、取得結果をエクセル内に表示しています。
• CopyFromRecordsetにて出力が行われたセルのみ、セルのまわりを四角く罫線で囲むということをしたいです。
• Range("B12:AI1000").Clearで前のデータをクリアし、範囲を指定して罫線を引きたいですが、範囲が変動するため固定ではない状態です。

回答No.5

cj_mover · ベストアンサー

＃１-４、ｃｊです。＃４、お礼欄へのレスです。

余計なことかも知れませんが、、、。
> 数日以内にお返事頂けない場合はそのままベストアンサーとして締め切らせて頂きます。
「よりベターな解決」を導くことを目指しているつもりではありますが、
残念ながら今回は「ベスト」に値することは出来ていない、というのが自己評価で、
「ベストアンサーを決めずに質問を締め切る」ぐらいが、私見としては妥当な気もしています。
回答者としては、「どんな形であれ「解決した」と報せて頂けること」が何よりこの上ないご褒美と考えています。
解決の目途が立ったということでしたらば、それと解る様に質問をCloseするのはマナーとしても大切なことですし、
お礼という意味で評価を頂けるなら、なおさら有難いことです。
（そもそも回答者が判断することではありませんし、どんな結果であってもただ素直に受け止めるだけですが）
ただ、締切前に言及されると、なんとなく返事を書き難いですね。ちょっと躊躇ってしまいました。

> 実は．．．．．．ちょっとダウンしていまして
その後お加減は如何ですか？お大事になさってください。
遅れる旨きちんと伝えようという誠実さは私としては好印象なのですが、
コンディションに関わることは、お互い様だったり（相手の方が大変だったり）する場合も多いので、
なるべく触れない方がベターと思います。（これは私の反省でもあります。）
エクスキューズしたい時は「今は余裕がないので後ほど」ぐらいで十分かも、です。
また、返事が遅れることを気にする必要もありません。
皆、（こちらも、）事情を抱えている中で、出来る時にしか出来ないです。
以上、老婆心ながら。

本題、

> With Range("B12")
> .Resize(.End(xlDown).Row - .Row + 1, .End(xlToRight).Column - .Column + 24).Borders.LineStyle = xlContinuous
> End With

お求めなのは、上記３行の解説、という理解でいますので、その部分だけについてお応えします。

まず確認しておきますが、これらの記述は、ADODBとは全く無関係、スタンドアローンなExcelのお話です。

とりあえず、解り易さの為（却って読み難いですが）、Withフレーズを外して、１行に書き直すと以下のようになります。
　　Range("B12").Resize(Range("B12").End(xlDown).Row - Range("B12").Row + 1, Range("B12").End(xlToRight).Column - Range("B12").Column + 24).Borders.LineStyle = xlContinuous

内容としては、
●　採り込んだデータ範囲に罫線を引く。
●●１）Range("B12")を基準に、必要な行数、必要な列数でセル範囲を指定する。
●●●　.Resizeプロパティ【書式：Range().Resize(RowSize, ColumnSize)】で、
　　　　Range("B12")を（左上のセルとして）基準に、必要な行数、必要な列数でセル範囲の大きさを指定する。
　　　　※.Resizeプロパティ については、VBAのヘルプを引いて確認してください。
●●●●ｒ）行サイズ指定
　　　　　　Range("B12").End(xlDown).Row　で「行方向に連続したデータの最下行」の絶対的な行位置を数値で採り、
　　　　　　Range("B12").Row　で、基準となるセルの行位置（この場合は12）を採り、必要な行数を計算する。
　　　　　　例えば、レコード数が１０である場合は、
　　　　　　　Range("B12").End(xlDown).Row　は、２１
　　　　　　　Range("B12").Row　は、１２
　　　　　　　Range("B12").End(xlDown).Row - Range("B12").Row は　２１ - １２ = ９　となるので、
　　　　　　　+ １　を加えて、１０にする。
　　　　　　といった具合です。
　　　　　　　Range("B12").End(xlDown).Row - 11
　　　　　　のように、"B12"を決め打ちにして書いても求まりますが、
　　　　　　　With Range("B12")
　　　　　　　　.Resize(.End(xlDown).Row - .Row + 1,　......
　　　　　　　End With
　　　　　　のようにWithフレーズを用いることで、基準となるRange("B12")を変更する必要が出てきても、
　　　　　　１カ所（"B12"を）書換えるだけで（必要な行数指定に）対応できるように書いています。
　　　　　※.Endプロパティ については、VBAのヘルプを引いて確認してください。
　　　　　　Range("B12").End(xlDown)　のxlDownの意味についてですが、
　　　　　　基準となるセル（Range("B12")）から下方向に、最初に見つかる空セルのひとつ上のセル、を
　　　　　　レコードの終端として取得します。
　　　　　　もしも、間に空セル（データベースでいう所のNull）があると、正しく機能しませんが、
　　　　　　１列目（第１フィールド）にNull値、というのは普通はあり得ないでしょうから、この方法を採っています。
　　　　　　一般的なExcelの手法としては、
　　　　　　　With Range("B12")
　　　　　　　　.Resize(Cells(Rows.Count, .Column).End(xlUp).Row - .Row + 1,　......
　　　　　　　End With
　　　　　　とか、
　　　　　　　With Range("B12")
　　　　　　　　.Resize(Cells(10001, .Column).End(xlUp).Row - .Row + 1,　......
　　　　　　　End With
　　　　　　などのように、下から上方向に探して、レコードの終端として取得する方法もあります。
●●●●ｃ）列サイズ指定
　　　　　　Range("B12").End(xlToRight).Column　で「列方向に連続したフィールドの最右列」の絶対的な列位置を数値で採り、
　　　　　　Range("B12").Column　で、基準となる列位置（この場合は12）を採り、必要な列数を計算する。
　　　　　　という意図で書かれたものでしたが、この方法では、Null値があると不正な結果になってしまいますね。
　　　　　　フィールド数は固定？という話のようですから、この部分は、直値で指定してあげればいいです。（修正■）
●●２）.Borders.LineStyle = xlContinuous　で、罫線を引く。
　　　　この部分は説明不要と思います。
解説としては以上のようになります。

列数は固定でいい？ようなので、それを踏まえると
　　With Range("B12")
　　　　.Resize(.End(xlDown).Row - .Row + 1, 24).Borders.LineStyle = xlContinuous
　　End With
のように修正■されます。
後は、.Endプロパティ の使い方として、下から上方向に探す必要がある場合などは、
実用上のニーズに照らして応用してみてください。

拙い説明ですが、以上です。

お礼

落ち着いて読み直し、
各プロパティの細かい文法はまだですが、
それ以外の記述方法については
すべて理解できました。

このたびは大変ご親切に、そしてご丁寧に
ありがとうございました。

補足

こんにちは。

躊躇わせてしまう結果になりすみません。

はい、もう解決することができましたので
マナーとして近日中に締め切る予定です。
さらに、迅速な回答を頂き、さらに質問する際のお作法も
ご教示いただき、大変満足していますので、
ベストアンサーは送らせて頂きます！
ご了承ください。

その上で、最後に追加の質問をさせて頂いているため
質問したまま締め切る形になるとそれも失礼かと思い
断らせて頂きました。

なんにせよ、答えづらい展開になってしまったようで
ごめんなさい。

コンディションの件、はい、復調してきました。
ありがとうございます。
言及しない方がよい旨、理解しました。
そうですね、返事が遅れますくらいにしておきます。

まずは本題前の部分について、返信させて頂きました。

ありがとうございました。

本題の理解はじっくり読み込ませて頂き、
そののちにお礼欄にてご連絡させて頂きます。