Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68565 / 76807

←次へ　｜　前へ→


	【12779】Re:エクセルのカーソルを行ごと表示させるには

Asaki - 04/4/14(水) 18:07 -


	引用なし

	パスワード

終わりのところをなんなんですが。。。
F12キーを押すと、SelectionChangeでやっている色をつけたり、の処理のOn/Offを切り替えます。
適当にアレンジしてください。
初期起動時は On です。

ThisWorkbook に
Private Sub Workbook_Open()
　　blnSelectRowOn = True
　　Application.OnKey "{F12}", "chgSelection"
End Sub

標準モジュールを追加して、
Public blnSelectRowOn　　　　　As Boolean

Sub chgSelection()
　　blnSelectRowOn = Not blnSelectRowOn
End Sub

対象シートのSelectionChangeイベントを、↓こんな感じにすると、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim new_row As Long
　　Dim new_col As Long
　　Dim old_row As Long
　　Dim old_col As Long

　　If blnSelectRowOn Then
　　　　new_row = ActiveCell.Row
　　　　new_col = ActiveCell.Column
　　　　If new_row > 1 Then
　　　　　　Range(Cells(new_row - 1, 2), Cells(new_row - 1, 5)).Interior.ColorIndex = 0
　　　　End If
　　　　Range(Cells(new_row + 1, 2), Cells(new_row + 1, 5)).Interior.ColorIndex = 0
　　　　Range(Cells(new_row, 2), Cells(new_row, 5)).Interior.ColorIndex = 6
　　　　old_row = new_row
　　　　old_col = new_col
　　End If
End Sub

行番号を格納するような変数は、Long型が無難です。
また、Row は同名のプロパティがありますから、変数には利用されないことをお薦めします。

2 hits

▼

【12640】エクセルのカーソルを行ごと表示させるには office-hosokawa 04/4/9(金) 16:49