VBA代码实现Excel中数据快速录入

~ 在Excel中录入数据有很多的技巧，合理地运用它们可以提高我们的工作效率。本文另辟蹊径，向大家介绍一下如何利用VBA代码实现数据的快速录入。请看下面的例子。
　　假设在填写的某列数据中，员工所属的部门有“一车间”、“二车间”、“销售部”等等，如果我们能用数字代替这些文字内容输入的话，必将大大提高我们录入的效率。
　　根据这个思路，我们在该工作表的Change事件中输入了如下的代码：　　
　　Private Sub Workheet_Change(ByVal Target As Range)　　
　　If Target.Column = 2 Then ’只在第二列实现该功能　　
　　If Target.Value = 1 Then
　　Target.Value = "一车间"　　
　　Else
　　If Target.Value = 2 Then　　
　　Target.Value = "二车间"　　
　　Else　　
　　If Target.Value = 3 Then
　　Target.Value = "销售部"
　　End If
　　End If
　End If
　　End If
　　End Sub
　　返回到Excel窗口，这时输入相应的数字就可以被替换成指定的文本内容了。可能有的朋友会想，先输入这些数据，然后用查找替换的方法不也行吗。然而我们会发现，用查找替换操作容易将其他列中的这些数据错误地替换掉，如果每个数字经确认后再替换就显得比较烦琐了，而用代码就不会出现这些问题，加载之后就可以一劳永逸了。　　
　　提示：代码中“Target．Column ＝ 2”用于指定只能在第二列输入这些数据时才有效(如果不指定对整个工作表都有效)，这样才能保证在其他列输入这些数据时不会受到影响。类似地，我们还可以用代码来控制在其他列中快速地录入文本。该技巧适合事先加载到表格中或编制成程序让不熟悉Excel的人员使用，这样我们将员工填写的表格(在相应的编号内容中打勾或直接填写指定内容的编号)收上来之后就可以快速地采集数据了。

---

师宗县18557951071： 怎么能够通过Excel vba代码,迅速得出想要的数据表? - ？
大士鼻通： 在使用Excel的过程中我们可能会遇到这个问题,一个工作簿有几十个工作表,结果这些工作表的顺序不太满足要求,我们想将这些工作表快速排序.你有什么好方法来解决这个问题吗?复杂问题还是得vba代码出马啦.alt+F11——双击thisbook...

师宗县18557951071： EXCEL中如何用VBA实现 - ？
大士鼻通： 方法/步骤如下: 1、双击打开桌面的EXCEL; 2、单击右上角的OFFICE图标,找到EXCEL选项,单击打开;3、勾选在功能区显示“开发工具”选项卡,单击确定按钮完成修改.4、单击菜单栏的开发工具,然后找到Visual Basic单击打开便可以进行相关的VBA编程.

师宗县18557951071： excel vba 快速录入数字 - ？
大士鼻通： 问题出在 End(xlDown) 这意思是从A1向下查找最后一个非空单元格 如果A1没有数据,就会出错.你的代码意思是textbox1文本框中的字符个数等于6个时,A1向下最后一个非空下一个单元格写入文本框数据,文本框清空

师宗县18557951071： Excel中用VBA公式编辑的基本模型 用来实现数据自动运算 - ？
大士鼻通： 打开VBA编辑器(Alt+F11),新建模块,在模块下输入 function Q(q,c,t2,t1) as double Q=q*c*(t2-t1) end function 但是这个函数好像没有太大意义,因为你在表格中直接使用公式不就行了吗?不知道是不是你要的.

师宗县18557951071： 如何在EXCEL中进行VBA编程 - ？
大士鼻通： 当A1单元格显示为PN,则把sheet2中的A1到C4区域复制到新建的sheet3中的A2到C5区域.如果A1单元格显示DP,则把sheet2中的A1到C1区域的内容复制到新建的sheet3中的A2到C2区域 这个真的没有表述错误吗

师宗县18557951071： excel VBA和宏写代码实现数据读取和计算. - ？
大士鼻通： 其实就是两个操作. 1、统计M列,区域:连续360个以上的单元格都为0,这样的区域总共有多少个? 2、将M列所有数字为1的单元格,填充色改为其它颜色(例如红色). 相应完整VBA代码如下: Sub count01_by_zzllrr()Dim n, n0, n1, i, v...

师宗县18557951071： 怎样在VBA指令中调用Excel函数 - ？
大士鼻通： 在VBA指令中调用Excel函数,可以在函数前面加WorkSheetFunction来调用,如:WorkSheetFunction.Max(Range(＂A1:A10＂))——取单元A1:A10里的最大值;WorkSheetFunction.Average(Range(＂A1:A10＂))——取单元A1:A10里的平均值.Sub ttt() Cells(1, 2) = WorksheetFunction.Max(Range(＂A1:A10＂)) Cells(2, 2) = WorksheetFunction.Average(Range(＂A1:A10＂)) End Sub

师宗县18557951071： 在EXCEL中怎样用VBA实现打开时自动清空某一列或多列中的数据? - ？
大士鼻通： Private Sub Worksheet_Activate()Columns(＂C:D＂).SelectSelection.ClearContentsRange(＂A1＂).Select End Sub在EXCEL工作簿中的工作表名字处右击,然后查看代码,然后粘贴该代码,以上代码将执行:打开该工作表时自动清除C到D列的内容(单列的话只打一列的字母就行了),完成清除动作后单元格定位在A1

师宗县18557951071： 我的excel比较大,打开速度超慢,我能不能不打开表用vba实现对表的查询?怎么实现,希望高手指教下.谢谢 - ？
大士鼻通： 这是VBA代码或建立的窗体造成的,解决办法(给它瘦身)如下: 第一种:如果是工作表中写代码造的话,可新开工作表,复制代码及相关按钮到新工作表,删除旧工作表SAVE就可以了 第二种:,如果是窗体中写代码造的话需新开档案,工作表方面同第一种方式处理,但窗体方面需在窗体编辑界面直接拉到新工作表即可(任何西都不会被改变) 第三种:如果你的数据量很大的话(我之前有3万多的资料量)建议把存放的资料与查询之类的操作与之用两个工作表分开 第一二种方法只能是暂时缓解问题, 第三种才是最佳方法且数据方面有一定的安全性,但代码就的一定的困难度

师宗县18557951071： excel中用VBA设置代码 - ？
大士鼻通： 1. 理解1是要设置数据有效性.处理方式:选中B列,然后,选择“数据→有效性”菜单,打开“数据有效性”对话框,在“设置”选项卡的有效条件“允许”处选择“自定义”,在出现的“公式”下面的方框中输入公式“=AND(LEN(B1)=26,...