请教各位有关学生分班后调班问题

例如要将附件分班表中的C5朱锋调到9班和C11黄浩的实分班编号对换,请求坛中大侠帮我设计一个程序.要求:
1.先单击C5朱锋的实分班编号"3"(T5单元格)时,此单元格变为绿色(双击空白单元格为撤销。)
2.双击T11单元格时,实现T5单元格和T11单元格的数值互换.同时T5单元格变为红色不变.
3.在菜单栏设立"撤销互换"按钮来撤销步骤2
先谢谢各位了!

[ 本帖最后由 xhzxl 于 2011-8-4 06:57 编辑 ]

感觉你这种分班方法挺乱的

没有理解"同时T5单元格变为红色不变."是什么意思,胡乱猜着做一个.

谢谢zez ,正是我所需要的.

再请教zez:在你写的代码中,若只在S列(原在T列)中互换数据,则应修改哪部分数据?谢谢
附代码:
Private Sub CommandButton1_Click()
        N = Range([v1].Value).Value
        [u1] = [v1]
        Range([v1].Value).Value = Range([w1].Value).Value
        Range([w1].Value).Value = N
        Range([u1].Value).Interior.ColorIndex = 4
        [v1] = ""
        [w1] = ""

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 20 And .Row > 2 And .Row < 910 Then
            If [u1] = "" Then
                [u1] = .Address
                .Interior.ColorIndex = 4
            Else
                [v1] = [u1]
                [w1] = .Address
                N = Range([u1].Value)
                Range([u1].Value) = .Value
                .Value = N
                Range([u1].Value).Interior.ColorIndex = 3
                [u1] = ""
            End If
        Else
            Range([u1].Value).Interior.ColorIndex = xlNone
            [u1] = ""
        End If
    End With
End Sub