いつもお世話になっております
オートフィルタで抽出結果に
罫線をひきたのですが、
うまくいきません。
表の中の線はhairline
外枠はcontinuous
下記のコードはフィルタが
ない状態ではうまくいきますが、
フィルタがかかっている
状態だと
添付ファイルのように
黄色い部分に実線が入ってしまいます。
わかる方おしえてくれませんでしょうか
Sub linex()
With Range("A1").CurrentRegion
.BorderAround LineStyle:=xlContinuous
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xcontinuous
.Weight = xlHairline
End With
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
回答の前に・・
>表の中の線はhairline
>外枠はcontinuous
xlHairlineは線の太さを、xlContinuousは線のスタイル(実線、破線、二重線など)を表しているので、意味が違うのではないでしょうか?
線の種類は、両方とも xlContinuous
太さは、外枠が xlMedium、それ以外は xlHairline
と勝手に解釈しました。
その上で・・
フィルタをかけた状態だと、実際にはいくつかのセル範囲に分割されているので、BorderAround で指定すると、それぞれのセル範囲での外枠と解釈される結果、ご質問のような事象になっているものと思います。
ですので、「見た目上の外枠」にするには、個別に指定してあげるしかなさそうですね。
(以下では、非表示の「列」は無いものと仮定しています)
Sub linex()
With Range("A1").CurrentRegion
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlHairline
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
With .SpecialCells(xlCellTypeVisible)
.Areas(1).Borders(xlEdgeTop).Weight = xlMedium
.Areas(.Areas.Count).Borders(xlEdgeBottom).Weight = xlMedium
End With
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2021 VBA メソッドまたは...
-
access2003 クエリSQL文に...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
ペンダントライトのコードの色...
-
JavaScriptの定数名が取り消し...
-
Excel VBA 空白をセルを探して...
-
特定行の背景色を変えたいのですが
-
Nullの使い方が不正です。
-
エクセルVBA ユーザーフォーム...
-
マクロ 連続印刷
-
ASCIIコードを文字に変換したい
-
sinカーブの表示のさせ方
-
SQL
-
chatgptでつくってもらったコー...
-
pythonで同じコード内で複数の...
-
Excel VBA素人です。VBAで図形...
-
オートフィルタで抽出結果に 罫...
-
JIPS-Eコードのコード表について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報