本篇经验将和大家分享,【在VBA中,如何编写调整行高的代码?】
工具/原料
电脑壹台
OFFICE办公软件
方法/步骤
1、实例:【调整涂色区域的行高,奇数行为25,偶数行为10?】,如图所示。
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码。Sub调整行高()ForEachrwInRo嘛术铹砾ws("1:15")Ifrw.Row罄休卦咦Mod2=0Thenrw.RowHeight=10Elserw.RowHeight=25EndIfNextEndSub
6、在VBA窗口,点击【运行】按钮!
7、如图所示,表中行与行之间显得很有层次,比较清晰!