サンプルサイズの計算に基づいて列を隠す/表示する

to:jayjackson6
私はいくつかのコードを持っているので、なぜそれを鍋に投げ捨てないでください.

コードはワークシートのモジュールに入ります(標準モジュールではない)
cellA10(2/050許可)

のサンプルサイズを入力してください.

すべての列を表示するには0(ゼロ)を入力します. 列1と2は常に表示されています

'

---

プライベートサブワークシート(範囲としてのBYVALターゲット)
'何も失うことはありません-2020年3月2020
ターゲット(1).address<>"" $ A $ 10 "を終了する
薄暗いLastColumnの長い
薄型

Howmany= Me.Range( "A10").value2
LastColumn= Me.Columns.Count
howmany<1、
の場合 Me.Columns.Hidden= false


elsefhowmany<2またはhowmany>50
Me.Columns.Hidden= false
application.cursor= Xldefault
vba.msgboxのサンプルサイズは範囲外です."&vbcr&"は>1または<51 "
です.


の場合は終了 application.ScreenUpdating= false
Me.Columns.Hidden= false
Me.Range(Me.Cells(1、Howmany + 3)、Me.Cells(1、LastColumn).EntireColumn.hidden= true
application.ScreenUpdating= true


'

---

無料のExcelワークブック "Professional_Compare"はすべてのセルを比較しています. 2つのワークシートの各行-比較タイプの選択.
「クリーンなデータ、クイックユニーク、説明的統計、Benford Distribution」ユーティリティを含みます.
からダウンロード(広告なし): https://www.mediafire.com/folder/lto3hbhyq0hcf/documents.

セルA1の式に基づいて、このようなVBAコードを使用してください.

'1)このコードをコピーしてください.

'2)関心のあるシートタブを右クリックします.

'3)「コードの表示」

を選択

'4)表示されているwindows にコードを貼り付けます.

'5)ファイルをマクロ対応の.xlsmファイルとして保存します.

'6)必要に応じて変更を加える

プライベートサブワークシート-Calculate()

セル(1、範囲( "A1").値).entirecolumn.hidden= falseと_

セル(1、範囲( "A1").値+ 1).entirecolumn.hidden= true

SUB

を終了します の場合は終わります

範囲(セル(1、範囲( "A1").値+ 1)、セル(1、columns.count).EntireColumn.Hidden= true

終了SUB

こんにちは、

シナリオ:

COL-BからCOL-XFD

までの列を非表示にする

セルA1(列Aは常に目に見える)

1から16383までの数字を追加/入力します.

Sheet1

のデータ

[Sheet1]タブを右クリックし、次のように[コードと貼り付け]を選択します.

プライベートサブワークシート(範囲としてのBYVALターゲット)

'※24-03-2020 ##

LONG

を薄暗いNmax

Nmax= 16383

範囲

としての薄いrcel

RCER=範囲を設定します( "A1")

交差しない場合(ターゲット、rcel)それで

範囲( "B1").サイズ変更(、NMAX).entirecolumn.hidden= false

ケースrcel.value

を選択してください

ケース1からNMAX

範囲(「B1」).サイズ変更(、rcel.value).entirecolumn.hidden= true

ケース

SUB

を終了します

終了

の場合は終わります

終了SUB

alt + qを押してVisual Basic

を閉じる