在B2至M2区域内绘制100行的表格，VBA代码怎么写

shmylovei · 发表于 2019-10-11 19:39

本帖最后由 shmylovei 于 2019-10-11 19:58 编辑

如题：在B2至M2区域内绘制100行的表格，VBA代码怎么写
麻烦各位老师都帮下忙，发下自己的代码，我想学习下这种代码，谢谢
如下图片所示就是想要第二个图片红线圈起来的那个田字格绘制表格的功能去自动绘制
或者换个思路实现也行：就是给表1里面所有有字符、文字、内容的单元格填充上单元格

网海遨游 · 发表于 2019-10-11 19:42

在B2至M2区域内绘制100行的表格
如何绘？既没附件，也没具体要求，不好整。

shmylovei · 发表于 2019-10-11 19:47

网海遨游发表于 2019-10-11 19:42
在B2至M2区域内绘制100行的表格
如何绘？既没附件，也没具体要求，不好整。

感谢你的帮助我已经上传图片了麻烦老师帮忙看看吧

abc123281 · 发表于 2019-10-11 20:22

循环的方法

Sub test()
For i = 2 To 101
Cells(i, 2).Resize(1, 12).Borders.LineStyle = 1
Next
End Sub

abc123281 · 发表于 2019-10-11 20:24

不用循环

Sub test1()
Range("b2").Resize(100, 12).Borders.LineStyle = 1
End Sub

shmylovei · 发表于 2019-10-11 21:16

abc123281 发表于 2019-10-11 20:24
不用循环

Sub test1()

大侠威武感谢

		自动登录	找回密码
密码			免费注册

[求助] 在B2至M2区域内绘制100行的表格，VBA代码怎么写

评分