日记首页
|
列表
|
添加日记
|
管理登陆
标题：vba程序，生成边框
<div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;"><div>Sub 边框线()</div><div>ActiveSheet.UsedRange.Borders.LineStyle = 1</div><div>End Sub</div><div><span style="color: rgb(36, 41, 47); font-family: ali-55;">添加一个细的、黑色线条框线，以围绕活动工作表上使用的单元格。</span></div><div><span style="color: rgb(36, 41, 47); font-family: ali-55;"><br></span></div></span></font></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;"><br></span></font></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;">Sub 加边框()</span></font></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;"> Range("a1").CurrentRegion.Borders.LineStyle = 1</span></font></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;">End Sub</span></font></div><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 10.5pt;"> </span></font><div style="font-family: Arial; font-size: 10.5pt;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">改进：a1为赋值x</span></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;">VBA中有，range("A1")、cells（1,1），[A1]这三种选择对象的方法</span></font></div><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;">所以，把</span></font></div><div style="font-family: Arial; font-size: 10.5pt;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">Range("a1")换成了</span><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">cells（x,1）</span></div><div style="font-family: Arial; font-size: 10.5pt;"><br></div><div style=""><div style=""><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun" style="font-family: "Microsoft YaHei"; font-size: medium;"><span style="font-size: 14px;"> </span></font><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><span style="font-size: 14px;">Cells(x, 1).CurrentRegion.Borders.LineStyle = 1</span></font></div><div style="font-family: "Microsoft YaHei"; font-size: medium;">备注：x的赋值有别的语句</div><div style="font-family: "Microsoft YaHei"; font-size: medium;">参考：收费+支出</div><div style="font-family: "Microsoft YaHei"; font-size: medium;"><br></div><div style="font-family: "Microsoft YaHei"; font-size: medium;">**************************</div><div style="font-family: "Microsoft YaHei"; font-size: medium;"><br></div><div style="font-family: "Microsoft YaHei"; font-size: medium;"><span style="font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Helvetica, Arial, sans-serif, "Apple Color Emoji", "Segoe UI Emoji"; font-size: 14px; background-color: rgb(248, 248, 248);">以下是将当前活动工作表中使用的范围的边框样式设置为1的VBA代码：</span></div><div style="font-family: "Microsoft YaHei"; font-size: medium;"><span style="color: rgb(36, 41, 46); font-family: ui-monospace, SFMono-Regular, "SF Mono", Menlo, Consolas, "Liberation Mono", monospace; font-size: 11.9px; white-space: pre; background-color: rgba(217, 217, 227, 0.8);">Sub SetBorders() Dim ws As Worksheet ' 设置当前活动工作表 Set ws = ActiveSheet ' 将使用的范围的边框样式设置为1 ws.UsedRange.Borders.LineStyle = 1 End Sub</span></div><div style="font-family: "Microsoft YaHei"; font-size: medium;">参考：老师结算系统</div></div>
