Excel VBA質問箱 IV

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

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


43036 / 76732 ←次へ | 前へ→

【38756】Re:改ページする行の取得方法
発言  ichinose  - 06/6/9(金) 14:58 -

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

>>  For Each myPb In ActiveSheet.HPageBreaks
>でインデックスが有効範囲でありません とエラーが出る理由は
>ページ設定で横1×縦○を選んでいるからだと判明しました
>
>それを拡大・縮小にすればマクロ自体は動いたように見えました。
>が、実際処理はされていませんでした。
>エラーも出ず終わるのですが、
>罫線の実線も改ページ後の1行目のフォント黒も
>どちらもできてませんでした。

>
>何が考えられるのでしょうか…

私は、Hpagebreakが取得できるか否かに重点を置いていたので
実際には、akko さんの提示されたコードでテストしているわけではありませんが、

↓これは、Hpagebreakが取得できたとしても正常に作動しませんよ!!

Sub test()

  Dim myRng  As Range     '
  Dim myPb  As HPageBreak   '
  Dim myPbRng As Range     '


  For Each myPb In ActiveSheet.HPageBreaks
    Set myPbRng = Nothing
    On Error Resume Next
    Set myPbRng = Intersect(myRng, _
    myPb.Location.EntireRow.Offset(-1))
'    ↑これmyRngには、何も設定されていないですから・・。
    On Error GoTo 0
'

    '-----------------------------------------------------
    ' 合計行の下線の変更 と 改ページ後1行目名の表示
    '-----------------------------------------------------
'
    If Not myPbRng Is Nothing Then
      With myPbRng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
      End With
      With myPbRng.Cells.Offset(1)
        .Font.ColorIndex = 1
      End With
    End If
  Next

私は、これ省略しているだけでどこかで設定しているのだろうと解釈していました。

>ページ設定で横1×縦○を選んでいるからだと判明しました
だとすると、同じエラーでも私とakko さんとでは、見ているシートが違うのだと
思います。

私とakko さんとで見ているシートの同期をとらなければなりませんね!!

出かけるので後になりますが、同じシートを見られるように同期をとる
ことを試みようと思います。

まずは、上記のエラー箇所を確認してみて下さい。

3 hits

【38650】改ページする行の取得方法 akko 06/6/7(水) 19:22 質問
【38656】Re:改ページする行の取得方法 ichinose 06/6/8(木) 6:55 発言
【38667】Re:改ページする行の取得方法 akko 06/6/8(木) 10:18 質問
【38707】Re:改ページする行の取得方法 ichinose 06/6/8(木) 20:00 発言
【38718】Re:改ページする行の取得方法 Ned 06/6/8(木) 22:53 発言
【38731】Re:改ページする行の取得方法 akko 06/6/9(金) 9:42 質問
【38739】Re:改ページする行の取得方法 ichinose 06/6/9(金) 11:02 発言
【38746】Re:改ページする行の取得方法 akko 06/6/9(金) 11:36 質問
【38749】Re:改ページする行の取得方法 ichinose 06/6/9(金) 11:56 発言
【38751】Re:改ページする行の取得方法 ほかには ichinose 06/6/9(金) 12:25 発言
【38753】Re:改ページする行の取得方法 akko 06/6/9(金) 13:44 質問
【38754】Re:改ページする行の取得方法 akko 06/6/9(金) 14:01 質問
【38756】Re:改ページする行の取得方法 ichinose 06/6/9(金) 14:58 発言
【38759】Re:改ページする行の取得方法 ハチ 06/6/9(金) 15:58 発言
【38760】Re:改ページする行の取得方法 akko 06/6/9(金) 16:20 質問
【38765】Re:改ページする行の取得方法 ハチ 06/6/9(金) 17:01 発言
【38770】Re:改ページする行の取得方法 ichinose 06/6/9(金) 18:19 発言
【38849】Re:改ページする行の取得方法 akko 06/6/12(月) 18:22 質問
【38851】Re:改ページする行の取得方法 ichinose 06/6/12(月) 19:04 発言
【38878】Re:改ページする行の取得方法 akko 06/6/13(火) 14:56 質問
【38897】Re:改ページする行の取得方法 ichinose 06/6/13(火) 22:53 発言
【38931】Re:改ページする行の取得方法 akko 06/6/14(水) 18:03 質問
【38937】Re:改ページする行の取得方法 ichinose 06/6/14(水) 21:33 発言
【38938】Re:改ページする行の取得方法 追伸 ichinose 06/6/14(水) 21:40 発言
【38951】Re:改ページする行の取得方法 追伸 ハチ 06/6/15(木) 9:18 発言
【39289】Re:改ページする行の取得方法 追伸 akko 06/6/21(水) 14:25 発言

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