VBA代码实现Excel中数据快速录入
假设在填写的某列数据中,员工所属的部门有“一车间”、“二车间”、“销售部”等等,如果我们能用数字代替这些文字内容输入的话,必将大大提高我们录入的效率。
根据这个思路,我们在该工作表的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的人员使用,这样我们将员工填写的表格(在相应的编号内容中打勾或直接填写指定内容的编号)收上来之后就可以快速地采集数据了。
求辐射3存档,剧情不要太靠后,要有许多的钱、武器、弹药、能力值以及技...
王者之棍 (Excalibat) U 000C80BC MIRV 核弹群发器 (Experimental MIRV) U 0003422B 胖子核弹 (...荒地流浪者外套 0001BA00 彩色眼镜 0001C295 避难所实验室外套 0001CBDC 101避难所保安装甲 0001CBDD...举例:想得到 中国式突击步枪代码如下:player.additem 00046BDD 1 后面1为数量、 参考资料: 这东西...
ba he dong sai ma fu o te这个是法语读音,中文意思是?
pardon, c'est ma faute...对不起,我的错 我竟然看懂了。。。
...%D2%A1%B9%F6%D0%A1%CC%EC%BA%F3%B0%AC%DE%B1%B6%F9Exc
【complicated】Avril Lavigne - Complicated Uh huh, life's like this生活就是这样 Uh huh, uh huh, that's the way it is 那是它是的方式 Cause life's like this生活就是这样 Uh huh, uh huh that's the way it is 那是它是的方式 Chill out安静 whatcha yelling' for? 你在笑什么...
求世界rpg所有装备的代码
瓦楞鞋 =I0C3血表面 死亡之环 死亡外套= I0BS 血液结晶 葬礼的十字弓 梦魇根= I0CF 白色粉末=I04U 绿色粉末=I04W 蓝粉=I04V 红色粉末= I04X 神圣粉末= I04Y 金矿=I05P 秘密银币 =海洋的I0CR 愤怒之翼 愤怒= I0CT 愤怒的本质 石燕 = STWA 熊熊燃烧的火焰 = BLBA 魔法深渊YAN=...
大士鼻通: 在使用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,...