【新歌首发】王觉 重磅打造最新单曲《唱情歌的人》火爆来袭320k/mp3+wav无损

天涯音缘

支持，谢谢分享。

kenny44272

唱情歌的人

hh102030

谢谢分享

捂着心脏ゝ撕心

多谢分享~~~~~~~~~~~~~~~~~~~~

涛涛涛

多谢分享

cqlhkp

谢谢分享 支持支持

Ubuntu

Private Sub CommandButton1_Click()
'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2012-2-9
'

'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("L5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton10_Click()
'
' 忠臣 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("T5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortTextAsNumbers
End Sub

Private Sub CommandButton11_Click()
'
' 内奸 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("V5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton12_Click()
'
' 主公 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("Y5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton13_Click()
'
' 反贼 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("AA5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton14_Click()
'
' 忠臣2 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("Z5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortTextAsNumbers
End Sub

Private Sub CommandButton15_Click()
'
' 内奸2 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("AB5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton2_Click()
'
' Macro3 Macro
' 宏由 微软用户 录制，时间: 2012-2-9
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlDescending, Key2:=Range("L5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton3_Click()
'
' 总积分 Macro
' 宏由 微软用户 录制，时间: 2012-3-4
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("N5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton4_Click()
'
' Macro2 Macro
' 宏由 微软用户 录制，时间: 2012-3-4
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("Q5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton5_Click()
'
' 局数 Macro
' 宏由 微软用户 录制，时间: 2012-3-4
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("M5"), Order1:=xlAscending, Key2:=Range("L5") _
        , Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton6_Click()
'
' Macro3 Macro
' 宏由 微软用户 录制，时间: 2012-3-4
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("R5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton7_Click()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2012-3-4
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("O5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton8_Click()
'
' 主公 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("S5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

Private Sub CommandButton9_Click()
'
' 反贼 Macro
' 宏由 微软用户 录制，时间: 2012-3-5
'

'
    Range("B4:AB69").Select
    Selection.Sort Key1:=Range("U5"), Order1:=xlDescending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortTextAsNumbers, DataOption2:=xlSortNormal
End Sub

jameskid

感谢分享

zhang123456

谢谢  楼主分享

caojp

谢谢分享，支持！！！