Excel VBA質問箱 IV

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

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


12008 / 13646 ツリー ←次へ | 前へ→

【12881】データ入力された最終行まで罫線引くには... シェフチェンコ 04/4/18(日) 9:45 質問
【12883】Re:データ入力された最終行まで罫線引くに... かみちゃん 04/4/18(日) 12:24 回答
【12889】Re:データ入力された最終行まで罫線引くに... シェフチェンコ 04/4/18(日) 21:20 お礼

【12881】データ入力された最終行まで罫線引くには...
質問  シェフチェンコ  - 04/4/18(日) 9:45 -

引用なし
パスワード
   いつもおしえていただきありがとうございます。A1〜F1までデータが入力さていて、不規則に行が増減いたします。その場合、A1〜F?行までをドラックして罫線を引きたいのですが、マクロで記録すると行が変化すると対応できず困っております。どうか教えていただければ助かります。よろしくお願いします。また、もうひとつついでに教えてください。1行目のC1、E1に計算式があるのでA1を基準に増減した行に対してコピーすることはできるでしょうか?

例)
    A  B  C  D  E  F  
行1 A社 
行2 B社
   ・
   ・
   ・

【12883】Re:データ入力された最終行まで罫線引く...
回答  かみちゃん  - 04/4/18(日) 12:24 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>いつもおしえていただきありがとうございます。A1〜F1までデータが入力さていて、不規則に行が増減いたします。その場合、A1〜F?行までをドラックして罫線を引きたいのですが、マクロで記録すると行が変化すると対応できず困っております。

CurrentRegion プロパティを使います。

Range("A1").CurrentRegion.Select

これは、空白行と空白列で囲まれたセル範囲です。
セル範囲に空白行や空白列があると正しく取得されませんので、注意してください。

> 1行目のC1、E1に計算式があるのでA1を基準に増減した行に対してコピーすることはできるでしょうか?

セル範囲の行数は、次のようにすると、取得できます。
Range("A1").CurrentRegion.Rows.Count
あくまで、セル範囲の行数なので、これに、開始行-1を加える必要があります。

【12889】Re:データ入力された最終行まで罫線引く...
お礼  シェフチェンコ  - 04/4/18(日) 21:20 -

引用なし
パスワード
   ▼かみちゃん さん
ありがとうございました。助かりました、これで明日会社へいけます。^^

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