| |
すみません、初心者で何処が間違っているのかもわからないのですが、
セルの移動を制限するために
「Ｃ２：Ｆ２」の複合セルと「Ｂ７」、「Ｃ７」以下の
「Ｂ」と「Ｃ」のセル以外は制限内へ戻る様にしたいのですが
うまく動かないのです。
Private Sub Worksheet_SelectionChange(ByVal Ta As Range)
Dim Tb As String
Dim Tc As Integer
Dim Td As Variant
On Error Resume Next
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
Tb = Ta.Address
Else
Tb = "$B$" & Td
End If
If (Td < 7) Or (Ta.Address = "$C$4:$E$4") Then
If (Ta.Address <> "$C$2:$F$2") Then
Tb = "$C$2:$F$2"
Else
End If
Else
End If
If (Ta.Address = "$C$3:$F$3") Then Tb = "$B$7"
If Tb = Empty Then Tb = "$C$2:$F$2"
If (Ta.Address = "$B$7") Then Tb = "$B$7"
Application.EnableEvents = False
Range(Tb).Select
Application.EnableEvents = True
End Sub
と入力し試してみたのですが、
セルの移動で特定の動きをすると変になるのです。
「Ｃ３：Ｆ３」の接合セル→「Ｂ７」→方向キーなどを押し
他のセルへ行こうとすると動きがおかしくなるのです。
「Ｔａ」の値が前の「Ｃ３：Ｆ３」のままで「Ｂ７」になりません。
ワークシート上ではセルは「Ｃ３：Ｆ３」から「Ｂ７」に移動をしているのですが
データ上では違うみたいなのです。
自分では何処が間違っているのかも解らないので何方かお教え願えないでしょうか
ちなみに接合セルは「Ｃ２：Ｆ２」と「Ｃ３：Ｆ３」のみです。
|
|
スワン
- 07/6/7(木) 19:09 -
