通过汇总excel打开指定路径下面的excel文件,然后判断有效区域的空白行,如果有空白行就把上一行的值复制到空白处
状态:我已经可以打开指定excel了,我用的是Workbooks.Open filename:=…… 来打开的,但是尝试了很多次都没发在打开的excel中进行指定区域的选择复制和粘贴
谈到VBA,没有写过代码的小伙伴们,可能觉得很难上手。今天小编,将分享一篇关于Excel宏录制的实际应用 - 信息录入系统,不需要自己写一行VBA代码就能轻松实现信息录入,保存功能,有助于让用户知道如何录制宏,了解入门VBA代码。请耐心观看,阅读仅需五分钟。
废话少说,直接附上动态演示,用极少的文字,用直观的感受让你轻松学习,得到提高。
动态演示:
动态演示
操作说明:
在开发工具->插入->表单控件->按钮,命名为保存
右键选中该按钮,制定宏->录制宏,开始录制宏
复制源Sheet中的录入数据
然后粘贴,粘贴完成后,重复第4步操作,回到A列第一个空白单元格,让下次新增数据时自动添加到已有数据下方。
最后在开发工具->停止录制宏,结束宏录制,保存Excel为xslm格式(宏启用的Excel类型)。
关键点:
Ctrl+下方向键:进入到某列最后一个非空单元格
使用相对引用:相对于某个单元格的位置为相对应用。
分析自动生成的VBA代码
Alt+F11或者开发工具\Visual Basic进入到VBA代码编辑器,如下图:
第1-2行:选中A2:D11,并且复制选中的单元格
第3行:选中[员工考核信息表]Sheet
第4-7行:选中[员工考核信息表]Sheet的A1单元格,实现Ctrl+下方向键效果,再往下方相对移动一格并选中,粘贴数据
第8-10行:选中[员工考核信息表]Sheet的A1单元格,实现Ctrl+下方向键效果,再往下方相对移动一格并选中
第11-15行:选中[员工考核信息新增]Sheet的A2:D11单元格,清除所选内容
如何调试自动生成的VBA代码,更深入了解每一行代码的作用
打开VBA代码编辑器并放在操作页面右边,选中某个代码行,在操作页面中录入两行数据点保存,一步一步的跟踪代码,就能看到每一步代码的效果。
是不是非常简单啊?小伙伴们可以去试一试。
总结:
这一期主要讲了Excel宏录制的实际应用 - 信息录入功能,不用手写任何一段VBA代码,轻松实现信息录入,保存。包括:宏录制,VBA代码讲解,VBA-调试。
追问我需要在两个工作表中操作而不是同一个,这个教程我有看过,不符合我想要的效果。
谢谢回答
vba 在汇总excel中打开另一个excel的相关操作
在开发工具->插入->表单控件->按钮,命名为保存 右键选中该按钮,制定宏->录制宏,开始录制宏 复制源Sheet中的录入数据 然后粘贴,粘贴完成后,重复第4步操作,回到A列第一个空白单元格,让下次新增数据时自动添加到已有数据下方。最后在开发工具->停止录制宏,结束宏录制,保存Excel为xslm格式(宏启用...
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中,利用VBA可以轻松实现跨工作簿的数据调用。首先,你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮,为即将执行的操作创建一个宏。在宏名处,输入一个易理解的名称,例如"DataTransfer",并选择存储在"个人宏工作簿"中,然后点击"确定"。录制完成后,通过点击停止录制宏按钮暂停...
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面,如下图。5、在代码部分...
在VBA中,怎样打开或者调用另一个EXCEL文件
Set wb = Workbooks.Open("F:\\2017\\汇总\\物料.xls")wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("物料").Range("a1")wb.Close False MsgBox "物料更新完毕!"End Sub 这段代码为,打开"F:\\2017\\汇总\\物料.xls"工作簿,并把sheet1的数据复制到当前工作簿,物料工作表,你可以参考一下 ...
在VBA中,怎样打开或者调用另一个EXCEL文件
而要打开一个文件夹里所有的文件,就需要用到FileSystemObject 对象,下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例:Sub ShowAllXlsFile()Dim GetFile As String, GetPFN As String, GetExt As String Dim Fso, PF, AF, FN, i, j GetFile = Application.GetOpenFilename("...
在VBA中,怎样打开或者调用另一个EXCEL文件
Workbooks.Open("d:\\ab.xls")'打开指定文件夹下的一个EXCEL文件。要批量打开可以用复杂一点的语句
如何用函数或VBA调用(引用)另外一个工作表的数据
1、首先,在Excel表格中输入如图内容,以方便在VBA中进行读取和处理操作。2、进入VBA环境,可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”,从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”,右击“按钮”,从其扩展菜单中选择“属性”项。...
怎样在一个EXCEL的VBA里调用另一个EXCEL里的自定义VBA函数
用Run方法:=Application.Run("B.xls!函数名“,[参数])
VB怎么通过一个EXCEL表中的内容读取另一个EXCEL表中的内容
如果你插入的是窗体控件,很简单的。(activex控件比较麻烦,得用vba代码)右键点车间(1)控件,设置格式,最后一个标签“控制”,单元格链接处点到比如sheet1的g1,确定。在sheet2的a1输入 =if(sheet1!g1,"车间(1)","车间(2)")就可以了。
用VBA代码打开其他excel工作簿(有打开密码的)???
Sub FindFileOpen()On Error Resume NextMsgBox "请选择要打开的文件", vbOKOnly + vbInformation, "打开文件"If Not Application.FindFile ThenMsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败"End IfEnd Sub用最简单,最简短的VB命令打开一个文件,请参照!