Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5565 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50118】VBAについて nakanish 07/7/10(火) 10:22 質問[未読]
【50119】Re:VBAについて Jaka 07/7/10(火) 10:50 発言[未読]
【50120】Re:VBAについて nakanish 07/7/10(火) 10:52 お礼[未読]
【50122】Re:VBAについて Jaka 07/7/10(火) 11:01 発言[未読]
【50123】Re:VBAについて nakanish 07/7/10(火) 11:02 お礼[未読]
【50128】Re:VBAについて Jaka 07/7/10(火) 16:49 発言[未読]
【50118】VBAについて
質問  nakanish  - 07/7/10(火) 10:22 -
引用なし
パスワード
   VBAである文字列を含む列を非表示にする、
というマクロを作りました。

↓こんな感じです。
Sub 基礎()


Dim Retsu As Integer

Application.ScreenUpdating = False
For Retsu = 4 To 180


If Cells(7, Retsu).Value = "基礎" Then

Columns(Retsu).Select
　　Selection.EntireColumn.Hidden = False
　　
Else
Columns(Retsu).Select
　　Selection.EntireColumn.Hidden = True


End If

Next Retsu

End Sub


6行目に「基礎」とある列は非表示にするというものです。

が、「Rangeクラスのhiddenプロパティを設定できません」とエラーが出ます。
ほかで調べてシートの保護を解除などしたのですがエラーが出たままです。
どうすればよいかアドバイスいただけませんでしょうか。
【50119】Re:VBAについて
発言  Jaka  - 07/7/10(火) 10:50 -
引用なし
パスワード
   ▼nakanish さん：
>ほかで調べてシートの保護を解除などしたのですがエラーが出たままです。
>どうすればよいかアドバイスいただけませんでしょうか。
たぶん保護解除が不十分なんだと思います。
例えば、上位バージョンで保護したものは、下位バージョンでは解除しきれないと言ったような...。
そこら辺と「ほかで調べて」の意味がどうなっているのか解りませんけど。
【50120】Re:VBAについて
お礼  nakanish  - 07/7/10(火) 10:52 -
引用なし
パスワード
   ▼Jaka さん：
>たぶん保護解除が不十分なんだと思います。
>例えば、上位バージョンで保護したものは、下位バージョンでは解除しきれないと言ったような...。

ありがとうございます。
上記の部分が少し意味がわからないのですが、
もう少し詳しくおしえていただけますでしょうか？
【50122】Re:VBAについて
発言  Jaka  - 07/7/10(火) 11:01 -
引用なし
パスワード
   >例えば、上位バージョンで保護したものは、下位バージョンでは解除しきれないと言ったような...。
上位バージョン　→　上位バージョンのエクセル
下位バージョン　→　下位バージョンのエクセル

エクセル2002や2003で保護したものは、2000では解除しきれないといった意味です。
保護のかけ方にもよるけど...。
（2002や2003は、2000と比べると保護の対象が細かく指定できるようになっているから）
【50123】Re:VBAについて
お礼  nakanish  - 07/7/10(火) 11:02 -
引用なし
パスワード
   ▼Jaka さん：

シートの保護は解除したのですが、
相変わらず同じエラーが出ています。

いつも同じ箇所で作業が止まるので、
マクロの作業回数に制限などあるのでしょうか？
【50128】Re:VBAについて
発言  Jaka  - 07/7/10(火) 16:49 -
引用なし
パスワード
   ▼nakanish さん：
>いつも同じ箇所で作業が止まるので、
>マクロの作業回数に制限などあるのでしょうか？
使い方、使う状況などがよく解ってませんからなんともいえません。
新規ブックにて、提示されたコードだけを実行してもエラーになるのでしょうか？
>こんな感じです。
といった具合ですから、他のコードとの関連性もあるかもしれませんし...。

いちいち選択しなくても大丈夫です。
>Columns(Retsu).Select
>　　Selection.EntireColumn.Hidden = False
　　↓
Columns(Retsu).EntireColumn.Hidden = False
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5565 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free