Excel VBA質問箱 IV

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

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


68493 / 76738 ←次へ | 前へ→

【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 は同名のプロパティがありますから、変数には利用されないことをお薦めします。

早速作成したところ、うまくできました。

細かなコメントも再三に渡っていただきありがとうございました。

0 hits

【12640】エクセルのカーソルを行ごと表示させるには office-hosokawa 04/4/9(金) 16:49 質問
【12648】Re:エクセルのカーソルを行ごと表示させる... Asaki 04/4/9(金) 17:35 回答
【12658】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/9(金) 22:33 質問
【12661】Re:エクセルのカーソルを行ごと表示させる... IROC 04/4/10(土) 19:53 回答
【12683】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/12(月) 15:11 回答
【12684】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/12(月) 15:12 お礼
【12687】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/12(月) 15:32 質問
【12694】Re:エクセルのカーソルを行ごと表示させる... Asaki 04/4/12(月) 17:46 回答
【12702】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/12(月) 20:10 質問
【12703】Re:エクセルのカーソルを行ごと表示させる... Asaki 04/4/12(月) 20:21 回答
【12705】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/12(月) 22:04 発言
【12766】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/14(水) 16:31 お礼
【12771】Re:エクセルのカーソルを行ごと表示させる... Asaki 04/4/14(水) 16:55 発言
【12776】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/14(水) 17:30 お礼
【12779】Re:エクセルのカーソルを行ごと表示させる... Asaki 04/4/14(水) 18:07 回答
【12782】Re:エクセルのカーソルを行ごと表示させる... office-hosokawa 04/4/14(水) 18:34 お礼

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