一、工期
施工工序安排不当，导致施工过程中产生等待，或停工待料。
现场人员缺乏对整体工作内容的认识。
施工班组各行其职，缺乏整体协调。
命令或指示不清楚。
未能确实督导工具、材料、设备等应放置于一定处所。
不应超时的工作，造成超时施工。
未检视每一阶段的工作，是否供给合适的工具与设备，如水电管线等。
对员工督导不力，工作散漫，效率低。
技术人员和有经验的施工人员不足。
缺乏施工经验的工人太多。
流程繁复，要求填写报告及申请表格太多。
纵容聊天、擅离工作岗位、浪费时间的坏习惯。
疏于监督，工序衔接跟不上，造成施工空白期。
员工的执行力跟不上。
出现问题是，不能立即清查出原因，导致误工。
不按规范施工，工程质量不达标，导致返工。
与监理方沟通不畅，频繁停工整改。
二、材料
监管不严，进场材料不符合要求。
材料领取不规范，钢筋、水泥等主材浪费或流失。
材料随意堆放，未考虑施工及加工方便。
（一） 材料-钢筋
钢筋专业知识不够，图纸看不明白，就开料单。
因图纸破损、难懂、看错，造成加工失误。
技术交底含糊不清，没有明确技术指标要求。
钢筋加工机 ...
关于主板、科创板、创业板、北交所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实现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代码，详细过程请看文章最后的视频。
方法一：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自动填充表单的案例，帮助大家简化表单填写的过程，提高工作效率。
我们经常需要填写大量重复的表单，例如报销单、数据输入表格等，并且每个表单都有各自的字段需要填写。手动逐个填写这些表单既耗时又容易出错。
使用VBA自动填充表单可以极大地简化这一过程，让我们能够更专注于其他重要的工作。
譬如说，现在有两个表格，一个是人员清单，另一个的表单。
现在要做的是，将人员清单中的每一行信息，填到表单里，并导出为一个单独的工作簿。
下面是VBA的代码分享，你也可以观看下方的视频解析：
方法一：1234567891011121314151617181920212223Sub 表格填充() Dim i, j, k Dim xinXiSht As Worksheet Dim qingDanSht As Worksheet Set xinXiSht = ThisWorkbook.Worksheets("信息卡") Set qingDanSht = ThisWorkbook.Worksheets("人员清单" ...
大家好！书接上文。
有时候，我们需要处理多个工作簿，每个工作簿中包含一些特定的信息。为了将这些信息汇总到一个表中，我们可能需要手动打开每个工作簿，然后复制粘贴所需的数据。但这样做既费时又容易出错。
所以，使用VBA依然可以解决这个问题。极大地简化这一过程，让我们能够更专注于其他重要的工作。
举个例子，现在我们有100个工作簿。
需要从里边提取员工信息汇总到一个表里边。
猜猜看，用VBA处理这些需要多久？
下面是VBA的代码分享，你也可以观看下方的视频解析：
公共函数：
1234567891011121314151617Private Function filelist(folderspec, Optional pstr = "*.txt") On Error GoTo errline Dim fs, f, f1, fc, i, farr Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set ...
大家好！你是否在为数据去重感到烦恼？
今天，我们将分享两种高效的 VBA 方法，帮助你轻松应对数据去重难题。
举个例子。
我们要对以下数据的产品和型号进行数据去重，保留唯一值。
以下是VBA代码，你也可以直接观看下方的视频解析：
方法一：123Sub 方法一() Range("f1:h18").RemoveDuplicates Array(1, 2), xlYesEnd Sub
方法二：12345678910111213141516171819202122232425Sub 方法二第一次出现的值() Dim i, j, k Dim ar, br() ar = Range("a1:c18") ReDim br(1 To UBound(ar), 1 To UBound(ar, 2)) Dim d As Object, kw$ Set d = CreateObject("Scripting.Dictionary") 'd.CompareMode = vbTextCompa ...
