スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
VBA 選択行の文字色を変える


エクセルで、横長の表を見るときとか、編集するときとか、
今どの行を編集しているか分かりやすいように、選択セルの存在する行の文字色を赤字に変更する。

コードを記述する場所は、シートオブジェクトのWorksheet_SelectionChangeイベント。
選択セルが変わった時に発生するイベント。

しょぼいけど、見た目はちゃんと動作してるっぽい。こういうのが、ユーザビリティかな?

aaa_201408270105241b7.png


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'選択されたセルが
'2行目以降かつ1列目に値が入っている場合、
If Target.Row >= 2 And Cells(Target.Row, 1).Value <> "" Then

'文字色を初期化
Rows("2:" & Rows.Count).Font.ColorIndex = xlAutomatic

'選択されている行の文字色を赤色に変更
ActiveCell.EntireRow.Font.ColorIndex = 3

End If

End Sub
スポンサーサイト
VBA 処理速度の改善 | Home | VBA 改行の度にコンパイルエラーメッセージを出さない

Comment

Post comment

Secret

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。