目的
1通过数据模板与VBA结合,批量制作CSV数据表,要求使用规则逐步递增的命名方式来命名批量制作出来的数据表,数据表的内容根据实际需求由最初的模板和提供的基础值自动生成。尽量减少手动操作,真正实现全自动!如图所示为批量制作出来的CSV数据表。
过程
步骤一、编辑数据模板,只要A2和B2单元格发生变化,其它相应的单元格就会通过引用公式来更新数据;
步骤二、编辑好数据模板后,打开VBA编辑器,选择菜单工具宏Visual Basic 编辑器(快捷键为:Alt+F11);
步骤三、插入用户窗体,在Visual Basic 编辑器菜单栏里选择插入用户窗体,然后编辑用户窗体(该窗体作为模板基础数据录入部分),控件的具体使用稍微复杂一些,这里就不作介绍啦;
步骤四、编辑窗体和控件代码,右击UserForm1查看代码,在代码窗口录入相应的代码(由于这部分涉及的内容和步骤比较繁琐,只提供最终代码参考),代码如下:
Private Sub CommandButton1_Click()
Dim n As Long
If TextBox1 "" And TextBox2 "" And TextBox3 "" And TextBox2 TextBox3 Then
On Error Resume Next
MkDir CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & TextBox1
For n = 1 To (TextBox3 - TextBox2 + 1) / 10
Sheets(1).Cells(2, 1).Value = TextBox1 & "-" & n
Sheets(1).Cells(2, 2).Value = TextBox2 + 10 * (n - 1)
ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & TextBox1 & "" & TextBox1 & "-" & n, FileFormat:=xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Next n
Unload Me
MsgBox "数据处理成功!", vbOKOnly + 64, "提示"
Else
MsgBox "请核对数据信息!", vbOKOnly + 64, "提示"
TextBox1.SetFocus
End If
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)Private Sub CommandButton3_Click()
Unload Me
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)Private Sub TextBox1_Change()
Dim i%, Str$
With TextBox1
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。
Select Case Str
Case "a" To "z" '列出允许输入的字符。
Case "A" To "Z" '列出允许输入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。
End Select
Next
End With
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)Private Sub TextBox2_Change()
Dim i%, Str$
With TextBox2
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。
Select Case Str
Case "0" To "9" '列出允许输入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。
End Select
Next
End With
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)Private Sub TextBox3_Change()
Dim i%, Str$
With TextBox3
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。
Select Case Str
Case "0" To "9" '列出允许输入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。
End Select
Next
End With
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)编辑好窗体代码后,点击保存;
步骤五、插入模块,该模块的作用是调出录入窗体(虽然窗体本身已经实现自动加载,但是不能实现二次自动加载),在Visual Basic 编辑器菜单栏里选择插入模块,写入代码:
Sub 打开窗体()
UserForm1.Show
End Sub
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)模块代码录入完毕后,点击保存,然后关闭Visual Basic 编辑器;
步骤六、回到数据表,调出录入窗体,选择菜单工具宏宏(快捷键为:Alt+F8)选择打开窗体执行;
步骤七、按规定要求,录入基础数据,然后点击确定(一旦确定,VBA代码马上执行,将在桌面新建一个名为Excel的文件夹,在Excel文件夹里批量创建10个CSV工作簿,名称依次为Excel-1至Excel-10,内容也相应变化),确认数据处理成功!;
步骤八、在桌面找到批量创建的CSV数据表,验证结果!
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/ejc/)注意事项
编辑代码的过程比较复杂,需要有足够的耐心,需要不断地去尝试和修改;
为了相关宏能正常运行,请把宏的安全性设置为最低级别。
在使用Excel表格工作时,我们很经常接触输入相同的前缀或者后缀的情况。这些前缀虽然简单,但逐个输入起来确实繁琐而枯燥,增加了工作量。这里和大家一起分享一个Excel技巧,让单元格在输入时自动添加前缀,或者快速修改增加原有文档的前缀。
操作步骤
方法一:修改单元格格式。选择需要添前缀的单元格,打开单元格格式对话框,选择数字选项卡下的自定义。
在右边的类型下输入 前缀@,如我要加的前缀是南京,则为南京@,添加为后缀是@南京。输入完毕点击确定。
方法二:公式法。选择新的单元格,写入公式="前缀"&原内容单元格编号;或者= 原内容单元格编号& "后缀"。注意引号要在英文状态输入。(注:&输入方法为shift+7)
完成一个后拖动右下角的句柄,即可批量操作。
若要覆盖原内容,将新内容复制。在原内容上选择选择性粘贴,在弹出的对话框选择数值。点击确定,然后删除不需要的内容即可。
注意事项
法一:注意这里的前缀内容只是单元格的格式,不是输入的内容。
在Excel中,VBA宏可以批量快速的进行数据处理,可有效地提高工作效率,但当对宏代码进行修改时,需要Excel2007打开代码编辑器窗口。
操作步骤
第一步、单击Excel2007窗口左上角的Office 按钮图标,在弹出的菜单中,单击EtulaoShi.comxcel选项按钮,如上图所示。
第二步、在Excel选项对话框中,单击左侧常用分类,勾选在功能区显示"开发工具"选项卡项,单击确定按钮返回Excel2007主窗口,即可添加开发工具选项卡。
第三步、单击开发工具菜单-Visual Basic图标
第四步、Excel2007打开代码编辑器窗口,单击插入菜单-模块菜单项,即可插入默认的模块模块1,即可在右侧的VBA代码编辑器窗口输入VBA代码。
有时处理大量数据数据时,由于反反复复插入行,删除行而会留下来空白行。有时候,也会由于修改数据而留下空白的单元格。人们所需要做的就是批量的删除数据中存在的空白行。在删除行之前需要找到大量的空白行,也就是定位。效果图如下:
第一步、如上图,有几行为空白行,我们需要把它快速删除。首先全选数据,如图所示:
第二步、此时,按F5键打开定位,点击定位条件按钮,选为空值。
第三步、点击确定按钮此时,所有空值被选中。
第四步、在选中空值上点击右键,删除,表行。
完成,效果图如下。
在使用公式查询或汇总多工作表数据时经常需要用到整个工作簿所有工作表的名称,下面介绍如何用宏表函数GET.WORKBOOK来提取工作表名称。
提取工作表名称过程:
Ctrl+F3调出定义名称对话框,或者点击-调出定义名称对话框。
在框里输入一个定义名称(本例输入ShName),方便在工作表中引用。在处输入=GET.WORKBOOK(1),设置完毕后点击按钮。
双击一个单元格,输入公式:=INDEX(ShName,ROW(A1)),这时就返回了包括工作簿名称的工作表名称。
INDEX函数使用说明:
INDEX(数组,第二参数)表示从数组中提取第几个元素。例如:INDEX({1,7,9},2)表示从{1,2,3}的数组里提取第2个元素,也就是7。
将公式修改一下,将中括Tulaoshi.com号的部分去掉,只留下工作表名称。公式为:
=REPLACE(INDEX(ShName,ROW(A1)),1,FIND("]",INDEX(ShName,ROW(A1))),"")
下拉公式就可以看到顺序返回了所有工作表名称,这样就可以在其他函数中引用了。
注意:工作簿中隐藏的工作表名称也会显示出来,本例隐藏了一个名称为合并单元格的工作表。
如果是在2007版Excel中使用宏表函数,点击保存时会弹出下面的对话框:
解决方案有两种:
1)选择另存为97-2003版Excel格式,也就是扩展名为.xls的格式;
2)选择另存为启用宏的工作簿。
Excel怎么做超链接,这个问题的解决方法有很多,但是简单快速且美观的的方法却不多,如果你想知道Excel超链接怎么做简单快速,在这里给大家介绍一种超级快速且美观的函数方法。
操作步骤
第一步、.打开Excel软件,这里给大家介绍两种快速启动Excel的方法。
1、在桌面建立Excel图片,双击启动
2、是按住Ctrl启动Excel,进入安全模式
第二步、导入需要工作的超链接。确定需要工tulaoshi.com作的区域,设置好静态链接的的单元格格式,鼠标右键点击单元格,进入设置单元格格式按钮,对字体居中,颜色进行设置,当然这只是为啦美观,自己可以设置。
第三步、.函数快速设置超级链接。手动单元格输入函数=hyperlink() ,这个英文代表超链接的意思,而后面的括号是确定哪一个单元格里面的内容要设置函数。笔者在这里设置的是单元格B2的内容超链接。如图所示
第四步、.批量处理超链接。要想所有的连接都插入超链接的方法,把鼠标放置C2单元格的右下角,直到鼠标变成一个十字架的形状(当然我这里哟截图的话,鼠标变动看不到的,大家可以自己尝试一下),然后再按住Ctrl(ctrl的用法就是让所有的单元格函数按照C2的函数变动)往下拉,你所配置的B列单元格的超链接都会在相对应的C列单元格中出现。如图所示。
第五步、.最麻烦的超链接添加。点击表格上面的超链接添加,就会弹出一个界面,上面有要显示的文字内容和地址这两项,这里的两项都添加连接就行了。如图所示,我添加百度的超链接。
批量生成指定名称的文件夹,很多人的是借助软件,其实利用excel加系统自带的记事本就可以做了。
如图,把指定名称的文件夹名称输入到EXCEL。同时增加一个辅助列。
在辅助列第1个单元格输入公式:="MD "&D12,并向下拖动。
注意点:
1、这里是D12单元格,你自己在操作的时候根据自己的情况。达到在所有单元格前增加MD 。
2、MD后面还要有一个空格哦。
3、复制生成的辅助列。
4、在要批量生成文件夹的位置,新建一个txt文本。
5、在新建的一个文本里,粘贴辅助列后保存文件。
6、在资源管理器里,在工具菜单下选择文件夹选项,在文件夹选项对话框,勾去隐藏已知文件类型的扩展名。
7、把刚才的文本文件的扩展名txt修改成bat"。
8、 双击这个文件,看一下效果,哈哈,是不是文件夹眨眼间就建好了。