Excel VBA質問箱 IV

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

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


68499 / 76738 ←次へ | 前へ→

【12776】Re:エクセルのカーソルを行ごと表示させるには
お礼  office-hosokawa  - 04/4/14(水) 17:30 -

引用なし
パスワード
   ▼Asaki さん:
>先ずは、マクロの記録をお試しください。
>ご自分で、コードをいろいろいじってみることをお薦めします。
>このような掲示板は、コード作成依頼場所ではありません。
>ご自分で、ある程度の試行錯誤をしていただくべきでしょう。

当然のことながら、進展がないのは私自身の事です。説明不足ですいません。

asakiさんの回答を元に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Integer
Dim col As Integer
Dim old_row As Integer
Dim old_col As Integer
Dim i As Integer
With Application
  '.EnableEvents = False
  '  MsgBox "test"
row = ActiveCell.row
col = ActiveCell.Column
If row > 1 Then
Range(Cells(row - 1, 2), Cells(row - 1, 5)).Interior.ColorIndex = 0
End If
Range(Cells(row + 1, 2), Cells(row + 1, 5)).Interior.ColorIndex = 0
Range(Cells(row, 2), Cells(row, 5)).Interior.ColorIndex = 6
old_row = row
old_col = col
  'Target.EntireRow.Select
  'Target(1).Activate
  '.EnableEvents = True
End With
End Sub

で、好きな色にして、好きな範囲を変えるまではできました。
しかし、これを実行していると、コピー・貼り付けができなくて
困っている状態でして。

失礼が、あったことを重ね重ねお詫びします。
失礼しました。

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

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