Excel录制宏执行宏

Excel录制宏执行宏

1.E xcel录制宏执行宏

简单的方法：自己可练习创建一个“宏”，（就是录下自已需要做的操作步骤）方法：点击——工具——宏——录制新宏——弹出窗口——确认宏名称——这时就会弹出一个录像框，你就可以一步一步点击你要做的操作，按下“停止”，就结束了宏录制！

你再进入工具——宏——选择刚录下的宏名称——点击“编辑”——这里面就是你要的宏代码了，自已可以研究了！

如下面就是一个宏，执行后会自己打开：工作表3

代码是：

Sub 按钮1_单击()

Sheet (Sheet3)

End Sub

2.E xcel打开工作薄自动执行宏？

先录制宏，再宏名字改成

sub auto_open

就变成自动了

3.E xcel击活工作表自动执行宏？

Sub Macro适合行高() ………..宏名

' ZYC录制时间: 2014-9-23 ………….注释行

'

Private Sub worksheet_activate()

Cells(1, 1) = Now()

Rows("3:3").Select

Rows("3:3").EntireRow.AutoFit

End Sub

先打开对应工作表，操作alt+F11，在视图中选正代码窗口，然后复制粘贴上面代码。

4.E xcel击活工作表6-10行自动执行最适合的行高，然后选正单元格A6的宏？

Private Sub worksheet_activate()

Rows("6:10").Select

Rows("6:10").EntireRow.AutoFit

Range("A6").Select

End Sub

5.E xcel隐藏单元格中的数据？

有时候，我们可能不希望别人看到Excel某些单元格或者区域中的数据内容，可以选定这些单元格内容，然后按下“Ctrl+1”组合键，在弹出的“单元格格式”对话框中，单击“数字”选项卡，然后选择“自定义”分类，在其中的“类型”文本框中输入半角符号“;;;”即可，这样即便是修改字体颜色也无法显示隐藏的内容了。

6.E xcel统计空白单元格、数字单元格、数字及非空单元格个数？

=countBlank(A1:A100) '统计空白单元格数量

=count(A1:A100) '统计数字单元格个数

=counta(A1:A100) '统计数字及非空单元格个数

=countif(A1:A100,A1) '条件统计统计区域中A1同值的个数

7.E xcel提取文件夹中的所有文件名称

1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt

保存退出

将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）

双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件

打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！

2、VBA（2003版）

在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码

Sub Test()

Dim i As Integer

Dim strPath As String

strPath = ThisWorkbook.Path

With Application.FileSearch

.LookIn = strPath

.SearchSubFolders = True

.Filename = "*.*"

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Range("A" & i) = .FoundFiles(i)

Next i

End If

End With

End Sub

回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行

看看效果吧！

8.E xcel单元格中显示该文件夹内的文件数量或名称

假设这个文件夹是

D:\fda

1、插入]-[名称]-[定义]，或按CTRL+F3，打开excel→名称管理器→定义一个名称→比如：aaa

引用位置输入：=FILES("d:\fda\*.*") &T(NOW())

2、然后在任一工作表某一单元格输入：=COUNTA(aaa)

则返回文件个数。

3、如果在任一工作表某一单元格输入：

=if(row(a1)>counta(aaa),"",index(aaa,row(a1)))

4、再下拉公式进行填充，则依序填充文件名。

9.E xcel一列中输入文件名，另一列自动生成指定文件夹同名文件超链接

A列为输入文件名，B列返回超链接

B1中输入：=HYPERLINK("D:\FDA\"&A1,A1)

其中"d:\fda\"为指定文件夹路径。

10.Excel中怎么把行转换成列

复制需转换的单元格行，选择性粘勾选“转置”。

在页面投置工作表选项中勾选单色打印，可以不打印底纹图案。

11.Excel高亮显示光标所在行或列？

在Excel中选择菜单“格式——条件格式”命令，弹出“条件格式”对话框。

在“条件”下拉框中选择“公式”并在右侧中输入下面相应的公式，然后点击“格式”按钮，设置相应的格式，完成后，按“确定”按钮。

不过当前单元格编辑过才行，按过回车。

高亮单元格：

条件格式：=CELL("address")=ADDRESS(ROW(),COLUMN())

高亮行

条件格式：=ROW()=CELL("row")

或者：=CELL("row")=ROW()

高亮行和列

条件格式：=(row()=cell("row"))+(column()=cell("col"))

高亮当前单元格为止的相应行和列，呈反L形

条件格式：=OR(AND(CELL("row")=ROW(),CELL("col")+1>COLUMN()),AND (CELL("col")=COLUMN(),CELL("row")+1>ROW()))

高亮当前单元格为止的相应行和列，呈反L形，且当前单元格背景色改变、字体加粗：

条件格式：=CELL("address")=ADDRESS(ROW(),COLUMN())”“=OR(AND(CELL ("row")=ROW(),CELL("col")+1>COLUMN()),AND(CELL("col")=COLUMN(),CE LL("row")+1>ROW()))

12.Excel单元格中插入页码方法

（以Excel 2003版本为基础，下文中所有“填写”后跟的内容不包括内容最外侧的全角引号）

一、定义引用项（以下定义方法通过单击菜单“插入/名称/定义”弹出定义对话框操作）