Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
43036 / 76735 ←次へ　｜　前へ→
【38759】Re:改ページする行の取得方法
発言  ハチ  - 06/6/9(金) 15:58 -
引用なし
パスワード
   横から失礼します。

Excel2000を使っているのですが、
自動改ページだと改ページプレビューだけでは、
Countは正常にされているのですが、
HPageBreaks(i)の値が上手く入ってきませんでした。
一度、改ページプレビュー状態で最後まで読み込ませると
うまくいくようになりました。
トンチンカンな内容ならスイマセン。

Sub Hp_test()

Dim i As Integer
Dim myR As Long

Application.ScreenUpdating = False

With ActiveSheet
　　ActiveWindow.View = xlPageBreakPreview
　　ActiveCell.SpecialCells(xlLastCell).Select
　　　　
　　　　For i = 1 To .HPageBreaks.Count
　　　　　　myR = .HPageBreaks(i).Location.Row
　　　　　　.Rows(myR).Font.ColorIndex = 1
　　　　Next i
　　
　　ActiveWindow.View = xlNormalView
　　.Cells(1, 1).Select
End With

Application.ScreenUpdating = True

End Sub
1 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 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free