Excel VBA質問箱 IV

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

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


12763 / 13646 ツリー ←次へ | 前へ→

【8746】PageBreak = xlPageBreakManualについて 123 03/10/30(木) 18:43 質問
【8747】Re:PageBreak = xlPageBreakManualについて 123 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について 123 03/11/4(火) 10:48 お礼

【8746】PageBreak = xlPageBreakManualについて
質問  123  - 03/10/30(木) 18:43 -

引用なし
パスワード
   こんばんは 123です。

度々すみません。

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

ご教示願います。

【8747】Re:PageBreak = xlPageBreakManualについて
質問  123  - 03/10/30(木) 18:45 -

引用なし
パスワード
   ▼123 さん:
>こんばんは 123です。
>
>度々すみません。
>
>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 -

引用なし
パスワード
   123 さん おはようございます。

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

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について
お礼  123  - 03/11/4(火) 10:48 -

引用なし
パスワード
   INAさん、りんさん おはようございます。

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

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

これからも 宜しくお願い致します。

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