Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12027 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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 -


	引用なし

	パスワード

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

例）
　　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　
行１　Ａ社　
行２　Ｂ社
　　　・
　　　・
　　　・


	【12883】Re:データ入力された最終行まで罫線引く...

かみちゃん - 04/4/18(日) 12:24 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

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

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

Range("A1").CurrentRegion.Select

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

> 1行目のＣ１、Ｅ１に計算式があるのでＡ１を基準に増減した行に対してコピーすることはできるでしょうか？

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


	【12889】Re:データ入力された最終行まで罫線引く...

シェフチェンコ - 04/4/18(日) 21:20 -


	引用なし

	パスワード

▼かみちゃんさん
ありがとうございました。助かりました、これで明日会社へいけます。＾＾


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12027 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free