
No.3ベストアンサー
- 回答日時:
回答No2です。
その後よく考えましたら次のようにマクロを組み合わせることでできることが判りました。初めに例えばA列について条件付き書式を設定して例えば10以上の数値でしたらセルに色を付けることにします。
その後にシート全体を選択して右クリックし、「セルの書式設定」の「保護」のタブでロックのチェックを消します。次いで[校閲]タブで「シートの保護」をクリックして何らのパスワードを設定することなしにOKします。
マクロの設定ですがシート見出しで該当のシート名で右クリックして「コードの表示」を選択します。表示の白い窓には次のコードを入力します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value >= 10 Then
Target.Select
ActiveSheet.Unprotect
Selection.Locked = True
ActiveSheet.Protect
End If
End Sub
このようにすることでA列で10以上の数値を入力した後ではそのセルの数値が変更できなくなります。他のセルには数値を入力することができます。
この回答への補足
詳細に教えて頂きありがとうございます。
VBAは私には難解で経験ありません。
これを機会に勉強してみようと思います。
まずは、教えて頂いた方法をトライしてみます。
詳細に教えて頂きありがとうございます。
VBAは私には難解で経験ありません。
これを機会に勉強してみようと思います。
まずは、教えて頂いた方法をトライしてみます。
No.5
- 回答日時:
条件付き書式はセルやフォントに色を着けることは出来ても、セルにロックをかける機能が無いのは常識。
条件付き書式で出てくる対話画面を見れば明白。条件付き書式は、「セルの値」に絡めて書式を左右させるものだが、質問者の言うのでは、セルの値に応じてセルにロックをかけることが出来るか、ということになるが、操作ではそういうことは出来ない。
セルの値に対する条件にもどって、個別のセルに保護をかけられるか、(操作では面倒なので)そしてそれはVBAで出来るか、という問題になる。
質問者は、エクセル操作のみを考えていて、VBAの経験が無いのだろうが
http://www.officepro.jp/excelvba/sheet_ope/index …
など読んで見ると良い。
上記WEBのように、何を許すのかは多種の観点があり、何も許さないのか質問には書いてない。認識をしてない証拠。
上記の「セルの保護については、ロックされたセルが対象となります。セルはデフォルトでは全てロックされているので、特に設定変更をしていなければ全てのセルが保護の対象となります。特定のセルのロックを解除するには『ロックの解除』を参照して下さい。 」が関連してくるが、
範囲を決めて
ロックしないセルにロックを解除し、この際条件を効かす
シートを保護する
で解除してないセルは、入力等自由になる。
ーー
例データ Sheet1 A2:C5
1491
2234
537
1417
で
Sub test01()
Worksheets("Sheet1").Unprotect
Cells.Select
Selection.Locked = False
For Each cl In Range("A2:C5")
If cl > 10 Then
cl.Locked = True
End If
Next
Worksheets("Sheet1").Protect Contents:=True
End Sub
を実行で10より大の、14,23,17のセルは変更できなくなる。
しかし他のセルは10以上の値にも変更出来る。
そして、値が10以上に変更されたら、そのセルに対してロックを実行する必要がある。
(エクセルの条件付き書式だとセルの値に対して、変更即時反応性があり、ありがたいが、VBAでは自分で面倒を見ないとならない)
それはセルのChangeイベントで捉えることになると思うが、質問者には範囲外と思うので、省略。
詳細に教えて頂きありがとうございます。
VBAは私には難解で経験ありません。
これを機会に勉強してみようと思います。
まずは、教えて頂いた方法をトライしてみます。
No.4
- 回答日時:
#1です
チョッと読み違えていたようです、すみません
条件付き書式では、ロックの制御は出来ません
手動になります
マクロでも条件付き書式の条件を捉えるのは難しいです
代替案です
ワークシートイベントとで近いことが出来ます
bookを新規作成して試してみてください
sheet1のシートタブを右クリック、コードの表示を選択
カーソル位置へ下記マクロをコピペ[X]で画面を閉じる
準備
sheet1を選択、[Alt]+[A]でセルすべてを選択し
セルの書式で保護タブのロックのチェックを外す
入力、条件
sheet1のA1:E10の範囲で、セルの値が1~10であれば
セルを黄色にして、ロックをかける
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("a1:e10")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target.Value > 0 And Target.Value <= 10 Then
Target.Interior.ColorIndex = 6
Target.Locked = True
Else
Target.Interior.ColorIndex = 0
Target.Locked = False
End If
ActiveSheet.Protect
End Sub
興味があれば試して見てください
参考まで
詳細に教えて頂きありがとうございます。
VBAは私には難解で経験ありません。
これを機会に勉強してみようと思います。
まずは、教えて頂いた方法をトライしてみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) Excel アクティブセルのみ条件付き書式の色を他の色にしたい。 4 2022/06/11 22:19
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Excel(エクセル) Excel 数式を使用した条件付き書式が、一つのセルにしか反映されない 3 2022/06/08 23:20
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Excel(エクセル) IFERROR(IF()IF())のような形の構文が作れません 2 2023/02/05 17:51
- 会計ソフト・業務用ソフト エクセル 背景色のついたセル位置を参考にして固定の数値を取得する 4 2022/07/11 08:44
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- その他(Microsoft Office) エクセルで、土日や祝祭日に色をつけるには?Part2 5 2022/05/05 09:51
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
Excelの条件付き書式を崩されたくない
Excel(エクセル)
-
EXCEL 表の書式のみ変更不可(保護)したい
Excel(エクセル)
-
エクセルで書式設定だけを固定(保護)したい。
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで年月日データから下二桁...
-
エクセル 関数 セルの値が0...
-
エクセルのセルが縦方向にのびる
-
Excelで、セル内改行もそっくり...
-
エクセルでセルに何も入力して...
-
エクセルのセルに「=A13」...
-
Excelの条件付き書式で、計算式...
-
エクセルで特定のセルを表示の...
-
Excelで来月以降の日付のセルを...
-
EXCEL:フォントがなぜか透明
-
エクセルで文字の上に重ねがき...
-
勤務時間を10進法で合計を出したい
-
エクセルで勝手に表示された打...
-
条件付き書式 特定の年だけに適...
-
横書きで縦の波線の書き方
-
おねがいします>< エクセルで...
-
セルA1とB1の数値が一致しな...
-
エクセル「折り返して全体を表...
-
Excel2007でセルに値があるはず...
-
ワードの表の中に文字を入れる...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで勝手に表示された打...
-
Excelで年月日データから下二桁...
-
エクセルのセルが縦方向にのびる
-
エクセル 関数 セルの値が0...
-
エクセルで特定のセルを表示の...
-
Excelで、セル内改行もそっくり...
-
Excelの条件付き書式で、計算式...
-
Excelで来月以降の日付のセルを...
-
エクセルのセルに「=A13」...
-
ワードの表の中に文字を入れる...
-
エクセルで文字の上に重ねがき...
-
エクセルでセルに何も入力して...
-
横書きで縦の波線の書き方
-
EXCEL:フォントがなぜか透明
-
おねがいします>< エクセルで...
-
Excel 日付を比較したら、同じ...
-
エクセル「折り返して全体を表...
-
Excelで、あるセルだけ入力させ...
-
【Excel】セルの中の文字の下の...
-
Excel2007でセルに値があるはず...
おすすめ情報