Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12761 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8746】PageBreak = xlPageBreakManualについて １２３ 03/10/30(木) 18:43 質問
【8747】Re:PageBreak = xlPageBreakManualについて １２３ 03/10/30(木) 18:45 質問
【8749】Re:PageBreak = xlPageBreakManualについて INA 03/10/30(木) 21:13 回答
【8751】Re:PageBreak = xlPageBreakManualについて りん 03/10/31(金) 8:23 回答
【8816】Re:PageBreak = xlPageBreakManualについて １２３ 03/11/4(火) 10:48 お礼
【8746】PageBreak = xlPageBreakManualについて
質問  １２３  - 03/10/30(木) 18:43 -
引用なし
パスワード
   こんばんは　１２３です。

度々すみません。

PageBreak = xlPageBreakManualが設定されている行番号を
取得したいのですが、可能でしょうか？

ご教示願います。
【8747】Re:PageBreak = xlPageBreakManualについて
質問  １２３  - 03/10/30(木) 18:45 -
引用なし
パスワード
   ▼１２３ さん：
>こんばんは　１２３です。
>
>度々すみません。
>
>PageBreak = xlPageBreakManualが設定されている行番号を
>取得したいのですが、可能でしょうか？
>
>ご教示願います。

言い忘れました。
全行数は1000行です。
【8749】Re:PageBreak = xlPageBreakManualについて
回答  INA  - 03/10/30(木) 21:13 -
引用なし
パスワード
   改ページの行数ですか？

Sub Sample()
Dim C As Integer '改ページ数のカウンター
Dim PageRow As Integer '改ページされている行番号

　With Worksheets("sheet1")　　
　　For C = 1 To .HPageBreaks.Count
　　　　　 PageRow = .HPageBreaks(C).Location.Row
　　　　　 MsgBox PageRow　　　　　　
　　Next C
　End With
End Sub
【8751】Re:PageBreak = xlPageBreakManualについて
回答  りん E-MAIL  - 03/10/31(金) 8:23 -
引用なし
パスワード
   １２３ さん　おはようございます。

改ページを挿入したセル位置を知りたいということならば。

Sub Sample()
　 Dim hpb As HPageBreak
　 '
　 For Each hpb In ActiveSheet.HPageBreaks
　　　If hpb.Type = xlPageBreakManual Then
　　　　 MsgBox hpb.Location.Address(False, False), vbInformation, "手動"
　　　End If
　 Next
End Sub

こんな感じです。
【8816】Re:PageBreak = xlPageBreakManualについて
お礼  １２３  - 03/11/4(火) 10:48 -
引用なし
パスワード
   INAさん、りんさん　おはようございます。

先週末 会社のインターネットの調子がおかしかったのか
本ページを見ることが出来ませんでした。

INAさん、りんさん本当にありがとうございました。
最大の難関を切り抜けられました。

これからも　宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12761 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free