Excel VBA質問箱 IV

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

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


68492 / 76734 ←次へ | 前へ→

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

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 お礼

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