[[20140203131353]]　『フィルターかけても罫線が消えないようにしたい。』（よん）　ページの最後に飛ぶ

『フィルターかけても罫線が消えないようにしたい。』（よん）

　　Ａ列　　　Ｂ列　　Ｃ列　　Ｄ列
＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　｜Ａ資料１｜１－１｜●｜
　　　　　｜　　　　　｜＿＿｜＿｜
　　　　　｜　　　　　｜１－２｜　｜
　　　　　｜＿＿＿｜＿＿｜＿｜
Ａ資料　｜Ａ資料２｜２－１｜　｜
　　　　　｜　　　　｜＿　＿｜＿｜
　　　　　｜　　　　　｜２－２｜●｜
　　　　　｜　　　　　｜＿＿｜＿｜
　　　　　｜　　　　　｜２－３｜●｜
＿＿＿｜＿＿＿｜＿＿｜＿｜

Ａ列，Ｂ列は，セルを結合しています。

Ｄ列に●をいれた行のみ表示させて印刷させたいのですが、
この状態でフィルターをかけると、

　　Ａ列　　　Ｂ列　　Ｃ列　　Ｄ列
＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　｜Ａ資料１｜１－１｜●｜
　　　　　｜　　　　｜＿＿｜＿｜
Ａ資料　｜Ａ資料２｜２－２｜●｜
　　　　　｜　　　　｜＿＿｜＿｜
　　　　　｜　　　　｜２－３｜●｜
＿＿＿｜＿＿＿｜＿＿｜＿｜

「Ａ資料２」の上の罫線が表示されません。

このよう表が、たくさんのあるので、セルの結合を解除するのも、面倒です。

何か良い対策はないでしょうか。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

難しいですね。罫線が太ければ、「Ａ資料２」先頭行の上に1行挿入し、●をつけておき、
挿入した行高さは0.75にする、という方法もあるのですが…。
（???） 2014/02/03(月) 15:37

 こんにちは

 >このよう表が、たくさんのある

 どの位有るのですか？

 >セルの結合を解除するのも、面倒です。

 マクロでなら問題ないですよね？

 マクロで処理するなら、印刷用のシートにデータをコピーして
 Ａ、B列の結合を外して空セルをデータで埋めて、D列の●の分以外の行を削除してから再度
 同じデータが続いているＡ、B列のセルを結合して罫線設定して印刷するようにすればいいのでは？

（ウッシ） 2014/02/03(月) 16:05

みなさん、回答ありがとうございます。

(???)さん
私もその方法を考えたんですが、見た感じがちょっと違和感あって、
別の方法がないか、探してます。

(ウッシ)さん
７００行くらいあります。
すみません、マクロは、まだまだ勉強不足で、理解できません…

やっぱり難しいですかね？
ほかに、何かいい方法があれば、教授願います。
（よん） 2014/02/03(月) 16:11

別案としては、セル結合を外してしまい、B列全行に文字セット。条件付き書式で数式設定。
自身が先頭から何個あるか数え、1個目ならば上部罫線描画。違うならば文字色白にして隠す、とか。
（???） 2014/02/03(月) 17:08

作業列と条件付き書式でできそうです。
ただし、少しばかり手間がかかりますので、面倒なようでしたらスルーしてください。

元表は1行目が項目名、データは700行目までという設定です。

まず前提条件が２つ
　（１）セルの結合を解除してください
　（２）A列とB列の空欄をすべて埋めてください

フィルターがかかっているかどうかを判定するための式を入力する
　（３）G1セル：=IF(COUNTA($C$2:$C$700)-SUBTOTAL(3,$C$2:$C$700)=0,0,1)

F列～J列に以下の式を入力します　※各式を700行目までコピーする
　（４）F2セル：=IF(D2="","",COUNTIF($D$2:$D2,"○"))
　　　　G2セル：=IF($F2=MIN($F$2:$F$700),TRUE,$A2<>INDEX($A$2:$A$700,MATCH($F2-1,$F$2:$F$700,0),1))
　　　　H2セル：=IF($F2=MAX($F$2:$F$700),TRUE,$A2<>INDEX($A$2:$A$700,MATCH($F2+1,$F$2:$F$700,0),1))
　　　　I2セル：=IF($F2=MIN($F$2:$F$700),TRUE,$B2<>INDEX($B$2:$B$700,MATCH($F2-1,$F$2:$F$700,0),1))
　　　　J2セル：=IF($F2=MAX($F$2:$F$700),TRUE,$B2<>INDEX($B$2:$B$700,MATCH($F2+1,$F$2:$F$700,0),1))

条件付き書式設定
　（５）A列への設定
　　　　　条件式：=AND($G$1=1,$G2=TRUE)　/　書式：文字色を黒に
　　　　　条件式：=AND($G$1=1,$H2=TRUE)　/　書式：下端に罫線を引く
　　　　　条件式：=$A2=$A1　/　書式：文字色を白に

　（６）B列への設定
　　　　　条件式：=AND($G$1=1,$I2=TRUE)　/　書式：文字色を黒に
　　　　　条件式：=AND($G$1=1,$J2=TRUE)　/　書式：下端に罫線を引く
　　　　　条件式：=$B2=$B1　/　書式：文字色を白に

※条件付き書式は、記載してある順番になるように設定してください
※確認はしたつもりですが、計算式等の写し間違いがあったら、ごめんなさいです。。

（あすか） 2014/02/03(月) 21:29

コメント返信：

[ 一覧(最新更新順) ]

[[20140203131353]] 『フィルターかけても罫線が消えないようにしたい。』（よん） ページの最後に飛ぶ

[[20140203131353]]　『フィルターかけても罫線が消えないようにしたい。』（よん）　ページの最後に飛ぶ