道路程序
道路路基施工程序(3篇)
第1篇一、施工准备1. 工程设计审查：对道路工程设计进行审查，确保设计符合规范要求，满足使用功能。
2. 技术交底：组织施工技术人员进行技术交底，明确施工要求、施工工艺、质量标准、安全措施等。
3. 材料设备准备：根据工程需求，采购路基填筑材料、机械设备、施工工具等。
4. 施工场地准备：平整施工场地，确保施工顺利进行。
二、施工测量1. 建立测量控制网：根据工程设计，建立测量控制网，确保施工精度。
2. 恢复中线：根据设计图纸，恢复道路中线，确保路基施工位置准确。
3. 测设路基高程：根据设计图纸，测设路基高程，确保路基标高符合要求。
4. 标桩设置：在路基两侧设置标桩，标明路基边界。
三、路基施工1. 挖方路基施工：根据设计图纸，开挖路基，确保路基深度符合要求。
2. 填方路基施工：根据设计图纸，填筑路基，确保路基宽度、厚度符合要求。
3. 土方平整：对填方路基进行平整，确保路基表面平整。
4. 压实路基：采用压实机械对路基进行压实，确保路基密实度达到要求。
5. 路基排水：设置路基排水设施，确保路基排水畅通。
6. 防护工程：根据设计要求，修建防护工程，如挡土墙、边坡防护等。
四、路基质量检查与验收1. 施工过程中，对路基施工质量进行监督检查，确保施工质量符合规范要求。
2. 路基施工完成后，进行质量验收，包括外观质量、压实度、标高等。
3. 路基质量验收合格后，方可进行后续施工。
五、路基养护1. 路基施工完成后，进行路基养护，确保路基稳定、平整。
2. 养护内容包括：路基排水、路面平整度、路基沉降等。
3. 养护期间，加强巡查，发现问题及时处理。
六、路基施工安全措施1. 施工人员必须穿戴安全防护用品，确保施工安全。
2. 严格遵守操作规程，确保施工质量。
3. 加强施工现场管理，确保施工环境安全。
4. 定期进行安全教育培训，提高施工人员安全意识。
总之，道路路基施工程序是确保道路工程质量、安全、进度的重要环节。
在施工过程中，严格按照程序进行，确保道路路基施工质量达到预期目标。
市政道路交付程序
市政道路交付程序市政道路的建设和交付是城市规划和发展过程中的重要环节。
市政道路的交付程序包括规划设计、建设施工和最终验收等多个阶段。
下面将详细介绍市政道路交付的程序及相关细节。
一、规划设计阶段在市政道路交付的规划设计阶段，需要进行详细的规划和设计工作。
这一阶段的主要步骤包括：1.规划调研：对市政道路建设的需求和现状进行详细调研，了解交通状况及市民出行需求。
2.道路规划：根据调研结果，确定道路的规划方案，包括路线、路段长度、道路宽度、交通组织等内容。
3.方案设计：根据规划方案，进行具体的路线布局、交叉口设计、交通标志标线设置等设计工作。
4.施工图设计：根据方案设计，制定详细的施工图纸，包括道路的几何形状、路面结构、排水系统等详细信息。
二、建设施工阶段市政道路的建设施工是交付程序中非常重要的一步。
建设施工阶段的主要步骤如下：1.招标投标：根据施工图设计，组织招标投标工作，选择合适的建设单位进行市政道路的实际建设工作。
2.动工开工：在确定建设单位后，正式启动市政道路的建设工作，包括土地征用、道路平整、路基建设、路面铺设等步骤。
3.施工管理：在施工过程中，需要进行施工管理和监督，确保工程按照规划设计要求进行施工，并达到相应的质量标准。
4.安全保障：在建设过程中，注重施工安全管理，保障施工人员和周边居民的人身安全和财产安全。
三、最终验收阶段最终验收是市政道路交付程序的最后一个环节，主要包括以下步骤：1.工程竣工验收：施工完成后，需组织验收工作，对建成的市政道路进行质量检查和安全评估，确保符合相关标准和规定。
2.居民满意度调查：对周边居民进行调查，了解他们对该市政道路的满意程度和交通改善情况，为后续改进提供参考意见。
3.维护保养：完成市政道路交付后，需要进行日常维护保养工作，及时处理道路损坏和交通设施问题，确保道路的正常使用。
市政道路交付程序的落地实施需要充分考虑道路规划和设计的科学性、合理性以及施工过程的监督和管理。
道路工程验收程序
道路工程验收程序一、验收申请在道路工程完工后，施工单位应向建设单位提交验收申请，并附上完整的工程技术资料。
建设单位在接到申请后，应组织相关人员进行初步验收，并对资料进行审核。
如果初步验收合格，建设单位可向验收委员会提交正式验收申请。
二、验收准备验收委员会在接到验收申请后，应进行以下准备工作：1.制定详细的验收计划，明确验收时间、地点、参加人员等；2.对工程技术资料进行详细审核，确保资料齐全、真实、有效；3.对现场进行检查，确保工程符合设计要求和质量标准。
三、成立验收委员会验收委员会应由建设单位、设计单位、监理单位、施工单位等各相关方的代表组成，并根据工程规模和性质确定人数。
委员会负责人应由建设单位或其委托的监理单位负责人担任。
委员会成员应具备相应的专业知识和经验，能够客观、公正地完成验收工作。
四、现场验收现场验收是道路工程验收的重要环节，主要包括以下内容：1.对道路工程的外观质量进行检查，包括路面平整度、路肩整洁度、排水设施等；2.对道路工程的内在质量进行检测，包括路基压实度、路面强度、抗滑性能等；3.对配套设施进行检查，如交通标志、标线、照明设施等。
在现场验收过程中，如果发现工程质量问题或安全隐患，验收委员会应及时提出整改意见并要求施工单位限期整改。
整改完成后，应重新进行验收。
五、验收报告在现场验收合格后，验收委员会应编写验收报告。
报告内容应包括以下方面：1.工程概况：包括工程名称、地点、规模、建设单位、设计单位、施工单位等；2.验收依据：包括相关法律法规、技术标准、设计文件等；3.验收过程：概述验收申请、准备工作、现场验收等情况；4.验收结果：对道路工程的外观质量、内在质量、配套设施等进行综合评价；5.结论与建议：根据验收结果得出是否合格的结论，并提出对施工单位的建议和意见。
六、整改与复验如果现场验收中发现工程质量问题或安全隐患，验收委员会应及时提出整改意见并要求施工单位限期整改。
整改完成后，应重新进行验收，即复验。
市政道路建设工程交付程序简述
市政道路建设工程交付程序简述市政道路建设工程的交付程序是指工程竣工后，经验收合格后交付给相关管理部门的一系列流程和步骤。
下面将简要介绍市政道路建设工程交付程序的主要步骤。
一、竣工验收准备阶段在交付程序开始之前，需要进行竣工验收准备工作。
这一阶段的主要任务包括：1. 编制竣工验收资料：整理工程竣工验收所需的相关资料，包括设计文件、施工图纸、合同文件、质量检测报告等。
2. 完成质量整改：对工程中的质量问题进行整改，并取得相应的整改验收文件。
3. 竣工报告编制：编制详细的竣工报告，对工程的建设情况进行全面的描述和总结。
二、竣工验收程序竣工验收程序是确保市政道路建设工程达到预期要求的关键环节。
主要步骤如下：1. 提出验收申请：由建设单位向主管部门提出竣工验收申请，并提交相关资料。
2. 验收组成立：主管部门组织验收组，由相关专业人员组成，对工程进行全面检查。
3. 现场勘查和检测：验收组对工程现场进行勘查，进行必要的测量、试验和检测，检查工程质量和完整性。
4. 报告编制：验收组根据勘查和检测的结果编制验收报告，对道路工程的合格性进行评估。
5. 竣工验收：验收组提交竣工验收报告，并向建设单位提出合格或不合格的建议。
若合格，则进入下一步交付手续。
三、交付手续办理在竣工验收通过后，需要办理交付手续，将道路交付给管理部门。
主要包括以下步骤：1. 编制移交材料：建设单位根据要求编制交付的相关移交材料，包括道路设施清单、图纸、技术资料等。
2. 移交手续办理：建设单位和管理部门进行移交手续的办理，包括签署移交协议、验收移交材料等。
3. 确定责任归属：建设单位和管理部门确认交付后的责任归属，明确各方的权责。
4. 确认维护责任：管理部门在接收道路工程后，负责维护和管理工程的正常使用。
四、完工档案归档交付程序的最后一步是将完工档案进行归档保存。
建设单位需按要求整理和归档工程项目资料，包括设计文件、施工记录、竣工验收报告等，以备将来的管理和维护使用。
市政道路工程施工程序
市政道路工程施工程序是一个系统的工程，它包括了多个阶段和步骤，从设计和准备阶段到施工阶段，再到最后的验收和维护阶段。
下面是市政道路工程施工程序的详细介绍。
一、前期准备阶段1. 工程设计：根据市政道路建设的实际情况，进行工程设计，包括红线规划、交通组织设计、排水系统设计、路基设计、路面设计、绿化设计等。
2. 征地拆迁：对于需要征地拆迁的土地，需要完成征地拆迁手续，包括与居民协商、签订协议、安置补偿等。
3. 环境评估：在建设之前，需要进行环保评估，评估项目对周边环境的影响，制定相应的环保措施。
4. 工程预算：对于市政道路工程，需要进行详细的预算编制，包括人力费用、机械费用、材料费用等。
二、施工准备阶段1. 解决现场临时用水、临时用电及临时路，组织人员机械进场。
2. 生产和生活设施搭建。
3. 路基排水。
4. 管线探测与保护。
5. 现场人员安全教育。
6. 技术准备：包括图纸会审、施组、方案的编制报审、施工区域划分及施工部署、进度计划编制等。
7. 建立对外协调机制。
8. 统计现场障碍物归属权及施工环境。
三、施工阶段1. 路基清表施工：放出道路红线并标记，确定清表范围；在清表前做好原始抄测记录，清除杂物至土路床的清表后高程。
2. 土方开挖：进行土方开挖，以便后续的施工作业。
在开挖过程中，需要注意周围环境的保护，确保不会对周围建筑和设施造成影响。
3. 地基处理：对于土方开挖后的地基进行处理，确保其满足工程要求。
4. 管道施工：包括排水管道、供水管道、燃气管道等。
5. 路基施工：包括路基填筑、路基排水、路面基层施工等。
6. 路面施工：包括沥青路面施工、混凝土路面施工等。
7. 绿化与景观建设：进行道路两侧的绿化和景观建设。
四、验收和维护阶段1. 工程验收：工程完成后，进行验收，确保工程质量满足设计要求。
2. 工程移交：验收合格后，将工程移交给相关部门进行维护和管理。
3. 工程维护：对工程进行日常的维护和管理，确保工程的正常使用。
修建道路施工程序(3篇)
第1篇一、工程准备阶段1. 设计阶段：根据道路设计要求，进行详细的工程设计，包括道路的平面布置、纵断面设计、横断面设计、结构设计等。
2. 施工图设计：在工程设计基础上，绘制详细的施工图，明确施工过程中所需材料、设备、施工工艺等。
3. 材料采购：根据施工图设计要求，采购道路施工所需的各种材料，如水泥、砂石、钢筋、沥青等。
4. 施工队伍组织：根据工程规模和施工要求，组建专业的施工队伍，包括项目经理、技术负责人、施工人员等。
5. 施工现场准备：进行施工现场的清理、平整，搭建临时设施，如施工办公室、仓库、材料堆场等。
二、基础施工阶段1. 地基处理：根据地质勘察报告，对地基进行处理，如挖除软弱地基、换填、加固等。
2. 土方工程：按照设计要求，进行土方开挖、填筑、平整等工作。
3. 桥涵工程：对道路沿线的桥梁、涵洞等结构物进行施工，确保其安全、稳定。
4. 基础垫层：铺设基础垫层，确保路面结构的稳定性。
三、主体结构施工阶段1. 路面基层施工：按照设计要求，铺设路面基层，包括水泥稳定土、石灰稳定土、沥青稳定碎石等。
2. 路面面层施工：根据路面结构要求，铺设路面面层，如沥青混凝土、水泥混凝土等。
3. 水稳层施工：对道路两侧进行水稳层施工，确保路面排水畅通。
4. 边坡防护：对道路边坡进行防护，如设置护栏、护坡等。
四、附属设施施工阶段1. 道路标线：按照国家标准，进行道路标线施工，包括车道线、人行道线、斑马线等。
2. 照明设施：安装道路照明设施，如路灯、标志牌等。
3. 隧道工程：对道路沿线的隧道进行施工，确保隧道结构安全、通行顺畅。
4. 交通安全设施：设置交通安全设施，如交通信号灯、反光镜等。
五、竣工验收阶段1. 施工单位自检：施工单位按照施工规范和设计要求，对施工质量进行自检。
2. 监理单位验收：监理单位对施工单位自检合格的项目进行验收，确保工程质量。
3. 政府部门验收：政府部门对道路工程进行竣工验收，包括质量、安全、环保等方面。
道路施工安全作业程序
道路施工安全作业程序道路施工是城市建设和基础设施维护的重要环节，但同时也伴随着一定的安全风险。
为了保障施工人员的生命安全、减少事故的发生，并确保施工的顺利进行，制定一套科学合理的道路施工安全作业程序至关重要。
一、施工前的准备工作（一）规划与设计在进行道路施工前，必须要有详细的规划和设计方案。
这包括施工区域的划定、施工流程的安排、施工设备和材料的选择等。
规划和设计方案要经过专业人员的审核和批准，确保其符合安全标准和施工要求。
（二）人员培训所有参与施工的人员都要接受严格的安全培训。
培训内容包括施工安全规章制度、个人防护设备的使用方法、施工设备的操作规范、紧急情况的应对措施等。
只有通过培训并考核合格的人员才能上岗作业。
（三）现场勘查在施工前，要对施工现场进行全面的勘查。
了解施工区域的地形地貌、地下管线的分布、周边交通状况等。
对于可能存在的安全隐患，要提前制定相应的防范措施。
（四）设备和材料检查对施工所需的设备和材料进行严格的检查，确保其性能完好、质量合格。
对于存在故障或损坏的设备，要及时进行维修或更换。
材料的存放要符合安全要求，防止发生火灾、坍塌等事故。
二、施工现场的安全设置（一）警示标识在施工区域的周边设置明显的警示标识，如施工标志、限速标志、导向标志等。
警示标识要清晰、醒目，能够让过往车辆和行人提前知晓施工情况，从而采取相应的措施。
（二）围挡设置使用符合标准的围挡将施工区域与外界隔离开来。
围挡要坚固、稳定，能够防止人员和车辆误入施工区域。
在围挡上要设置反光标识，以提高夜间的可视性。
（三）交通疏导根据施工区域的交通状况，制定合理的交通疏导方案。
安排专人负责交通疏导工作，引导车辆和行人安全通行。
必要时，可以设置临时交通信号灯或临时通道。
（四）照明设施在施工现场设置足够的照明设施，确保施工人员在夜间或光线不足的情况下能够正常作业。
照明设施的安装要符合安全要求，避免发生触电事故。
三、施工过程中的安全操作（一）挖掘作业在进行挖掘作业时，要先了解地下管线的分布情况，避免损坏地下管线。
道路交通事故处理程序规定(全文)
The lamp of life is ignited by enthusiasm, and the boat of life moves forward because of hard work.悉心整理助您一臂（页眉可删）20__年道路交通事故处理程序规定（全文）第一章总则第一条为了规范道路交通事故处理程序，保障公安机关交通管理部门依法履行职责，保护道路交通事故当事人的合法权益，根据《中华人民共和国道路交通安全法》及其实施条例等有关法律、法规，制定本规定。
第二条公安机关交通管理部门处理道路交通事故，应当遵循公正、公开、便民、效率的原则。
第三条交通警察处理道路交通事故，应当取得相应等级的处理道路交通事故资格。
第二章管辖第四条道路交通事故由发生地的县级公安机关交通管理部门管辖。
未设立县级公安机关交通管理部门的，由设区市公安机关交通管理部门管辖。
第五条道路交通事故发生在两个以上管辖区域的，由事故起始点所在地公安机关交通管理部门管辖。
对管辖权有争议的，由共同的上一级公安机关交通管理部门指定管辖。
指定管辖前，最先发现或者最先接到报警的公安机关交通管理部门应当先行救助受伤人员，进行现场前期处理。
第六条上级公安机关交通管理部门在必要的时候，可以处理下级公安机关交通管理部门管辖的道路交通事故，或者指定下级公安机关交通管理部门限时将案件移送其他下级公安机关交通管理部门处理。
案件管辖发生转移的，处理时限从移送案件之日起计算。
第七条军队、武警部队人员、车辆发生道路交通事故的，按照本规定处理。
需要对现役军人给予行政处罚或者追究刑事责任的，移送军队、武警部队有关部门。
第三章报警和受理第八条道路交通事故有下列情形之一的，当事人应当保护现场并立即报警：(一)造成人员死亡、受伤的;(二)发生财产损失事故，当事人对事实或者成因有争议的，以及虽然对事实或者成因无争议，但协商损害赔偿未达成协议的;(三)机动车无号牌、无检验合格标志、无保险标志的;(四)载运爆炸物品、易燃易爆化学物品以及毒害性、放射性、腐蚀性、传染病病源体等危险物品车辆的;(五)碰撞建筑物、公共设施或者其他设施的;(六)驾驶人无有效机动车驾驶证的;(七)驾驶人有饮酒、服用国家管制的精神药品或者麻醉药品嫌疑的;(八)当事人不能自行移动车辆的。
道路排水工程施工程序(3篇)
第1篇一、前期准备1. 项目立项：根据城市排水规划，确定道路排水工程的建设规模、技术方案等，进行项目立项。
2. 设计阶段：根据项目立项要求，进行道路排水工程设计，包括排水管道、泵站、检查井、雨水口等设施的布置、选型及施工图设计。
3. 工程招标：按照国家相关法律法规，进行工程招标，确定施工单位。
4. 施工合同签订：与施工单位签订施工合同，明确双方责任、权利和义务。
二、施工准备1. 施工场地平整：对施工现场进行平整，确保施工场地满足施工要求。
2. 施工用水、用电：接通施工现场的用水、用电，确保施工顺利进行。
3. 施工材料、设备准备：按照设计要求，采购施工材料、设备，并做好验收工作。
4. 施工人员培训：对施工人员进行技术培训，提高施工人员的技能水平。
三、排水管道施工1. 沟槽开挖：根据设计图纸，进行沟槽开挖，确保沟槽尺寸满足设计要求。
2. 基础处理：对沟槽基底进行处理，确保基础稳定性。
3. 管道铺设：按照设计要求，铺设排水管道，注意管道的连接、接口等。
4. 检查井施工：按照设计要求，施工检查井，确保检查井与管道连接牢固。
四、泵站施工1. 泵房基础施工：按照设计要求，施工泵房基础。
2. 泵房主体结构施工：按照设计要求，施工泵房主体结构。
3. 泵站设备安装：按照设计要求，安装泵站设备，并进行调试。
五、雨水口施工1. 雨水口基础施工：按照设计要求，施工雨水口基础。
2. 雨水口主体结构施工：按照设计要求，施工雨水口主体结构。
3. 雨水口与管道连接：确保雨水口与管道连接牢固。
六、排水设施验收1. 对已完成的排水管道、泵站、检查井、雨水口等设施进行验收，确保符合设计要求。
2. 对验收不合格的设施进行整改，直至合格。
七、施工监理1. 施工监理单位对施工现场进行监督检查，确保施工质量。
2. 对施工过程中出现的问题，及时提出整改意见。
八、工程竣工1. 工程竣工后，进行工程验收，确保工程符合设计要求。
2. 工程验收合格后，办理移交手续，交付使用。
道路项目施工程序(3篇)
第1篇一、施工准备1. 工程设计：根据道路工程的设计要求，编制详细的施工方案，包括道路结构、路基、路面、排水、照明、交通组织等内容。
2. 材料设备：根据工程需要，采购合格的原材料、设备，确保施工质量。
3. 人员组织：成立项目组织机构，明确各部门职责，确保施工顺利进行。
4. 施工场地：清理施工场地，确保场地平整、排水畅通。
5. 施工技术交底：对施工人员进行技术交底，确保施工人员掌握施工工艺和质量要求。
二、路基施工1. 土方开挖：按照设计要求，进行路基土方开挖，确保路基稳定性。
2. 路基填筑：采用分层填筑、压实，确保路基密实度。
3. 路基排水：设置排水沟、涵洞等设施，确保路基排水畅通。
4. 路基防护：根据需要，对路基进行防护处理，如铺设土工布、植草等。
三、路面施工1. 路面基层：按照设计要求，进行路面基层施工，包括水泥稳定土、沥青稳定土等。
2. 路面基层检测：对路面基层进行检测，确保基层质量符合要求。
3. 路面面层：按照设计要求，进行路面面层施工，包括沥青混凝土、水泥混凝土等。
4. 路面面层检测：对路面面层进行检测，确保面层质量符合要求。
四、排水施工1. 排水沟：按照设计要求，进行排水沟施工，确保排水畅通。
2. 涵洞：根据需要，进行涵洞施工，确保涵洞质量符合要求。
3. 排水设施检测：对排水设施进行检测，确保排水设施运行正常。
五、交通组织1. 交通疏导：根据施工进度，制定交通疏导方案，确保交通秩序。
2. 施工标志：设置施工标志，提醒驾驶员注意施工区域。
3. 交通监控：对施工区域进行监控，确保施工安全。
六、竣工验收1. 施工资料整理：整理施工资料，包括设计文件、施工记录、检测报告等。
2. 竣工验收检测：对道路工程进行竣工验收检测，确保工程质量符合要求。
3. 竣工验收报告：编制竣工验收报告，提交相关部门审批。
4. 工程移交：将道路工程移交给相关部门，确保道路顺利投入使用。
总之，道路项目施工程序包括施工准备、路基施工、路面施工、排水施工、交通组织、竣工验收等环节。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1 Sub 添加空行() ' ' XY互换 Macro ' 宏由 MC SYSTEM 录制，时间: 2008-8-15 ' ' 快捷键: Ctrl+w Dim a As Integer, h As Integer h = InputBox("请输入该表的行数", "XY互换", "0") If h = "0" Then End ElseIf Cells(h, 1) = "" Then End End If For a = 1 To h d = Cells(a, 1).Value If d = "" Then End Else Cells(a, 5).Value = "0" End If Next a Columns("D:D").Select Selection.Cut Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("E1").Select End Sub
Sub Macro8() ' ' 补充横断高差计算 ' 宏由 MC SYSTEM 录制，时间: 2008-8-21 ' ' 快捷键: Ctrl+i ' SQRT(SUMXMY2(C85,C$64)+SUMXMY2(D85,D$64)) Dim a As Integer, b As Integer, h As Integer h = InputBox("请输入该表的行数", "补充横断高差计算", "0") If h = "0" Then End ElseIf Cells(h, 1) = "" Then End End If 2
For a = 1 To h If Cells(a, 6) = "平距" Then b = a End If If Cells(a, 6) = "" And Cells(a, 5) <> "" Then Cells(a, 6) = Sqr((Cells(a, 3) - Cells(b, 3)) ^ 2 + (Cells(a, 4) - Cells(b, 4)) ^ 2) Cells(a, 6).Font.ColorIndex = 3 End If If Cells(a, 7) = "" And Cells(a, 6) <> "" Then Cells(a, 7) = Cells(a, 5) - Cells(b, 5) Cells(a, 7).Font.ColorIndex = 3 End If Next a Range("G:G,f:f").Select Range("G1").Activate Selection.NumberFormatLocal = "0.0_ " Range("a1").Select End Sub
Sub Macro1() ' ' Macro1 Macro ' 宏由 MC SYSTEM 录制，时间: 2008-8-22 ' ' 快捷键: Ctrl+l ' Columns("D:D").Select Selection.Cut Columns("C:C").Select Selection.Insert Shift:=xlToRight ActiveWorkbook.Save End Sub
Sub Macro2() ' '点名前加L,R ' 宏由 MC SYSTEM 录制，时间: 2008-8-17 ' ' 快捷键: Ctrl+r
Dim h As Integer, i As String, a As Integer, c As String h = InputBox("请输入该表的行数", "点名前加前缀", "0") 3
If h = "0" Then End ElseIf Cells(h, 1) = "" Then End End If i = InputBox("输入要在点名前加的数字或字母", "提示", "L") For a = 1 To h d = Cells(a, 1).Value If d = "0" Then Cells(a, 1) = i & "0" Else i = CStr(i) c = i & d Cells(a, 1) = c End If Next a End Sub
Sub Macro5() ' 快捷键: Ctrl+y' '计算平距高差并判断横断面的左右 Dim a As Integer, b As Integer, d As String, h As Integer, i As Integer, c As String, m As Single, n As Single Dim myval As Integer h = InputBox("请输入该表的行数", "平距高差计算", "0") If h = "0" Then End ElseIf Cells(h, 1) = "" Then End End If i = 0 For a = 1 To h d = Cells(a, 1).Value If d < 15000 Then e = Sqr((Cells(a, 3) - Cells(b, 3)) ^ 2 + (Cells(a, 4) - Cells(b, 4)) ^ 2) f = Cells(a, 5) - Cells(b, 5) Cells(a, 7).Value = f Cells(a, 6).Value = e Else b = a Cells(a, 6).Value = "平距" Cells(a, 7).Value = "高差" i = i + 1 End If 4
Next a Range("F:F,G:G").Select Range("G1").Activate Selection.NumberFormatLocal = "0.0_ " h = h + i For a = 2 To h c = Cells(a, 6).Value '后行 d = Cells(a - 1, 6).Value '前行 If d = "平距" Or d = "" Then m = 0 m = CSng(m) ElseIf c = "平距" Or c = "" Then n = 0 n = CSng(n) Else m = CSng(d) n = CSng(c) End If If n < m And n <> 0 And m <> 0 Then Cells(a, 6).Select Selection.EntireRow.Insert a = a + 1 End If Next a Range("A1").Select MsgBox "计算完毕!", vbOKOnly, "平距高差计算" End Sub Sub Macro6() ' 快捷键: Ctrl+u '纬地格式数据排列 Dim a As Integer, b As Integer, c As Integer, d As String, e As Integer, h As Integer ', fName As String h = InputBox("请输入该表的行数", "纬地格式数据排列", "0") If h = "0" Then End ElseIf Cells(h, 1) = "" Then End End If b = 0 c = 13 For a = 1 To h d = Cells(a, 6).Value If d = "平距" Or d = "" Then b = b + 2 5
c = 13 Cells(a, 1).Select Selection.Copy Cells(b - 1, c - 1).Select ActiveSheet.Paste Else Cells(a, 6).Select Selection.Copy Cells(b, c).Select ActiveSheet.Paste
Cells(a, 7).Select Selection.Copy Cells(b, c + 1).Select ActiveSheet.Paste c = c + 2 Cells(b, 12).Value = c / 2 - 6.5 End If Next a Range("L1").Select ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 6 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 13 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 18 ActiveWindow.ScrollRow = 19 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 22 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 29 ActiveWindow.ScrollRow = 31 ActiveWindow.ScrollRow = 32