下面是小编为大家带来的Excel录入数据自动添加计量单位（共含3篇），希望大家能够喜欢!同时，但愿您也能像本文投稿人“小狗无语”一样，积极向本站投稿分享好文章。
我们在单元格中进行数据录入时，经常需要添加一些单位，例如金额单位元、分数单位元。如果频繁的重复录入这些单位显的比较麻烦，其实我们可以使用自定义格式来实现自动添加计量单位。
将需要自动添加计量单位的单元格选中，然后打开“格式”菜单下的“单元格”命令。将打开的单元格格式窗口切换到“数字”标签，在“分类”列表中选择“自定义”，在“类型”中选择对应的数据格式，并在选中的数据类型的格式文本后添加上相应的计量单位，例如元、分等(图1)，
设置好之后单击“确定”按钮，这样在经过格式设置的单元格里录入数据时，将会自动添加预设的单位。
图1 Excel录入数据自动添加计量单位
数据
用户录入数据时经常会遇到大量重复数据，即录入下一条记录的某个字段时，其值与上一条记录同字段的值相同，如何实现数据的自动录入数据库教程
。如果编些程序自动录入相同值会大大提高录入速度。具体实现方法如下：一、程序中主要用到的函数1、FileOpen 功能：以指定的读写模式打开指定的文件，同时返回文件的句柄。2、FileWrite() 功能：从指定文件读取数据。3、FileClose() 功能：关闭先前用FileOpen()函数打开的文件。4、settext() 功能：得到当前行和列之上的编辑框中的值。5、gettext() 功能：替换在DataWindow控件或DataStore对象的当前行列的编辑框控件中的文本。6、send() 功能：向窗口发送指定的消息并立即执行相应的事件处理程序。7、describe() 功能：返回DataWindow对象或Datastore对象中的其它对象的属性值。以上函数在有关Pb的函数书中均可以找到，这里不再详述，但要注意后面两个函数的使用方法。二、具体实现方法1、建立window具体控件名称如图1所示。 2、定义实例变量数组 string is_value[] 和 integer if_File（存放打开文件的句柄）string is_columncount3、在window的Open事件中编写如下代码int iif_File = FileOpen(“Sys.ini”,LineMode!, Read!, LockRead!)is_columncount = dw_input.Describe(“DataWindow.Column.Count”) //取得DataWindow对象的总列数for i = 1 to integer(is_columncount)FileRead(if_File, is_value[i])nextFileClose(if_File)dw_input.Scrolltorow(dw_input.rowcount()) //将光标设置到最后行列dw_input.setcolumn(integer(is_columncount)) 在window 的Close事件中编写如下代码int iif_File = FileOpen(“Sys.ini”,LineMode!, Write!, LockWrite!, Replace!)for i = 1 to integer(is_columncount)FileWrite(if_File, is_value[i])nextFileClose(if_File)4、给Datawindow control自定义一个回车键事件：Event name: ue_keyenter Event ID: pbm_dwnprocessenter 5、在Datawindow control的ue_keyenter事件中写入以下代码is_value[this.getcolumn()] = this.gettext()Send(Handle(this),256,9,Long(0,0))this.settext(is_value[this.getcolumn()])return 1在Datawindow control的constructor事件中写入以下代码this.Settransobject(sqlca)this.retrieve()6、给cb_append自定义一个回车事件Event name: ue_keydown Event ID: pbm_keydown在cb_append的clicked事件中写入以下代码dw_input.Setfocus()dw_input.ScrollToRow(dw_input.InsertRow(0)) //追加一空记录并指向新记录dw_input.SetColumn(1) //指向公寓名列dw_input.Settext(is_value[1])在cb_append的ue_pbm_keydown事件中写入以下代码if keydown(keyenter!) thenthis.Triggerevent(clicked!)end if※ 注意各个控件的tab order的顺序，以上步骤只是简单的实现快速录入，如果遇到具体情况还应该做更详细的编码。在Excel中录入数据时，难免随时进行对比，眼睛受累？现有小妙招，可以为眼睛减压，并让眼耳协调工作哟，看Office2010官方的分享吧——
Excel 自动读取单元格内容功能，方便大家平时录入数据内容时即刻通过读音校对，为你的眼睛减压，让眼睛耳朵协调工作！“文件”-“选项”-“快速访问工具栏”-“不在功能区中的命令”-添加“按行朗读单元格”-“直接单击Enter“即可！
赶紧为自己的眼睛减压吧！
