当前位置：文档之家 › Sub Macro1

Sub Macro1

  • 格式：doc
  • 大小：36.50 KB
  • 文档页数：3

Sub Macro1()

'

' Macro1 Macro

' 宏由 yu 录制，时间: 2010/10/14

'

'

Sheets("Sheet1").Select

Sheets.add

Sheets("Sheet1").Select

Cells.Select

Selection.Copy

Sheets("Sheet2").Select

Cells.Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWindow.DisplayGridlines = False

ActiveSheet.ChartObjects("图表 6").Activate

ActiveChart.PlotArea.Select

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

Range("P14").Select

ActiveSheet.ChartObjects("图表 10").Activate

ActiveChart.SeriesCollection(1).Select

ActiveChart.SeriesCollection(1).XValues = "='河南油田(不含春光)'!R2C1:R10C1"

ActiveChart.SeriesCollection(1).Values = "='河南油田(不含春光)'!R2C3:R10C3"

ActiveChart.SeriesCollection(2).XValues = "='河南油田(不含春光)'!R2C1:R10C1"

Windows("开采曲线总表.xls").SmallScroll Down:=-6

ActiveWorkbook.Save

ActiveSheet.ChartObjects("图表 10").Activate

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 9").Activate

ActiveChart.PlotArea.Select

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 10").Activate

ActiveChart.PlotArea.Select

End Sub

Sub Macro2()

'

' Macro2 Macro

' 宏由 yu 录制，时间: 2010/10/14

'

'

ActiveSheet.ChartObjects("图表 10").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(2).Select

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 9").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Select

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 6").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.SeriesCollection(1).Select

Windows("开采曲线总表.xls").SmallScroll Down:=9

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 7").Activate

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Select

Windows("开采曲线总表.xls").SmallScroll Down:=15

ActiveWindow.Visible = False

Windows("开采曲线总表.xls").Activate

ActiveSheet.ChartObjects("图表 8").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(2).Select

End Sub

Sub Macro3()

'

' Macro3 Macro

' 宏由 yu 录制，时间: 2010/10/14

'

'

ActiveSheet.ChartObjects("图表 6").Activate

ActiveChart.ChartArea.Select

ActiveChart.SeriesCollection(2).DataLabels.Select

ActiveChart.SeriesCollection(2).Select

ActiveWindow.Visible = False

Windows("437Ⅰ.xls").Activate

ActiveSheet.ChartObjects("图表 5").Activate ActiveChart.ChartArea.Select

ActiveChart.SeriesCollection(1).Select

ActiveWindow.Visible = False

Windows("437Ⅰ.xls").Activate

ActiveSheet.ChartObjects("图表 2").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.SeriesCollection(2).Select

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveWindow.Visible = False

Windows("437Ⅰ.xls").Activate

ActiveSheet.ChartObjects("图表 3").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.SeriesCollection(1).DataLabels.Select

ActiveWindow.Visible = False

Windows("437Ⅰ.xls").Activate

ActiveSheet.ChartObjects("图表 4").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.SeriesCollection(2).Select

End Sub

合集下载

英语词根大全(共910个)[1]

英语词根大全(共910个)[1]

实用标准文档

文案大全 词根 释义 凡例及注解 注意事项

a- 1. 无，不，非 azonic 非地带性的

a- 2. 含in,at等意义 asleep 在熟睡中

a- 3. 加强意义 aloud 高声地

ab- 离去，相反，不 abuse 滥用

ac- 含at,to意,加强意义 accustom 使习惯 用在c,k,q前

ad- 含at,to意,加强意义 adventure 冒险 用在d,h,j,m,v前

af- 含at,to意,加强意义 afforest 造林，绿化 用在f前

ag- 含at,to意,加强意义 aggrandize 增大 用在g前

air- 空中的 airline 航空公司

al- 1. 含at,to意,加强意义 allocate 分配 用在l前

al- 2. 构成副词 almost 几乎

amphi- 两，双 amphibian 水陆两用车

an- 1. 无，不 anarchistic 无政府的

an- 2. 含at,to意,加强意义 annotate 注解 用在n前

ante- 前，先 anteroom 接待室

anthropo- 有关人的 anthropophagus 吃人族

anti- 反对，相反，防止 antibiotics 抗生素 用于a前省i

any- 任何 anywhere 任何地方

ap- 加强或引申意义 appraise 评价 用在p前

apo- 离开 apogee 远地点

ar- 含at,to意,加强意义 arrange 安排 用在r前

arch- 主要的，首位的 archenemy 头号敌人

as- 含at,to意,加强意义 assort 分类 用在s前

at- 含at,to意,加强意义 attract 吸引 用在t前

Macro-1

Macro-1

EXCEL 學習三部曲

筆者在計中教EXCEL軟體課程十多年，從EXCEL 95到最新的EXCEL 2010版本，深刻體認到EXCEL實在是資料處理上必備的技能。但如果問每個人「你的EXCEL程度如何？」這樣的問題，得到的答案幾乎是模糊的。因此在這裡提出兩道大家常面對的問題，讓各位測測看自己的EXCEL程度到底屬於初級、中級、高級的哪一級。

第一題：利用EXCEL印製報表很是方便，讓每一頁都可印出標題是初級者可辦到的，但是EXCEL列印的列數常是由系統依篇幅自動計算，所以常會有一頁報表31或33筆紀錄的情況，並不利於統計紀錄筆數。如果你可達成每頁只列印30筆就要一定要跳頁的規定，就算是屬於EXCEL的中級程度。又如果可以寫一個小小的巨集程式，做到每頁只列印30筆，而且換不同單位部門時也要跳頁，讓不同的單位部門分開印在不同頁上，這樣你就可以算是具有EXCEL高級的程度了。

第二題：利用EXCEL來排名次也很簡單，以國中基測為例，總分相同的同學還要比作文分數定高下，如果先以總分為主鍵從高到低排序，再以作文分數為第二鍵從高到低排序，然後以填滿數列的方式拉出1、2、3…名次就好了，這是EXCEL初學者常會做的事，但是會發生同樣總分的人，名次不相同的情況。學過進階EXCEL函數的同學可能會知道要使用RANK函數，讓同樣總分的人名次也相同，以下的名次則累計。但是以國中基測為例，總分相同的同學還要比作文分數定出高下，這時RANK函數就沒辦法做到了，我們必須學習寫一個小小的巨集程式，來做到這種排名的規定。只要以此種規定排名，再按照各校招生人數來篩選學生，使位在邊緣的同學只要是名次相同的就一律進榜。總分相同但作文分數較低的同學就要被刷掉。

筆者上課時因為時間的關係，往往只能教到初級、中級的程度，但有不少同學對於撰寫EXCEL巨集很有興趣，因此想說在這裡紀錄下來，讓稍具程式設計基礎的同學可以舉一反三，加強進一步解決問題的能力。

Excel-vba宏代码-大全

Excel-vba宏代码-大全

Excel-vba宏代码-大全

宏文件集

▲打开全部隐藏工作表返回Sub 打开全部隐藏工作表()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next i

End Sub

▲循环宏返回Sub 循环()

AAA = Range("C2")

Dim i As Long

Dim times As Long

times = AAA

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)

For i = 1 To times

Call 过滤一行

If Range("完成标志") = "完成" Then Exit For '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出

'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit

For '如果某列出现"完成"内容则退出循环

Next i

End Sub

▲录制宏时调用“停止录制”工具栏返回Sub 录制宏时调用停止录制工具栏()

/doc/4911298482.html,mandBars("Stop

Recording").Visible = True

End Sub ▲高级筛选5列不重复数据至指定表返回

Sub 高级筛选5列不重复数据至Sheet2()

Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列

Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy,

CopyToRange:=Sheet2.Range( _

"A1"), Unique:=True

Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"),

excel根据条件自动折叠行的函数公式

excel根据条件自动折叠行的函数公式

在Excel中，可以使用宏（Macro）来编写代码，以实现根据条件自动折叠行的功能。下面是一个简单的示例代码，演示如何创建一个宏来实现这个功能：

Sub AutoFoldRows()

Dim i As Integer

Dim lastRow As Long

Dim ws As Worksheet

Dim conditionColumn As Integer

Dim conditionValue As Variant

' 设置工作表和条件列

Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称

conditionColumn = 1 ' 修改为条件所在列的列号

' 获取最后一行

lastRow = ws.Cells(ws.Rows.Count, conditionColumn).End(xlUp).Row

' 设置条件值

conditionValue = "条件值" ' 修改为你的条件值

' 循环检查每一行

For i = 2 To lastRow ' 从第2行开始，假设第1行是标题

If ws.Cells(i, conditionColumn).Value = conditionValue Then

ws.Rows(i).EntireRow.Hidden = True ' 隐藏符合条件的行

End If

Next i

End Sub

要使用上述代码，你需要打开Excel的开发人员选项卡，并创建一个新的宏。将代码粘贴到宏编辑器中，并进行适当的修改，如将工作表名称、条件列号和条件值替换为实际的值。运行宏后，符合条件的行将被自动隐藏。 请注意，宏的使用需要小心，因为错误的操作可能会影响你的工作表。在运行宏之前，最好先备份你的数据。另外，根据条件自动折叠行的功能在Excel中并不是内置的函数，所以需要使用VBA宏来实现。