Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6274 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46221】データのない列を非表示にするには けんや 07/1/27(土) 2:01 質問[未読]
【46223】Re:データのない列を非表示にするには ichinose 07/1/27(土) 7:44 発言[未読]
【46225】Re:データのない列を非表示にするには けんや 07/1/27(土) 10:05 お礼[未読]
【46221】データのない列を非表示にするには
質問  けんや  - 07/1/27(土) 2:01 -
引用なし
パスワード
   VBA初心者です。よろしくお願いします。
例えば、セルＡ１からＺ１のうちＺ１には必ず値が入っています。Ａ１からＹ１まではＡ１から順番に値が入っていますが、どこまで入っているかシートごとで違います。入っていない列を非表示にしたいのですがどうすれば良いでしょうか。

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　・・・・・・・　　　Ｙ　　Ｚ
１　　12　　45　　14　　　　　　　　　　　　　　　　　　71　
２　
３

　上のシートの場合、Ｄ列からＹ列を非表示にしたいのです。
【46223】Re:データのない列を非表示にするには
発言  ichinose  - 07/1/27(土) 7:44 -
引用なし
パスワード
   ▼けんや さん：
おはようございます。

>VBA初心者です。よろしくお願いします。
>例えば、セルＡ１からＺ１のうちＺ１には必ず値が入っています。Ａ１からＹ１まではＡ１から順番に値が入っていますが、どこまで入っているかシートごとで違います。入っていない列を非表示にしたいのですがどうすれば良いでしょうか。
>
>　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　・・・・・・・　　　Ｙ　　Ｚ
>１　　12　　45　　14　　　　　　　　　　　　　　　　　　71　
>２　
>３
>
>　上のシートの場合、Ｄ列からＹ列を非表示にしたいのです。
上記のシートがアクティブな状態で

標準モジュールに

'============================================
Sub main()
　　On Error Resume Next
　　With Range("a1:z1")
　　　　.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
　　　 End With
　　On Error GoTo 0
End Sub

これで試してみて下さい
【46225】Re:データのない列を非表示にするには
お礼  けんや E-MAIL  - 07/1/27(土) 10:05 -
引用なし
パスワード
   どうもありがとうございました。
これで解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6274 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free