Excel VBA質問箱 IV

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

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


42896 / 76732 ←次へ | 前へ→

【38897】Re:改ページする行の取得方法
発言  ichinose  - 06/6/13(火) 22:53 -

引用なし
パスワード
   ▼akko さん:
こんばんは。

>集計かけて、オートフィルタをつけて、
>列を一部隠して集計表を作ってます。
これは、はじめて聞きました。
>
>ichinoseさんの言われるように新規のブックで
>値だけ貼り付けたり集計を解除したり列を全て表示したりして
>試してみたところマクロ自体は動きました。
>が、列幅を初期設定から自動調整もしくは任意の幅に設定した場合に
>横に広がる現象が出ました。(列幅:78.88)
>
>列幅が全て同じ幅の時はこの現象は起こらず、
>列によって幅が異なる場合は起きる事がわかりました。
この記述で私が想像するシートとは、

新規ブックの標準モジュールに
'============================================================
Sub Mk_sample_data()
  Dim rng As Range
  With ActiveSheet
    With .Range("a1:e1")
     .Value = Array("項目1", "項目2", "項目3", "項目4", "項目5")
     For Each rng In .Cells
       With rng.EntireColumn
        .ColumnWidth = .ColumnWidth + 3 * .Column
        End With
       Next
     End With
    With .Range("a2:e2500")
     .Formula = "=int(rand()*10000)+1"
     .Value = .Value
         
     End With
    With .PageSetup
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = False
     End With
    End With
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 & ")")
  MsgBox hhbk & "==== " & IIf(Rows(hhbk).PageBreak = xlPageBreakAutomatic, "自動", "手動")
  Next
End Sub

上記の Mk_sample_dataを実行してみて下さい。
A列〜E列の2500行までにデータが設定されます(1行目は、見出し)
A〜E列の列幅を変えています。

とこんなシートをイメージします。


こんなシートに対して、testを実行しても列幅は変更しません。

ということは、akko さんが想定しているシートとは違うということですね?

列幅が変わると言う現象が再現できる手順書を気述してください。
(これは、誰が作成しても現象が再現できるシートの作成手順です)。

1.Excelを起動します。

から、始まった事細かな記述が必要なんです。

もしくは、問題シートを作成するコードの提示などです。
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 発言

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