[已解决]VBA语句看不懂，求助！

goodlaugh

哪位大虾能帮帮忙，看看下面语句是什么意思,最好能用中文语句表达：
Sheets("F.L' BOAT").Select
    Rows("1:1").Select
    Range("C1").Activate
    Rows("1:109").Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("A.L'BOAT").Select
    Rows("1:1").Select
    Range("C1").Activate
    Rows("1:109").Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    'Cells.Select
    'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("POB").Select
    ActiveWorkbook.Save

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-11 13:49

如果这么简单的宏都看不懂的话，要扩展怕也难！先给你解释一下:
    Sheets("F.L' BOAT").Select   '选择(激活)工作表"F.L' BOAT"
    Rows("1:1").Select    '多余操作   
    Range("C1").Activate    '多余操作
    Rows("1:109").Select   '选择1:109行
    Range("C1").Activate   '多余操作
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '按A列升序排序(带标题行)
    Sheets("A.L'BOAT").Select   '选择(激活)工作表"A.L'BOAT"
    Rows("1:1").Select    '多余操作
    Range("C1").Activate   '多余操作
    Rows("1:109").Select    '选择1:109行
    Range("C1").Activate    '多余操作
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '按A列升序排序(带标题行)
    'Cells.Select    '已注销   
    'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '已注销
    Sheets("POB").Select   '选择(激活)工作表"POB"
    ActiveWorkbook.Save       '文件保存

跳转到最佳答案楼层

zjdh

这种录制宏没啥研究的！

goodlaugh

回复 zjdh 的帖子

如果看得懂帮忙解释下呗，那几句我看不懂。因为那个表我要扩展，如果那个不懂的话，没无扩展！

Select

楼主要不先试试这个：http://www.excelpx.com/thread-186721-1-1.html

mdcmdc

建议您听下VBA教程

无聊的疯子

回复 goodlaugh 的帖子

对于录制的宏，先把宏保存了，然后把你刚才的操作撤消了

打开代码窗口，调小窗口，最好和工作表窗口并排，然后用F8测试，

每按一下，注意观察工作表的变化，多测试几次就知道这些代码是什么意思了

如果你再下载一个《有道》字典来配合着学习的话，效果更好！！

wdkjs

对，有时间看看蓝版的VBA教程，讲的很不错！

zjdh

如果这么简单的宏都看不懂的话，要扩展怕也难！先给你解释一下:
    Sheets("F.L' BOAT").Select   '选择(激活)工作表"F.L' BOAT"
    Rows("1:1").Select    '多余操作   
    Range("C1").Activate    '多余操作
    Rows("1:109").Select   '选择1:109行
    Range("C1").Activate   '多余操作
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '按A列升序排序(带标题行)
    Sheets("A.L'BOAT").Select   '选择(激活)工作表"A.L'BOAT"
    Rows("1:1").Select    '多余操作
    Range("C1").Activate   '多余操作
    Rows("1:109").Select    '选择1:109行
    Range("C1").Activate    '多余操作
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '按A列升序排序(带标题行)
    'Cells.Select    '已注销   
    'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    '已注销
    Sheets("POB").Select   '选择(激活)工作表"POB"
    ActiveWorkbook.Save       '文件保存

goodlaugh

回复 zjdh 的帖子

非常感谢你啦！我是自学这个，由入门不是很懂，让你见笑啦！那个段VBA是前人编的，我要进行修正，又不敢轻易删除某段话，怕表格会出现错误。下面是整个修改前的一段VBA：
Sub Macro1()
' FPSO POB List
    Range("A3:L115").Select
    Selection.Copy
    Sheets("F.L' BOAT").Select
    Range("A3").Select
    ActiveSheet.Paste
    Selection.AutoFilter Field:=8, Criteria1:="F"
    Sheets("POB").Select
    Range("A3:L115").Select
    Selection.Copy
    Sheets("A.L'BOAT").Select
    Range("A3").Select
    ActiveSheet.Paste
    Selection.AutoFilter Field:=8, Criteria1:="A"
    Sheets("F.L' BOAT").Select
    Rows("1:1").Select
    Range("C1").Activate
    Rows("1:116").Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("A.L'BOAT").Select
    Rows("1:1").Select
    Range("C1").Activate
    Rows("1:116").Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   
    'Cells.Select
    'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("POB").Select
    ActiveWorkbook.Save
    'Sheets(Array("POB", "F.L'BOAT", "A.L'BOAT")).Select
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
    'Sheets("POB").Select
   
    ' 页眉设置 Macro
'
    t = Sheets("POB").Cells(130, 4)
    t = Format(t, "mmm-dd-yyyy")
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11PERSONNEL ONBOARD" & Chr(10) & t
   
    End With
    Sheets("F.L' BOAT").Select
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11FORWARD LIFEBOAT" & Chr(10) & t
    End With
    Sheets("A.L'BOAT").Select
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11AFT LIFEBOAT" & Chr(10) & t
    End With
   
    '
' Macro4 Macro

    Sheets("CARD").Select
    ActiveWindow.SmallScroll Down:=45
    Range("B2:B92").Select
    ActiveWindow.SmallScroll Down:=-57
    Selection.ClearContents
'
    Sheets("F.L' BOAT").Select
    Range("A3:A115").Select
    Selection.Copy
    Rows("1:115").Select
    Sheets("CARD").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=27
    Sheets("A.L'BOAT").Select
    Range("A6:A115").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("1:115").Select
    Sheets("CARD").Select
    Range("B55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-36
    Application.CutCopyMode = False
   
    'Sheets(Array("POB", "F.L'BOAT", "A.L'BOAT")).Select
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
    'Sheets("POB").Select
    Sheets("POB").Select
    ActiveWorkbook.Save
    Sheets("POB").Select

     
End Sub

按你的话，我大胆进行了修改为：
Sub Macro1()
' FPSO POB List
    Range("A3:L115").Select
    Selection.Copy
    Sheets("F.L' BOAT").Select
    Range("A3").Select
    ActiveSheet.Paste
    Selection.AutoFilter Field:=8, Criteria1:="F"
    Sheets("POB").Select
    Range("A3:L115").Select
    Selection.Copy
    Sheets("A.L'BOAT").Select
    Range("A3").Select
    ActiveSheet.Paste
    Selection.AutoFilter Field:=8, Criteria1:="A"
    Sheets("F.L' BOAT").Select
    Rows("1:116").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("A.L'BOAT").Select
    Rows("1:116").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   
    'Cells.Select
    'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
    ' 页眉设置 Macro

'
    t = Sheets("POB").Cells(130, 4)
    t = Format(t, "mmm-dd-yyyy")
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11PERSONNEL ONBOARD" & Chr(10) & t
   
    End With
    Sheets("F.L' BOAT").Select
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11FORWARD LIFEBOAT" & Chr(10) & t
    End With
    Sheets("A.L'BOAT").Select
    With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Book Antiqua,Regular""&18FPSO""NANHAISHENGLI""&""Arial,Regular""&10" & Chr(10) & "&""Book Antiqua,Regular""&11AFT LIFEBOAT" & Chr(10) & t
    End With
   
    '
' Macro4 Macro
'
    Sheets("CARD").Select
    ActiveWindow.SmallScroll Down:=45
    Range("B2:B92").Select
    ActiveWindow.SmallScroll Down:=-57
    Selection.ClearContents
'
    Sheets("F.L' BOAT").Select
    Range("A3:A115").Select
    Selection.Copy
    Sheets("CARD").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=27
    Sheets("A.L'BOAT").Select
    Range("A6:A115").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("1:115").Select
    Sheets("CARD").Select
    Range("B55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-36
    Application.CutCopyMode = False
   
    'Sheets(Array("POB", "F.L'BOAT", "A.L'BOAT")).Select
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
    'Sheets("POB").Select
    Sheets("POB").Select
    ActiveWorkbook.Save
    Sheets("POB").Select

     
End Sub

byhdch

看看，学习学习......