|
初心者さん 今晩は。
使用するシートモジュールに貼り付けて試してみてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rw As String, clm As String, adr As String
Dim r As Range
Set r = Target
adr = r.Address(1, 0)
clm = Split(adr, "$")(0)
rw = Split(adr, "$")(1)
Application.EnableEvents = False
Range(rw & ":" & rw & "," & clm & ":" & clm).Activate
Application.EnableEvents = True
r.Activate
End Sub
これは、マウス操作とカーソルキーにしか対応していません。
Enterキーには対応していません。
今のところ、こんな感じかなということで、参考コード程度です。
>例えば、エクセルで数字入力の時など、「アクティブセルの列と行が自動的に色が変わったり、その列と行だけ拡大して表示したりすれば便利だとずーっと前から考えてきました。VBAの本は購入したもののその入り口に入っただけで、その糸口(いわゆるコードを作成できません)がつかめません。すでに作成している方がいたらその方法を教えて下さい。お願いします
|
|