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初心者です。よろしくお願いします。
例えば、セルA1からZ1のうちZ1には必ず値が入っています。A1からY1まではA1から順番に値が入っていますが、どこまで入っているかシートごとで違います。入っていない列を非表示にしたいのですがどうすれば良いでしょうか。

   A  B  C  D  ・・・・・・・   Y  Z
1  12  45  14                  71 
2 


 上のシートの場合、D列からY列を非表示にしたいのです。

【46223】Re:データのない列を非表示にするには
発言  ichinose  - 07/1/27(土) 7:44 -

引用なし
パスワード
   ▼けんや さん:
おはようございます。

>VBA初心者です。よろしくお願いします。
>例えば、セルA1からZ1のうちZ1には必ず値が入っています。A1からY1まではA1から順番に値が入っていますが、どこまで入っているかシートごとで違います。入っていない列を非表示にしたいのですがどうすれば良いでしょうか。
>
>   A  B  C  D  ・・・・・・・   Y  Z
>1  12  45  14                  71 
>2 
>3
>
> 上のシートの場合、D列からY列を非表示にしたいのです。
上記のシートがアクティブな状態で

標準モジュールに

'============================================
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