推荐阅读
计算机二级考试真题-Excel-小秦-以太汽车销售情况统计表
小秦是以太汽车销售公司的会计，负责对全公司的销售情况、收支情况进行统计分析，并将结果提交给财务经理。经理将“以太汽车全年销量统计表.xlsx”表给小秦,要求他对本年的销售情况作个统计分析。打开“以太汽车全年销量统计表.xlsx”，帮助小秦完成以下操作：1．将“sheet1”工作表命名为“汽车销售情况表”，将“sheet2”命名为“销售单价”。2．在“地区”列左侧插入一个空列，输入列标题为“编号”，并以001、002、003 ……的方式向下填充该列到最后一个数据行。3．将工作表标题跨列合并后居中并适当调整其字体、加大字号，并改变字体颜色。适当加大数据表行高和列宽，设置对齐方式及销售额数据列的整数数值格式，并为数据区域增加边框线。4．将工作表“销售单价”中的区域B3:C7定义名称为“销售均价”。运用公式计算工作表“汽车销售情况表”中F列的销售额，要求在公式中通过VLOOKUP函数自动在工作表“销售单价”中查找相关汽车的单价，并在公式中引用所定义的名称“销售均价”。5．为工作表“汽车销售情况表”中的销售数据创建一个数据透视表，放置在一个名为“数据透视分析表”的新工作表中，要求针对各类品牌汽车比较各地区每个季度的销售额。其中：“品牌名称”为报表筛选字段，“地区”为行标签，“季度”为列标签，并对销售额求和。最后对数据透视表进行格式设置，使其更加美观。6．根据生成的数据透视表，在透视表下方创建一个簇状柱形图，图表中仅对各“地区”四个季度“红旗”的销售额进行比较。7．保存“以太汽车全年销量统计表.xlsx”文件。
在Excel中更改图表类型的操作方法
在完成图表创建后，有时需要更改图表的类型，。 图1 打开“更改图表类型”对话框2、单击“确定”按钮关闭“更改图表类型”对话框，此时图表更改为选择的类型，。 图2 图表更改为选择的类型
Excel 2013新增ISFORMULA信息类函数的使用方法
‘); (window.slotbydup=window.slotbydup || []).push({ id: ‘623618’, container: s, size: ‘360,300’, display: ‘inlay-fix’ });})(); 最新版本的Excel 2013，也新增了50个函数公式，本文主要讲述Excel 2013新增的ISFORMULA信息类函数的使用方法。1、ISFORMULA是一个信息类的函数，主要用于判断指定单元格内容是否为公式，是返回TRUE，不是则返回FALSE。老规矩，还是通过实例来为大家讲解。 2、我们打开Excel 2013，可见C4单元格是SUM求和函数，对A4B4单元格进行求和。 3、在任意一个单元格输入函数公式：=ISFORMULA(C4)，判断C4内容是否为函数公式。 4、理所当然的返回TRUE，因为C4里面SUM是个函数。之前的版本中有很多个信息类函数，判断是否为空值、文本、奇偶性等等，这个函数的出现无疑又强大了信息类函数这个家族。
excel2010数据有效性的设置教程
在Excel中录入好数据以后经常需要用到数据有效性进行规定录入范围，具体该如何设置呢?下面是由小编分享的 excel2010数据有效性的设置教程，以供大家阅读和学习。 excel2010数据有效性的设置教程： 设置数据有效性步骤1：选中要设置的区域。 设置数据有效性步骤2：点击数据——数据有效性，在有效性条件，允许(A)中选择序列。 设置数据有效性步骤3：在来源(S)中输入“通过,不通过”。 注：逗号一定要是英文状态下的逗号。 设置数据有效性步骤4：如果输入的逗号不是英文状态下的逗号，则会显示通过不通过连在一起。
最新发布
Excel批量获取指定目录下文本文件内容VBA代码
今天帮一位网友弄的，A列为文件名，B列为对应的文本文件内容。此代码只适用于Excel2003及以下版本，因FileSearch方法被微软阉割了。Sub listfile()”””””””””””””””””””””””‘ 批量获取指定目录下所有文本文件名和内容 ‘‘ ‘”””””””””””””””””””””””Dim fs, fso, flDim mypath As StringDim theSh As ObjectDim theFolder As ObjectDim strtmp As StringApplication.ScreenUpdating = FalseOn Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject") ‘设置搜索路径Set theSh = CreateObject("shell.application")Set theFolder = theSh.BrowseForFolder(0, "", 0, "")If Not theFolder Is Nothing Thenmypath = theFolder.Items.Item.PathEnd If‘搜索开始Set fs = Application.FileSearchWith fs.NewSearch.SearchSubFolders = True ‘搜索子目录.LookIn = mypath ‘搜索路径.FileName = "*.txt" ‘搜索文件类型为txtIf .Execute(SortBy:=msoSortByFileName) = 0 ThenC = .FoundFiles.Count ‘统计搜索到的文件个数For i = 1 To Cstrtemp = .FoundFiles(i) ‘设置临时文件n = InStrRev(strtemp, "\") ‘获取文件路径长度（不包括文件名）‘获取文件名及扩展名strfilename = Replace(strtemp, Left(strtemp, n), "")‘从A2单元格开始输出格式为：文件名Cells(i + 1, 1) = Left(strfilename, Len(strfilename) – 4)Set fl = fso.opentextfile(strtemp, 1)strtmp = fl.readall ‘读取文本内容Range("b" & i + 1) = strtmp ‘B2开始写入内容fl.CloseNextElseMsgBox "该文件夹里没有符合要求的文件!"End IfEnd WithSet fs = NothingApplication.ScreenUpdating = TrueEnd Sub
如何修改Excel的标题
在Excel中，标题栏显示“Microsoft Excel”，如果需要修改Excel的标题以方便用户的操作，可通过VBA修改Excel的标题。Excel2003可通过VBA宏修改Excel的标题。Excel的标题的方法：首先Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.Caption = "Excel 伙伴天下"MsgBox "已完成修改Excel的标题", vbOKOnlyApplication.Caption = vbNullStringEnd Sub按F5运行键，出现“已完成修改Excel的标题”说明已完成修改Excel的标题，单击“确定”按钮还原修改修改Excel的标题。
如何查询Excel子窗口的最大高度和宽度
在Excel VBA中，如果需要查询Excel子窗口的最大高度和宽度以方便用户的操作，可通过VBA查询Excel子窗口的最大高度和宽度。Excel2003可通过VBA宏查询Excel子窗口的最大高度和宽度。查询Excel子窗口的最大高度和宽度的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myMaxHeight As Double, myMaxWidth As DoublemyMaxHeight = Application.UsableHeightmyMaxWidth = Application.UsableWidthMsgBox "Excel子窗口：" _& vbCrLf & "最大高度为：" & myMaxHeight _& vbCrLf & "最大宽度为：" & myMaxWidth, vbInformationEnd Sub按F5运行键运行程序，返回当前系统下Excel子窗口的最大高度和宽度。
如何查询Excel的安装路径
在Excel VBA中，如果需要查询Excel的安装路径以方便用户的操作，可通过VBA查询Excel的安装路径。Excel2003可通过VBA宏查询Excel的安装路径。查询Excel的安装路径的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()MsgBox "Excel的安装路径是: " & Application.PathEnd Sub按F5运行键运行程序，查询Excel的安装路径，返回用户Excel的安装路径。
如何实现Excel2007文档逆序打印
在Word2007中，只要依次点击左上角Office徽标→打印，在打开的“打印”设置窗口中点击“选项”按钮，在接着出现的“Word选项”窗口中切换到“高级”标签页，然后勾选“打印”项中的“逆序打印页面”选项，这样打印机打印时就会从最后一页开始逆序打印到第一页，打印完毕后，最后一页自然处于最底下，而第一页处于最上面，如此则无须逆序重排文档，直接就可以装订成册，对于长篇打印文档尤其方便。与Word相比，Excel的打印功能就相形见绌，Excel2007中也未见对打印功能有任何改善。但我们只要稍费心思，也能让Excel2007轻松拥有“逆序打印”功能。操作步骤一.打印机属性巧设置有些打印机只要安装了自带的驱动程序，就可以在打印属性中找到类似“逆序打印”的打印选项。以笔者的Canon PIXMA iP1000为例“事先请安装打印机附带光盘中的驱动程序”，打印时，只要打开Excel2007工作簿，依次点击左上角Office徽标→打印，打开“打印”设置窗口，在打印机名称中选中“Canon PIXMA iP1000”，然后点击“属性”按钮，调出“Canon PIXMA iP1000属性”窗口，切换到“页设置”标签页，勾选“反向”复选框再点击“确定”按钮即可。二. 宏代码实现法有些打印机不具备上述属性，但通过宏照样可以实现逆序打印功能。打开该Excel文件，切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：ReversePrint，点击“确定”退出;再点击“宏”→“查看宏”，选择“宏名”下的“ReversePrint”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码，然后保存关闭VBA编辑器：Sub ReversePrint()
如何查询Excel窗口的位置
在Excel VBA中，如果需要查询Excel窗口的位置以方便用户的操作，可通过VBA查询Excel窗口与左边界的距离和顶端的距离来获取Excel窗口的位置。Excel2003可通过VBA宏查询Excel窗口的位置。查询Excel窗口的位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myLeft As Double, myTop As DoublemyLeft = Application.LeftmyTop = Application.TopMsgBox "Excel窗口的位置：" _& vbCrLf & "左边界距离：" & myLeft _& vbCrLf & "顶端距离：" & myTop, vbInformationEnd Sub按F5运行键运行程序，返回当前系统下Excel窗口的位置。
如何设置Excel文件的默认位置
在Excel VBA中，如果需要设置Excel文件的默认位置以方便用户的操作体验，可通过VBA设置Excel文件的默认位置。Excel2003可通过VBA宏设置Excel文件的默认位置。设置Excel文件的默认位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.DefaultFilePath = "C:\Documents"End Sub按F5运行键运行程序，即可设置Excel文件的默认位置。Excel的默认文件位置可通过单击“工具”菜单-“选项”菜单项，在打开的“选项”对话框中单击“常规”选项卡，在“默认文件位置”输入框可修改Excel文件的默认位置。
如何改变Excel的显示位置
在Excel VBA中，如果需要改变Excel的显示位置以方便用户的操作，可通过VBA设置窗口与左边界和顶端的距离来改变Excel的显示位置。Excel2003可通过VBA宏改变Excel的显示位置。改变Excel的显示位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myWState As Long, myTop As Double, myLeft As DoubleWith ApplicationmyWState = .WindowState ‘获取当前的窗口状态.WindowState = xlNormal ‘将窗口设置为一般显示myTop = .Top ‘获取当前窗口的顶部位置myLeft = .Left ‘获取当前窗口的左侧位置.Top = .Top + 50 ‘设定窗口的顶部位置.Left = 100 ‘设定窗口的左侧位置If MsgBox("Excel窗口的显示位置已经改变!" & vbCrLf _& "要恢复为原来的状态吗?", vbQuestion + vbYesNo) = vbYes Then.Top = myTop ‘恢复窗口的顶部位置.Left = myLeft ‘恢复窗口的左侧位置.WindowState = myWState ‘恢复窗口的显示状态End IfEnd WithEnd Sub按F5运行键运行程序，即可改变Excel的显示位置。
Excel获取指定路径的文件名 vba代码
在Excel VBA中，如果需要Excel获取指定路径的文件名以方便用户的操作体验，可通过VBAExcel获取指定路径的文件名。Excel2003可通过VBA宏Excel获取指定路径的文件名。Excel获取指定路径的文件名的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myFilename As String, myPath As StringChDir Application.DefaultFilePath ‘改变默认路径myPath = "C:\" ‘指定的任意路径SendKeys myPath & "{TAB}" ‘将指定的任意路径发送到“打开”对话框myFilename = Application.GetOpenFilenameRange("A1") = myFilenameEnd Sub按F5运行键运行程序，Excel调用“打开”对话框，自动打开指定的路径。双击指定的文件，Excel获取指定路径的文件名。相关说明： 当输入法处于中文输入法状态时，将不能打开指定的路径。
如何隐藏Excel窗口
在Excel VBA中，如果需要隐藏Excel窗口以方便用户的操作，可通过VBA设置Excel窗口的显示方式来隐藏Excel窗口。Excel2003可通过VBA宏隐藏Excel窗口。隐藏Excel窗口的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.Visible = FalseMsgBox "Excel窗口已被隐藏！下面将重新显示Excel窗口！"Application.Visible = TrueEnd Sub按F5运行键运行程序，即可隐藏Excel窗口。