Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10172 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23305】セル背景の自動変更方法 しろうと 05/3/18(金) 16:20 質問[未読]
【23307】Re:セル背景の自動変更方法 IROC 05/3/18(金) 16:24 回答[未読]
【23312】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 16:48 質問[未読]
【23321】Re:セル背景の自動変更方法 IROC 05/3/18(金) 17:10 回答[未読]
【23322】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 17:19 回答[未読]
【23324】Re:セル背景の自動変更方法 IROC 05/3/18(金) 17:31 回答[未読]
【23327】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 17:37 お礼[未読]
【23330】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 17:52 質問[未読]
【23331】Re:セル背景の自動変更方法 IROC 05/3/18(金) 17:55 回答[未読]
【23338】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 19:22 お礼[未読]
【23340】Re:セル背景の自動変更方法 しろうと 05/3/18(金) 20:09 質問[未読]
【23342】Re:セル背景の自動変更方法 IROC 05/3/18(金) 20:14 回答[未読]
【23305】セル背景の自動変更方法
質問  しろうと  - 05/3/18(金) 16:20 -
引用なし
パスワード
   一行毎にパラメータを入力する表があるのですが、
列項目が多くあり過ぎて、どの行にパラメータを
入力しているのかが分かりにくく、困っております。

例えば、9行目のE〜Z列目のどれかのセルを選択すると、
特にマクロを起動するとかいった行為はしないで、瞬時に
　9行目のA列のセルの背景が黄色くなるとか、
　9行目のE〜Z列までの全てのセルの背景が黄色くなる
といったような設定は可能であると大変助かるのですが、
そのようなことはできるのでしょうか？

お手数ですが、どなたか教えて頂けないでしょうか？
【23307】Re:セル背景の自動変更方法
回答  IROC  - 05/3/18(金) 16:24 -
引用なし
パスワード
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Cells.Interior.ColorIndex = xlColorIndexNone
　　ActiveCell.EntireRow.Interior.ColorIndex = 36
End Sub
【23312】Re:セル背景の自動変更方法
質問  しろうと  - 05/3/18(金) 16:48 -
引用なし
パスワード
   IROCさん　ご返信ありがとうございます。

追加でお聞きしてよろしいでしょうか？

対象としております。SHEETは、予め背景に色がついているセル
があります。IROCさんの方法を試させていただきましたところ、
選択行は全て黄色くなるのですが、他のセルは全て白くなって
しまいました。
黄色くできる行の範囲を列で指定することは出来ますでしょうか？
黄色くしたいセルの範囲の背景はすべて白色となっています。
【23321】Re:セル背景の自動変更方法
回答  IROC  - 05/3/18(金) 17:10 -
引用なし
パスワード
   具体的に範囲をお教え下さい。
【23322】Re:セル背景の自動変更方法
回答  しろうと  - 05/3/18(金) 17:19 -
引用なし
パスワード
   >具体的に範囲をお教え下さい。

範囲はE17〜W66までの範囲です。

例えば、K19のセルを選択したときに
E19〜W19までのセルが黄色くなるような
設定が出来ればと思っています。
【23324】Re:セル背景の自動変更方法
回答  IROC  - 05/3/18(金) 17:31 -
引用なし
パスワード
   これでどうでしょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Count <> 1 Then Exit Sub
　　Range("E17:W66").Interior.ColorIndex = xlColorIndexNone
　　If Application.Intersect(Target, Range("E17:W66")) Is Nothing Then Exit Sub
　　Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 23)).Interior.ColorIndex = 36
End Sub
【23327】Re:セル背景の自動変更方法
お礼  しろうと  - 05/3/18(金) 17:37 -
引用なし
パスワード
   思い通りの動作が得られました！
大変助かりました。
ありがとうございました!!!
【23330】Re:セル背景の自動変更方法
質問  しろうと  - 05/3/18(金) 17:52 -
引用なし
パスワード
   「お礼」の後で大変申し訳ないのですが、
不具合が発生してしまいました。

もし、お分かりでしたら、教えていただけないでしょうか？

先ほどのコマンドをシートの保護をしていない場合には、
動作するのですが、保護してしまうと次のようなエラーが
起きてしまいます。
保護するときには、データ、オブジェクト、シナリオの
すべてにチェックを入れています。

実行エラー'1004'：
InteriorクラスのColorIndexプロパティを設定できません。

E19〜W19の範囲は、セルの保護で　ロックと表示しないを
チェックしてあります。

シートの保護をしてしまうと、セルの背景の自動設定は
難しいのでしょうか…
【23331】Re:セル背景の自動変更方法
回答  IROC  - 05/3/18(金) 17:55 -
引用なし
パスワード
   色を変える処理の前に、保護を解除するコードを記述して、
色を変えた後に、保護を設定する処理を入れればできると思います。
【23338】Re:セル背景の自動変更方法
お礼  しろうと  - 05/3/18(金) 19:22 -
引用なし
パスワード
   無事設定できました！
ご回答ありがとうございました！！
【23340】Re:セル背景の自動変更方法
質問  しろうと  - 05/3/18(金) 20:09 -
引用なし
パスワード
   度重なるご質問、大変失礼致します…

これまでの設定を行いますと、
「元に戻す」
という機能ができなくなってしまいました。

もし、「元に戻す」ができるようにする方法
がございましたら、教えていただけないでしょうか？
【23342】Re:セル背景の自動変更方法
回答  IROC  - 05/3/18(金) 20:14 -
引用なし
パスワード
   残念ながら私は知らないので、
他の方が回答してくれるのを待ってみて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10172 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free