エクセルで、表を作成し、オートフィルタをすると、印字シートの2ページ目から
見出し部分の罫線が消えてしまいます。何か、解決策はないですか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

>印字シートの2ページ目から見出し部分の罫線が消えてしまいます



ご説明ではちょっと分かりにくいんですけど、オート・フィルタで抽出したページを印刷すると、2ページ目のタイトル行と1行目の境の罫線が消える、ということですよね。

これは表の罫線がきちんと引かれていないとよくなります。基本的なことを言うようですが、罫線とはセルの上下・左右に引かれていなければいけません。二重になっているということです。いくら見た目には一本の線にしか見えなくても四方どこかの罫線が引かれていないければ、オート・フィルタ等で加工した時に罫線の引かれていない行同士が重なって、見た目においても罫線が引かれていないようになるでしょう。
ですからオートフィルタを外し、タイトル行の下の線と他の全ての行の線が上下・左右に引かれているか確認しましょう。

#こんな説明で分かりますかね~^^;
    • good
    • 0
この回答へのお礼

sydneyhさん。ありがとうございました。参考になりました。

お礼日時:2001/11/22 21:55

あまり自信がないのですが、


例えばセルA1とセルA2の境界に罫線を引くことにします。
セルA1の下に罫線を引けば、あたかもA1とA2の境界に罫線があるように見えます。
ここで、セルA2を移動させても罫線はついてきませんが、A1を移動させると罫線も一緒についてきます。
このことで言えるのは、セルA1とA2の境界にあるように見える罫線は、実はセルA1の下にある線なのです。

このことの応用で、オートフィルタによって非表示にされたセルに罫線がひかれて合った場合、セルと一緒に罫線も非表示になってしまうのではないかと思います。
    • good
    • 0
この回答へのお礼

p-leisureさん。ありがとうございました。参考になりました。

お礼日時:2001/11/22 21:53

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q葉書の罫線がある素材サイト

仕事柄人との交流が多く、名刺交換をした人にお礼状を手書きで書いています。
無地のインクジェット葉書に罫線を書きたいのですが、そういった罫線の
あるデザインをダウンロードできる素材サイトってありますでしょうか?

罫線だけでなく、ビジネス文書に差し障りない程度のうっすらとデザインが
入っていてもOKです。

宜しくお願いします。

Aベストアンサー

罫線入りの葉書って便利なのに、
テンプレートは少ないですよねぇ。

こちらのサイトはいかがでしょうか?

参考URL:http://ruriri.aisnet.jp/keisen.htm

QExcel2003でシート保護(オートフィルタ使用にはチェック)するとマクロのオートフィルタでエラーになる

QNo.3901563で回答いただき、Excelの試用で保護後のオートフィルタは使えないのはわかりました。
そこで予めオートフィルタを設定し、シートに保護をかけました。
Excelの画面上ではオートフィルタは使用できます。
マクロよりオートフィルタの抽出条件を変更するコマンドを実行すると「保護されたシートに対して、このコマンドは実行できません」と表示されます。コマンドは新しいマクロの記録で操作を記録したものです。記録したときは特にエラーはでませんでした。

Selection.AutoFilter Field:=2, Criteria1:="AAA"

マクロのコマンドでは保護のかかったシートのオートフィルタの抽出条件を変更することは出来ないのでしょうか。
マクロの前後にシート保護を解除するコマンドを入れようかとも思ったのですが、保護にパスワードがかかっており、本末転倒となるもので。

Aベストアンサー

こんにちは。

'標準モジュールで、自動設定

Sub Auto_Open()
Const PWS As String = "PS" 'パスワード
 With Worksheets("Sheet2")
  .Unprotect PWS
  .Protect PWS, UserInterFaceOnly:=True
  '以下をつければ、手動でもオートフィルタは使えます。
  .EnableAutoFilter = True
 End With
End Sub

'-----------------------------------------------
UserInterFaceOnly:=True のオプションをつければ、マクロで処理できますし、また、EnableAutoFilter にすれば、保護された状態で、オートフィルタは使えます。

なお、オートフィルタは、こんな感じです。

Sub Test1()
With Range("A1").CurrentRegion
 .AutoFilter Field:=2, Criteria1:="aaa"
End With
End Sub

こんにちは。

'標準モジュールで、自動設定

Sub Auto_Open()
Const PWS As String = "PS" 'パスワード
 With Worksheets("Sheet2")
  .Unprotect PWS
  .Protect PWS, UserInterFaceOnly:=True
  '以下をつければ、手動でもオートフィルタは使えます。
  .EnableAutoFilter = True
 End With
End Sub

'-----------------------------------------------
UserInterFaceOnly:=True のオプションをつければ、マクロで処理できますし、また、EnableAutoFilter にすれば、保護された状態...続きを読む

QWindows 7で罫線又は表作成ができるフリーのワープロソフトを探し

Windows 7で罫線又は表作成ができるフリーのワープロソフトを探しています。

OpenOfficeのWriterは存じていますので、これ以外でお願いいたします。
イメージとしては、ワードパッドに追加で罫線又は表作成ができる軽いものを探しています。
表計算は不要です。
文書の体裁として縦横の線が要るだけで、印刷のみに使います。
教えていただけば、Windows 7で動くかどうかは調べられますので、どうぞよろしくお願いいたします。

Aベストアンサー

何度もすみません。
プログラムの追加と削除に登録されています。
「CYPAC BeatWord 3.0」として登録されていますのでそこから削除できます。
そそっかしくてすみませんでした(汗!)

QExcelマクロ オートフィルタ可視領域の特定部分をコピー

何方か、回答をお願いします。
下記もマクロは 、B列:C列(B1:C1はタイトル)をオートフィルタに掛けて
フィルタに掛かった一番上のデータをコピーして貼り付けているマクロですが。

やりたいことは、B1:C1のタイトルとフィルタに掛かった可視領域の一番上の
データ(オートフィルタに引っかからないでデータが無い場合も有り)をコピー
して貼り付けたいのですがどの様なコードを書けば良いのでしょうか。?

Sub フィルタ()
Range("B1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=">=1e-6"
Range("B1").CurrentRegion.Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeVisible).Areas(2).Rows(1).Select
Selection.Copy
Range("K15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
End Sub

何方か、回答をお願いします。
下記もマクロは 、B列:C列(B1:C1はタイトル)をオートフィルタに掛けて
フィルタに掛かった一番上のデータをコピーして貼り付けているマクロですが。

やりたいことは、B1:C1のタイトルとフィルタに掛かった可視領域の一番上の
データ(オートフィルタに引っかからないでデータが無い場合も有り)をコピー
して貼り付けたいのですがどの様なコードを書けば良いのでしょうか。?

Sub フィルタ()
Range("B1:C1").Select
Selection.AutoFilter
Selection.Au...続きを読む

Aベストアンサー

こんにちは。
ご提示のコードの仕様だと
Sub sample()
  With Range("B1").CurrentRegion
    .AutoFilter Field:=2, Criteria1:=">=1e-6"
    If Range("B65536").End(xlUp).Row > 1 Then
      .Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Copy Range("K15")
    End If
    .AutoFilter
  End With
End Sub
こんな感じ。

B1:C1のタイトルも必要なら
Sub sample2()
  Dim n As Long
  With Range("B1").CurrentRegion
    .AutoFilter Field:=2, Criteria1:=">=1e-6"
    If Range("B65536").End(xlUp).Row > 1 Then
      n = .Offset(1).SpecialCells(xlCellTypeVisible).Cells(1).Row
      Range("B1:C" & n).Copy Range("K15")
    End If
    .AutoFilter
  End With
End Sub

こんにちは。
ご提示のコードの仕様だと
Sub sample()
  With Range("B1").CurrentRegion
    .AutoFilter Field:=2, Criteria1:=">=1e-6"
    If Range("B65536").End(xlUp).Row > 1 Then
      .Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Copy Range("K15")
    End If
    .AutoFilter
  End With
End Sub
こんな感じ。

B1:C1のタイトルも必要なら
Sub sample2()
  Dim n As Long
  With Range("B1").CurrentRegion
    .AutoFilter Field:=2, ...続きを読む

Q飾り枠・罫線をフリーで使えるHPを教えて下さい!

ビジネス用に使う飾り枠で見積書の外側を囲う飾り枠なのですが、
WORDの罫線では使えそうなのが見つかりません。

HP上でイメージにピタッ!っとくるようなのをフリーで探しています。
あくまでもビジネス用なので落ち着いた感じです・・。

フリーじゃないけどこれはいい!というようなものもあれば・・・。
よろしくお願いします。

Aベストアンサー

>ダウンロードするとすぐにクリップオーガナイザが起動され、

その時点で、ダウンロードしたものが表示されているはずです。
Office XPのクリップオーガナイザなら、それだけで、すでに分類もされていると思います。
どこに分類されているかは、ダウンロードした画像のカテゴリを自動判別しますので、自分が選択したものになります。
今回の場合で言えば、おそらく「罫線と飾り」か「境界線と枠」になっていると思います。
分類を変えたければ、表示させておいて、「コレクションの一覧」の好きな分類の上にドラッグ&ドロップすればコピーされます。
また、右の窓に適当なものが表示されていなければ、「コレクションの一覧」をクリックして切り替えてください。
MS-WORDなどの貼り付けるには、ドロップダウンメニューからコピーしてWORD上で貼り付けをするか、WORD上で「挿入」→「図」→「クリップアート」で検索・表示させておいて、図をクリックすれば挿入されます。

QExcelで、ブック中すべてのシートのオートフィルタ解除

Excel2002(officeXP)で、編集->検索から検索対象をすべてのブックとしたときに、オートフィルタを設定したシートですでにフィルタをかけていると、フィルタで除外されているデータが検索されません。
フィルタがかかっているシートがわかっている場合は、データ->フィルタ->すべて表示をかけるのですが、すべてのシートのフィルタを「すべて表示」したい場合、どのような方法がありますか。

Aベストアンサー

オートフィルタ自体は解除せず、フィルタの絞り込みを解除するマクロです。コードの整理ができていないので冗長ですが、とりあえず動作はしました。

このマクロをBOOKの標準モジュールにペーストして実行して下さい

Sub 絞り込み解除()
Dim idxSheet, idxField , cntField As Integer
Dim curSheet, curADRS As String
  Application.ScreenUpdating = False
curSheet = ActiveSheet.Name
curADRS = Selection.Address
For idxSheet = 1 To  ActiveWorkbook.Worksheets.Count
If Worksheets(idxSheet).AutoFilterMode Then
cntField = Worksheets(idxSheet).AutoFilter.Filters.Count
Worksheets(idxSheet).Activate
ActiveSheet.Cells(1, 1).Select
For idxField = 1 To cntField
Selection.AutoFilter Field:=idxField
Next idxField
End If
Next
Worksheets(curSheet).Select
ActiveSheet.Range(curADRS).Activate
Application.ScreenUpdating = True
End Sub

オートフィルタ自体は解除せず、フィルタの絞り込みを解除するマクロです。コードの整理ができていないので冗長ですが、とりあえず動作はしました。

このマクロをBOOKの標準モジュールにペーストして実行して下さい

Sub 絞り込み解除()
Dim idxSheet, idxField , cntField As Integer
Dim curSheet, curADRS As String
  Application.ScreenUpdating = False
curSheet = ActiveSheet.Name
curADRS = Selection.Address
For idxSheet = 1 To  ActiveWorkbook.Worksheets.Count
...続きを読む

Qフリー素材

フリー素材を探しています。
花柄で、小さな花模様でフリーの素材はないでしょうか?
ポスターとかはがきにその花柄を印刷しまして、
そのポスターやはがきを販売しますので、
印刷物に使用でき、販売目的でもOKのフリー素材は
ないでしょうか。教えてください。

Aベストアンサー

素材辞典
http://www.sozaijiten.com/

プロの素材
http://www.hakata-good.co.jp/

満タンWEB
http://www.dex.ne.jp/mantan/index.html

上記は、商用OKのロイヤリティフリー素材を販売されているサイトです。
使えそうな画像がある素材集を購入すればご要望の用途にかなうかもしれません。

また、検索エンジンなどで、キーワードを「ロイヤリティフリー」「素材」「商用」などで検索されれば、その他の商用可能なフリー素材も見つかるかもしれません。

Qオートフィルタで抽出した表の集計

はじめまして。さっそくですが質問させていただきます。
現在、以下のような表があるとします。

行列   A     B     C    
1  日付    名前   金額
2 2006年10月  田中   \1000
3 2006年11月  佐藤   \200
4 2006年11月  田中   \500
5 2006年12月  鈴木   \820
6 2007年 1月  鈴木   \323
7 2007年 1月  田中   \750

ここで、A列にオートフィルタをかけて、表示されるセルのみの総合計はSUBTOTALで取れるのですが、さらにB列の人名ごとの合計を取る方法がわかりません。

例えば2006年11月のみを表示した場合、

行列  C    D
9  総合計= ¥700  ←これはSUBTOTAL(9,C1:C6)で解決
10   田中= ¥500
11   佐藤= ¥200
12   鈴木= ¥0

と、出るようにしたいのです。
オートフィルタをかけるのはA列の日付だけではなくD以降にもデータが入力されていてオートフィルタをかける場合があるとしますが人名は3つ(田中・佐藤・鈴木)のみです。

また、実際のデータはとても行数が多いので手作業で可視セルの人名ごとのトータルを毎回打つのは大変ですし、そのデータは多くの人が使うのでオートフィルタをかけるだけで、現在可視状態のセルの総合計・可視状態の田中の合計・可視状態の佐藤の合計・可視状態の鈴木の合計が一度に出るようにしたいのです。

自分としては自作関数を作成し、一応は求める結果が出るようにしたのですが、自作関数を使うとファイルを開く時に「マクロを有効にしますか?」と聞かれてしまうのが難点です。もっと簡単な方法があれば教えていただきたいです。何卒よろしくお願いします

はじめまして。さっそくですが質問させていただきます。
現在、以下のような表があるとします。

行列   A     B     C    
1  日付    名前   金額
2 2006年10月  田中   \1000
3 2006年11月  佐藤   \200
4 2006年11月  田中   \500
5 2006年12月  鈴木   \820
6 2007年 1月  鈴木   \323
7 2007年 1月  田中   \750

ここで、A列にオートフィルタをかけて、表示されるセルのみの総合計はSUBTOTALで取れるのですが、さらにB列の人名...続きを読む

Aベストアンサー

オートフィルタというご希望からは外れますが、ピボットテーブルを
使用するのはダメですか?
可視状態と似た状況がチェックボックスをつける・外すで可能なので・・。

フィルタオプションを使用してデータ書き出しを行う先にSUM関数を
入れておくのも手かもしれません。

Qフリーソフトで簡単に罫線が引けるソフト

1 簡単に罫線を引くことができる
2 線と線の間に文字を書くことができる。
3 表計算のように表に入力した数字を計算しなくてもい  い
4 印刷機能がある

というフリーソフトはありますでしょうか?

Aベストアンサー

フリーですべてを満たすのはOpenOfficeでしょうね。

参考URL:http://ja.openoffice.org/start/

Qオートフィルタの代わりの関数による表計算

"VLOOKUP"とか"HLOOKUP"とかの(表計算用)関数では、単一の検索値だけによって絞り込みが為されていくのだろう、
と私は勝手に認識して参りましたので、伺います。

『複数の条件で各データを絞り込みまして其の同一行に並んだデータを取り出す』という設定の為には、どういう関数の利用が必要なのでしょうか?

たとえVBEによる記述が必要になっていましても、
構いませんから、御教授を宜しく御願い申し上げます。

Aベストアンサー

基本的には次のような例題を理解することで関数による対応が可能でしょう。
シート1には例えばA1セルに氏名、B1セルに性別、C1セルに年齢、D1セルに県名などの項目名が有り、その下方に各データが入力されているとします。
そこでオートフィルタとなる検索の条件を入力する表をG1セルからJ2セルに作るとします。
G1セルには性別、H1セルには年齢(以上)、I1セルには年齢(以下)、J1セルには県名の文字をそれぞれ入力します。
そこでそれぞれの項目の2行目には検索したいデータを入力します。年齢の場合に30代の年齢を検索したい場合にはH2セルに30、I2セルに39と入力します。勿論検索に含めない場合には空白のセルとします。
そこでこれらのフィルタの条件を考慮した行をシート2に作成するとしてそのための作業列をシート1のE列に作成することにします。E2セルには次の式を入力して下方にドラッグコピーします。

=IF(IF(G$2="",0,IF(B2=G$2,1,0))+IF(H$2="",0,IF(AND(C2>=H$2,C2<=I$2),1,0))+IF(J$2="",0,IF(D2=J$2,1,0))=COUNTA(G$2)+COUNT(H$2)+COUNTA(J$2),MAX(E$1:E1)+1,"")

シート2では結果を表示するための表でA1セルには次の式を入力してD1セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>MAX(Sheet1!$E:$E)+1,"",IF(INDEX(Sheet1!$A:$D,IF(ROW(A1)=1,1,MATCH(ROW(A1)-1,Sheet1!$E:$E,0)),COLUMN(A1))="","",INDEX(Sheet1!$A:$D,IF(ROW(A1)=1,1,MATCH(ROW(A1)-1,Sheet1!$E:$E,0)),COLUMN(A1))))

これで年齢などの幅を設けた条件の設定の仕方などを参考にすることですべてのケースについて対応ができるものと考えます。

基本的には次のような例題を理解することで関数による対応が可能でしょう。
シート1には例えばA1セルに氏名、B1セルに性別、C1セルに年齢、D1セルに県名などの項目名が有り、その下方に各データが入力されているとします。
そこでオートフィルタとなる検索の条件を入力する表をG1セルからJ2セルに作るとします。
G1セルには性別、H1セルには年齢(以上)、I1セルには年齢(以下)、J1セルには県名の文字をそれぞれ入力します。
そこでそれぞれの項目の2行目には検索したいデータを入力します。年齢の場合に30代の...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報