用EXCEL建立科级核算的数据表格系统
摘 要 根据我院经济管理科的科级核算现状，通过对相关程序源代码分析，根据“军卫一号”《高级版数据库手册》中数据结构，获取所需源数据，利用EXCEL编制核算表格、设计计算公式、编写相关的过程、函数，获得符合我院科级核算的数据信息，从而提高了我院科级核算的数据信息化、自动化水平。
【关键词】EXCEL；科级核算；数据表格
1 引言
目前，科级核算作为军队医院经济管理科的主要工作之一，包括成本核算、绩效考核、经济分析。成本核算实现对医院运营成本的分析管控；绩效考核能够提高员工的工作积极性；经济分析为医院经济决策提供重要参考。鉴于科级核算在医院管理中的重要性，如何保证相关数据的及时性、准确性，非常关键。本文利用微软公司的EXCEL软件，设计相关表格，重点针对绩效考核数据表，做到了自动链接、自动计算，避免了人工操作引起的误差。
2 建立数据表格系统：
我院科级核算的原始数据包括收入和成本，收入来源于“军卫一号”的“医疗收入统计”程序，成本由成本发生部门上报，数据流向如图1。
我院绩效考核主要以收益、医疗质量等为主要指标，流程及数据表格系统如图2、图3，数据表格采用统一标准设计格式，便于汇总统计。
2.1 收入数据的采集与计算
查看“医疗收入统计”程序源代码，发现所用门诊、住院数据“开单科室收入”、“执行科室收入”，采集自“军卫一号”数据库中的表：
门诊收入开单科室统计表ST_OUTD_INCOME_BY_OD
住院收入开单科室统计表ST_IND_INCOME_BY_OD
门诊收入执行科室统计表ST_OUTD_INCOME_BY_ED
住院收入执行科室统计表ST_IND_INCOME_BY_ED
数据采集可以用微软公司的ACCESS软件或者用Sybase公司的PowerBuilder程序，保存为EXCEL文件。此数据按照科室统计，科室多于核算单元（如：核算单元“心内科”对应科室“心内科”、“心内科门诊”、“心内科护理单元”等），建立核算单元与科室对照表以完成收入按核算单元的统计。
2.2 成本数据的归集
下发固定格式的数据采集模板，各成本发生部门按照模板上报数据，用EXCEL自动生成成本汇总表。
2.3 使用EXCEL的函数、宏
内置函数：查找函数VLOOKUP（）、偏移量函数OFFSET（）、计数函数COUNTA（）、条件计数函数COUNTIF（）、求和函数SUM（）、SUBTOTAL（）等。
自定义函数：大小写转换函数TOUPPER（）、科室查找函数SKNAME（）等。
宏：报表生成模块PRINTF（）、各核算单元结算表提取模块COPY_SHEETS（）等。
3 “自动化”设计
利用EXCEL的功能实现数据自动提取、计算、汇总，成功的避免了人工操作引起的误差，缩短了核算周期，提高了工作效率。
3.1 统一名称
所有需要录入的名称，均采用“有效性…”—设置“允许”条件为“序列”来限定，（如核算单元名称组成序列，图5）。
3.2 自动查找
固定位置的数据采用链接，位置不固定的数据使用查找函数VLOOKUP（）。结算表中收入及成本的数据均采用查找函数提取，如图6、图7，眼科卫生材料费的计算公式为：
其中$M$1=眼科，$J11=卫生材料费，MATCH（）函数实现获取卫生材料费在核算收入统计表中的位置，VLOOKUP（）函数实现查找眼科对应的卫生材料费的值。
3.3 自动计算
核算收入统计表中使用偏移量函数OFFSET（）及数组公式，实现收入按核算单元汇总，如图8。此公式利用=SUM（（条件区域1=值1）*（条件区域2=值2）*（数据区域））的数组公式（输入公式后按“CTRL+ALT+ENTER”结束即为数组公式）来检索数据并求和；其中skname（）为自定义函数，实现按核算单元生成相关科室数组，源代码如下：
Function skname（lookup_value As Range， table_array As Range， c_num As Integer， range_lookup As Boolean） As Variant
'vlookup函数扩展——多值（无空值）查询，参数c_num为查询列数，其他参数与函数VLOOKUP（）一致。
3.4 自动汇总
使用“宏”自定义过程，生成打印报表（PRINTF（）），生成下发科室的核算表（COPY_SHEETS（））。
4 讨论
在医院经济管理信息平台建设成功之前，利用现有资源，深度开发其功能，实现了收入、成本数据的信息化自动处理，每月把原始数据导入指定的位置，则当月的绩效考核数据就一目了然，极大地缩短了核算周期，提高了工作效率，提高了我院经济管理水平。同时在成本核算和经济分析中采用同样的标准化设计，使医院领导及时准确地了解医院每月、每季度、每年的经济运行状况，为医院管理提供有力的数据支持。
参考文献
[1]顾蕙.加强成本核算提高医院经济管理水平[J].中国管理信息化，2011（13）.
[2]李英杰.医院绩效管理中应当注意的几个问题[J].医院管理，2008（04）.
[3]龙马工作室.Excel2003中文版完全自学手册[M].北京：人民邮电出版社，2006.
作者简介
卢洪涛，现为天津疗养院经济管理科助理员。
马明，现为天津疗养院经济管理科主任。
作者单位
天津疗养院经济管理科 天津市 300381
作者：卢洪涛 马明
选中CAD表格点击鼠标右键，在弹出菜单里选择“输出”，然后在出现对话框起一个名字就可以将CAD表格存为.CSV格式了，然后用EXCEL可以打开该.CSV文件。
EXCEL表格到CAD表格方法：
在EXCEL中选定需要的部分,点选边框按钮使表格边框显黑,在CAD中执行菜单“编辑”-->"选择性粘帖"，在对话框里选择“Auto AD图元”就可以把EXCEL表格输入为CAD表格了。
在CAD2009中还有一种方法将EXCEL表格转变为CAD表格：
在CAD中绘制表格，在对话框里插入选项里选择“自数据链接”，后根据提示一步步进行下去就可以将EXCEL
表格里的一个工作表转变为CAD表格了。
此方法的好处是：只要在EXCEL表格进行更改数据，然后在CAD里选择表格，点击鼠标右键在弹出菜单里选择“更新表格数据链接”就可以同步CAD表格里的数据了。 CAD和WORD、
EXCEL之间的图形或表格相互复制的方法只有图片哦~：)慢慢看了理解~
将在Word中制作好的表格转换成Excel表格，是一件看似很普通的工作。
例如，一份已经在Word中编辑好价格表，需要以Excel表格形式报出。
一般说来，只要将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴即可。
但是，如果Word表格的单元格中，有多段文字，用上述方法转换会出问题。即，
Word表格粘贴到Excel后，有多段文字的单元格，会显示出是，有多个单元格组成的，仅仅是它们之间的单元格框线“隐藏”(视图上显示灰色，不打印)了。
更麻烦的是，那个单元格所在行的其它单元格，均为成为合并单元格。原来Word表格的一行，在Excel中，“占用”了多行。不但难看，且给编辑带来诸多不便。
解决方法是：
第一步，在Word中，用“编辑”·“替换”命令，将所有单元格中的分段取消。即，
在“查找和替换”对话框的“替换”选项卡上，“查找内容”框中输入(特殊字符)段落标记，且让“替换为”框中空白，然后单击“全部替换”。
第二步，将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴。
第三步，在内容需要分段的单元格中，用快捷键-“Alt+Enter”分段。
提示：不能在Excel中，采用合并单元格的方法，来解决问题。因为，单元格合并后，只能保留，原位于左上方的那个单元格中的内容，其它单元格中的内容会被删除。
这个方法真的很好用，解决了我们将WORD表格转换成EXCEL时有合并单元格的问题，方便我们进行下一步的操作!
将EXCEL转成图片
首先在你excel表格中选定你想转成图片的部分 例如：
按下shift键，然后在标题栏下按编辑下拉菜单中就会出现复制图片
按下复制图片按钮会出现以下情况，选择外观：如屏幕所示，格式：图片
然后打开开始、程序、附件、绘图程序，选择粘贴，根据内容裁剪好合适的大小(xp win7系统方法相同) 方法如图：
上图粘贴
上图裁剪
上图为保存格式。到此大功告成!希望对你有帮助!!!
问题描述：无法打开Excel表格文件.
解决办法和步骤：
Excel打不开症状一：某个Excel表格文件打不开了，Excel主程序可以打开。
解决方法：Excel2003设置：打开Excel，选择工具--选项--常规中把 “忽略其他应用程序”去掉勾就可以了。
Excel2007中的设置：选择Excel选项-->高级-->常规-->“忽略使用动态数据交换(DDE)的其他应用程序”勾去掉。
Excel打不开症状二：新建Excel文件保存以后可以正常打开，但是以前的Excel文件打不开了。
解决方法：①先打开Excel，然后单击“文件”中的“打开”;
②在弹出的“打开”对话框中选择打不开的Excel文件，然后点击右下角“打开”旁边的下拉箭头，选择“打开并修复”即可。
Excel打不开症状三：如果按照上面方法使用“打开并修复”还不能解决问题可以参考下面方法。
解决方法：①在一个空白的Excel表格中选择菜单栏上的“数据”-->导入外部数据-->导入数据;
②在“选取数据源”中找到文件位置，然后“打开”;
③此时会弹出一个“选择表格”，选择第一个然后“确定”;
④在“导入数据”中选“确定”按钮就OK了。此方法还是非常有效了，本人试过多次，都有效!
Excel打不开症状四：双击Excel文件时提示“该文件可能是只读的，或者你要访问的位置是只读的，或者文件所在的服务器没有响应。”
解决方法：导致此错误的原因是C盘的磁盘空间不足，可以删除一些多余的程序或使用磁盘清理程序，同时还应该删除Excel临时文件，找到指定目录：C:Documents and Settings(这里是您的计算机名，默认是administrator)Application DataMicrosoftExcel，将文件夹里面所以内容删除，然后重新打开试试。
长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
一、启动 excel 单击开始→单击程序或所有程序→指向microsoft office→单击office excel2003
二、保存excel 单击文件→单击保存→在弹出的对话框中选择需要保存位置输入文件名称→单击保存
三、关闭excel 单击右上角的关闭按钮→要保存单击“是”→不保存单击“否”
四、相关概念
一个工作簿(book)中通常包含3个工作表(sheet)它默认的是sheet1sheet2sheet3 一个工作簿中最多可以有255个工作表, 一个工作表由65536行和256列组成
工作表中空白的方框称为单元格单元格是工作表的组成部分
五、如何选择需要的对象
选择一个单元格:直接在要选择的单元格上单击 选择一行:将鼠标指针指向要选择的行号上单击 选择多行:就在要选择的行号上拖动 选择一列:就在列标上单击即可
选择多列:在要选择的列号上从第一个要选择的列开始拖动
选择整个工作表:单击工作表上的全选按钮(在行和列交界的那个空白的
1 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
单元格) 选择多张工作表:按住ctrl不放在要选择的工作表标签上单击
在excel中，插入图片、艺术字、等方法和word是一样的
六、在单元格内输入内容
选中要输入内容的单元格直接输入需要的内容即可
如何在不同的单元格内一次性输入同样的内容:选中要进行输入内容的单元格→在编辑栏内输入需要的内容→按一次ctrl+Enter
七、其他值的输入
1分数先输入一个0,按一次空格键,再输入1/2; 2时间：输入当前时间用”ctrl+shift+;”
日期：输入“1/2”;表示是1月2日.输入当天的日期按ctrl+;
八、如何给工作表改名
指向要改名的工作表标签→单击鼠标右键→单击重命名→输入新的工作表标签名称在任意一单元格单击即可
九、如何给工作表标签设置颜色
指向要改变颜色的工作表标签→单击鼠标右键→单击工作表标签颜色→选择需要的颜色→单击确定
十、如何插入工作表
单击要插入工作表旁边的工作表标签→单击鼠标右键→单击插入工作表→单击确定
十一、如何改变工作表标签的位置
将鼠标指向要插入的工作表标签上→按住鼠标左键不放拖动工作表标签
2 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
到需要的位置放开即可 十
二、如何删除不要的工作表
将鼠标指向要删除的工作表标签上→单击鼠标右键→单击删除
四、如何隐藏工作表 单击窗口→单击隐藏 重复一次可以取消隐藏 十
三、移动或复制工作表
1在工作表标签上右键→单击“移动或复制工作表”，→然后在弹出的移动或复制工作表“对话框”中选择需要的选项→单击确定;如果是复制就在建立副本的前面单击打“” 十
四、改变默认工作表个数
单击“工具”→单击“选项”→单击“常规”选项卡;→在新的工作簿里的工作表后面输入你要设置的工作表个数→单击确定 单元格的操作
十五、清空单元格内容
选中要清空内容的单元格→单击鼠标右键→单击清除内容 十
六、如何有规律的填充数据
1在要填充数据的第一个单元格内输入内容→将鼠标指向该单元格的右下方→当鼠标变成十字型时按住鼠标不放拖动到需要的位置放开→单击旁边的自动填充按钮→选择以序列方式填充 如:要填充135„..101或246„..102 在第一个和第二个单元格输入值→选中→将鼠标指向该单元格的右下方
3 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
→当鼠标变成十字型时按住鼠标不放拖动到需要的位置放开 单元格的操作
十七、如何设置数字类型
选中要进行设置的内容→单击格式→单击数字→单击需要的类型→单击确定
十八、设置对齐方式
选中要进行设置的区域→单击格式→单击单元格→单击对齐→在方框内进行设置→单击确定 十
九、平均分布行与列：
选中多行或多列>>> 进行随意调整任意一行或列的宽或高度。
二
十、单元格符号的含义：
“#”，表示单元格列宽不够。 二十
一、如何输入身份证号码
选中单元格格式 单元格文本。
在录入数字之前加英文 “
’
”. 二十
二、强制换行： ALT+ENTER 二十
三、设置字体字号
选中要进行设置的区域→单击格式→单击单元格→单击字体→在方框内进行设置→单击确定 也可以设置边框图案等 二十
四、合并单元格
4 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
选中要进行合并的单元格→单击格式工具栏上的合并及居中按钮
二十五：每次选定同一单元格
有时，为了测试某个公式，需要在某个单元格内反复输入多个测试值。但每次输入一个值后按下Enter键查看结果，活动单元格就会默认移到下一个单元格上，必须用鼠标或上移箭头重新选定原单元格，极不方便。如果你按“Ctrl+Enter”组合键，则问题会立刻迎刃而解，既能查看结果，当前单元格也仍为活动单元格。
二十六：将Word表格转换为Excel工作表
有时需要将WPS/Word编辑过的表格转换成Excel工作表，可利用Excel的数据库操作、宏操作等功能进行分析、处理，转换方法非常简单: 1.启动Word，打开Word文档，拖动鼠标，选择整个表格，再在“编辑”菜单中选择“复制”命令; 2.启动Excel，打开Excel工作表，单击目标表格位置的左上角单元格，再在“编辑”菜单中选择“粘贴”命令。 二十
七、固定显示想要的列
不少人在工作中用Excel做工资表时，由于工资表项目很多，往往一行信息不能同时显示在屏幕上，给日常的查询和变动工资输入带来一定困难。用下面的方法就可以解决这个问题:首先在表格中单击要冻结列的右边一列，然后单击“窗口→冻结窗格”命令即可。如果你想撤消此功能，点击“窗口”菜单，原来“冻结窗口”命令变成“撤消窗口冻结”，单击它即可。
二十八、如何使用自动求和
5 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
选中要计算的单元格并多选择一个空白的单元格→单击常用工具栏上的自动求和按钮→将鼠标指向得到结果的单元格按住鼠标左键不放拖动即可
二十九、如何使用自动平均值
选中要计算的单元格并多选择一个空白的单元格→单击常用工具栏上的自动求和按钮下的平均值→将鼠标指向得到结果的单元格按住鼠标左键不放拖动即可
三
十、如何用函数计算一个人的年龄?
将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"Y")符号要在英文输入法状态下输入才有效按一次回车键即可
三十
一、如何用函数计算某一日期至今间隔的月数?
将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"M")符号要在英文输入法状态下输入才有效按一次回车键即可
三十
四、如何用函数计算某一日期至今间隔的天数?
将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"D")符号要在英文输入法状态下输入才有效按一次回车键即可
三十
五、如何用函数计算不算年数间隔的天数?
将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"YD")符号要在英文输入法状态下输入
6 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
才有效按一次回车键即可
三十
六、如何用函数计算某一日期至当前日期的不计月份和年份的间隔天数. 将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"MD")符号要在英文输入法状态下输入才有效按一次回车键即可
三十
七、如何用函数计算某一日期至当前日期的不计年份的间隔月数. 将光标放在要得到结果的单元格输入=DATEDIF("1973-4-1",TODAY(),"YM")符号要在英文输入法状态下输入才有效按一次回车键即可 三十
八、使用if函数
它是条件函数：它可以判断一个数值的结果：如优、良、中、差、合格、不合格;或被什么学校录取
将要进行设置的数据写好→在相应的单元格输入例=if(a1>90,””,if(a1>80,””,if(a1>70,””,if(a1>60,””,””有多少个条件就按多少个“))))括号→按一次回车键，再拖动即可。
注：输入符号要在英文输入法状态下，并且一次只能算出一列。设置标准的列宽在列与列的交界处双击 三十
九、如何提取身份证号码上的年月日 1种方法：
先在A1单元格输入身份证号码→在要得到结果的单元格粘贴 =IF(LEN(A1)=15,MID(A1,7,2)&"-"&MID(A1,9,2)&"-"&MID(A1,1,2),MID
7 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
(A1,7,4)&"-"&MID(A1,11,2)&"-"&MID(A1,13,2)) 即可,后面的拖动就可以了 2种方法：
先在B2单元格输入身份证号码→在要得到结果的单元格粘贴=IF(LEN(B2)=15,19,"")&MID(B2,7,6+(LEN(B2)=18)*2) 四
十、公式的输入的含义
方法一：在编辑栏中输入公式方法二：在单元格里直接输入公式 注意：在按Enter键确认输入的公式之前，公式实际上并没有被存储在单元格中，可以单击编辑栏左边的“取消”按钮或按Esc键来取消输入的公式。
四十
一、函数的中文含义 Sum:求和 Average:平均值 Max:最大值 Min:最小值 Rank:求名次
=RANK(A1:A12,$A$1:$A$12) 如何使用：
先要在得到结果的单元格内输入“=sum()”“()”内输入要计算的单元格名称，不相连的“(A1，A5，B2，B4)” 相连的“(A1：D5)” 四十
二、使用自动筛选
选定要进行筛选的单元格→单击数据菜单中的筛选命令中的自动筛选→
8 长城电脑培训：做中国最好的县级电脑培训机构、传播最前沿的电脑知识
可通过标题行中出现的筛选按钮选择显示符合条件的 四十
三、如何创建图表
在Excel将表格的样式做好→选中要做图表的区域→单击插入→单击图表→在弹出的对话框中需要你需要的样式→根据提示操作完成即可. 四十
四、使用批注
选中要进行设置的单元格→ →单击插入批注→ →在弹出的方框中输入内容→ →下次指向该单元格即可看到相应的内容 四十
五、文本串联符的使用
选中要得到结果的单元格→输入=号→用鼠标单击第一个要串联的单元格→输入&符号→再用鼠标单击最后一个要进行串联的单元格即可 四十
六、引用操作符的含义
(:)冒号:表示两个单元格之间的所有单元格,如B5:D8表示包含:B5B6B7B8C5C6C7C8D5D6D7D8 (,)表示将引用多个单元格的区域合并为一个,如:=SUM(A1,A8,B3)表示求A1A8B3的合.、 四十
七、如何排序
将鼠标放在表格的任意一数据单元格→单击数据→单击排序→在有标题栏的前面单击→选择主要关键字(如果主要关键字内的结果有相同的结果就继续选择次要关键字)如果还有就再选择第三关键字→单击确定 在里面排序的方式要选择一样的.
一、Excel文件转成矢量数据文件步骤： 首先通过添加按钮，添加Excel表格文件
然后点击sheet文件，右键Data，出现Export，输出成为.dbf格式的表格文件。
然后保存。输出后，添加到arcmap中，点击EXCEL文件，右键，出现Display XY Data，进入界面后进行X坐标和Y坐标，以及投影坐标的设置。X坐标代表东坐标，也就是经度坐标，Y坐标代表北坐标，也就是纬度。在本EXCEL文件中横坐标是东坐标，纵坐标是北坐标，如
下图。
且横坐标有19的带号，加之文件中说明是北京54坐标系，高斯克吕格投影，6度分带，所以我们通过上图的Edit添加投影信息，选择Projected Coordinate Systems，中的Gauss Kruger
中的Beijing 1954坐标系，如下图：
设置好后，点击确定，则会生成一个EXCEL EVENT文件，如图所示：
然后点击此文件右键，Data ，Export Data，输出成为.Shp文件
则生成了矢量点数据。
二、矢量数据变换投影步骤
点击Arctoolbox中的Data Management Tools中的Projections and Transformations，选择Feature下的project，设置投影
Output Coordinate System，中选择Geographic Coordiante Systems下的World中的WGS 1984投影，这个Google Earth和遥感影像，DEM数据的通用投影。然后在Geographic Transformation中选择Beijing_1954_To_WGS_1984_1，重庆地区选择这个转换参数。点击确定则生成了WGS1984投影的文件，excelpoint_project文件。
三、矢量文件转为Google Earth可读文件
点击Arctoolbox中的Conversion Tools中To KML工具下的Layer To KML，
生成了.kmz文件，则可在Google Earth中直接打开。
四、生成矢量点文件的坐标信息
右键点击excelpoint_project文件，点击Open Attribnute Table，如图所示，点击左上角的白色图标中的Add Field，添加一个字段属性
出现，设置名字为X_coord，为X坐标，类型为Double，点击OK
然后点击这个字段，右键，选择Calculate Geometry
点击Yes，Property选择X Coordinate of Point，生成WGS 1984投影的坐标，单位是Decimal Degrees，点击OK
则可见生成了经度坐标，纬度坐标同步骤。
推荐阅读：
cad表格转excel工具（精选2篇）04-19
excel和cad表格交互（精选6篇）04-19
购销合同表格04-20
老师评语表格06-08
窗帘报价表格06-16
质安部表格04-11
自检自查表格05-12
会计专业简历表格05-25
公司合同管理表格05-29
每日工作汇报表格04-04
