[[20171016225057]] 『特定の入力のあるセルのロックをマクロでしたいで』(にこ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『特定の入力のあるセルのロックをマクロでしたいです』(にこ)

度々失礼します。
再度質問になります。
Excel VBAでのロックについて
ある範囲(A2:AF27)で”当番”のような特定の文字入力があるセルのみロックを一括で解除するマクロを作成したいのですが方法が全然思いつきません。
おしえてもらえないでしょうか?
対象のセルに対して1つずつIFで条件を書けばできるとは思いますが現実的でないおもいますので
お力を貸してもらえたらと思います。
よろしくお願いします。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


FINDで検索してはどうでしょうか。
https://www.moug.net/tech/exvba/0050116.html

(マナ) 2017/10/16(月) 23:03


 前のスレッドに書けばいいのになぜ新しいスレッド作るのかな…。

 Sub ロック解除()

     Dim MyRange As Range

     For Each MyRange In Range("A2:AF27")
         If MyRange Like "*当番*" Then MyRange.Locked = False
     Next

 End Sub
(bi) 2017/10/17(火) 08:42

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.