单元格画线求助

tcy119 · 发表于 2018-6-25 10:10

原表
现金
代码科目名称日期金额备注
1001 现金 20180101 1 OK
1001 现金 20180101 2 OK
1001 现金 20180115 3 OK
合计 6

应收款
代码科目名称日期金额备注
1122 应收款 20180116 4 OK
1122 应收款 20180117 5 OK
1122 应收款 20180120 6 OK
1122 应收款 20180131 7 OK
合计 22

银行
代码科目名称日期金额备注
1002 银行 20180101 3 OK
1002 银行 20180102 4 有
1002 银行 20180103 5
1002 银行 20180104 6 无
合计 18

预付款
代码科目名称日期金额备注
1123 预付款 20180105 7
1123 预付款 20180106 8
1123 预付款 20180107 9
1123 预付款 20180108 10
1123 预付款 20180109 11
合计 45

应付款
代码科目名称日期金额备注
2241 应付款 20180110 12
合计 12
需对单个区或画线。详见附件。谢谢！

画线求助.rar (8.43 KB, 下载次数: 10)

liulang0808 · 发表于 2018-6-25 10:28

Sub 按钮1_Click()
Application.ScreenUpdating = False
For j = 1 To Cells(Rows.Count, 3).End(3).Row + 5
If Len(Cells(j, 3)) > 0 And Len(Cells(j, 2)) = 0 Then
r1 = j + 1
Else
If Cells(j, 2) = "合计" Then
Cells(j, 1).Resize(1, 2).Merge
Range(Cells(r1, 1), Cells(j, 5)).Borders.LineStyle = xlContinuous
End If
End If
Next j
Application.ScreenUpdating = True
End Sub

复制代码

liulang0808 · 发表于 2018-6-25 10:29

附件内容供参考。。。。。。

ivccav · 发表于 2018-6-25 10:31

画线求助.zip (10.65 KB, 下载次数: 5)

不知道为什么 · 发表于 2018-6-25 10:36

这标题。。。。

tcy119 · 发表于 2018-6-25 10:39

liulang0808 发表于 2018-6-25 10:29
附件内容供参考。。。。。。

谢谢版主，最好代码后面有注释，这样可以更好的学习。

liulang0808 · 发表于 2018-6-25 10:45

tcy119 发表于 2018-6-25 10:39
谢谢版主，最好代码后面有注释，这样可以更好的学习。

根据C列找到不是空，切b列对应是空的
然后在b列找“合计”，然后合并单元格，对区域设置边线

tcy119 · 发表于 2018-6-25 10:54

liulang0808 发表于 2018-6-25 10:45
根据C列找到不是空，切b列对应是空的
然后在b列找“合计”，然后合并单元格，对区域设置边线

谢谢，学习了！

tcy119 · 发表于 2018-6-25 10:55

ivccav 发表于 2018-6-25 10:31

谢谢，可以用，学习了。

hhjjpp · 发表于 2018-6-25 11:54

条件格式

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

[求助] 单元格画线求助

评分

评分