大家好,感谢邀请,今天来为大家分享一下execl怎么读的问题,以及和办公软件excel发音的一些困惑,大家要是还不太明白的话,也没有关系,因为接下来将为大家分享,希望可以帮助到大家,解决大家的问题,下面就开始吧!
本文目录
一、execl计算社保个人缴纳时如何设置见分进角
(一)基数到底要保留几位小数?
观点1:文件中提到“当年个人缴费基数按职工本人上年月平均工资 *** 收入确定。个人缴费基数的上限和下限,根据本市公布的上年度全市职工月平均工资的300%和60%相应确定,其数值根据全市职工月平均工资计算,按四舍五入原则先进到角再进到元。”据此有HR认为基数应该是算到元,即不保留小数位。
观点2:文件中提到“首次参加工作和变动工作单位的缴费个人,应按新进单位首月全月工资 *** 收入确定月缴费基数。”所以既然是工资 *** 收入,必然有角有分,据此有HR认为基数应该根据单位发放的工资总额的实际情况保留两位小数或者一位小数。
分析:观点1的认识是比较片面的,因为文件中所说的“按四舍五入原则先进到角再进到元”是针对缴费基数的上限和下限,而不是针对在上限和下限之间的缴费基数,即并未规定上下限之间的基数也要四舍五入进到元,实践中有很多HR对此有所误解。观点2有一定的合理 *** ,就目前笔者了解到,社保中心一般要求缴费基数进到角即可,分位需进行四舍五入,即保留一位小数,如果保留到分位则社保 *** 中将无法进行录入。
按照文件规定确定基数以后,只要将个人的缴费基数分别乘以相应的个人部分的社保比例,再见分近角(详见下文)、汇总相加,即可算出员工每月的社保费用。
(二)单位部分社保费用的计算规则
社保费用分单位部分和个人部分,如果从社保中心拷取实时表或者按我上述的 *** 计算以后,个人部分社保费用可以保证准确 *** ,但是单位部分的社保费用又要如何计算呢?是将每个员工的基数乘以单位部分的比例后再汇总相加吗? *** 是错误的,因为这种计算 *** 和社保计算单位部分的规则是不同的。
文件中规定“缴费单位按月缴纳社会保险费的基数按单位内缴费个人月缴费基数之和确定”。所以在确定了个人缴费基数后,应先将所有的个人缴费基数汇总相加之后再分别乘以对应的单位部分的社保比例——以城保比例为例:养老22%、基本医疗10%、地方附加医疗2%、失业1.7%、工伤0.5%、生育0.8%,将乘出的结果分别见分近角,再汇总相加以后就是单位部分的社保费用。
举例来说,某大型企业的员工缴费基数之和为1882520.6元,那么计算单位部分费用的式子为——养老保险=1882520.6×0.22=414154.53200……(见分近角)≈414154.6元;同理可以算出基本医疗、地方附加医疗、失业、工伤、生育的具体费用,再分别见分近角,即见到有分就进到角,不管是1分还是9分(注意和四舍五入的区别),最后再将五大保险的计算结果相加,这样算出的才是社保缴费通知书上所列出的单位部分的金额。此处应注意两点:1、计算时医疗保险12%应拆分成基本医疗10%和地方附加医疗2%分别计算;2、注意见分近角而不是四舍五入。
由于缴费比例散见于各大险种的具体文件之中,网上有整理好的比例表格,因此本文就不再赘述,提醒HR新手注意,根据各单位不同情况,单位缴纳的城镇社会保险中可能会有两种特殊情况,即外省市非城镇户籍(三险)和镇保转城 *** 渡人员,他们的社保缴费基数和比例需另行通过相关文件学习或参阅本刊前几期的相关文章。
2012年上海市社会保险费缴费标准参考 *** :
通过上文的学习我们已经了解了社保费用计算的基本 *** ,接下来我们就要使用excel来实现见分近角这一计算功能,大家都知道excel的函数功能十分强大,也有HR同僚通过百度搜索到了一些有见分近角功能的函数,如:ROUN *** 函数和CEILING函数。但是使用之后发现在计算某些员工社保费用个人部分时还是会有一角钱的差异,这是什么原因造成的呢?让我们先来看一个例子:某员工社保缴费基数为5917.6元,录入到excel表格中的B2单元格中,在C2单元格录入公式【=ROUN *** (B2*0.08,1)】来计算养老保险个人部分,得出结果为473.5元,而社保实时表中显示的正确费用应为473.4元,多了一角钱。用计算器进行核算后发现5917.6×0.08=473.4080……,虽然计算结果分位显示是0,但是小数点后第三位显示是8,所以ROUN *** 函数先把第三位进到了第二位,因此第二位变为1,然后再进到之一位,即角位,所以会多了一角。这显然不是我们所需要的见分进角的结果,需要在此公式上进一步进行改进,使计算结果在不进位的情况下先保留两位小数再进行见分进角的计算。
改进以后的公式为【=ROUN *** (ROUNDDOWN(B2*0.08,2),1)】
公式解析:中间部分【ROUNDDOWN(B2*0.08,2)】解释为“向下舍入”,运用到此处就是保留计算结果的2位小数,剩下的都舍去。外层嵌套就是ROUN *** 函数,解释为“向上舍入”,后面的1解释为保留一位小数,这样即可实现见分近角的功能。其余几项社会保险都可以套用此公式进行核算。
灵活使用改进以后的公式就可以准确计算社保个人部分和单位部分的费用,合理测算人力资源成本,对实务工作帮助很大。
当然,excel的使用 *** 不是唯一的,用另一个函数也可以实现此项功能。还是上面的例子,公式为【=INT(B2*0.08*10+0.9)/10】(此公式由HRM徐旌豪提供),经笔者实践测试,用此公式也可实现同样的功能,供各位参考学习。
扩展阅读:【保险】怎么买,哪个好,手把手教你避开保险的这些"坑"
二、Excel主要应用在什么
1、Excel主要应用在管理、统计财经、金融等众多领域。
2、Excel是微软办公套装软件的一个重要的组成部分,它可以进行各种数据的处理、统计分析和辅助决策 *** 作,一般的文字排版、表格、计算、函数的应用等都用EXCEL来解决。
3、与其他人共享工作簿,并始终使用最新版本,以实现实时协作,从而帮助更快完成工作。借助 Microsoft 365,在 *** 、桌面和 Web中处理 Excel文件。
4、Microsoft Office最初的版本在 *** 所推出,最初的运作是在苹果电脑的Macintosh平台之上。Microsoft Office自从推出文字处理、电子表格以及演示稿 *** 的软件后,直至近年一直居于领导地位。
5、从 Microsoft Office 2013(Office 15)起,Office更多的功能提供跨平台支持,并提供了供行动 *** 作 *** Android和IOS版本的程序,功能主要可用于 Desktop版本。
6、自 Microsoft Office 2016版本发行起,各平台相同版本号的更新内容大致相等。
三、vb中怎么读取excel文件
1、调用Excel对象打开EXCEL文件后,读取文件内容
***************************************
在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
之一层:Application对象,即Excel本身;
第二层:workbooks对象集,指Excel的工作簿文件
第三层:worksheets对象集,表示的是Excel的一个工作表;
第四层:Cells和Range对象,指向Excel工作表中的单元格。
新建立一个VB的工程,先放一个button,名称为Excel_Out。先定义好各层:
Dim xlapp As Excel.Application'Excel对象
Dim xlbook As Excel.Workbook'工作簿
Dim xlsheet As Excel.Worksheet'工作表
我们打算做的是:打开/新建一个excel,在其中对某工作表的一些单元格修改其值,然后另存为test.xls文件。
Setxlapp= CreateObject("Excel.Application")'创建EXCEL对象
'Set xlbook= xlapp.Workbooks.Open(App.Path&" *** ;test.xls")'打开已经存在的test.xls工件簿文件
Setxlbook= xlapp.Workbooks.Add'新建EXCEL工件簿文件
'xlbook.RunAutoMacros(xlAutoOpen)'运行EXCEL启动宏
'xlbook.RunAutoMacros(xlAutoClose)'运行EXCEL关闭宏
xlapp.Visible= True'设置EXCEL对象可见(或不可见)
Setxlsheet= xlbook.Worksheets(1)'设置活动工作表''
''~~~当前工作簿的之一页,这里也可以换成“表名”
'下面就是简单的在一些单元格内写入数字
xlsheet.Cells(i, j)= j'当前工作簿之一页的第I行第J列
Withxlsheet'设置边框为是实线
.Range(.Cells(7, 1),.Cells(28, 29)).Borders.LineStyle= xlContinuous
Setxlsheet= xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2)= 2008'在第二页的第7行第2列写入2008
xlsheet.S *** eAsApp.Path&" *** ;test.xls"'按指定文件名存盘
'Setxlbook= xlapp.Application.Workbooks.Add'新建一空白工作簿
xlapp.Quit'结束EXCEL对象'xlapp.Workbooks.Close
Setxlapp= Nothing'释放xlApp对象
这样,我们就可以简单的对excel文件进行 *** 作了。下面再放一些我从网上查到的资料吧,还挺有用的:
eole=CREATEO *** ECT(′Excel.application′)
3.设置第3个工作表为激活工作表
eole.Worksheets(〃sheet3〃).Activate
eole.Workbooks.Open(〃c: *** ;temp *** ;ll.xls〃)
eole.Caption=〃VB应用程序调用Microsoft Excel〃
eole.cells(1,4).value=XM(XM为数据库字段名)
8.设置指定列的宽度(单位:字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9.设置指定行的高度(单位:磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(设定行高为1厘米,1磅=0.035厘米)
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
eole.ActiveSheet.Columns(4).PageBreak=0
12.指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)
eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃
eole.ActiveSheet.PageSetup.CenterFooter=〃第&P页〃
16.设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24.设置页面纸张大小(1-窄行8511 39-宽行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
eole.ActiveSheet.UsedRange.Copy
eole.ActiveSheet.Range(〃A1:E2〃).Copy
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
eole.ActiveSheet.Rows(2).Insert
eole.ActiveSheet.Columns(2).Insert
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃
eole.ActiveSheet.Cells(1,1).Font.Size=25
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
eole.ActiveSheet.Columns(1).Font.Bold=.t.
eole.ActiveSheet.Cells(1,4).ClearContents
eole.ActiveWorkbook.S *** eAs(〃c: *** ;temp *** ;22.xls〃)
***************************************
2、调用ADO对象以数据库方式打开EXECL文件后,以SQL语句方式读取文件
***************************************
Set conn= New ADODB.Connection
conn.Open"DRIVER={Microsoft Text Driver(*.txt;*. *** v)};" DBQ="& App.Path&";","",""
rs.Open"select* from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText
***************************************
好了,本文到此结束,如果可以帮助到大家,还望关注本站哦!