• 締切済み

セルに色を付けて点滅させる

ランダムに指定されたセルに色を付けて点滅させる。 たとえばB2、C5、D6、E10は黄色の色をつけて点滅、A10、B12、D10、F12は青色を付けて点滅させる。 ただしセルの中は空白状態で点滅 複数の色(10種類の色)を付けてセルを点滅する方法を教えてください。　　　

noname#248032
noname#248032

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.4

WEBサイトを記述する、HTML文 http://www.tohoho-web.com/html/blink.htm やJavaScritには https://qiita.com/n4o847/items/3fc84a2937aa9b2f7a58 などがあるので、日常的におなじみの機能でしょう。 素人の感じではブリンクの設定は簡単そうだが、ビジネスを中心に発達してきている表計算ソフトのエクセルでは、ブリンクの機能は設けて無い。 ーー ワードでは昔のバージョンでは在ったように記憶するが、今はどうかな。 ーー VBAでもセル（Range）の、メソッドやプロパティではブリンクは設けられていない。 だから疑似的に、タイマーで定刻（規則）的に時間が来たら、一旦見えなくして、また復活するプログラムを組まないといけない（自作）。 沢山のセルを質問のように（同時？ずらして？）点滅させるのは、さらにプログラム力が要る。 初心者ならあきらめたら。 https://oshiete.goo.ne.jp/qa/2751574.html　など、 過去にも質問があるよ。 １セルの場合だが。Application.OnTime を使っている方法がベストアンサーになっている。

回答No.3

【補足】バグ取り前をアップしました。 バグ１：Call　が欠落。 バグ２：ChangeColor()の綴りミス。 以上。 なお、Excel　は操作したことも、同VBA を書いたこともない70歳になる爺のアレンジ。不適な個所は修正されたし。

回答No.2

ANo.1 のサンプルをチョイ加工すればOKかと・・・ ' ******************* '　Start blinking ' ******************* Sub StartBlinking() 　　Dim NextBlink As Double 　　Application.Goto Range("A1"), 1 　　' -------------------------- 　　'　change the color 　　' -------------------------- 　　ChangeColor("Sheet1!B2",6) 　　ChangeColor("Sheet1!c5",6) 　　ChangeColor("Sheet1!d6",6) 　　ChangeColor("Sheet1!e10",6) 　　ChangeColor("Sheet1!A10",5) 　　ChangeColor("Sheet1!B12",5) 　　ChangeColor("Sheet1!D10",5) 　　ChangeColor("Sheet1!F12",5) 　　' --------------------------------------------------------------------- 　　'　Wait one second before changing the color again 　　' --------------------------------------------------------------------- 　　NextBlink = Now + TimeSerial(0, 0, 1) 　　Application.OnTime NextBlink, "StartBlinking", , True End Sub Sub ChengeColor(ByVal CellName AS String, ByVal intColorIndex AS Integer) 　　If Range(CellName ).Interior.ColorIndex = intColorIndex Then 　　　　Range(CellName ).Interior.ColorIndex = 0 　　Else 　　　　Range(CellName ).Interior.ColorIndex = intColorIndex 　　End If End Sub 一応、ちゃんと点滅しました。

  • mt2015
  • ベストアンサー率49% (258/524)
回答No.1

セル関数や書式では出来ません。 どうしてもいう場合はVBAでやる事になります。 https://msdn.microsoft.com/ja-jp/VBA/Excel-VBA/articles/make-a-cell-blink

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • microsoft excel セルの色

    以下のことをしたいのですがどうすればよいでしょうか。 あるセル（例：F12)の数値が30（％）以下だと、そのセルの含む行の一部（例：A12,B12,C12,D12,E12,F12)が赤色になる。 あるセル（例：F12)の数値が70（％）以上だと、そのセルの含む行の一部（例：A12,B12,C12,D12,E12,F12)が青色になる。 教えてください。お願いします。

  • エクセルでセルの色を点滅させる方法について

    エクセル2013で作成した表の数値をある条件の元でセルの背景の色を点滅させる方法を教えてください。 条件　　下記条件の元でカーソルの背景の色を点滅させる。 　　　　データ範囲は　Ｃ4～Ｆ12 　　　　VBAでの使用でよいです。 空白は無色 0～99までは緑の点滅 100～199までは青の点滅 200～299までは黄色の点滅 300以上は赤の点滅 合計の欄は点滅対象外とする。 ※色付けは条件付き書式設定による色付けとフォントの塗りつぶしと2通りあります。 方法が違うなら別々に教えてください。

  • Excel　塗りつぶしの色のセルを並び替え

    青色セルと黄色セルが一列ランダムにあります。 青色セルを上位に黄色セルを下位になど色によって並び替えをすることなど出来るのでしょうか？？ おわかりの方教えてくださーい！

  • 複数範囲から同じ数字が二個以上あればセル色塗潰し

    セルB2:C9、F2:G9、J2:L9の複数範囲内で二個以上あればセルを黄色に塗り潰したいのですが因みに複数範囲は青色で塗り潰してます。条件付書式で下記の式を入力したのですが３個の範囲に同じ数字がないとセルが黄色にならずどうしたらよいのかお解りになる方宜しくお願いします。 B2セルの条件付書式で数式を=COUNTIF($B$2:$C9,B2)*COUNTIF($F$2:$G9,B2)*COUNTIF($J$2:$K9,B2)で入力し複数範囲に書式貼付けを行いました。

  • エクセル ある条件でセルの塗りつぶし。

    エクセルを勉強中の初心者です。 あるセルに数値がある場合に、隣の空白セルを特定の色で塗りつぶしたい。 例えば黄色に塗りつぶした空白セルをコピーして他のセルに貼り付けると、貼り付けたセルは黄色になります。 やりたいことは、B2に数値がある場合にC2を塗りつぶしたいので、次のようにやってみました。 予め空白のE1を黄色にしておく。 C2に以下の式を入れましたが、黄色のE1を貼り付けることにはなりませんでした。 =IF(B2="","",E1) 関数式はあくまでも数値を扱うもので、根本的に間違っていたようです。 ある条件であるセルを塗りつぶすにはどうすればよろしいでしょうか？ よろしくお願いします。

  • 空白セルと行に色をつけるVBA Excel2010

    VBAの超初心者です。 条件が一致した時に、セルの背景を黄色にしたいのですが、VBAで教えて下さいませんか？ D１が空白セルの場合には、C1のみを黄色。 D1とB1の両方が空白の場合は、A1からC1を黄色にしたいのです。 尚、行はどんどん増えて行く予定です。 「条件付き書式」では考えておりません。 よろしくお願いします。

  • エクセル　クリックでセルの色を変えるには？(3)

    １５人をA、B、C、D、Eの５チームに分ける表をエクセルでつくりたいと考えています。 　 　(1)１行目に１人目のデータ。A１列に氏名。 　(2)１人目がAチームなら、B１をクリックすると赤に変わり、かつ「A」とそのセルに表示。 　(3)Bチームに変更したければ、C１をクリックすると青に変わり、かつ「B」とそのセルに表示。その際、B1の色を消す。 　(4)Cチームの場合は、D1をクリック、黄色に変わり、かつ「C」と表示。その際、B１もしくはC1の色を消す。 　（5）Dチームの場合はオレンジ、Eチームの場合は緑、でそれぞれ同様にE1、F1に「D」「E」と表示。 　（6）２人目以降は同様に、２行目以降に表示。それぞれの行が干渉しないようにする。 　 　以上が1試合目で、２試合目、３試合目も行う。 　ただし、２試合目以降は、３チームに分ける。 　（１）２試合目はG、H、Iのセル、３試合目はJ、K、Lセルを使う。 　（２）２試合目、３試合目のチーム名はA、B、Cではなく、ア、イ、ウとする。（２試合目、３試合目共にア、イ、ウ） 　（３）１試合目はそのままで、２試合目、３試合目は別の色に変える。（Aチームは薄い赤、Bチームは薄い青、Cチームは薄い黄色）→細かな色の違いにはこだわりません。 　（４）４試合目以降は行わない。 　 　文章だけでは、表現力不足が大きく、非常にわかりにくいと思いますが、どうぞよろしくお願いいたします。 　何度も同じような質問を重ねています。大変申し訳ありません。

  • ＶＢマクロ　条件によってセルの色を変えたいのですが…

    いつもこちらで勉強させて頂いております。 Excelで、ある二つの言葉を含むセルに色を付けたいのですが、 言葉の組み合わせが５パターンあり 条件付き書式では足りません。 ＡとＢを含むセル　赤 ＡとＣを含むセル　青 ＡとＤを含むセル　黄 ＡとＥを含むセル　緑 ＡとＦを含むセル　紫 といった様に、条件によってセルの色を変えたいのですが… マクロなどで良い方法はありますでしょうか？ どなたかアドバイス宜しくお願い致しますm(__)m

  • 条件付書式？色をつけたり空白にしたい。

    B7　 　C7 　　D7　 　E7　 　F7　 　G7　　　H7 各セルの表示は 7:31 17:00 465 1020 7:45 17:00　 2:00 各セルの数式は B7,C7,H7はセルの書式設定で##":"##（このセルに数字を入れるだけにしてます） D7=INT(B7/100)*60+CEILING(MOD(B7,100),15) E7=INT(C7/100)*60+FLOOR(MOD(C7,100),15) F7=INT(D7/60)*100+MOD(D7,60) G7=INT(E7/60)*100+MOD(E7,60)になっています。 例えば、 B7セルに6:25としたら7:00より前なのF7セルのフォントとパターンの色を変えて　 C7セルに18:52としたら18:00より後なのでG7セルのフォントとパターンの色を変える、 そしてC7セルが、空白の時はB7,F7,G7,H7セルを空白にしたいのですが、 よく分かりません、教えて頂けますか？

  • 6つのセルを１つの塊り（マス）と捉えて塗潰す方法

    どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a～r、１～１０の合計１8０個のセルに数字が１～９９迄の重複有りで 入っています。a1,a2,b1,b2,c1,c2の6つのセルで１つのマスとみなすと、 180個のセルは縦：５マス、横：6マスの合計３0マスとなります。 この条件で、検索値欄に１つ数字を入れたら、一致した数字が入っているマス （6つのセルの集合）を塗潰すにはどうすればよいですか？ 具体的には、 　　　(1)１つのマスに一致した数字が１個の場合は黄色く塗り潰す。 　　　(2)１つのマスに一致した数字が２個の場合は赤色で塗り潰す。 　　　(3)１つのマスに一致した数字が３個の場合は緑色で塗り潰す。 　　　(4)１つのマスに一致した数字が４個の場合は青色で塗潰す。 　　　(5)１つのマスに一致した数字が5個の場合は紫色で塗潰す。 　　　 (6)１つのマスに一致した数字が6個の場合はオレンジ色で塗潰す。 　a　b　c　d　e　f　g　h　i　j　k　l　m　n　ｏ　p　ｑ　ｒ 1 02 05 07 07 14 13 15 16 17 28 22 32 33 37 91 92 93 94 95 2 03 03 07 14 13 28 99 31 23 32 31 36 32 37 81 82 83 84 85 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 71 72 73 74 79 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 61 60 54 49 48 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 50 55 52 67 99 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 41 42 43 44 45 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 51 68 75 76 77 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 96 97 88 87 66 9 07 07 10 04 11 05 18 13 27 20 28 33 30 34 86 39 38 49 62 10 07 07 16 14 19 24 24 25 27 26 33 32 35 35 54 86 87 88 78 検索値:07 【結果】 検索値に07を入れたら、下記の6マス（36セル）が塗潰される。 a1,b1,c1,a2,b2,c2 ・・・ 2個一致なので、緑色で塗潰される。 d1,e1,f1,d2,e2,f2・・・　1個一致なので、黄色で塗潰される。 a3,b3,c3,a4,b4,c4　・・・　1個一致なので、黄色で塗潰される。 d3,e3,f3,d4,e4,f4　 ・・・1個一致なので、黄色で塗潰される。 a7,b7,c7,a8,b8,c8 ・・・2個一致なので、赤色で塗潰される。 a9,b9,c9,a10,b10,c10・・・4個一致なので、青色で塗潰される。 〇注意事項 　・使用するエクセルは２０１０です。 　・１マス＝6セルです。※a1,a2,b1,b2,c1,c2で１マスです。 　・セルに入っている数字はランダムで、同じ数字の重複は30マス（180セル）全体で 　　6個迄です（１つのマスに6個入る事も有るし、6つのマスに１個ずつ入る事も 　　あります。） 　・検索値欄に入力できる数字は１～９９迄の１つです。 　・セルの数字は表示上、２桁で表しています。（例：１ではなく０１） 　・この質問は先月、「４つのセルを１つの塊り（マス）と捉えて塗潰す方法３」という 　　タイトルで質問させて頂いた、６セル版での質問です。 以上、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する