当前位置:主页 > Office办公

最新发布

Excel使用VBA实现excel循环累加的代码
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

376 次浏览
Excel vba复制工作表实例
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。

111 次浏览
Excel VBA中引用WorkSheet的新方法
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 而且在写法上也更简单。但有一个缺点,跨工作表时这种方法就无效了。

220 次浏览
Excel vba注释符号和注释方法介绍
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

603 次浏览
Excel vba实现字母全部转小写
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这几个函数就行了。

139 次浏览
Excel打印工作簿的操作和方法
Excel打印工作簿的操作和方法

本文介绍excel打印工作簿的方法。一次性打印多个excel工作簿文件的方法是这样的:  1.把所有需要打印的excel文件放在一个文件夹下面。  2.执行“文件——打开”,弹出“打开”对话框。  3.选择需要打印的excel工作簿文件。  4.单击左小角的“工具”按钮,选择“打印”。  上面的步骤就是excel打印工作簿的方法。  附:打印工作簿截图:

95 次浏览
如何改变Excel鼠标指针形状
如何改变Excel鼠标指针形状

在Excel VBA中,如果需要改变Excel鼠标指针形状以方便用户的操作体验,可通过VBA设置Excel鼠标的显示状态改变Excel鼠标指针形状。Excel2003可通过VBA宏改变Excel鼠标指针形状。改变Excel鼠标指针形状的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.Cursor = xlWaitMsgBox "Excel鼠标指针被改为沙漏型指针!下面将恢复默认形状!"Application.Cursor = xlDefaultEnd Sub按F5运行键运行程序,即可改变Excel鼠标指针形状。

150 次浏览
如何隐藏Excel格式工具栏
如何隐藏Excel格式工具栏

在Excel VBA中,Excel格式的操作可通过Excel格式工具栏进行操作。如果需要隐藏Excel格式工具栏以方便用户的操作体验,可通过VBA设置Excel格式工具栏的显示状态隐藏Excel格式工具栏。Excel2003可通过VBA宏隐藏Excel格式工具栏。隐藏Excel格式工具栏的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.CommandBars("Formatting").Visible = FalseIf MsgBox("格式工具栏被隐藏!" & vbCrLf & "是否重新显示格式工具栏?", _vbQuestion + vbYesNo) = vbNo Then Exit SubApplication.CommandBars("Formatting").Visible = TrueEnd Sub按F5运行键运行程序,即可隐藏Excel格式工具栏。Excel格式工具栏可通过单击“视图”菜单-“工具栏”子菜单-“格式”菜单项隐藏Excel格式工具栏,再次单击,显示Excel格式工具栏。

134 次浏览
如何查询Excel的版本号
如何查询Excel的版本号

在Excel VBA中,如果需要查询Excel的版本号以方便用户的操作,可通过VBA查询Excel的版本号。Excel2003可通过VBA宏查询Excel的版本号。查询Excel的版本号的方法:首先Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Dim myVersion As StringSelect Case Application.VersionCase "8.0"myVersion = "97"Case "9.0"myVersion = "2000"Case "10.0"myVersion = "2002"Case "11.0"myVersion = "2003"Case "12.0"myVersion = "2007"Case "14.0"myVersion = "2010"Case ElsemyVersion = "未知版本"End SelectMsgBox "Excel 版本是: " & myVersionEnd Sub按F5运行键,查询Excel的版本号,返回用户使用的Excel的版本。

156 次浏览
Excel中进行宏录制的操作方法
Excel中进行宏录制的操作方法

宏操作是office的拿手好戏,它把很多重复性工作简单化,给我们带来很大便利。录制好一个宏后就可以重复使用了,省去了很多麻烦。今天,小编就教大家Excel中进行宏录制的操作方法。  Excel中进行宏录制的操作步骤:  首先打开Excel2010,如下图所示。  找到“开发工具”菜单项,这里需要说明的是,“开发工具”菜单并不是Excel2010的默认菜单,是需要自己添加上去的,具体如何添加参见小编的其他经验。  点击“录制宏”,就开始了自己定义的宏的录制。那么还需要解释一下什么是宏,学数学的同学都知道函数,其实宏就是用户自己定义的一个过程而已。  然后是给宏起个名字,系统默认的名字如下“宏1”,点击确定。  以在D1内输入某个函数为例,下面是小编举例。当我们进行输入的时候,发现开发工具的功能区都变成了灰色。  当我们敲回车键,功能区变成可操作形态,然后我们找到“停止录制”按钮,如下图所示。  经过如上操作,我们就成功了录制了一个往单元格内输入函数的宏,以后如果想做类似操作,那么只需要调用这个宏即可。具体如何调用宏,小编会在其他篇幅进行阐述。Excel中进行宏录制的操作

118 次浏览
共计75934条记录 上一页 1.. 697 698 699 700 701 702 703 ..7594 下一页