|
本帖最后由 sgxb123431380 于 2013-11-26 10:14 编辑
下面的代码是写在Thisworkbook里的
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
For i = 96 To 105
Application.OnKey "{" & i & "}"
Next i
If (Selection.Row = 5 Or Selection.Row = 7 Or Selection.Row = 10) And Selection.Column > 4 And Selection.Column < 59 Then
For i = 96 To 105
Application.OnKey "{" & i & "}", "tz" & i - 96
Next i
End If
End Sub
下面的代码是写在宏模块里的
Public Sub tz0(): Call tz(0): End Sub
Public Sub tz1(): Call tz(1): End Sub
Public Sub tz2(): Call tz(2): End Sub
Public Sub tz3(): Call tz(3): End Sub
Public Sub tz4(): Call tz(4): End Sub
Public Sub tz5(): Call tz(5): End Sub
Public Sub tz6(): Call tz(6): End Sub
Public Sub tz7(): Call tz(7): End Sub
Public Sub tz8(): Call tz(8): End Sub
Public Sub tz9(): Call tz(9): End Sub
Public Function tz(n)
ActiveCell = n
If ActiveCell.Row = 5 And Cells(ActiveCell.Row, ActiveCell.Column - 4) = "" Then Cells(ActiveCell.Row, ActiveCell.Column - 4) = "¥"
If ActiveCell.Row = 5 Then
If ActiveCell.Column = 46 Then
Range("A9").Select
Else
Cells(ActiveCell.Row, ActiveCell.Column + 4).Select
End If
Else
If ActiveCell.Column = 56 Then
If ActiveCell.Row = 7 Then
Range("A9:C9").Select
else
Range("A12:C12").Select
endif
Else
Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
End If
End If
End Function
你再试一下吧
|
|