面对庞大的数据库,如何才能进行更加精准的分析?除了对整体数据进行分析外,我们还可以使用IBM SPSS Statistics的 选择个案分析方法 ,指定数据的分析范围,比如以条件筛选的方式选......
2023-01-18 201 SPSS指定分析范围
今天跟大家分享几个比较实用的自定义函数,都是利用VBA代码自己定义,操作非常的简单,大家只需要打开VB编辑器,然后粘贴代码即可,废话不多说,下面我们就来看下都有哪些代码。
一、输入数据自动锁定
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheet1.Unprotect Password:="123"
If Target.Value<>""Then
Target.Locked=True
Sheet1.Protect Password:="123"
End If
End Sub
这个代码的作用是在输入数据后,自动锁定Excel工作表。这样的话,我们就不能修改录入的数据。只有点击【审阅】找到【取消工作表保护】录入正确的密码才可以修改数据
Sheet1.Unprotect Password:="123"
Sheet1.Protect Password:="123"
我们想要使用只需修改上面的2行代码即可。默认密码为【123】,大家可以根据自己需求来输入密码,密码需要更改2次,Sheet1是用于指定锁定那个工作表的,大家也需要根据自己的实际情况来修改下,这个Sheet1是VB编辑器中对应的sheet名称,在左侧的窗口可以看到
二、根据批注提取数据
Public Function pizhu(i As Range)
Application.Volatile True
pizhu=i.Cells.Comment.Text
End Function
这个代码的作用是自定义一个名称为【pizhu】的函数,我们需要再点击鼠标右键,插入【模块】,将代码粘贴到模块中,它可以帮助我们快速的将批注中的数据提取出来
语法:=pizhu(需要提取的单元格)
需要注意的是,如果单元格没有批注的话,函数就会返回#VALUE!这个错误值,所以我们还需要使用IFERROR函数来屏蔽一下错误值。
三、根据颜色求和
Function SumColor(i As Range,ary1 As Range)
Dim icell As Range
Application.Volatile
For Each icell In ary1
If icell.Interior.ColorIndex=i.Interior.ColorIndex Then
SumColor=Application.Sum(icell)+SumColor
End If
Next icell
End Function
这个代码的作用是根据颜色求和,定义方法与提取批注是一模一样的,函数的名字为SumColor
语法:=SumColor(想要求和的颜色,求和的数据区域)
第一参数:直接在单元格中选取对应的颜色即可。
第二参数:选择需要求和的数据区即可
四、根据颜色计数
Function CountColor(x As Range,ary2 As Range)
Application.Volatile
For Each i In ary2
If i.Interior.ColorIndex=x.Interior.ColorIndex Then
CountColor=CountColor+1
End If
Next
End Function
它的用法跟SumColor一样,作用是根据颜色来进行计数。
语法:=CountColor(想要计数的颜色,计数的数据区域)
第一参数:直接在单元格中选取对应的颜色即可。
第二参数:选择需要计数的数据区即可
以上就是今天分享的4组VBA代码,都是一些工作中比较常见的例子,大家直接粘贴使用即可,有一点需要注意的是:如果你想要保存这些VBA代码,就需要将文件的格式另存为【XLSM】,这个格式是可以保存宏代码的。
标签: VBA教程
相关文章
面对庞大的数据库,如何才能进行更加精准的分析?除了对整体数据进行分析外,我们还可以使用IBM SPSS Statistics的 选择个案分析方法 ,指定数据的分析范围,比如以条件筛选的方式选......
2023-01-18 201 SPSS指定分析范围
word背景图片怎么设置?Microsoft 365中的word可通过设置水印或页面颜色的方法设置背景图片。word背景图片怎么铺满?可通过填充页面图片的方式实现,因其可自动拼接图片以达到铺满wo......
2022-08-20 202 word设置背景图片 word背景图片铺满
excel加密文件怎么取消密码?有时为了文件便于流通,我们需要将excel的密码取消,在文件位置取消保护即可。excel加密文件忘记了密码怎么办?如果excel已经更新至Microsoft 365版,excel忘......
2022-10-13 215 excel加密文件取消密码 excel加密文件忘记了密码怎么办
打开一个别人发的excel表格之后发现打印出来的表格上面有文字或图片水印或者有第一页,共xx页,这样的东西想去掉,但是很多新手办公族不知道excel表格水印怎么去掉和excel表格如何......
2022-08-29 206 excel表格水印去掉 excel表格水印添加
我们打开word文档时,发现word文档中菜单栏很多功能都没有办法使用,word文档中的内容也没有办法进行编辑,其实这是word文档被限制编辑,也就是word文档被锁定了,那么word被锁定无法......
2022-11-04 221 word被锁定没有密码解锁 word被锁定无法编辑解锁