A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
条件がイマイチはっきりしないので、以下は参考までのアイデアとサンプルです。
他にもいろいろな方法や考え方があると思いますので、あくまでもご参考までに。
・B:D列のセルに入力すると、該当するセルが赤色で点滅します。
(3回に設定してあります)
・セルの値は「数値」になっており、表示単位等は「セルの書式設定」
を利用して表示しているものと仮定しています。
・条件付き書式を利用していますので、B:D列には他の条件付き書式は
設定されていないものと仮定しています。
・「手動で停止」がどのような操作を想定しているのか不明なので、
対応していません。
アイデアのみですので、後はお好きにどうぞ。
※ 標準モジュールに以下をコピペ。
Private mode As Integer
Sub changeProc()
Const f = "=(IFERROR(ABS(B1-B2)>10,0)*ISNUMBER(B1)+" _
& "IFERROR(ABS(B2-B3)>10,0)*ISNUMBER(B3))*ISNUMBER(B2)"
With Range("B2:D2").Resize(Rows.Count - 2)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=f
.FormatConditions(1).Interior.color = vbRed
End With
mode = 6
Call blinker
End Sub
Sub blinker()
Dim col
If Range("B2").FormatConditions.Count = 0 Then Exit Sub
mode = mode - 1
If (mode Mod 2) = 0 Then col = xlNone Else col = vbRed
Range("B2").FormatConditions(1).Interior.color = col
DoEvents
Application.Wait [Now()] + 1 / 864000
DoEvents
Application.Wait [Now()] + 1 / 864000
DoEvents
If mode > 0 Then Call blinker
End Sub
※ その上で、当該シートのシートモジュールに以下をコピペします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:D2").Resize(Rows.Count - 2)) Is Nothing Then Exit Sub
Call changeProc
End Sub
ご回答いただきまして、ありがとうございます。
すいません、説明が間違っていました。
各品名の前回の金額から+10もしくは-10を超えた場合にその金額のセルを5秒間点滅させることをしたいです。
日付 りんご バナナ みかん
1週目 70 100 50
2週目 75 98 65
3週目 85 95 60
4週目 80 85 50
5週目 75 90 55
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルの数式で教えてください。 3 2021/12/21 09:20
- Excel(エクセル) エクセルについて教えてください。 1 2021/10/19 17:24
- Visual Basic(VBA) 一定時間間隔でセルを点滅させたい 3 2021/11/30 14:54
- Excel(エクセル) Excel 判別して色変え 2 2021/12/02 18:38
- その他(Microsoft Office) Excelのシートの表示、非表示について教えてください。 2 2021/12/23 11:16
- Excel(エクセル) エクセル相違の発見 6 2021/11/15 19:36
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Visual Basic(VBA) Excelで同じ個所に複数同じ内容を反映させるには 6 2021/12/07 19:24
- 法学 名変の登記について 3 2021/10/22 08:45
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
wordのマクロで思うように行きません(ファイル削除ができない)
Visual Basic(VBA)
-
Windowsのデュアルブート HDDを3つ積んだ実験用のPCがあるのですがそこにXP,Vista,
その他(OS)
-
ノートPCにネット上の画像を保存することがあるのですが、数年前に、「ネット上の画像ファイルにはウイル
マルウェア・コンピュータウイルス
-
-
4
Windowsのコピーコマンド、この指定はあってますか?
Windows 10
-
5
先日、職場に新しいノートパソコンが入ったのですが、
ノートパソコン
-
6
DVDドライブについて
その他(OS)
-
7
win11は必要か
Windows 10
-
8
バッチファイルについて
その他(プログラミング・Web制作)
-
9
Pythonのre.split()の正規表現の使い方
その他(プログラミング・Web制作)
-
10
エクセルのマクロについて教えてください。
その他(プログラミング・Web制作)
-
11
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
12
職場のノートパソコンなんですが、急に音が鳴らなくなりました。
Windows 10
-
13
擬似コード
C言語・C++・C#
-
14
プログラミング言語の制作方法について
C言語・C++・C#
-
15
卒業研究でよく分からないところがあるので教えて欲しいです。 インバータ用組み込みソフトウェア開発シス
C言語・C++・C#
-
16
windowとwindow11は何が違う
その他(OS)
-
17
Vba ユーザ定義関数について教えてください
Visual Basic(VBA)
-
18
全固体電池 トヨタの勝利?
その他(開発・運用・管理)
-
19
削除したExcelファイルの復活ソフトのお勧めはありませんか?
その他(ソフトウェア)
-
20
「ChatGPT-3.5」の回答ですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルで縦書きルビの付け方
-
エクセルで漢字を数字に変換す...
-
エクセル2007 番地の並び替え...
-
エクセルで、縦の列に順番に1...
-
Excel関数 「日付を入力...
-
エクセルのマクロで悩んでます
-
エクセル 条件が成立した場合...
-
エクセル 網掛けしてあるセル...
-
エクセルの文字化け
-
エクセル関数で…
-
差込印刷
-
Excel2003 和暦&複数のセルか...
-
エクセル VBA ある条件でセル...
-
EXCELで連続していない数値を30...
-
エクセルの日付セルをオートフ...
-
エクセルで入力すると日付など...
-
エクセルで数字を1文字ずつセル...
-
VBAで「セルに何か入っている場...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルでのセルをまたぐ文字...
-
VBAで「セルに何か入っている場...
-
Excel:セルに入力されている日...
-
エクセル関数で…
-
Excel関数 「日付を入力...
-
エクセルで漢字を数字に変換す...
-
エクセル 条件が成立した場合...
-
エクセルで縦書きルビの付け方
-
エクセルでのNULLという文字列...
-
エクセルについて、A1が1ならば...
-
(EXCEL)CELLの色をカウントす...
-
エクセルにて結合サイズが異な...
-
エクセル関数で「数値が入力さ...
-
エクセル 空白を除き左に詰め...
-
エクセルで空白のセルを探して...
-
pages で「テキストを左右両端...
-
エクセルファイルを開くとメッ...
-
折り返して表示、縮小して表示...
おすすめ情報
ご回答いただきまして、ありがとうございます。
すいません、説明が間違っていました。
各品名の前回の金額から+10もしくは-10を超えた場合にその金額のセルを5秒間点滅させることをしたいです。