vba代码翻译，越详细越好

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("透视表").PivotCache.Refresh
ActiveSheet.PivotTables("透视表").PivotSelect "", xlDataAndLabel, True
Selection.RowHeight = 16 '设置行高
Rows("4:5").Select '选中第2行
Selection.EntireRow.Hidden = True '隐藏
Range("a1").Select
Application.ScreenUpdating = True
End Sub
这段代码每句每个词是什么意思？？

举报该问题

其他回答

第1个回答 2013-07-08

Private Sub Worksheet_Activate() 当激活工作表时执行
Application.ScreenUpdating = False 软件的窗口停止刷新
ActiveSheet.PivotTables("透视表").PivotCache.Refresh 刷新透视表的数据
ActiveSheet.PivotTables("透视表").PivotSelect "", xlDataAndLabel, True 选择透视表
Selection.RowHeight = 16 '设置行高
Rows("4:5").Select '选中第2行
Selection.EntireRow.Hidden = True '隐藏
Range("a1").Select 选择a1格
Application.ScreenUpdating = True 刷新窗口
End Sub本回答被网友采纳

相似回答

VBA代码求翻译?答：Private Sub CommandButton2_Click()tms = Timer '记录程序开始运行的时间，关屏幕刷新和告警弹框显示 Application.ScreenUpdating = False Application.DisplayAlerts = False '遍历所有工作表，把当前活动工作表以外的全删除，然后打开告警弹框显示 For Each sht In Sheets If sht.Name <> ActiveSheet...

VBA代码翻译答：Sub 生成入库数据()Application.ScreenUpdating = False ‘ScreenUpdating 属性用来控制屏幕更新此处禁止。'If Cells(3, 14) = 0 Or Cells(4, 4) = 0 Or Cells(4, 14) = 0 Then 'MsgBox "表头填写不全,请重新填写", vbOKOnly, "错误提示"'Exit Sub 'End If Sheets("入库数据").Select ...

VBA程序翻译答：Sub Macro1()Dim rng As Range, c As Range, myPath$, myFile$, wb As Workbook, sh As Worksheet '定义对象,分别定义的是单元格,地址,文件以及工作簿!Set sh = Sheets("1") '设置工作表1,即SHEETS1 Set rng = sh.Range("A2:A" & sh.Range("A65536").End(xlUp).Row) 'S...

VBA代码翻译答：VBA中的Cells语法是:Cells(行数,列数),行数和列数都是整数值,如:cells(2,1)代表第二行第一列,也就是A2单元格,在VBA中,与Range("A2")所指一样.cells(2,1)也可以写成cells(2,"A")以此类推。所以要在表格中的C4,D4,E4,F4 中输出要修改：.Hyperlinks.Add Anchor:=Cells(4,i + 2),...

大家正在搜

越详细越好英语去日本攻略越详细越好 vba代码详解 vba常用代码 vba编程代码 vba求和代码 excel vba代码 vba代码库 vba常用代码大全