Hello，大家好，今天跟大家分享几个比较实用的自定义函数，都是利用VBA代码自己定义，操作非常的简单，大家只需要打开VB编辑器，然后粘贴代码即可，废话不多说，下面我们就来看下都有哪些代码。一、输入数据自动锁定PrivateSubWorksheetSelectionChange（ByValTargetAsRange）OnErrorResumeNextSheet1。UnprotectPassword：123IfTarget。ValueThenTarget。LockedTrueSheet1。ProtectPassword：123EndIfEndSub 这个代码的作用是在输入数据后，自动锁定Excel工作表。这样的话，我们就不能修改录入的数据。只有点击【审阅】找到【取消工作表保护】录入正确的密码才可以修改数据Sheet1。UnprotectPassword：123Sheet1。ProtectPassword：123 我们想要使用只需修改上面的2行代码即可。默认密码为【123】，大家可以根据自己需求来输入密码，密码需要更改2次，Sheet1是用于指定锁定那个工作表的，大家也需要根据自己的实际情况来修改下，这个Sheet1是VB编辑器中对应的sheet名称，在左侧的窗口可以看到 二、根据批注提取数据PublicFunctionpizhu（iAsRange）Application。VolatileTruepizhui。Cells。Comment。TextEndFunction 这个代码的作用是自定义一个名称为【pizhu】的函数，我们需要再点击鼠标右键，插入【模块】，将代码粘贴到模块中，它可以帮助我们快速的将批注中的数据提取出来 语法：pizhu（需要提取的单元格） 需要注意的是，如果单元格没有批注的话，函数就会返回VALUE！这个错误值，所以我们还需要使用IFERROR函数来屏蔽一下错误值。 三、根据颜色求和FunctionSumColor（iAsRange，ary1AsRange）DimicellAsRangeApplication。VolatileForEachicellInary1Ificell。Interior。ColorIndexi。Interior。ColorIndexThenSumColorApplication。Sum（icell）SumColorEndIfNexticellEndFunction 这个代码的作用是根据颜色求和，定义方法与提取批注是一模一样的，函数的名字为SumColor 语法：SumColor（想要求和的颜色，求和的数据区域） 第一参数：直接在单元格中选取对应的颜色即可。 第二参数：选择需要求和的数据区即可 四、根据颜色计数FunctionCountColor（xAsRange，ary2AsRange）Application。VolatileForEachiInary2Ifi。Interior。ColorIndexx。Interior。ColorIndexThenCountColorCountColor1EndIfNextEndFunction 它的用法跟SumColor一样，作用是根据颜色来进行计数。 语法：CountColor（想要计数的颜色，计数的数据区域） 第一参数：直接在单元格中选取对应的颜色即可。 第二参数：选择需要计数的数据区即可 以上就是今天分享的4组VBA代码，都是一些工作中比较常见的例子，大家直接粘贴使用即可，有一点需要注意的是：如果你想要保存这些VBA代码，就需要将文件的格式另存为【XLSM】，这个格式是可以保存宏代码的。 以上就是今天分享的全部内容，怎么样，你学会了吗？ 我是Excel从零到一，关注我，持续分享更多Excel技巧 以上内容，在我的专栏中都有讲到，如果你想要学习Excel，可以看下我的专栏。 课程已经更新了129个章节，后期还会陆续新增章节，专栏永久有效，无时间限制，并且配备了课件
过期的化妆品用了会怎么样使用过期化妆品的危害化妆品的种类非常多，很多人不是每天都会化妆，化妆品的消耗时间也比较慢，但是化妆品是有保质期的，过期了就会变质，一般都是不能使用的，那么过期的化妆品用了会怎么样？使用过期化妆品的……滑雪登山世锦赛中国队三金收官2023年滑雪登山世锦赛落下帷幕，中国实现金牌零的突破，最终三金收官。女子U20短距离赛：19岁的玉珍拉姆强势夺冠，为中国队摘得滑雪登山世锦赛首枚金牌；女子U18垂直竞速……红肿痘痘用什么遮瑕产品5款遮瑕让红肿痘隐形不见痘痘很烦人，特别是红肿发炎的痘痘更是难看，所以我们化妆的时候需要用到遮瑕产品来消除可怕的红肿痘痘，市面上的遮瑕产品数不胜数，下面5号网小编带大家来看一下红肿痘痘用什么遮瑕产品？……打豆浆时，黄豆不要直接打，牢记多做3步，细腻丝滑，香浓无腥味打豆浆，黄豆不要直接打，牢记多做3步，细腻丝滑，清甜香浓无腥味豆浆是中国的传统饮品，口感细腻丝滑，味道香甜，有浓浓的豆香味，特别好喝。豆浆的营养也十分丰富，含有植物蛋白和……雪肌精纯白蜜粉多少钱？雪肌精纯白蜜粉价格雪肌精纯白蜜粉一点都不会浮粉，看起来很自然，保湿效果很好。那么雪肌精纯白蜜粉多少钱？雪肌精纯白蜜粉价格。雪肌精纯白蜜粉多少钱产品名称：SEKKISEI雪肌精纯白蜜粉……cpb口红怎么拆？cpb口红怎么换芯？cpb口红颜色很好看，持久力长，很显气色，滋润度也很高。那么cpb口红怎么拆？cpb口红怎么换芯？cpb口红怎么装？cpb口红怎么拆口红不管是细管还是粗管，壳子都可……北京下月起参保人可获取2022年度社保对账单今天（3月7日），北京市社会保险基金管理中心、北京市医疗保险事务管理中心联合发布《关于发布2022年度社保对账单的公告》，提示广大参保人员，凡在2022年内参加了社会保险且有1……suqqu口红色号suqqu唇膏口红试色suqqu这个日本贵妇级的品牌，其彩妆深受博主青睐，今年suqqu发布了新款口红，好评声一片。下面为大家介绍suqqu唇膏口红2016试色suqqu口红色号介绍SU……阿玛尼小胖丁唇釉色号阿玛尼小胖丁试色阿玛尼小胖丁唇釉一改以前阿玛尼的长管，变身为迷你的袖珍版本。今天5号网小编就要为大家介绍一下，阿玛尼小胖丁唇釉色号和阿玛尼小胖丁试色！阿玛尼小胖丁唇釉色号3系列：粉色系。……vant36。5气垫cc价格vant气垫cc专柜价格这是一款皮肤科医生都在推荐的气垫，vant36。5气垫，简直是大火！当前最流行的水光气垫，很好的遮瑕力，简单的包装，独特的绿茶精华，水分感很强！那么，这款爆款气垫的价格是多少呢……cybercolors樱花气垫怎么样cybercolors樱cybercolors樱花气垫外观特别的好看，比起玫瑰版的更提亮，现在买还有活动。那么cybercolors樱花气垫怎么样？cybercolors樱花气垫好用吗？产品介绍……供应链票据实操中企云链云信平台操作指南，新手必读目录1前言2注册认证3云信流转4云信融资5云信持有到期中企云链云信平台操作指南1前言云链金融平台已于2016年9月1日正式上线，您将可以体验……