Excel VBA質問箱 IV

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

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


62209 / 76732 ←次へ | 前へ→

【19131】Re:入力規則のリスト
お礼  にゃんぎょ  - 04/10/22(金) 17:32 -

引用なし
パスワード
   ▼Asaki さん:
早速のレスありがとうございます。

>マクロの記録をしながら手作業で設定してみて、
>その結果と比べてみては如何でしょうか?

そんなテストの仕方もあるんですね!
勉強になりました。

で、やってみたところ、なにも変わらないのです。
ためしにコードの中で、記録したマクロを呼び出してもダメなのです。
これはおかしいですよね。
なのでその前のコードを検証した結果、
リストを作る前にシートの保護をしていたことが原因とわかりました。

-----------------------------------------------------------------------
Range(Cells(5, 8), Cells(10, 13)).Locked = False
ActiveSheet.Protect

With Range(Cells(5, 8), Cells(10, 12)).Validation
 .Add xlValidateList, , , "Y,SC,LC,FC"
 .InCellDropdown = True
End With
------------------------------------------------------------------------

上記のコードでも(リストは除いて)指定した範囲の保護はされていなかったし、
カンマ区切りではなくシート上のリストを指定した場合はできていたので、
見落としていました。
(しかしなぜシート上のリストを指定した場合はできるのでしょうか・・・)
下記のように修正したらうまくいきました。

-----------------------------------------------------------------------
With Range(Cells(5, 8), Cells(10, 12)).Validation
 .Add xlValidateList, , , "Y,SC,LC,FC"
 .InCellDropdown = True
End With

ActiveSheet.Protect
Range(Cells(5, 8), Cells(10, 13)).Locked = False
------------------------------------------------------------------------

自分でよーく検証すればわかったことでした。
すみません。
Asakiさんのおかげで、解決の糸口がつかめました。
本当にありがとうございました。

0 hits

【19129】入力規則のリスト にゃんぎょ 04/10/22(金) 16:57 質問
【19130】Re:入力規則のリスト Asaki 04/10/22(金) 17:08 回答
【19131】Re:入力規則のリスト にゃんぎょ 04/10/22(金) 17:32 お礼

62209 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free