昨日見た夢を教えて下さい

タイトルの件、以下のとおりマクロを作りたいと考えています。
ご存じの方、教授の程、宜しくお願い致します。

【やりたい事】
・エクセルの複数シートに設定されている列の非表示を
マクロで一発で、再表示させたい

・マクロ実行のエクセルブックと、列が非表示にされているエクセルの
 【ブック】は別物。

・2つのファイルを同じエクセルブック内で開けば、マクロは有効ですが
別ファイル【ブックとして】開くので、有効にならない。
⇒パワーポイントとエクセルを開いたら、同じブック内ではなく
⇒別ファイルとして、開きます。これと同じ開き方です。
⇒エクセルの表示⇒整列⇒上下に並べるをやっても、並ばないです



【列が非表示に設定されているエクセルブックの場所】

C:\Users\2020\Desktop\マクロ\オートフィルタークリア_b.xlsx

【全シートの行・列を再表示させるコード】
Sub ブックにあるすべてのシートの行と列を再表示させる()
Dim objWorksheet As Worksheet

'Worksheetsコレクションから1シートづつ取得します。
For Each objWorksheet In Worksheets
'シートの行と列を再表示させます。
objWorksheet.Cells.EntireColumn.Hidden = False
objWorksheet.Cells.EntireRow.Hidden = False
Next

End Sub

A 回答 (1件)

こんばんは。



直接の回答ではありませんが、
先ほどの、回答の”【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい”のコードを
使って、下記のコードを入れ替えれば良いのでは?と思います。

Dim objWorksheet As Worksheet

'Worksheetsコレクションから1シートづつ取得します。
For Each objWorksheet In Worksheets
'シートの行と列を再表示させます。
objWorksheet.Cells.EntireColumn.Hidden = False
objWorksheet.Cells.EntireRow.Hidden = False
Next
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報