WPS excel VBA 常用功能代码

VBA中单元格位移方法，解释：

submy_offset

(0,1).Select'当前单元格向左移动一格

(0,-1).Select'当前单元格向右移动一格

(1,0).Select'当前单元格向下移动一格

(-1,0).Select'当前单元格向上移动一格

endsub

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

单元格使用公式后显示0的去除方法，把单元格格式设置为自定义输入类型 0;-0;;@ 即可

编辑切换为居中

添加图片注释，不超过 140 字（可选）

编辑

添加图片注释，不超过 140 字（可选）

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

有时候我们在录入数据的时候需要清空指定单元格内容，一个一个清空内容又太麻烦，这个时候我们可以制作一个按钮一键清空指定单元格内容，代码如下

Private Sub CommandButton1_Click() '按钮事件

Range("a1:b5,d1:e9").ClearContents

End Sub

'清除a1:b5 ， d1:e9 单元格内容，需要清空的单元格根据需要自己设置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

'多条件筛选实现代码

Private Sub CommandButton1_Click() '按钮事件

Sheet1.Range("A1:F30").AutoFilter Field:=2, Criteria1:=Array("1","2","3","4", "5"), Operator:=xlFilterValues

End Sub

'代码解释：12345是我们需要筛选的内容，A1:F30是筛选的区域，Field:=2 筛选第二列，根据需要自己设置一下。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

当我们把工作表设置了密码保护时，有很多功能用不了，比如没有办法使用筛选功能，没有办法把文本框的内容写入表格，解决方法如下

With Sheets("sheet2")

.Unprotect Password:="123456" '解除工作表保护

'此处是你需要运行的功能

.Protect Password:="123456" '保护工作表，设置密码

End With

解释：sheet2是第二个工作表，根据需要自行设置，123456，是你工作表设置的密码，在你需要运行代码的头尾处插入以上代码即可，代码功能解释：先解开工作表密码，然后运行你所需要的功能，然后工作表在加密码保护。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

当我们制作表格时有时候需要一键快速打印，这个时候我们就要制作一个打印按钮

打印一次递增的数量

Private Sub CommandButton1_Click() '按钮命令

[A1] = [A1] + 1 'A1单元格打印一次加1

Worksheets("sheet2").PrintOut From:=1, To:=1, Copies:=1 '打印命令

End Sub

'按钮命令，点击打印 From:=1起始页 To:=1结束页 Copies:=1打印份数,sheet2就是指定打印第二个工作表，

根据需要，随便指定打印哪个工作表，哪一页。

[A1] = [A1] + 1 'A1单元格打印一次加1，根据需要添加，在这里的作用是打印一次A1单元格内容加1，

用于自动编号，比如打印一次编号递增，XS0000056 。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

ThisWorkbook 代码工作簿启动时运行窗体（必填）

Private Sub Workbook_Open()

UserForm1.Show vbModeless '显示窗口的同时可以操作窗口以为的事物

End Sub

Private Sub Workbook_Open()

UserForm1.Show '显示窗口时不可以操作窗口以为的事物

End Sub

当我们制作VBA窗体时需要在打开工作簿时就运行我们的窗体，我们就要在ThisWorkbook里面写入启动窗口代码

UserForm1.Show 就是启动第1个窗口，需要启动时启动哪个窗口就设置哪个，根据需要随便设置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

隐藏数据列的vba代码。

Private Sub CommandButton1_Click()

Worksheets("sheet2").Columns("C").Hidden = True'隐藏第C列，sheet2就是隐藏sheet2工作表的C列

End Sub

Private Sub CommandButton2_Click()

Worksheets("sheet2").Columns("C").Hidden = False'取消隐藏第C列

End Sub

指定工作表和哪一列根据自己需要设置。

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

VBA隐藏和取消隐藏工作表

假设要隐藏第2个工作表

Private Sub CommandButton1_Click()

Sheets(2).Visible = False

End Sub

取消隐藏就把false改为true

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

excel表格如何为工作表指定区域设置使用有效期限

1、选定A1到E15单元格，设置单元格格式，保护里面解除锁定，

2、在数据里面设置数据有效性，选择自定义，填入公式=TODAY()<DATE(2023,1,5)

3、出错警告里面填写你想提示的内容，确定，

4、保护工作表，设置密码，当系统时间大于2023,1,5 A1到E15单元格不可输入或编辑，自动锁定单元格，

公式里面时间可以随便设置，根据需要设置。

WPS excel VBA 常用功能代码相关推荐

EXCEL VBA常用语句100句
以下转自:http://www.bbioo.com/blog/bio/guohui/1524.htm EXCEL VBA常用语句100句定制模块行为 Option Explicit '强制对模块内所 ...
java poi 常用功能代码
java poi 常用功能代码(适用于XSSFWorkbook:Excel2007后的版本,扩展名是.xlsx) Excel验证公式 =AND(H8>0,OR(H8=INT(H8),LEN(H8 ...
ASP.NET中常用功能代码总结（3）——上传图片到数据库
ASP.NET中常用功能代码总结(3)--上传图片到数据库<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:offi ...
ASP.NET中常用功能代码总结（1）——发送邮件篇
ASP.NET中常用功能代码总结(1)--发送邮件篇<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office: ...
Wordpress模板主题中functions.php常用功能代码与常用插件[ 后台篇]（持续收集整理）
用Wordpress建站的初学者一定会需要用到的Wordpress模板主题中functions.php常用功能代码与常用插件.慢慢持续收集整理....... 目录一.Wordpress模板主题中fu ...
太实用了！Excel VBA常用代码！
前两天有两位朋友留言想收集一些VBA的常用代码,今天开始会陆续分享一些! 记得收藏好哦,因为今后你应用到稍大型Excel VBA程序时,这其中某些代码肯定会用到. 来看看都是哪些常用代码: 下面先举一 ...
DirectDraw 常用功能代码记录
记录一些常用的代码功能段便于自己以后查找使用: 1.常用宏和函数 #define SafeRelease(lpx) if(lpx!=NULL){lpx->Release();lpx=NULL;} ...
Python+pywin32操作Excel文件常用功能（268行代码+注释）
全国高校教师Python课程高级研修班(线上,11月20-21日) 中国大学MOOC"Python程序设计基础"第5次开课推荐图书: <Python程序设计(第3版)> ...
[Excel.VBA常用代码实战大全].袁竹平.扫描版百度云
链接:https://pan.baidu.com/s/1vPQaUrZ2UbY7BS4wiHGnXw 提取码:68ee

WPS excel VBA 常用功能代码

WPS excel VBA 常用功能代码相关推荐

最新文章

热门文章