![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になっております
オートフィルタで抽出結果に
罫線をひきたのですが、
うまくいきません。
表の中の線は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
![「オートフィルタで抽出結果に 罫線をひく方」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/543034290_62ce450d405ab/M.png)
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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
EXCELのオートフィルタで罫線が表示されないのを直したい
PowerPoint(パワーポイント)
-
エクセルのオートフィルタで罫線が消える!
Excel(エクセル)
-
条件付書式? 上の文字と同じ文字がきたら表示しない
その他(Microsoft Office)
-
-
4
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
5
エクセルで罫線も一緒に並び替えする方法は?
Excel(エクセル)
-
6
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAコードで教えて下さ...
-
フィルターかけた後、重複を除...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
ACCESSユニオンクエリでORDER B...
-
JavaScriptの定数名が取り消し...
-
access2003 クエリSQL文に...
-
◾️Excel VBA 統合について Cons...
-
COBOLの文法
-
VBA リストボックス(複数条件...
-
【VB6】実行ファイルとした後、...
-
CheckBoxのコントロール配列に...
-
変数名「cur」について
-
欠番の抽出について
-
文字列を検索しその列をコピー...
-
ASCIIコード表の出力
-
Accessの文字列部分一致を合計...
-
ランタイムのいらないプログラ...
-
pythonにてseleniumを使うも、...
マンスリーランキングこのカテゴリの人気マンスリー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」について
おすすめ情報