Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7922 / 76734 ←次へ | 前へ→

【74393】色つきセルへのジャンプ
質問  gg54  - 13/5/29(水) 8:42 -

引用なし
パスワード
   お世話になります。
ユーザーフォームに
カラーパレットボタン(コマンドボタン)、テキストボックス、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

1 hits

【74393】色つきセルへのジャンプ gg54 13/5/29(水) 8:42 質問
【74394】Re:色つきセルへのジャンプ UO3 13/5/29(水) 13:55 発言
【74395】Re:色つきセルへのジャンプ gg54 13/5/29(水) 14:55 発言
【74397】Re:色つきセルへのジャンプ UO3 13/5/29(水) 15:27 発言
【74398】Re:色つきセルへのジャンプ gg54 13/5/29(水) 15:34 質問
【74399】Re:色つきセルへのジャンプ gg54 13/5/29(水) 15:39 お礼

7922 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free