[已解决]VBA根据输入内容设置框线

ckoeng

111	aaa	啊啊啊	11a	aa1	啊啊1	11啊	aa啊	啊啊a	1a啊

如上表所示，excel单元格内输入内容，其组成为随机的中文、英文、数字及其各种组合（顺序也是随机的），现需求：
当单元格内输入的内容只有英文时，为单元格设置框线；若是其他情况，则为输入内容的单元格及下方的一个单元格同时设置框线
谢谢~{:011:}

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-1 10:49

1. Sub tt()
   
2.     Dim cel As Range
   
3.     For Each cel In [a1:j1]
   
4.         x = cel.Text
   
5.         For i = 1 To Len(x)
   
6.             If Not Mid(x, i, 1) Like "[a-zA-Z]" Then Exit For
   
7.         Next
   
8.         If i > Len(x) Then r = 1 Else r = 2
   
9.         cel.Resize(r).Borders.LineStyle = 1
   
10.     Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

循环判断，做也事件

grf1973

1. Sub tt()
   
2.     Dim cel As Range
   
3.     For Each cel In [a1:j1]
   
4.         x = cel.Text
   
5.         For i = 1 To Len(x)
   
6.             If Not Mid(x, i, 1) Like "[a-zA-Z]" Then Exit For
   
7.         Next
   
8.         If i > Len(x) Then r = 1 Else r = 2
   
9.         cel.Resize(r).Borders.LineStyle = 1
   
10.     Next
    
11. End Sub

复制代码

ilovelittle

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "[A-Za-z]"
   
6.         If Len(Target(1).Value) > 0 Then
   
7.             If .Execute(Target(1).Value).Count = Len(Target(1).Value) Then
   
8.                 Target(1).Borders.LineStyle = 1
   
9.             Else
   
10.                 Target(1).Resize(2).Borders.LineStyle = 1
    
11.             End If
    
12.         End If
    
13.     End With
    
14. End Sub
    

复制代码

新建 Microsoft Excel 工作表.rar (12.09 KB, 下载次数: 5)

2017-3-1 11:10 上传

点击文件名下载附件

ilovelittle

啊。。。慢了

ckoeng

ilovelittle 发表于 2017-3-1 11:10

谢谢回复