会社でエクセル2000(OS:WINNT4.0)で文書を作成しています。印刷時、ヘッダの右側にページ番号を印刷しようとしています。「プレビュー」ー「設定」-「ヘッダーの編集」で右側欄に&「ページ番号」と入力しOKボタンおしてプレビュー画面に戻しました。ページページ番号は表示されるのですが、もっと右端にもっていきたくで印刷右端ラインをもっと右に移動させたのですが、ページ番号はそのままで右端に移動してくれませんでした。自宅ではエクセル97(OS:WIN95)を使っているのですが現象は同じです。となたか経験のある方、教えてください。
よろしくお願いいたします。再投稿しました。

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

A 回答 (3件)

Excel97で試してみましたが、RightMarginの量に関係なくRightHeaderの一番右の位置が決まっているようです。

VBAでもRightHeaderの位置を決めるプロパティ等は見つかりません。

RightHeaderに設定した書式の後ろに空白を挿入すればCenterHeared側に動きますが、前に空白をたくさん挿入してみても、ヘッダーが改行されて右側の位置は変わらないようです。

RightMarginぎりぎりにRightHeaderを書くには、ヘッダーを使わない印刷方法(VBAでつくるとか)が必要と思います。例えば、印刷用シートにデータをはめ込んで印刷するとか、Accessに読み込んでレポート出力する方法が考えられます。

普通にはできないという回答ですが、ご参考に。
    • good
    • 0
この回答へのお礼

普通ではできないと思います。自分ではVBAはできません。でも可能性はあるとの認識はします、調べていただきありがとうございました。

お礼日時:2001/12/19 08:01

回答ではないのですが、ページ番号を入れるだけならプリンター側で


設定できる場合があります。
    • good
    • 0
この回答へのお礼

あるがとうございました。一度ためしてみす。

お礼日時:2001/12/19 07:44

Excel2000のヘルプによると「ヘッダーやフッターの左右の余白は、ページの余白設定とは異なり、すべて 0.75 インチに設定されます。

」と書いてあるので不可能だと思われます。

どうしてももっと右側にページを印刷したければ、タイトル行等で作り込む必要があると思います。
    • good
    • 0
この回答へのお礼

簡単にはできないようですね。これも一度試してきます。

お礼日時:2001/12/19 07:55

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

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

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

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

Q「ヘッダーフッター」のヘッダーの文字のサイズ

エクセルのマクロの記録で
印刷設定の
ページ設定の「ヘッダーフッター」のヘッダーの
中央部に文字を入れて
その文字のサイズを11から20に変更する記録を取りたいのですが
記録結果を見てみると
サイズの部分が記録してないように見えます、

With ActiveSheet.PageSetup
.CenterHeader = "あああ"

で、ヘッダに表示する文字の記録はできています。

このような場合VBAでサイズの設定をするには
どうすればいいでしょうか?

手作業で20にしても、11に戻ってしまいます。

Aベストアンサー

こんばんは!

>.CenterHeader = "あああ"

>.CenterHeader = "&20あああ"
としてみてください。

※ マクロの記録から見るとこれで大丈夫のようです。m(_ _)m

Qエクセル 印刷時に端から端まで点線を入れたい

知恵を貸してください。

印刷時に切り取り線として、端から端まで点線を入れたいのです。

余白の部分を0にしても、どうしても端から端まで点線がかけません。

拙い説明で非常に申し訳ございません。
補足説明もいたします。

どうか知恵を貸していただければと思います。

Aベストアンサー

こんにちは。

 一般的なプリンタでは印刷可能領域が決まっていて、用紙のふち5mm程度は印刷不可能になっています。お手持ちのプリンタの取扱説明書の後ろの方に仕様が載っていますが、その辺に記載されています。
 そのため、印刷不可能部分には印刷できません。

では。

Qワードにページごとに異なるヘッダーを

 複数あるワードのページごとに、異なるヘッダを入れたいのです。 連番や奇数偶数ごとではないのです。   ページごとに変えても全てのページのヘッダーが変更になってしまいます。   はじっこのヘッダー位置に書き込みたいので、どなたかよろしくお願いいたします。

Aベストアンサー

ページの終わりで「挿入」「改ページ」セクション区切りの「次のページから始める」を設定する。
「表示」「ヘッダーとフッター」で右上に「前と同じ」とでている場合は
ツールバーの「前と同じ」ボタンで解除する。

QエクセルVBA(LOOKUP関数)Win2000、Office2000

いつも関数(LOOKUP)を使って集計をしているのですが、これがVBAで一発処理できれば効率がよくなると思い、頑張ってコードを書き書きしてます。
が、どうもうまくいかきません。下に今書いているコードを書きます。やりたい内容がおわかりいただければいいのですが・・・よろしくお願いします。
Subtest()
Dim ds,ss As Worksheet'(シート名)
Dim Dlrow As Long'(DataSheetの最終行)
Dim Slrow As Long'(DataSheetの最終行)
Dim i,r,dAs Long’(行、列カウンタ)
Set ds=Worksheets("DataSheet")
Set ss=Worksheets("syukei")
For DL row =1 To ds.Range("B65536").End(xlUp).Row 'DataSheetの行数判定
Next
ForSLrow=1 To ss.Range("B65536").End(xlUp).Row '集計シートの行数判定
Next
'現在セルにある関数→集計シートA3=LOOKUP(B3,DataSheet!3:H6308,DataSheet!C3:C6308)
'対応する列
'検索値は全て、集計シートのB列
'検査範囲は全て、データシートのH列
↓////※ここらへんから苦戦してます////
'集計シートのA列=データシートのC列
WithWorksheets("syukei")
Fori=3ToSLrow
'.Cells(i,1)="=Lookup(Cells(i,2),Worksheets(DS).cells3,8):cells(DLrow,8),worksheets(DS).cells(3.3):cells(DLrow:3)"
Nexti
EndWith

'以降, 集計C列=データのI列のように対応する列毎に、上のコードで処理していこうと思っています。(もしかしてダサイやり方ですか?)
'J列以降は、以降集計J~AS列とデータR~BA列の+1列
'Forr=10to45→r=J~AS(10to45)
'Ford=18to53→d=R~BA(18to53)
'Fori=3toSLrow
'Cell(r,i)=Lookup・・・・・
'nextr
'nextd
'nexti
EndSub
と、こんな感じで、頑張ってます。よろしくお願いいたします。

いつも関数(LOOKUP)を使って集計をしているのですが、これがVBAで一発処理できれば効率がよくなると思い、頑張ってコードを書き書きしてます。
が、どうもうまくいかきません。下に今書いているコードを書きます。やりたい内容がおわかりいただければいいのですが・・・よろしくお願いします。
Subtest()
Dim ds,ss As Worksheet'(シート名)
Dim Dlrow As Long'(DataSheetの最終行)
Dim Slrow As Long'(DataSheetの最終行)
Dim i,r,dAs Long’(行、列カウンタ)
Set ds=Worksheets("DataSheet"...続きを読む

Aベストアンサー

>どの辺りをいじればいいのでしょうか
イレギュラーなので、1列毎に書くべきでしょう。
補足にD列がない?下はB、D列は書き込んでいません。

'データシートの値を集計表に書く
For Col = 1 To 45
  If Not (Col = 2 Or Col = 4) Then
    Select Case Col
      Case 1: pCol = 3 '集計表A列=データシートC列

      Case 3: pCol = 9 '集計表C列=データシートI列
      Case 5: pCol = 16 '集計表E列=データシートP列
      Case 6: pCol = 17 '集計表F列=データシートQ列
      Case 7: pCol = 6 '集計表G列=データシートF列
      Case 8: pCol = 12 '集計表H列=データシートL列
      Case 9: pCol = 13 '集計表I列=データシートM列

      '集計表J列=データシートR列、8列ずれ
      Case 10 To 45: pCol = Col + 8
    End Select
    wsS.Cells(Rw, Col) = wsD.Cells(fRw, pCol)
  End If
Next

>どの辺りをいじればいいのでしょうか
イレギュラーなので、1列毎に書くべきでしょう。
補足にD列がない?下はB、D列は書き込んでいません。

'データシートの値を集計表に書く
For Col = 1 To 45
  If Not (Col = 2 Or Col = 4) Then
    Select Case Col
      Case 1: pCol = 3 '集計表A列=データシートC列

      Case 3: pCol = 9 '集計表C列=データシートI列
      Case 5: pCol = 16 '集計表E列=データシートP列
      Case 6: pCol = 17 '集計表F列=データ...続きを読む

Q(市販の)押し花素材と自分で押し花を生から作った場合の違いはありますか

私はこれから押し花で作品作りをしたいと考えています。
初歩的な質問なのですが、売っている乾燥された押し花の素材を使った場合と、自分で生花から押し花にした場合(市販の作成キット等を使用して)との違いはあるのでしょうか?

色やもち具合に違いが出るのでしたら、どちらがより品質の良い押し花が出来ますか?

私は初心者なので、自分で最初から作るとうまく出来ないのではないか、と思ってしまい、乾燥して売られてるものを使った方が、うまく出来るような気がするのですが、実際のところはどうなのでしょうか。

ご存知の方、教えて頂ければ嬉しいです。

Aベストアンサー

市販・自作、どちらも良い所・悪い所がありますので、どちらか一方にこだわらないで、両方使ってご覧になると良いと思います。

市販品の場合、出来の悪かった物は出荷前にはじかれますので、一定以上の品質の物が得られるでしょう。
しかし、花の種類は若干限られてしまうと思います。

自作の場合、上手く色が出なかったり、花びらが皺になってしまったりと失敗もあると思います。
でも、市販品には無い種類の花でもチャレンジできますから、作品に個性が出て面白いと思います。
最近のキットは優秀なので、結構失敗無く思ったより綺麗に仕上がります(花自体の向き不向きがありますが...)。

色持ちについては、自作の場合は水分が抜けきっていないと後で変色しますが、水分がちゃんと抜けて入れば、その後の持ちは市販品と変わりありません。

作品を作る時に使う接着剤の種類に気を付けるとか、紫外線防止のケースに入れる、乾燥剤を入れるなどすれば、変色はある程度防ぐ事が出来ます。

まずは一度、市販品からでも、作品をお作りになってみると宜しいのではないかと思います。

作って行く段階で、こんな花を使いたいけど、市販品には無いと言うような事が出てくると思います。
そうしたら、自作にチャレンジしてみるのも良いのでは?

市販・自作、どちらも良い所・悪い所がありますので、どちらか一方にこだわらないで、両方使ってご覧になると良いと思います。

市販品の場合、出来の悪かった物は出荷前にはじかれますので、一定以上の品質の物が得られるでしょう。
しかし、花の種類は若干限られてしまうと思います。

自作の場合、上手く色が出なかったり、花びらが皺になってしまったりと失敗もあると思います。
でも、市販品には無い種類の花でもチャレンジできますから、作品に個性が出て面白いと思います。
最近のキットは優秀なの...続きを読む

Qエクセルで用紙の端から端まで線引きしたい

エクセルで線を引くには、
1.罫線
2.直線
の2通りがあると思いますが、
いずれも、余白を0にしても、絶対に5mm程は余白ができてしまいます。

用紙の端から端まで余白を作らずに線を引くことはできないでしょうか?
(線がひけるなら、結果的にはエクセルでなくても結構ですので・・・)

Aベストアンサー

No.1さんの言われるようにプリンターによりますが、そのためにプリンターを購入するわけには行かないでしょう。少しプリンターのプラテンが汚れるかもしれませんが、一応A4サイズの用紙にエクセルで左端から右端まで横罫線が引ける方法を紹介します。

・ページ設定で、用紙サイズ「A4ノビ223.5×355.6mm」を設定
・余白で、左、右共「0」に設定します。
・エクセルの罫線機能を使って、行間を調整して、印刷範囲の左端から右端まで必要な横線を引きます。
・次に、印刷の時に、A4のペーパーの左端をガイドから5ミリほどずらしてセットします。(一度テスト印刷をして空きを調整します。)
・それで印刷の実行すればOKです。

プリンターは、多分A4サイズだと思いますが、A4ノビまで対応していますので巧く印刷できます。当然縦のサイズも長くなっていますので、下の余白を5cmほど余計広くするか、ユウーザー設定で縦のサイズをA4の長さに設定しても良いと思います。

Qgif形式の動く画像の保存方法

・右クリックで名前を付けて保存をしても、、動かない画像でしか保存されません。
動く状態の画像を保存する方法を教えて下さい。


・できればフリーソフトなどではなく、Windowsの機能だけで動く画像を保存する方法を教えて下さい

Aベストアンサー

保存したGIFファイルをInternetExplorer(IE)や
WindowsMediaPlayerなどで開いてみてください。
サードパーティ製のビューワでも良いと思います。

標準のフォトビューワではGIFアニメーションを再生できませんからねえ。

QエクセルVBA:データ端に画像があった場合の最終セル位置取得

 エクセル2000でVBA使用の場合の質問です。

 既にシートに表や画像ファイルが配置されています。
あちこちの他データベースから、送付されてくるデータをそのシートの下端に自動で追加するマクロを組んでいます。
しかし、シートの一番下が不定な大きさの画像ファイルであった場合に、次のデータが、既にある画像に隠されない位置から貼り付けたいのですが、画像の最下位置をセル位置で取得する方法が判りませんでした。
 こういう場合、どのような方法で取得すればいいのでしょうか?

 最下データは必ずしも画像とは限らないので、出来れば同じコマンドかルーチンで画像であってもセル内データであっても、最下端セル(ここでは画像にが被っていないセルか、ヌルでないセル)位置、或いは最初の空きセル(ここでは、画像で隠されていず、かつヌルセルの位置の意味)位置を取得できれば嬉しいのですが、それが無理な場合、最後が画像か非ヌルセルかを判断した上で、画像だった場合の最下端情報を取得する方法(非ヌルセルと判断出来れば、情報取得方法はいくつか知っています)のどちらかを知りたいのです。

 エクセル2000でVBA使用の場合の質問です。

 既にシートに表や画像ファイルが配置されています。
あちこちの他データベースから、送付されてくるデータをそのシートの下端に自動で追加するマクロを組んでいます。
しかし、シートの一番下が不定な大きさの画像ファイルであった場合に、次のデータが、既にある画像に隠されない位置から貼り付けたいのですが、画像の最下位置をセル位置で取得する方法が判りませんでした。
 こういう場合、どのような方法で取得すればいいのでしょうか?

 最下...続きを読む

Aベストアンサー

画像、図形の最終は For Each で全て調べています。
セルは、A列からIVまで調べています。求めた行+1が挿入する位置になります。


標準モジュールに貼り付ける例です。

Sub searchEndRow()
  Dim EndRow As Long    '求める最終行
  Dim shp As Shape     '図形

  '画像、図形の最終行を求める
  For Each shp In ActiveSheet.Shapes
    EndRow = Application.Max(EndRow, shp.BottomRightCell.Row)
  Next

  '最終入力セルの行を求める
  Dim cl As Integer    '列カウンタ
  For cl = 1 To 256
    EndRow = Application.Max(EndRow, Cells(65536, cl).End(xlUp).Row)
  Next

  MsgBox "挿入する行は " & (EndRow + 1) & " 行目です"

End Sub

画像、図形の最終は For Each で全て調べています。
セルは、A列からIVまで調べています。求めた行+1が挿入する位置になります。


標準モジュールに貼り付ける例です。

Sub searchEndRow()
  Dim EndRow As Long    '求める最終行
  Dim shp As Shape     '図形

  '画像、図形の最終行を求める
  For Each shp In ActiveSheet.Shapes
    EndRow = Application.Max(EndRow, shp.BottomRightCell.Row)
  Next

  '最終入力セルの行を求める
  Dim cl As Integer ...続きを読む

Q年齢がぞろ目での結婚

こんにちわ。
以前に年齢がぞろ目での結婚はあまり良くないと
聞いたことがあるのですが、皆さんはそんな話聞いたことありますか?
本当にそんな迷信?は存在するのでしょうか?

Aベストアンサー

ぞろ目説は初めて聞きました。
妹はぞろ目で嫁ぎましたが、私が先方に頭が下がるくらいよい家庭を築かしてもらっています。
厄年はあかん、とか色々迷信が有ると思いますがご自分が一番気になる事を最重点事項に考えると良いと思います。
よい結果になるように声援していますよ。

QExcelのグラフ(OS win2000)

エクセルのグラフで質問です
会社で作成している折れ線グラフですが、毎月の売上を日々時系列で表示させています。

元のデータは他から数式でリンクしているのですが、折れ線グラフなのでまだ実績のない部分に線が表示されないように、数式を毎日ドラッグしています
当日分だけグラフにデータラベルを表示してるんですが、フォントの設定を「太字」「16」にしたいのです
更新するたびに、もともと設定されているフォントで表示されてしまうので
毎日手作業で直しているのですが、そのもとの設定自体を「太字」「16」にして、毎日の手作業を無くしたいのですがどうしても出来ません
どうか教えてください。よろしくお願いします。

Aベストアンサー

データラベルの書式設定を出します。
フォントのタブを開いて、下の方にある自動サイズ調整のチェックをはずして下さい。
これで固定されるはずです。


人気Q&Aランキング

おすすめ情報