随着国家及社会对高等教育办学要求的不断提高，高校围绕“改善育人环境、提升育人质量、推动学校发展”等方面的工程建设投资不断加大，如何确保有限的建设资金发挥更大的办学效益，如何确保工程建设与廉政建设同步进行，开展工程审计已经成为有效监督手段。
一、审计准备阶段的工作要点（一）建章立制，提升观念。要在认真学习、深入理解上级有关文件精神的基础上，建立符合本校管理特色的建设项目全过程跟踪审计制度，对有关全过程审计内容、审计程序、审计要求等作出明确的规定。并通过向领导层汇报、与工程管理部门沟通、部门宣传等适当形式加大对全过程跟踪审计的宣传，争取得到相关方的理解、配合与支持，尤其工程管理部门要主动适应审计新要求、积极转变思想观念。
（二）各负其责，明确分工。由于工程项目建设是一个有多方参与的综合性活动，工作期限长、投入规模大，全过程跟踪审计只有得到各参与方的积极配合、主动接受，才能形成工作合力，项目建设才能顺利进行。在全过程跟踪审计的准备阶段，一定要明确参与方（主要包括内审机构、造价咨询机构、施工单位、监理单位、建设部门）各自的工作职责，以及在全过程跟踪审计中需要履行的义务、配合事项、工作要求等等， ...
一、科研经费审计中发现的主要问题（一）票实不符，虚列支出，多手段套取科研资金对多所高校的科研经费审计中基本都发现此类问题，尤其在横向课题经费管理使用中存在的问题更为突出。有些课题组分派学生收集汽车票、火车票、飞机票、购物发票等，隔一段时间便进行报销，导致课题经费大量开支差旅费、招待费、通讯费等。此外，车费、餐饮费等在科研经费支出中也占有相当大的比例，甚至还有人用科研经费购房、购车和家具等。
在课题差旅费支出中，非课题组成员在项目经费中报销差旅费用；更有课题负责人在差旅费中开支家人、亲属等国内外旅行费用，甚至有用作废机票报销差旅费的现象等。在课题经费中大量报销汽油费，不连贯或内容不真实的通行费、过桥费票据，开支个人车辆的保险费、维修费等。
在课题招待费支出中，课题组报销大量的、大额餐费票据，有些课题组将家庭餐费票据从课题经费中报销，报销内容不符合国家规定，严重超出招待费标准和支出比例；收集大量餐费发票集中报销；没有相应的出差记录报销异地餐费等。通过经费划拨，将在学校后勤集团日常餐费等支出作为专家住宿费及住宿期间的餐费在课题经费中列支[更多审计干货关注公众号审计圈]。
在课题通讯费支出中， ...
一、工期
施工工序安排不当，导致施工过程中产生等待，或停工待料。
现场人员缺乏对整体工作内容的认识。
施工班组各行其职，缺乏整体协调。
命令或指示不清楚。
未能确实督导工具、材料、设备等应放置于一定处所。
不应超时的工作，造成超时施工。
未检视每一阶段的工作，是否供给合适的工具与设备，如水电管线等。
对员工督导不力，工作散漫，效率低。
技术人员和有经验的施工人员不足。
缺乏施工经验的工人太多。
流程繁复，要求填写报告及申请表格太多。
纵容聊天、擅离工作岗位、浪费时间的坏习惯。
疏于监督，工序衔接跟不上，造成施工空白期。
员工的执行力跟不上。
出现问题是，不能立即清查出原因，导致误工。
不按规范施工，工程质量不达标，导致返工。
与监理方沟通不畅，频繁停工整改。
二、材料
监管不严，进场材料不符合要求。
材料领取不规范，钢筋、水泥等主材浪费或流失。
材料随意堆放，未考虑施工及加工方便。
（一） 材料-钢筋
钢筋专业知识不够，图纸看不明白，就开料单。
因图纸破损、难懂、看错，造成加工失误。
技术交底含糊不清，没有明确技术指标要求。
钢筋加工机 ...
关于主板、科创板、创业板、北交所IPO审核工作流程，或许有些人还不是很了解。尚普君今天将IPO详细审核流程分享给各位有需要的人士。
主板证监会IPO审核工作流程分为受理、反馈会、初审会、发审会、封卷、核准发行等主要环节，分别由不同处室负责，相互配合、相互制约。对每一个发行人的审核决定均通过会议以集体讨论的方式提出意见，避免个人决断。
一、基本审核流程图123456flowchart LR A[受理]-- 预先披露 -->B[反馈会] B-- 反馈意见回复及预先披露更新 -->C[初审会] C-->D[发审会] D-- "发审会意见回复（如有）" -->E[封卷] E-- "报送会后事项文件(如有)" -->F[核准发行]
二、首发申请审核主要环节简介（一）受理和预先披露中国证监会受理部门根据《中国证券监督管理委员会行政许可实施程序规定》（证监会令第138号，以下简称《行政许可程序规定》）、《首次公开发行股票并上市管理办法》（证监会令第141号）、《首次公开发行股票并在创业板上市管理办法 ...
一、针对执行中央“八项规定”不严问题1、“不严格执行《党政机关接待管理规定》，超标准、超范围重复接待仍然存在等问题”的问题整改措施：
(1)完善制度，细化管理。修订印发《XX市XX机关财务管理制度》，对包括公务接待在内的各项费用开支进行更加严格细致的制度规范，进一步提高机关财务规范化管理水平；
(2)全面排查，加强整改。对照党政机关公务接待最新标准对2020年以来的公务接待情况进行全面排查，严格把关接待范围与标准、建立完善公务接待事前审批登记程序、强化票据合规性检查力度，做好整改，规范管理。
2、对“下属单位存在违规发放津补贴问题”整改措施：
(1)有错必纠，及时整改。对201X年市XX中心违规发放津补贴37385元问题进行严肃问责，在系统内通报批评，及时进行了清退，整改到位。责令XX站清退2015年超过审批额度发放的绩效工资39.2万元，目前已全部清退到位。
(2)实地检查，限时整改。以津补贴发放情况为重点对3家直属事业单位财经纪律执行情况、财务制度落实情况进行实地检查，针对检查中发现的问题下达整改通知责令限期整改，目前相关问题已全部整改到位；
(3)加强指导，强化管理。转发传达省、 ...
一、财务票据及其附件“残缺不全”1、使用非有效票据进行财务报销。接收和使用内部结算票据及其他往来票据，使用如市场上购买的非税务部门监制的发票、盗版发票等网上不能查询的票据和不按国税、财政等各类票据用途和类别使用票据以及白条进行财务报销。不仅规避了税收，扰乱了票据管理秩序，掩盖了支出事实，而且导致财务管理的混乱。
2、财务报销票据要素难以完整规范。报销无印章发票、发票无使用单位“抬头”、报销内容不详细等；报销附件不齐全或无附件、支出理由不充足的票据，未列明支出项目及支出原因；报销业务与发票时间、或其所附的附件时间、或内容与票据领用单位、开票单位不一致、不对称；财务报销业务未能按照相关政策及单位内控制度管理程序，对特殊或重大的支出事项进行必要的审核审批，影响了财务报销业务的真实性。
二、各类违规支出行为“屡禁不止”1、发放补助补贴奖励等“踩踏红线”。（1）发放政策不支持的补助补贴津贴奖励等。
踩着政策红线发放加班补助、值班补助、特岗津贴，超标准、超月份发放奖励性工资或发放奖励性工资无政策依据或政策依据不足。
（2）自设名目发放补助补贴津贴奖励等。
依据惯例，自设名目发放司机出车补助、课题奖 ...
一对多查询的方法有很多，这里附上VBA代码，详细过程请看文章最后的视频。
方法一：12345678910111213141516171819202122Sub 单元格循环() Dim i, j, k, irow Dim cel As Range Dim t As Double t = Timer Sheets("查询").Range("a6:d65536").ClearContents Dim str As String str = Sheets("查询").Range("b3") k = 5 With Sheets("数据源") For Each cel In .Range("a2:d" & .[a65536].End(3).Row) 'xlup If cel.Value = str Then k = k + 1 ...
大家好，模糊查询，在平时工作中会经常遇到。
本期呢，会将模糊查询的两个最常用的方法分享给大家。
1、instr函数2、like运算符
在开始之前，我建议先把上一期的【VBA案例002】一对多查询看一遍。因为本次内容是基于上次的文件衍生出来的。并且代码也大同小异。
先附上VBA代码，详细内容，请看文章最后的视频哦！~
方法一：123456789101112131415161718192021222324Sub 单元格循环() Dim i, j, k, irow Dim cel As Range Dim t As Double t = Timer Sheets("查询").Range("a6:d65536").ClearContents Dim str As String str = Sheets("查询").Range("b3") k = 5 With Sheets("数据源") For Each cel In .Rang ...
VBA实现VLOOKUP函数功能
数据
VBA
姓名
年龄
姓名
年龄
潘全桂
24
荆琛泽
霍栋保
35
吉栋松
荆琛泽
24
百里刚晓
越伦信
25
农康雪
吉栋松
34
越伦信
桂真顺
27
霍栋保
百里刚晓
19
潘全桂
农康雪
33
桂真顺
直接附上VBA代码：12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364'Option ExplicitSub 单元格循环() Dim cel As Range Dim cel2 As Range Dim t As Double t = Timer [e6:e13] = "" For Each cel In Range("a6:a13") For Each cel2 In ...
大家好！今天我们分享一个有关VBA自动填充表单的案例，帮助大家简化表单填写的过程，提高工作效率。
我们经常需要填写大量重复的表单，例如报销单、数据输入表格等，并且每个表单都有各自的字段需要填写。手动逐个填写这些表单既耗时又容易出错。
使用VBA自动填充表单可以极大地简化这一过程，让我们能够更专注于其他重要的工作。
譬如说，现在有两个表格，一个是人员清单，另一个的表单。
现在要做的是，将人员清单中的每一行信息，填到表单里，并导出为一个单独的工作簿。
下面是VBA的代码分享，你也可以观看下方的视频解析：
方法一：1234567891011121314151617181920212223Sub 表格填充() Dim i, j, k Dim xinXiSht As Worksheet Dim qingDanSht As Worksheet Set xinXiSht = ThisWorkbook.Worksheets("信息卡") Set qingDanSht = ThisWorkbook.Worksheets("人员清单" ...
