推荐阅读
选择excel工作表常用方法
在Excel 2010中，一个工作簿可以包含多张Excel工作表，我们可以根据实际需要切换、插入、删除、移动与复制工作表，此外还可以成组和重命名工作表等。 要在某张工作表中进行编辑工作，必须先选择它，然后再进行相应操作，选择Excel2010工作表常用方法如下。 1、选择单张工作表：打开包含该工作表的工作簿，然后单击要进行操作的工作表标签即可。 2、选取相邻的多张工作表：单击要选择的第一张工作表标签，然后按住【Shift】键并单击最后一张要选择的工作表标签，选中的工作表标签都变为白色，如图1所示。图1 3、选取不相邻的多张工作表：要选取不相邻的多张工作表，只需先单击要选择的第一张工作表标签，然后按住【Ctrl】键再单击所需的工所需的工作表标签即可。 我们在同时选中多个Excel工作表时，在当前Excel工作簿的标题栏将出现“工作组”字样，表示我们所选工作表已成为一个“工作组”。此时，我们可在所选多个Excel工作表的相同位臵一次性输入或编辑相同的内容。
word没有打印机所需的纸型问题如何解决
可能正在打印一篇用其他语言版本的MicrosoftWord创建的文档，并且该文档格式设为用于其他纸型。 若要使Word将文档格式设为您的打印机的纸型并仅用于当前打印会话，请单击【文件】菜单上的【打印】命令。 在【缩放】选项组下，在【按纸型缩放】框中选择要使用的纸型。Word将对页面进行缩放以适应您选择的纸型，类似于复印机上的“缩小/放大”功能。 如果原先创建的文档用于A4纸型，但您要打印信封纸型；或反之亦然，也可以指定Word总是对文档进行适当的缩放。可单击【工具】|【选项】命令，再单击【打印】选项卡。然后选中【允许重调A4/Letter纸型】复选框。
使用PPT三步制作“旋转的星球”
三步制作“旋转的星球” 上面的这张图，黄色星球旋转的效果，用PPT也可以简单地做出来。一、素材准备 1、在我们提供的素材包中，有这个图案。2、这个月牙形，是星球的阴影，能很好地体现球星质感。3、这个中间被掏了一个洞的矩形要和整个页面一样大，洞的直径和左面圆环的宽(内外径之差)一样。4、在我们提供的素材包中，有这个图案。二、组合素材
word三线表怎么做
在Word中我们有时候也需要制作表格，但是表格的边框加上放在某种场合比较难看，我们能不能想办法吧框线去掉呢?我们不妨和小编制作一个三线表看看。 word做三线表方法一： 1 新建一个Word文档，单击插入——表格，选择列数“4”、行数“4”，文档中出现一个四列四行的带框线表格在表格中输入数据。 2 把鼠标移到表格左上角，出现十字图标，双击十字图标，在功能区中显示出“表样式”，现在选择一种样式，就可以制作出三线表了。 word做三线表方法二： 新建一个3行3列的表格，正在表格中输入以下数据，如图所示。 把鼠标移动到表格左上角出现十字标志，点击全选表格，单击右键，选择“边框和底纹”，单击打开对话框，选择“边框”——自定义，设置颜色为蓝色，宽度为4.5磅，选定上框线和下框线，在把宽度设为3.0磅，设定中框线，单击确定，就制作好三线表了。
最新发布
如何隐藏Excel常用工具栏
在Excel VBA中，如果需要隐藏Excel常用工具栏以方便用户的操作体验，可通过VBA设置Excel常用工具栏的显示状态隐藏Excel常用工具栏。Excel2003可通过VBA宏隐藏Excel常用工具栏。隐藏Excel常用工具栏的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.CommandBars("Standard").Visible = FalseIf MsgBox("常用工具栏被隐藏!" & vbCrLf & "是否重新显示常用工具栏?", _vbQuestion + vbYesNo) = vbNo Then Exit SubApplication.CommandBars("Standard").Visible = TrueEnd Sub按F5运行键运行程序，即可隐藏Excel常用工具栏。Excel常用工具栏可通过单击“视图”菜单-“工具栏”子菜单-“常用”菜单项隐藏Excel常用工具栏，再次单击，显示Excel常用工具栏。
如何在Excel表格中编辑“宏”
操作步骤如果大家对VBA程序语言比较熟悉，可以直接在Excel中编辑宏会更方便，宏代码也更简单。 执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑器”窗口。 在左侧“工程资源管理器”窗口中，选中保存宏的工作簿，然后执行“插入→模块”命令，插入一个新模块（模块1）。 将相关宏代码输入或复制、粘贴到右侧的编辑窗口中。注意：宏的结构是：Sub 宏名称()相关代码End Sub 输入完成后，关闭“Visual Basic编辑器”窗口返回即可。本例我们直接编辑的宏，可以删除当前行前4列的单元格，而系统并不给出相关的提示。我们运行一下看看效果。
Excel VBA实现按名称循环出现特定次数
我们常常遇到这样的问题：把一些名称重复输入个N行，N是特定的，比如说。结果大概这样：为什么我们要做这样的事情呢。其实这样的应用场景很多，比如说促销活动选品，不同类目名称要有不同的个数。类目属性调整，不同类目也是不同的属性项，也就有了不同的次数。不同行业也有各自不同的场景。以往基本上就是手动来做，很辛苦。名称越多，越辛苦。现在如果会VBA就能用VBA来实现自动化，当然学好VBA，不是一天两天的事情。下面就来分享我的代码，首先感谢一起学习VBA的朋友的帮助，我就差那1句代码。但这句却是最难想到的。全部代码如下：Alt+F11，进入VBE编辑器，插入模块，放入代码：Public Sub chongf()’名称N次重复Dim m as integer，i as integer，k as integer
Excel VBA中实现数组排序的多种方法
VBA里面没有现成的Sort方法可以使用，在ExcelVBA里面要对数组进行排序，现有的通常做法：1，通过单元格赋值以后利用工作表里的Sort方法进行排序，2，通过SQL实现，也需要调用单元格区域存放数据，3，直接写循环语句通过算法来实现。除了上述方法以外，借助一些其他语言工具与VBA相结合，也能利用现成的排序功能来实现数组排序，而不需要借助表格。例如JavaScript：JavaScript里面也有Sort方法，可以拿来现成使用，示例代码如下：Sub 文本升序()Set js = CreateObject("msscriptcontrol.scriptcontrol")js.Language = "javascript"arr = Application.Transpose(Range("A1:A10"))temp = Join(arr, ",")js.addcode "function aa(bb){js=bb.split(‘,’);js.sort();return js;}"sortarr = js.eval_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd Sub Sub 文本降序()Set js = CreateObject("msscriptcontrol.scriptcontrol")js.Language = "javascript"arr = Application.Transpose(Range("A1:A10"))temp = Join(arr, ",")js.addcode "function aa(bb){js=bb.split(‘,’);js.sort();js.reverse();return js;}"sortarr = js.eval_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd Sub Sub 数值升序()Set js = CreateObject("msscriptcontrol.scriptcontrol")js.Language = "javascript"arr = Application.Transpose(Range("A1:A10"))temp = Join(arr, ",")js.addcode "function aa(bb){js=bb.split(‘,’);js.sort(function(a,b){return a-b;});return js;}"sortarr = js.eval_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd Sub
Excel vba引用工作表的三种写法
文章介绍vba引用工作表名称的三种不同写法。 vba引用工作表是我们在学习VBA过程中很常用。 本文提供三种vba引用工作表的代码，通过这三种方式都可以实现vba引用工作表名。 方法一：Sheets(Sheet.Index) 方法二：Sheets(Sheets.Name) 方法三：Sheets.CodeName 下面是vba引用工作表的相关的一个截图，可以很直观的看到其使用。
Excel使用VBA实现excel循环累加的代码
excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。 我们以一个具体的例子来说明使用VBA实现excel循环累加的使用。 我们在A列输入具体的数据，然后在B列实现循环累加。 比如我们在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12+13=25。 再次在A1输入10，B1这次的循环累加值为：10+25=35。其余单元格以此类推，只要在A列输入数字，B列就自动循环累加。 实现的方法是：我们在需要进行excel循环累加的工作表标签，右键，选择“查看代码”，打开VBE编辑器，复制下面的代码，并关闭VBE编辑器，回到工作表中A列开始输入数据，excel会在B列自动循环累加数值。Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Range("B" & Target.Row) = Val(Range("B" & Target.Row)) + Val(Target)End Sub 如果是同一单元格循环累加，可以使用下面的代码，比如A1输入2，再输入5，结果为2+5=7，再输入10，结果为7+10=17。Private Sub Worksheet_Change(ByVal Target As Range)Static temp As DoubleIf Target.Address = "$A$1" ThenApplication.EnableEvents = False[a1] = Val(temp) + Val([a1])Application.EnableEvents = TrueEnd Iftemp = [a1].ValueEnd Sub
Excel vba复制工作表实例
文章介绍两个excel中vba复制工作表的例子。Vba复制工作表，通常是用copy方法。 Excel中的vba复制工作表，一般是使用Copy方法。但往往复制的要求不同，因此代码也有所不同。我们以两个常用的vba复制工作表例子来加以说明和学习。 vba复制工作表案例一Sub vba复制工作表()Worksheets("sheet1").Copy Before:=Worksheets("sheet2")End Sub 说明：上面代码的意思是：在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前。 又比如：Worksheets("sheet2").Copy After:=Worksheets("sheet3")，这句代码的意思就是在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后。 Copy方法带两个可选参数，Before和After，使用时两个参数任选其一。 vba复制工作表案例二Sub vba复制工作表()Dim bok As WorkbookActiveSheet.CopySet bok = ActiveWorkbookbok.SaveAs "blwbbs.xlsx"End Sub 说明：上面代码的意思是将当前打开的工作薄中的当前工作表，复制到同一路径，并单独保存为一个工作簿，文件名为blwbbs.xlsx。
Excel VBA中引用WorkSheet的新方法
在写VBA中常需要引用某个WorkSheet对象，一般通过工作表名Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet2Name") 或者索引号Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets(2) 来引用。但这样做有一个不好的地方，就是如果工作表改名或者工作簿有删除、插入动作，以上引用可能会失效。但使用Code Name在上面两种情况下都会一直有效（在VBA里一张工作表对象显示为Sheet2(Sheet2Name)，Code Name即为"Sheet2」，可通过属性窗口修改为有意义的字串）：Dim ws As WorksheetSet ws = Sheet2 而且在写法上也更简单。但有一个缺点，跨工作表时这种方法就无效了。
Excel vba注释符号和注释方法介绍
本文介绍excel中VBA注释说明方法，使用vba注释符号和REM语句来为代码添加注释。 Vba添加注释，可以使代码更具可读性，既方便自己，也方便以后可能检查源代码的其他人员。 Excel中为vba代码添加注释语句有两种方法，可以使用注释符号：单引号或者REM语句来实现。 不论使用vba注释符 (‘)还是rem语句，都是告诉Visual Basic，忽略该符号后面的内容，这些内容只是代码段中的注释而已。第一，使用vba注释符号添加注释语句 比如下面代码其中的：’在A1单元格输入内容“窝窝”，即为vba注释语句，其中’是注释符。Sub vba注释符号练习()Cells(1, 1) = "窝窝" ‘在A1单元格输入内容“窝窝”End Sub第二，使用REM语句添加注释语句 如下面代码中的：Rem 在A1单元格输入内容“窝窝”，即为vba注释语句。Sub vba注释符号练习()Rem 在A1单元格输入内容“窝窝”Cells(1, 1) = "窝窝"End Sub
Excel vba实现字母全部转小写
今天来分享一段代码。大家先进入vba编辑器中，然后插入模块使用，复制进去。具体代码如下：‘将A列转字母全部转换成小写Sub test1() ‘设置TEST为过程的名称Dim x As Integer ‘声明X为整数变量For x = 1 To Range("A65536").End(xlUp).Row ‘设置X的范围为1到A列最后空白单元格的行数Range("A" & x) = LCase(Range("A" & x)) ‘附值单元格Ax的格式全部转换为小写,如果是UCase,则转换成大写Next x ‘循环XEnd Sub ‘结束过程假设源数据在A列，所以上面代码的range A。具体应用，自己进行简单修改了。此内容属于进阶，一般的童鞋灵活运用upper ，lower这几个函数就行了。