Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12026 / 13645 ツリー ←次へ | 前へ→

【12753】改ページ部分への罫線の引き方 あっこ 04/4/14(水) 10:16 質問
【12754】Re:改ページ部分への罫線の引き方 IROC 04/4/14(水) 11:14 回答
【12756】Re:改ページ部分への罫線の引き方 あっこ 04/4/14(水) 11:41 質問
【12757】Re:改ページ部分への罫線の引き方 IROC 04/4/14(水) 11:49 回答
【12758】Re:改ページ部分への罫線の引き方 あっこ 04/4/14(水) 13:09 質問
【12759】Re:改ページ部分への罫線の引き方 IROC 04/4/14(水) 13:43 回答
【12761】Re:改ページ部分への罫線の引き方 あっこ 04/4/14(水) 15:05 質問
【12798】Re:改ページ部分への罫線の引き方 IROC 04/4/15(木) 10:11 回答
【12804】Re:改ページ部分への罫線の引き方 あっこ 04/4/15(木) 14:34 お礼

【12753】改ページ部分への罫線の引き方
質問  あっこ E-MAIL  - 04/4/14(水) 10:16 -

引用なし
パスワード
   どなたか教えて下さい。

改ページ部分に罫線の実線を引きたい場合は
どのようにすれば良いのでしょうか?

ちなみにページ数はまちまちですが、最大で120ページあります…

あと、1週間前迄普通に動いていたマクロが急におかしくなる事ってありますか?
その間何も触ってないです。
かなり困ってます、どなたかご回答お願いします。

【12754】Re:改ページ部分への罫線の引き方
回答  IROC  - 04/4/14(水) 11:14 -

引用なし
パスワード
   >1週間前迄普通に動いていたマクロが急におかしくなる事ってありますか?
あまりないですが、日付をキーにしているマクロであれば
可能性はあります。

それ以外には、
「その間何も触ってないです。」
という考え方に問題があると思います。
(電源も入れていない?)


>改ページ部分
縦ですか?
横ですか?

列と行の範囲は決まっていますか?

【12756】Re:改ページ部分への罫線の引き方
質問  あっこ E-MAIL  - 04/4/14(水) 11:41 -

引用なし
パスワード
   早速のご回答有難うございます。

▼IROC さん:
>それ以外には、
>「その間何も触ってないです。」
>という考え方に問題があると思います。
>(電源も入れていない?)
すいません。書き方が悪かったです。
前回マクロを動かしてから今回動かすまで
そのマクロに関しては何も触っていないという事です。

>>改ページ部分
>縦ですか?
>横ですか?
横です。

>列と行の範囲は決まっていますか?
列は決まってますが行は決まってません。

宜しくお願いします。

【12757】Re:改ページ部分への罫線の引き方
回答  IROC  - 04/4/14(水) 11:49 -

引用なし
パスワード
   >前回マクロを動かしてから今回動かすまで
>そのマクロに関しては何も触っていないという事です。

シートなり、ブックなりの
そのマクロが処理する対象に対して
何らかの操作を加えた可能性もあります。


>>列と行の範囲は決まっていますか?
>列は決まってますが行は決まってません。

列の範囲を教えて下さい。

【12758】Re:改ページ部分への罫線の引き方
質問  あっこ E-MAIL  - 04/4/14(水) 13:09 -

引用なし
パスワード
   ▼IROC さん:
>列の範囲を教えて下さい。
A〜Jなのですが、
非表示を使ってて実際表示されてるのは
B,D,F,H〜Jです。
非表示部分にも罫線は引きたいですが可能でしょうか?

宜しくお願いします。

【12759】Re:改ページ部分への罫線の引き方
回答  IROC  - 04/4/14(水) 13:43 -

引用なし
パスワード
   こんな感じでしょうか?


Sub sample()
Dim C As Long
Dim myR As Long

With Worksheets("sheet1")
  
  For C = 1 To .HPageBreaks.Count
      
    myR = .HPageBreaks(C).Location.Row - 1
     
    With .Range(.Cells(myR, 1), .Cells(myR, 10)).Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
     
    With .Range(.Cells(myR + 1, 1), .Cells(myR + 1, 10)).Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
         
  Next C

End With

End Sub

【12761】Re:改ページ部分への罫線の引き方
質問  あっこ E-MAIL  - 04/4/14(水) 15:05 -

引用なし
パスワード
   ▼IROC さん:

本当に迅速なお返事に驚き&感謝です。

早速試した結果、
全改ページ部分へ罫線は引くのに、エラーが出ます。
myR = .HPageBreaks(C).Location.Row - 1
のところです。

また、表示してる列が有り得ないくらい広がります。
何か問題があるのでしょうか?

ちなみにエラーとは
「実行時エラー'9'
インデックスが有効範囲にありません。」
と出ます。

ご教授願います。

【12798】Re:改ページ部分への罫線の引き方
回答  IROC  - 04/4/15(木) 10:11 -

引用なし
パスワード
   ご利用になっているシートの状況が分からないので、
新規ブックに 
縦方向に何ページか
改ページしたシートを用意して、
マクロを実行してみて下さい。

そして、印刷プレビューを見れば、
改ページされている行に
罫線が引かれていることが分かると思います。

【12804】Re:改ページ部分への罫線の引き方
お礼  あっこ E-MAIL  - 04/4/15(木) 14:34 -

引用なし
パスワード
   ▼IROC さん:
新規Bookでトライしてみたのですが
これまた同じところでひっかかり出来ませんでした。

が、気付きました。
ページ設定の【拡大縮小印刷】のところで
横 1 × 縦 空白 にチェックを入れてました。
これが駄目だったんですね。

%のところにチェック入れると出来ました。

どうも有難うございました!!感謝です。

12026 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free