在VBA中,如何编写调整行高的代码

 时间:2024-10-24 09:18:30

本篇经验将和大家分享,【在VBA中,如何编写调整行高的代码?】

工具/原料

电脑壹台

OFFICE办公软件

方法/步骤

1、实例:【调整涂色区域的行高,奇数行为25,偶数行为10?】,如图所示。

在VBA中,如何编写调整行高的代码

2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!

在VBA中,如何编写调整行高的代码

3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!

在VBA中,如何编写调整行高的代码

4、会弹出模块编辑窗口!

在VBA中,如何编写调整行高的代码

5、在代码编辑窗口输入以下代码。Sub调整行高()ForEachrwInRo嘛术铹砾ws("1:15")Ifrw.Row罄休卦咦Mod2=0Thenrw.RowHeight=10Elserw.RowHeight=25EndIfNextEndSub

在VBA中,如何编写调整行高的代码

6、在VBA窗口,点击【运行】按钮!

在VBA中,如何编写调整行高的代码

7、如图所示,表中行与行之间显得很有层次,比较清晰!

在VBA中,如何编写调整行高的代码

导入:Hbuilder导入本地站点 如何一次性选择格式相同的内容? 前端脱坑记之VUE修改v-model数据后页面未刷新 鼠标经过显示标签(AS2/AS3) jquery如何获取多个ul下面的第一个li内容
热门搜索
哈雷摩托价格及图片 电影在线免费 藏獒图片大全大图 高清炮图片 绿色家园图片