[已解决]请问 如何给新增加内容的单元格画上边框

longjingcha1122

我在Excel VBA中写了一个给excel表录入记录的小程序  如何在点“按钮”后自动为新录入内容的单元格画上边框   谢谢指教

如图 下边新增内容都没有边框

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-1-3 08:39

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   With Target
   
3.     If .Count > 1 Then Exit Sub
   
4.     If .Row < 5 Then Exit Sub
   
5.     If .Column <> 1 Then Exit Sub
   
6.     If .Value = "" Then
   
7.       Range(Cells(.Row, "A"), Cells(.Row, "I")).Borders.LineStyle = 0
   
8.     Else
   
9.       Range(Cells(.Row, "A"), Cells(.Row, "I")).Borders.LineStyle = 1
   
10.     End If
    
11.   End With
    
12. End Sub

复制代码

跳转到最佳答案楼层

砂海

1 应用 "样式" 会自动有格式
2 实在要用宏写,录制一下 边框怎么写 就好了

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   With Target
   
3.     If .Count > 1 Then Exit Sub
   
4.     If .Row < 5 Then Exit Sub
   
5.     If .Column <> 1 Then Exit Sub
   
6.     If .Value = "" Then
   
7.       Range(Cells(.Row, "A"), Cells(.Row, "I")).Borders.LineStyle = 0
   
8.     Else
   
9.       Range(Cells(.Row, "A"), Cells(.Row, "I")).Borders.LineStyle = 1
   
10.     End If
    
11.   End With
    
12. End Sub

复制代码

longjingcha1122

七彩屋 发表于 2016-1-3 08:39

老师请问这段代码应该加在哪 现在没有反应也不报错

七彩屋

本工作表下，工作表事件，上传附件给你加上。

七彩屋

本工作表下，工作表事件，上传附件给你加上。
这代码不用按钮。写一行自动加上一行。

longjingcha1122

七彩屋 发表于 2016-1-3 18:20
本工作表下，工作表事件，上传附件给你加上。
这代码不用按钮。写一行自动加上一行。

附件.rar (51.97 KB, 下载次数: 2)

2016-1-3 18:41 上传

点击文件名下载附件
窗体内 “保存” 会复制副本表新建  并向下保存文本框内容
新加的行画边框

谢谢

七彩屋

附件.rar (24.62 KB, 下载次数: 7)

2016-1-3 20:42 上传

点击文件名下载附件