No.4
- 回答日時:
随分簡単なんですが、例としてC1セルをクリックするとしばらくセル色がブリンク(点滅)するように見えます。
セルのSelectionChangeイベントです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
For i = 1 To 20 '10回ブリンク
If Cells(1, "C").Interior.ColorIndex = -4142 Then
Cells(1, "C").Interior.ColorIndex = 9
Else
Cells(1, "C").Interior.ColorIndex = -4142
End If
stime = Timer + 0.5
Do
Loop Until Timer >= stime
Next i
End If
End Sub
0.5を小さくすると点滅がせわしくなります。
ただ、「待機ループ内で時刻が午前0時になるとTimer関数値はゼロに戻ってしまうため、無限ループになってしまう」。
http://www.tsware.jp/tips/tips_044.htmの下の方に回避した方法が紹介されてます。
ただ、いつブリンクを止めるのか、ブリンク中の入力の問題など、その関連で使えるのか自信なし。
No.2
- 回答日時:
シート1のA1セルに数字を入れ、下のマクロを標準モジュールに
コピペし1と2を実行してみてください。
A1セルの数字を変えてみたら回転数が変わります。
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
------------------
Sub irorurretto1()
Dim i As Long
Dim myColorIndexArray() As Variant
myColorIndexArray = Array(1, 3, 10, 20)
For i = 0 To UBound(myColorIndexArray)
With Range("D3").Offset(, i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("D3").Offset(, i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("G4").Offset(i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("G4").Offset(i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("F7").Offset(, -i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("F7").Offset(, -i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
End Sub
----------
-----------
Sub irorurretto2()
Dim k As Integer
Dim i As Long
Dim myColorIndexArray() As Variant
For k = 1 To Worksheets("Sheet1").Range("a1").Value
myColorIndexArray = Array(1, 3, 10, 20)
For i = 0 To UBound(myColorIndexArray)
With Range("D3").Offset(, i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("D3").Offset(, i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("G4").Offset(i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("G4").Offset(i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("F7").Offset(, -i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("F7").Offset(, -i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
Next k
End Sub
---------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Visual Basic(VBA) 指定した文字から指定した文字のスペースまでを削除するVBAの構文について 6 2022/07/24 22:20
- Visual Basic(VBA) ExcelVBAの複数指定範囲の構文 2 2022/05/26 22:39
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
アクセスクエリの計算
-
実行時エラー3131 FROM 句の構...
-
エクセルのデータをアクセスに...
-
Microsoft Accessをクレジット...
-
Access Error3061 パラメータが...
-
【至急・画像あり】建物or住所...
-
日付のテキストボックスに(例...
-
Access VBA を利用して、フォル...
-
Accessで作ったデータベースをw...
-
アクセスクエリで教えて下さい...
-
Access VBA [リモートサーバー...
-
Accessで独自メニューバーまた...
-
アクセス レポートを開いたとき...
-
Accessのクエリで、replace関数...
-
アクセスの更新クエリでカレン...
-
accessの代わりになるもの
-
テーブルとクエリの相関図は表...
-
ms access 2013で、チェックボ...
-
アクセスで教えてください。 ク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
Accessのリンクテーブルのパス...
-
Access VBA [リモートサーバー...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
CSVファイルの「0落ち」にVBA
-
【Access】Dcount関数の複数条...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
実行時エラー3131 FROM 句の構...
-
Vba Userformを前面に出すについて
-
Accessでフォームに自動入力し...
-
Accessレポートのチェックボッ...
-
Accessのテキストボックスの入...
-
Access 複数条件検索の設定が上...
-
accessのフォームに設置したボ...
おすすめ情報