Excel VBA質問箱 IV

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

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


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

68562 / 76807

←次へ　｜　前へ→


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

office-hosokawa - 04/4/14(水) 18:34 -


	引用なし

	パスワード

▼Asaki さん：
>終わりのところをなんなんですが。。。
>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