Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42860 / 76735

←次へ　｜　前へ→


	【38937】Re:改ページする行の取得方法

ichinose - 06/6/14(水) 21:33 -


	引用なし

	パスワード

▼akko さん：

こんばんは
>
>ichinoseさんが書いて頂いたMk_sample_dataに追加して作りました
>下記で私の方は現象が再現されております
>列が１ページで収まらない場合に起こる感じです

Excel2000　SR-1　SP-3　Excel2002　SP-3で
試しましたが再現しません。
つまり、列幅が変更されると言う現象は起きません。

>
>宜しくお願いします
>
>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:R2500")
>　　　　　.Formula = "=int(rand()*10000)+1"
>　　　　　.Value = .Value
>　　　　　
>　　　　　End With
>　　　 With .PageSetup
>　　　　　.Zoom = False
>　　　　　.FitToPagesWide = 1
>　　　　　.FitToPagesTall = False
>　　　　　End With
>　　　 End With
>　　Cells.Select
>　　Cells.EntireColumn.AutoFit
>　　Range("A1").Select
>End Sub
>'===========================================================
>Sub test()
>　Dim hhpgnum As Long
>　Dim hhbk As Variant
>　Dim idx As Long
>　With ActiveSheet
>　　　.PageSetup.PrintArea = .UsedRange.Address
>　　　End With
>　hhpgnum = ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))")
>　For idx = 1 To hhpgnum
>　　hhbk = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1," & idx & ")")
　　 debug.print hhbk & "==== " & IIf(Rows(hhbk).PageBreak = xlPageBreakAutomatic, "自動", "手動")
>　　Next
>End Sub

ちなみにMsgboxではなく、イミディエイトウインドウに結果を表示した場合も
列幅は変更されてしまいますか？

1 hits

▼

【38650】改ページする行の取得方法 akko 06/6/7(水) 19:22