エクセルにおいての表示しない・再表示にて

250行　ＢＺ列の表を作成いたしました。
そのなかで、あちこちに表示しない行・列を
作っております。
一括で再表示は出来ますか？
ｗｉｎＸＰ　Ｅｘｃｅｌ2000です

No.3 ベストアンサー 回答者： tresbien 回答日時： 2005/05/21 09:56

>「全セレクトして・・・」

Ａの左　1の上をクリックするとの事でしょうか？

はい。
全て選択した状態でマウスを列の上にずらして右クリックすれば「再表示」がでます。
又は、全セルを選択してから、書式メニューの列にも再表示があります。

行についても同様です。

この回答へのお礼

ずらすのが、ポイントでした。
列側・行側でそれぞれ右クリック
したら「再表示」が出ました。
これでＡからＢＺまでドラックしなくても
再表示できます。ありがとうございます。

お礼日時：2005/05/21 11:12

No.4 回答者： Wendy02 回答日時： 2005/05/21 10:37

VBAで考えてみました。

本来は、本当に、非表示になっているものでしか、再表示コマンドは利きません。
そこで、例えば、セル幅が、0.01であっても、再表示するようなコードを考えてみました。

アクティブ・ブックのみでしたら、
Alt + F11 で、画面を開き、
挿入－標準モジュール　をクリック
現れた画面に、以下のコードを貼り付けます。

Alt + F11 で戻ったら、ツール-[マクロ]-[マクロ]
で、「StandardWH」をクリックし、「実行」で戻ります。
アクティブ・シートのみに適用します。

個人用マクロに登録して、それをツールボタン（デフォルトはニコちゃんマーク）につけたりすると、いつも使えて便利かもしれませんね。

'--------------------------------------------
Sub VisibleWH()
'非表示か標準以下のセルの幅と高さを標準に戻す
Dim i As Long
Dim SW As Double
Dim SH As Double
SW = ActiveSheet.StandardWidth　'標準幅
SH = ActiveSheet.StandardHeight　'標準高
Application.ScreenUpdating = False
With ActiveSheet.UsedRange　'使った領域
　　 For i = 1 To .Columns.Count
　　　 With .EntireColumn(i)
　　　 If .ColumnWidth < SW Then
　　　　　.Hidden = False
　　　　　.ColumnWidth = SW
　　　 End If
　　　 End With
　　 Next i
　　 For i = 1 To .Rows.Count
　　　 With .EntireRow(i)
　　　 If .RowHeight < SH Then
　　　　　.Hidden = False
　　　　　.RowHeight = SH
　　　 End If
　　　 End With
　　 Next i
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
'ただし、現在のマクロでは、Undo(前に戻る Ctrl+Z）は使えません。

この回答へのお礼

ありがとうございます。
何が書いてあるのかを理解できる
ようになりたいとおもいます。

お礼日時：2005/05/21 11:19

No.2 回答者： kenken_T 回答日時： 2005/05/21 09:51

ごめんなさい。

全セレクトじゃだめですね。
まず列を表示させたければ、ＡＡからＢＺまでを
セレクトして列の幅を入力してください。
行を表示するには１から２５０をセレクトして行の幅を変更してください。

この回答へのお礼

ありがとうございます

お礼日時：2005/05/21 11:14

No.1 回答者： kenken_T 回答日時： 2005/05/21 08:46

全セレクトして行と列の幅をそれぞれ指定してあげれば表示するようになりますよ。

この回答への補足

「全セレクトして・・・」
Ａの左　1の上をクリックするとの事でしょうか？
「行と列の幅をそれぞれ指定してあげれば・・」
？？
幅がかわるのでしょうか？
手順教えてください。

補足日時：2005/05/21 09:19