エクセルの学校：全文検索：Hyper Estraier：選択　セル　目立たせる

Results of 1 - 1 of about 33 for 選択　セル　目立たせる (0.023 sec.)

選択 (24677), セル (67530), 目立たせる (54)

[[20200606192625]]: #score: 11245; @digest: fe862e57f29280eb11a4efcac733668c; @id: 83940; @mdate: 2020-06-08T15:56:11Z; @size: 12236; @type: text/plain; #keywords: sheetselectionchange (15952), interior (5803), color (4009), 適用 (3746), 色付 (3689), intersect (3332), クポ (2766), 行目 (2683), ブレ (2425), 一気 (2352), entirerow (2338), 選択 (2220), byval (2184), workbook (2078), 2020 (2043), に選 (2006), プ実 (1996), 色が (1991), 理想 (1983), target (1952), 日) (1885), screenupdating (1618), テッ (1609), xlnone (1596), selection (1526), 塗り (1412), private (1338), object (1295), ポイ (1280), sh (1203), ーフ (1149), ■ (1116); 『選択したセル範囲の色づけ』（たなしん）
すみません。教えてくださいセルの選択するとその選択された範囲に色が付きユーザーフォームに作ったボタンを押すとその処理が適用されて色が元に戻る(白) っというのはVBAで可能でょうか? よろしくお願いします。＜使用 Excel:Excel2010、使用 OS:unknown ＞ ---- 可能です。マクロの記録をしてみたらどうでしょう。（tou） 2020/06/06(土) 19:37 ---- すみません、スマホからでやりたい質問を端折りすぎてしまって申し訳なかったです。 VBEと条件付き書式でセルを選択した瞬間にセルや行を色で協調することはできたのですがシフトキーやコントロールキーで A2、D6, I23などランダムにセルを選択していった時にそれらが全て色がついた状態のまま保持というのは調べてもなかなか出てこなくて、なかなか難しいでしょうか。（たなしん） 2020/06/07(日) 02:48 ---- Worksheet_Changeを使用したらどうでしょうか。コードについては回答しません。（tou） 2020/06/07(日) 13:28 ---- touさんどうもです。ThesWorkBookには一応このコードは入れてあるけどやはり1つめのアクティブセルしか色が変わりません。もっと調べてみます。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub （たなしん） 2020/06/07(日) 14:02 ---- 永遠に塗りつぶしつづける? Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Interior.Color = RGB(200, 200, 200) End Sub （Marvie） 2020/06/07(日) 16:20 ---- （Marvie）さん・自分の作った表の中で選択した行をカーソルでまとめて選択したり違う行を選んだりしたものを全て色付けしてピックアップしたい・選択を解除すれば色も消えるという事をやろうとして色々調べました。その表の範囲を選んで条件付き書式→数式を使用して書式設定をするセルを決定 =CELL("ROW")=ROW() をいれて自分の任意の塗りつぶしの色を設定 VBAを起動してThisWorkBookに Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub を入力しました。ただこれだと最初に選択した行は色がついて表示されるけどドラッグしたりして複数行を選んでも最初の行しか色付けがされず。というところであきらめました。アクティブセル(行)というより選択セル(行)全てに色がつくやめると元のデフォルト色に戻るというのはちょっと自分には敷居が高すぎました。（たなしん） 2020/06/07(日) 17:34 ---- 横からですが。 ■1 提示されたコードだと「Application.ScreenUpdating = True」だけ実行しているので、実質なにもしてないのは理解してますか? ■2 多分言っているようなことはこのようなことではないでしょうか? Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Color = xlNone Selection.Interior.Color = RGB(255, 0, 0) End Sub ■3 ＞ユーザーフォームに作ったボタンを押すとその処理が適用されて色が元に戻る(白) そのようにしたければ、【別途】塗りつぶし色を無しにしてあげないとダメですよね? （もこな2 ） 2020/06/07(日) 19:46 ---- もこな2さんご返信ありがとうございます。セルの書式や関数はある程度やっていたのですがマクロはまだ初心者でして申し訳ありません。 ■1 提示されたコードだと「Application.ScreenUpdating = True」だけ実行しているので、実質なにもしてないのは理解してますか? ・セルの書式や関数はある程度やっていたのですがマクロはまだ初心者でして申し訳ありません。 ■2 多分言っているようなことはこのようなことではないでしょうか? Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Color = xlNone Selection.Interior.Color = RGB(255, 0, 0) End Sub ・これを適用してみたらかなり理想に近い挙動になりました。これを選択セルの中の特定の列全てに制御することは可能でしょうか? A13セルを選択してもE〜M列の13行目が塗りつぶされる B4:E8を範囲選択しても E〜M列の4行目〜8行目が塗りつぶされると、列を気にせずとも選んだ行の特定の列を色で全てピックアップできないかと思っておりました。なので調べてたら上記の方法がヒットしたので実行してみた次第です。 ■3 ＞ユーザーフォームに作ったボタンを押すとその処理が適用されて色が元に戻る(白) そのようにしたければ、【別途】塗りつぶし色を無しにしてあげないとダメですよね? ・すみません、こちらについては都合上やめることにしました。申し訳ありません。【どのように自由に範囲選択しようが選択されたE〜M列の行が塗りつぶされる選択をやめると元に戻る】という事をできないか調べてやったのが小生の知識の限界でした。（たなしん） 2020/06/07(日) 20:27 ---- すみません、選択したらその行の特定の列に色がつくけど選択解除したら色は戻るという挙動が自分の理想でした。塗りつぶしっだとだめですね。マクロを使わずにそういう機能が元々エクセルにないか調べてみます。（たなしん） 2020/06/07(日) 20:41 ---- >マクロを使わずにそういう機能が元々エクセルにないか調べてみます。そういう機能はありません。（馬鹿な人） 2020/06/07(日) 21:00 ---- ■4 ＞これを選択セルの中の特定の列全てに制御することは可能でしょうか? 可能ですが、おっしゃってることからして【行】の間違いでしょう。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Stop 'ブレークポイントの代わり Sh.Range("E:M").Interior.Color = xlNone If Intersect(Sh.Range("E:M"), Target) Is Nothing Then Exit Sub Else Intersect(Selection.EntireRow, Sh.Range("E:M")).Interior.Color = RGB(255, 0, 0) End If End Sub ■5 ＞上記の方法がヒットしたので実行してみた適当に書いてもダメですから、ちゃんと理解してから記述すべきです。「ScreenUpdating」について、もう一度ちゃんと調べてみてください。やりたいこととは全く関係ないと思いますよ。 http://officetanaka.net/excel/vba/speed/s1.htm ■6 コードの意味を理解するには、ステップ実行をして一行ずつ実行しながら観察するのが有効なアプローチだと思います。よって「■4」のコードをステップ実行してみてください。 https://www.239-programing.com/excel-vba/basic/basic023.html http://plus1excel.web.fc2.com/learning/l301/t405.html （もこな2 ） 2020/06/07(日) 21:23 ---- もこな2さん ■4 ・凄すぎです。・・・完全に完成です。 ■5 ■6 ・わざわざ参考になる。URLありがとうございます。基礎も意味もわからずインターネットで検索して拾ってくるやり方じゃダメですね。基礎からしっかりと意味を理解して勉強していこうと思います。本当にありがとうございました。（たなしん） 2020/06/07(日) 21:58 ---- 回答ではなく、余談です。ああ、これは"アンドリューの方法"と一部で?呼ばれる、割と有名なやりかたですね。 https://www.relief.jp/docs/001406.html Application.ScreenUpdating = True にはそれなりの意味があると思います。それを再描画のトリガーにしている、仕掛けのキモでもあります。既にご案内のように、CELL("ROW")が選択領域の左上単一セルの行番号を返すという仕様のため、複数セルを選択した場合には対応できないわけです。「カーソル位置（行、列、交差する単一セルなど）を目立たせたい」という話題で、私が唯一推奨できる方法です。他の方法（セルの背景色を変更する）では、カーソルを動かしたときに、過去いたところの色を復元する必要があるわけですが、元々のセルが色を多用していた場合、その保存復元が高コストになってしまうからですね。今回のテーマは、そもそも"Excelの既定の複数セル選択表示が判別しにくい"という認識から出発しています。それはチャレンジとしてありうると思うのですが、それほどまずい状況なのかなとも思います。大多数の人はそれを前提として使っているわけで、特定目的（プレゼンテーションなど）で無い限り、普通のことは普通にしておくのがよいのではないか、という気持ちが正直します。（γ） 2020/06/08(月) 02:44 ---- ＞γさんフォローありがとうございます。なるほど、こんな方法があったんですね。質問者さんの「条件付き書式〜」の部分を全く読んでませんでした・・・お目汚し失礼しました。（もこな2 ） 2020/06/08(月) 03:05 ---- たまたま、私も入力中の行を目立たせる必要が生じたので↓を作ってみました。参考に提供します。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.FormatConditions.Delete If Intersect(Selection, Range("D:BC")) Is Nothing Then Exit Sub With Intersect(Selection.EntireRow, Range("D:BC")) .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE" With .FormatConditions(1).Interior .Pattern = xlGray50 .PatternColor = vbYellow End With End With End Sub （もこな2 ） 2020/06/08(月) 12:24 ---- γさん・まさにやりたいことがそれで、見つけたサイトがそれで、自分の条件を満たせなかったことがそれ、でした。共用する他の使用者にどうしてもわかりやすく使って欲しいと思ったのがきっかけです。プレゼンなどなら見つけたサイトの方法で良かったのですがドラッグしたりctrlキーで飛び飛びで選択した複数の色付けされた行はユーザーフォームのボタン押したら全部に適用されますよ。となるべく使用者にわかりやすく見せたいなと思っていまして。。もこな2さん・昨日はありがとうございました。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Stop 'ブレークポイントの代わり Sh.Range("E:M").Interior.Color = xlNone If Intersect(Sh.Range("E:M"), Target) Is Nothing Then Exit Sub Else Intersect(Selection.EntireRow, Sh.Range("E:M")).Interior.Color = RGB(255, 0, 0) End If End Sub この頂いたプロシージャに1行目から7行目は色付けの適用外になるようにという条件を追加しようと思って今度は頑張って調べています。・本日はPCに触れる環境ではなくスマホから書き込んでいるので実行できないのですがもこな2さんが新たに自作したものと昨日頂いたものの違いは仕様が大きく違うものなのでしょうか? そちらの方が使い勝手が良ければそちらをパク…再度頂いて使用させて頂こうかと思っております。（たなしん） 2020/06/08(月) 17:52 ---- 1行目から7行目は色付けの適用外になるようにやってみた事その1 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Stop 'ブレークポイントの代わり If Target.Row >= 8 Then '追加 Sh.Range("E:M").Interior.Color = xlNone If Intersect(Sh.Range("E:M"), Target) Is Nothing Then Exit Sub Else Intersect(Selection.EntireRow, Sh.Range("E:M")).Interior.Color = RGB(255, 0, 0) End If End If '追加 End Sub 課題・5行目〜11行目を一気に選んだりすると色が適用されてくれない。・選択を1行目に戻すと一つ前に選択していた該当の行の色が残りっぱなしやってみた事その2 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Stop 'ブレークポイントの代わり Sh.Range("E:M").Interior.Color = xlNone If Intersect(Sh.Range("E8:M5000"), Target) Is Nothing Then '追加。最終行は適当で… Exit Sub Else Intersect(Selection.EntireRow, Sh.Range("E:M")).Interior.Color = RGB(255, 0, 0) End If End Sub 課題・5行目〜11行目など一気に選ぶと567行目も色付けされてしまうが自分の理想には近づいたかも理想・例えば3行目〜14行目を一気に選んだとしても8行目からしか色付けされず、1行目などを選べば全部色が消える。頑張ります。色々弄ってると挙動が違ってきますね。（たなしん） 2020/06/08(月) 20:55 ---- ■7 繰り返しになりますが、コードの意味を理解するには、ステップ実行をして一行ずつ実行しながら観察するのが有効なアプローチだと思います。＞5行目〜11行目を一気に選んだりすると色が適用されてくれない。＞選択を1行目に戻すと一つ前に選択していた該当の行の色が残りっぱなしステップ実行してみれば容易に気づけることですが、「Target.Row」が選択範囲の1行目の行番号を返すから、 5行目〜11行目を選択 → 5が返り → 5 >= 8 → 「偽」なので処理されない 1行目を選択 → 1が返り → 1 >= 8 → 「偽」なので処理されないとなっているためですね ■8 ＞5行目〜11行目など一気に選ぶと567行目も色付けされてしまう 567行目のセルも選択していたんじゃないでしょうか? こちらも繰り返しになりますが、理解せずに適当に書いてもダメです。先に「Intersectメソッド」と「EntireRowプロパティ」について調べてみてください。 ■9 ＞仕様が大きく違うものなのでしょうか? 見慣れない命令は、ご自身で調べたほうが理解できると思いますが、 Rangeオブジェクト.Interior.Color ・・・・セルの塗りつぶし色を設定 Rangeオブジェクト.FormatConditions ・・・セルの条件付き書式をあれやこれやする命令なので、私にとっては大きく違いましたね。（もこな2 ） 2020/06/09(火) 00:56 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200606192625.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ