| |
すみません、自己解決しました。
接合したセルからの移動が変なのかと思い
接合を解いたら、うまく動くようになったので、
セルの大きさを変えることで、どうにかしようと思います。
最終的には
Private Sub Worksheet_SelectionChange(ByVal Ta As Range)
Dim Tb As String
Dim Tc As Integer
Dim Td As Variant
Tc = InStr(1, Ta.Address, ":")
If Tc = 0 Then
Td = Mid((Ta.Address), 4, 8)
Else
Td = Mid((Ta.Address), 4, (Tc - 4))
End If
If (((Mid((Ta.Address), 2, 1)) = "B") Or ((Mid((Ta.Address), 2, 1)) = "C")) Then
If (Td < 7) And (Ta.Address <> "$C$2:$F$2") Then
Tb = "$C$2:$F$2"
Else
GoTo lastline
End If
Else
Tb = "$B$" & Td
End If
If (Ta.Address = "$C$3") Then Tb = "$B$7"
If Tb = Empty Then Tb = "$C$2:$F$2"
Range(Tb).Select
lastline:
End Sub
これで、やってみようと思います。
まぁ、これでも合っているのか不安ですが・・・
どうも、お騒がせしてしつれいしました。
|
|
スワン
- 07/6/7(木) 20:43 -
