|
お世話になります。
ユーザーフォームに
カラーパレットボタン(コマンドボタン)、テキストボックス、OKボタンを配し
カラーパレットボタンを押すとテキストボックスの背景色が変わり(=カラーパレットボタンの背景色)
OKボタンでテキストボックスに示された色で塗りつぶされたセルに
(OKボタンを押すごとに)カーソルを順次ジャンプさせようと思っています。
一応思惑どうりの動作はするのですがジャンプに結構なタイムラグが出ます。
ジャンプのタイムラグを減らせる方法がありましたらご教示を願います。
標準モジュールに写し替えたものを下記に示します。
Sub カラーセルへジャンプ()
Dim myColor As Variant
Dim eC As String
myColor = 255 '赤の場合
eC = ActiveCell.SpecialCells(xlCellTypeLastCell).Address
With Range("A1:" & eC).Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = myColor
End With
On Error GoTo errMSG
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
Exit Sub
errMSG: MsgBox "該当するセルがありません。"
End Sub
|
|