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