Excel VBA質問箱 IV

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

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


42843 / 76732 ←次へ | 前へ→

【38951】Re:改ページする行の取得方法 追伸
発言  ハチ  - 06/6/15(木) 9:18 -

引用なし
パスワード
   ichinose さんのMk_sample_dataを拝借してテストしてみました。
列数をもう少し大きくとってBB列までのsampleに。
Win2000/SP3 Excel2000 の環境ではうまく動作しました。

マクロ中にもコメントしてますが、
改ページプレビュー状態で
改ページ設定>改ページ削除>改ページ再設定 と実施すると動作しました。
なぜなのか不明です・・・


Option Explicit

Sub Mk_sample_data()
  Dim rng As Range
  With ActiveSheet
    With .Range("a1:R1")
     .Value = Array("項目1", "項目2", "項目3", "項目4", "項目5", "項目6", "項目7", _
     "項目8", "項目9", "項目10", "項目11", "項目12", "項目13", "項目14", "項目15" _
     , "項目16", "項目17", "項目18")
     For Each rng In .Cells
       With rng.EntireColumn
        .ColumnWidth = .ColumnWidth + 3 * .Column
        End With
       Next
     End With
    With .Range("a2:BB2500") 'BB列までに変更
     .Formula = "=int(rand()*10000)+1"
     .Value = .Value
  
     End With
    'With .PageSetup 'PageSetupは、HB_testで実行
     '.Zoom = False
     '.FitToPagesWide = 1
     '.FitToPagesTall = False
    'End With
     .Cells.Font.ColorIndex = 2 '文字色白に変更
     .Columns("A").Font.ColorIndex = 1 '一列目を黒 見やすいように
     .Columns("BB").Font.ColorIndex = 1 '最終列を黒 見やすいように
     
    End With
  Cells.Select
  Cells.EntireColumn.AutoFit
  Range("A1").Select
End Sub


Sub HB_test()

Dim i As Integer
Dim myR As Long

Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview

With ActiveSheet
  .PageSetup.Zoom = False
  .PageSetup.FitToPagesWide = 1
  .PageSetup.FitToPagesTall = False
  '一度リセットすると上手くいく。なぜ??
  'リセットしないとVは合うが、Hがずれることがある
  '(原因が・・わかりません><)
  .ResetAllPageBreaks
  .PageSetup.FitToPagesWide = 1
  .PageSetup.FitToPagesTall = False

  For i = 1 To .HPageBreaks.Count
    myR = .HPageBreaks(i).Location.Row
    .Rows(myR).Font.ColorIndex = 1
  Next i
  
End With

ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True


End Sub
4 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 発言

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