提取"祁阳"工作簿里"录入正表"工作表的所有有效性和条件格式为VBA代码

时间: 2023-09-17 18:07:58 浏览: 28
以下是提取"祁阳"工作簿里"录入正表"工作表的所有有效性和条件格式的VBA代码: ``` Sub ExtractValidationAndConditionalFormatting() Dim ws As Worksheet Dim validationFormula As String Dim conditionalFormula As String Dim validationRange As Range Dim conditionalRange As Range 'Set the worksheet to "录入正表" Set ws = ThisWorkbook.Sheets("录入正表") 'Loop through all cells in the worksheet For Each cell In ws.Cells 'Check if the cell has any data validation If Not cell.Validation Is Nothing Then validationFormula = cell.Validation.Formula1 Set validationRange = cell 'Loop through all cells in the validation range For Each valCell In cell.Validation.Formula1Range.Cells 'Combine the validation formulas for all cells in the validation range If valCell.Address <> cell.Address Then validationFormula = validationFormula & "," & valCell.Address Set validationRange = Union(validationRange, valCell) End If Next valCell 'Print the validation formula and range to Immediate Window Debug.Print "Validation: " & validationFormula Debug.Print "Validation Range: " & validationRange.Address End If 'Check if the cell has any conditional formatting If Not cell.FormatConditions Is Nothing Then 'Loop through all conditional formatting rules for the cell For Each condFormat In cell.FormatConditions conditionalFormula = condFormat.Formula1 Set conditionalRange = cell 'Loop through all cells in the conditional formatting range For Each condCell In condFormat.AppliesTo.Cells 'Combine the conditional formatting formulas for all cells in the range If condCell.Address <> cell.Address Then conditionalFormula = conditionalFormula & "," & condCell.Address Set conditionalRange = Union(conditionalRange, condCell) End If Next condCell 'Print the conditional formatting formula and range to Immediate Window Debug.Print "Conditional Formatting: " & conditionalFormula Debug.Print "Conditional Formatting Range: " & conditionalRange.Address Next condFormat End If Next cell End Sub ``` 该代码将输出所有有效性和条件格式的公式以及应用它们的单元格范围。请注意,对于数据验证,代码将合并单元格范围中的所有公式。

相关推荐

最新推荐

【Java毕业设计】使用 Go 语言实现电商交易系统,该系统聚集类似淘宝、京东、、当当、小米、携程等子系统。希望该项.zip

【Java毕业设计】使用 Go 语言实现电商交易系统,该系统聚集类似淘宝、京东、、当当、小米、携程等子系统。希望该项

基于springboot的医院信息管理系统代码

医院信息系统代码 java医院信息系统代码 基于springboot的医院信息系统代码 1、医院信息系统的技术栈、环境、工具、软件: ① 系统环境:Windows/Mac ② 开发语言:Java ③ 框架:SpringBoot ④ 架构:B/S、MVC ⑤ 开发环境:IDEA、JDK、Maven、Mysql ⑥ JDK版本:JDK1.8 ⑦ Maven包:Maven3.6 ⑧ 数据库:mysql 5.7 ⑨ 服务平台:Tomcat 8.0/9.0 ⑩ 数据库工具:SQLyog/Navicat ⑪ 开发软件:eclipse/myeclipse/idea ⑫ 浏览器:谷歌浏览器/微软edge/火狐 ⑬ 技术栈:Java、Mysql、Maven、Springboot、Mybatis、Ajax、Vue等 2、适用人群:计算机,电子信息工程等专业的学习者等, 高分毕业设计项目,也可作为课程设计和期末大作业。本资源仅是代码的压缩包,该代码适合毕业设计、课程设计作业,所有源码均经过严格测试,可以放心下载使用。有任何使用问题欢迎随时与博主沟通,第一时间进行解答! 3、解压说明:本资源需要电脑

牛小骥的惯导机械编排算法,以严恭敏的PSINS为基础,坐标系为东北天,武汉大学的机械编排课程作业.zip

牛小骥的惯导机械编排算法,以严恭敏的PSINS为基础,坐标系为东北天,武汉大学的机械编排课程作业.zip

管理系统系列--整理记录各个包管理器,系统镜像,以及常用软件的好用镜像,Thanks Mirror。 走过路过,如觉.zip

管理系统系列--整理记录各个包管理器,系统镜像,以及常用软件的好用镜像,Thanks Mirror。 走过路过,如觉

linux项目工程资料-基于 epoll 的 linux 服务器框架.zip

Linux项目是一个开放源代码的操作系统项目,由林纳斯·托瓦兹(Linus Torvalds)于1991年首次发布。该项目以Linux内核为核心,围绕其构建了一个完整的操作系统,包括各种系统工具、库、应用程序和硬件支持。 以下是Linux项目的一些主要特点和资料介绍: 开放源代码:Linux项目的所有源代码都是公开的,并允许任何人自由使用和修改。这为开发者提供了极大的灵活性和创新能力,同时也促进了全球范围内的协作和发展。 跨平台性:Linux操作系统可以在多种硬件架构和平台上运行,包括x86、ARM、MIPS等。这使得Linux成为了一种非常灵活的操作系统,适用于各种设备和应用场景。 可定制性:由于Linux的源代码是公开的,用户可以根据自己的需求进行定制和修改。这使得Linux成为了一种非常适合企业级应用的操作系统,可以根据企业的特定需求进行定制和优化。 安全性:Linux操作系统在安全性方面表现出色,具有强大的访问控制和安全机制。这使得Linux成为了一种非常适合用于服务器和安全敏感的应用场景的操作系统。

三相电压型逆变器工作原理分析.pptx

运动控制技术及应用

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire

液位控制技术在换热站工程中的应用与案例分析

# 1. 引言 ### 1.1 研究背景 在工程领域中,液位控制技术作为一项重要的自动化控制技术,广泛应用于各种工业生产和设备操作中。其中,液位控制技术在换热站工程中具有重要意义和价值。本文将针对液位控制技术在换热站工程中的应用展开深入研究和分析。 ### 1.2 研究意义 换热站作为工业生产中的关键设备,其性能稳定性和安全运行对于整个生产系统至关重要。液位控制技术作为一项可以实现对液体介质在容器内的准确控制的技术,在换热站工程中可以起到至关重要的作用。因此,深入研究液位控制技术在换热站工程中的应用对于提升工程效率、降低生产成本具有重要意义。 ### 1.3 研究目的 本文旨在通过

vue this.tagsList判断是否包含某个值

你可以使用JavaScript中的`includes()`方法来判断一个数组是否包含某个值。在Vue中,你可以使用以下代码来判断`this.tagsList`数组中是否包含某个值: ```javascript if (this.tagsList.includes('某个值')) { // 数组包含该值的处理逻辑 } else { // 数组不包含该值的处理逻辑 } ``` 其中,将`某个值`替换为你要判断的值即可。

数据中心现状与趋势-201704.pdf

2 2 IDC发展驱动力 一、IDC行业发展现状 3 3 IDC发展驱动力 4 4 ü 2011年以前,全球IDC增长迅速,2012-2013年受经济影响放慢了增长速度,但从2014年开始,技术创新 驱动的智能终端、VR、人工智能、可穿戴设备、物联网以及基因测序等领域快速发展,带动数据存储规模 、计算能力以及网络流量的大幅增加,全球尤其是亚太地区云计算拉动的新一代基础设施建设进入加速期。 ü 2016 年全球 IDC 市场规模达到 451.9 亿美元,增速达 17.5%。从市场总量来看,美国和欧洲地区占据了 全球 IDC 市场规模的 50%以上。从增速来看,全球市场规模增速趋缓,亚太地区继续在各区域市场中保持 领先,其中以中国、印度和新加坡增长最快。 2010-2016年全球IDC市场规模 IDC市场现状-全球 5 5 IDC市场现状-国内 ü 中国2012、2013年IDC市场增速下滑,但仍高于全球平均增速。2014年以来,政府加强政策引导、开放 IDC牌照,同时移动互联网、视频、游戏等新兴行业发展迅速,推动IDC行业发展重返快车道。 ü 2016 年中国 IDC 市场继续保持高速增