エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.006 sec.)

kazu (7739), 条件付書式 (2650)

[[20080620113600]]: #score: 6689; @digest: c83c668dcdaaa276623359961b15e465; @id: 38620; @mdate: 2008-06-27T08:19:20Z; @size: 7353; @type: text/plain; #keywords: ad14 (15209), 工") (10055), ルマ (9318), 改造 (6763), マ） (4266), （イ (3970), 先輩 (3448), 件付 (2611), 付書 (2569), selectionchange (2374), intersect (1816), target (1463), 色が (1422), 書式 (1415), 居ら (1299), 条件 (1106), ・・ (1090), に色 (1073), 勝手 (1061), rouge (1011), 解除 (980), マク (892), イル (847), worksheet (846), クロ (801), ロが (757), 設定 (725), の色 (680), 有り (652), nothing (645), イベ (618), 登録 (596); 『条件付き書式?』（イルマ）
K4に基準となる数字が入力されます。 B14〜AD14までに「工」と入力されている数がK4の数と違う場合は、すべての「工」の字の色を変えたいと思います。又、B15〜・・・と下にかなり続きます。 Sheetによっては、AC14までだったりするので、ここを変えれば大丈夫みたいなのも教えて頂けませんでしょうか? （イルマ） ---- K4とAE4の関係は???(ROUGE) ---- ROUGEさん、ごめんなさい打ち間違えました AE4はK4のことです。直します。（イルマ） ---- =COUNTIF($B14:$AD14,"工")=$K$4 とすればよいと思います。 (ROUGE) ---- ROUGEさん、ありがとうございます。うまくいきません。条件付き書式で登録しても他のセルをクリックすると、条件付き書式の登録が解除される感じです。（イルマ） ---- ＞登録が解除される感じと言うのは、具体的にはどの様になるのですか? $B14:$AD14を選択して ROUGEさんが書いて居られるように設定をするとその時は、「工」に色が付くが別のセルを選択すると、 $B14:$AD14に付いていた色が消えてしまうのでしょうか? 念のため、ライブラリより「条件付き書式」 http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html (HANA) ---- ＞別のセルを選択すると、＞$B14:$AD14に付いていた色が消えてしまうのでしょうか? そうです。しかも、設定したはずなのにもう一度、条件付き書式を見ると、何も設定してないようになっております。（イルマ） ---- 設定をして「 OK 」を押した直後（何もしない状態）では、確かに色が付いているのですね? でしたら、そのシート（或いはブック）には何かマクロがありませんか? まずはデータをコピーして新しいブックの新しいシートに貼り付け同じ事をやってみると、どうなるのか確認してみるのが良いかもしれません。 (HANA) ---- マクロがありました。マクロが組まれていると出来ないのでしょうか? また、新しいシートを挿入すると出来るのですが・・・（イルマ） ---- そのマクロが ●条件付書式をクリアするあるいは ●先ほど条件付書式を設定した範囲に 条件付書式の設定されていないセルをペーストする等のコードになっているなら・・・・。どの様なマクロなのですか? そのマクロは何をするために必要なのですか? どちらを優先させるのか、場合によっては、マクロを改造するかそれとも、条件付書式に頼らずに色を変えるのか決める必要が有るように思います。 (HANA) ---- >どの様なマクロなのですか? マクロがいくつもあるのでどれかはわかりません。会社の先輩が作ったやつなので・・・ >どちらを優先させるのかどれとかぶってるかはわかりませんが出来れば、どれも使いたいです。 >条件付書式に頼らずに色を変えるのか出来るのであれば、どのような形でもかまいません。お願いします。（イルマ） ---- どれとかぶっているか分からなければどうにも手が出しにくいです。単独で動く物が出来ても、既に有るマクロによって現在と同じ状態に成る可能性も有りますし。・・・と言うこちらの現状は、分かって頂けますかね? シートモジュールにマクロが有りますか? それとも、それ以外の所に有りますかね? そのシートは、何かが変わるとどこかのセルの色や書式が自動的に変わるようには成っていませんか? (HANA) ---- >シートモジュールにマクロが有りますか? >それとも、それ以外の所に有りますかね? 両方にあります。 >そのシートは、何かが変わるとどこかのセルの色や書式が >自動的に変わるようには成っていませんか? セルの色が変わります。しかし、字の色ではなく塗りつぶす感じです。（イルマ） ---- ＞セルの色が変わります。どこのセルの色が変わりますか? 今回設定したい範囲と重なっていますか? そのコードはこちらへ載せることが出来ますか? (HANA) ---- ＞今回設定したい範囲と重なっていますか? 思いっきり重なっています。すいません。＞そのコードはこちらへ載せることが出来ますか? どれが、それを指示しているのかはちょっとわからないのですが・・・やはり、そこがわからないとだめでしょうか? （イルマ） ---- 今回の場合、条件付書式を使うのが一番良いと思います。「そこが分からないと駄目」と言うかそこが分からないと何とも言いようが無いですし実際問題としては「そこが分かっても駄目」の場合も有ります。一応お伺いしてみますが、何がどうなった時に、どのセルに色が付くのですか? 数が違っていた場合に色を付けるのではなくどこかのセルに何かを表示させる・・・たとえば、14行目のどこかのセルだとか一行挿入した、下の行など・・・・で有れば、数式で出来ると思います。 (HANA) ---- >何がどうなった時に、どのセルに色が付くのですかクリックすると色がつきます。 >数が違っていた場合に色を付けるのではなく >どこかのセルに何かを表示させる出来れば、文字に色を付けたいです。お願いします。（イルマ） ---- ソノシートのシートタブを右クリックして、コードの表示を選択。出てきた画面の右上にあるプルダウンからSelectionChangeを選択。そこにある Private Sub Worksheet_SelectionChange(ByVal Target As Range) 〜 End Sub の部分がHANAさんが期待しているコードだとおもいますよb (ROUGE) ---- 昨日の段階では、目の前の問題である「条件付書式の設定を勝手に解除するコード」の改造を考えていましたが・・・＞クリックすると色がつきます。この様になるシートが、他にもありますか? （他のブックも含めと言うことですが・・・。）他にも同じコードが使ってある物が有るのならそのブックの物だけ改造するのはやめておくのが良いように思います。＞会社の先輩が作ったやつなので・・・その先輩はもう居られないのですか? それを作った方が居られるのに勝手に改造するのもやめておくのが良いでしょう。（ご本人さんがやるのなら別ですけど。） 条件付書式の設定が使えないとなるとマクロで処理をすることになると思いますがここまでのやりとりから、何か有ったときに或いは実際のシートに合わせての改造時にイルマさんご自身で対応できるかどうか不安に思います。なお、ROUGEさんが書いて居られますが 条件付書式の設定を解除しているのは＞Worksheet_SelectionChange だと思いますが、文字色の変更をマクロで行うなら Worksheet_Changeイベントになりますね。 (HANA) ---- みなさん、返事がおそくなってしまいすいませんでした。 ROUGEさんがおっしゃるように＞Private Sub Worksheet_SelectionChange(ByVal Target As Range) はありますが、個人の名前がありまして、ここにコピーするのはできません。すいません。＞この様になるシートが、他にもありますか? はい。それぞれにあります。＞それを作った方が居られるのに＞勝手に改造するのもやめておくのが良いでしょう。今はもういません。たしかに、勝手に改造するのはどうかと想ったのですが、一応元のBOOKとは別にコピーして改造し、使いやすければと思いまして Worksheet_Changeイベントでのやり方を教えていただけないでしょうか? （イルマ） ---- なかなかすっきりしませんが・・・・。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng1 As Range, fc As Integer Dim rngA As String, rngB As String, kv As Long rngA = "K4" rngB = "B14:AD14" If Target.Count > 1 Then Exit Sub With Application If Not .Intersect(Target, Range(rngA)) Is Nothing Or _ Not .Intersect(Target, Range(rngB)) Is Nothing Then If Not .Intersect(Target, Range(rngA)) Is Nothing Then Set rng1 = .Intersect(Rows(Target.Offset(10).Row), Columns("B:AD")) kv = Target.Value ElseIf Not .Intersect(Target, Range(rngB)) Is Nothing Then Set rng1 = .Intersect(Rows(Target.Row), Range(rngB)) kv = Range("K" & Target.Row - 10) End If If .CountIf(rng1, "工") <> kv Then fc = 3 rng.Font.ColorIndex = fc End If End With End Sub (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200806/20080620113600.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ