根据XX统一部署，202X年X月X日至X月X日，XX巡察组对X总工会党组进行了常规巡察。202X年X月X日，XX巡察组向X总工会党组反馈了巡察意见。X总工会党组完全拥护、照单全收、诚恳接受、坚决整改。截至202X年X月X日，在3个月集中整改阶段，巡察反馈的三个方面11项内容28个具体问题，已完成22个问题整改，完善制度1项，挽回经济损失3.209万元，需中长期整改的任务正在抓紧推进。根据《中国共产党巡视工作条例》《中国共产党党内监督条例》有关规定，现将X总工会党组巡察整改情况予以公布。
一、主要做法（一）统一思想，精心组织。巡察反馈会后，X总工会党组高度重视，把整改工作作为重要政治任务，切实担负起整改主体责任，党组书记、常务副主席主持召开党组专题会议和全体干部职工会议，传达了巡察反馈的整改问题，并提出整改要求，要求X总工会全体干部职工特别是班子成员要认真对照巡察反馈意见,结合本人职责认领问题，保证每个问题有人领、有人抓，确保整改落实到位。
（二）强化领导，明确职责。成立了整改工作领导小组，由党组书记任组长、其他班子成员任副组长、各部室负责人为成员的工作领导小组，确保各项整改工作部署到位 ...
一、财务票据及其附件“残缺不全”1、使用非有效票据进行财务报销。接收和使用内部结算票据及其他往来票据，使用如市场上购买的非税务部门监制的发票、盗版发票等网上不能查询的票据和不按国税、财政等各类票据用途和类别使用票据以及白条进行财务报销。不仅规避了税收，扰乱了票据管理秩序，掩盖了支出事实，而且导致财务管理的混乱。
2、财务报销票据要素难以完整规范。报销无印章发票、发票无使用单位“抬头”、报销内容不详细等；报销附件不齐全或无附件、支出理由不充足的票据，未列明支出项目及支出原因；报销业务与发票时间、或其所附的附件时间、或内容与票据领用单位、开票单位不一致、不对称；财务报销业务未能按照相关政策及单位内控制度管理程序，对特殊或重大的支出事项进行必要的审核审批，影响了财务报销业务的真实性。
二、各类违规支出行为“屡禁不止”1、发放补助补贴奖励等“踩踏红线”。（1）发放政策不支持的补助补贴津贴奖励等。
踩着政策红线发放加班补助、值班补助、特岗津贴，超标准、超月份发放奖励性工资或发放奖励性工资无政策依据或政策依据不足。
（2）自设名目发放补助补贴津贴奖励等。
依据惯例，自设名目发放司机出车补助、课题奖 ...
一、针对执行中央“八项规定”不严问题1、“不严格执行《党政机关接待管理规定》，超标准、超范围重复接待仍然存在等问题”的问题整改措施：
(1)完善制度，细化管理。修订印发《XX市XX机关财务管理制度》，对包括公务接待在内的各项费用开支进行更加严格细致的制度规范，进一步提高机关财务规范化管理水平；
(2)全面排查，加强整改。对照党政机关公务接待最新标准对2020年以来的公务接待情况进行全面排查，严格把关接待范围与标准、建立完善公务接待事前审批登记程序、强化票据合规性检查力度，做好整改，规范管理。
2、对“下属单位存在违规发放津补贴问题”整改措施：
(1)有错必纠，及时整改。对201X年市XX中心违规发放津补贴37385元问题进行严肃问责，在系统内通报批评，及时进行了清退，整改到位。责令XX站清退2015年超过审批额度发放的绩效工资39.2万元，目前已全部清退到位。
(2)实地检查，限时整改。以津补贴发放情况为重点对3家直属事业单位财经纪律执行情况、财务制度落实情况进行实地检查，针对检查中发现的问题下达整改通知责令限期整改，目前相关问题已全部整改到位；
(3)加强指导，强化管理。转发传达省、 ...
关于主板、科创板、创业板、北交所IPO审核工作流程，或许有些人还不是很了解。尚普君今天将IPO详细审核流程分享给各位有需要的人士。
主板证监会IPO审核工作流程分为受理、反馈会、初审会、发审会、封卷、核准发行等主要环节，分别由不同处室负责，相互配合、相互制约。对每一个发行人的审核决定均通过会议以集体讨论的方式提出意见，避免个人决断。
一、基本审核流程图123456flowchart LR A[受理]-- 预先披露 -->B[反馈会] B-- 反馈意见回复及预先披露更新 -->C[初审会] C-->D[发审会] D-- "发审会意见回复（如有）" -->E[封卷] E-- "报送会后事项文件(如有)" -->F[核准发行]
二、首发申请审核主要环节简介（一）受理和预先披露中国证监会受理部门根据《中国证券监督管理委员会行政许可实施程序规定》（证监会令第138号，以下简称《行政许可程序规定》）、《首次公开发行股票并上市管理办法》（证监会令第141号）、《首次公开发行股票并在创业板上市管理办法 ...
大家好！今天我们分享一个有关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代码，详细过程请看文章最后的视频。
方法一：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 ...
大家好！书接上文。
有时候，我们需要处理多个工作簿，每个工作簿中包含一些特定的信息。为了将这些信息汇总到一个表中，我们可能需要手动打开每个工作簿，然后复制粘贴所需的数据。但这样做既费时又容易出错。
所以，使用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 ...
大家好，模糊查询，在平时工作中会经常遇到。
本期呢，会将模糊查询的两个最常用的方法分享给大家。
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代码，你也可以直接观看下方的视频解析：
方法一：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 ...
大家好！今天回答一位网友的问题。
就是用VBA进行多条件汇总，来实现数据透视表的效果，并且要对结果进行排序。
先来看例子。
假如我们有一份产品信息表，需要对它的所有产品和型号进行汇总。左侧是原始数据，右侧是处理结果。
我们来通过三个不同的方法，来解决这个问题。其中方法一：最容易理解，适合对字典刚入门的情况。方法二：具有有一定的难度，需要对字典有更加深刻的了解。方法三：作为拓展内容。
以下是VBA代码，你也可以直接观看下方的视频解析：
方法一：123456789101112131415161718192021222324252627282930Sub 方法一() Dim i, j, k Dim ar Dim d1 As Object, d2 As Object, d3 As Object Set d1 = CreateObject("Scripting.Dictionary") Set d2 = CreateObject("Scripting.Dictionary") Set d3 = CreateObject ...
