如何用VBA是实现单元格单词首字母大写

一周八天

例如：

在列A和E中，有一些单词，如何实现所有单词首字母大写，如果不是更改为大写并标成红色

新建 Microsoft Office Excel Worksheet (3).rar (7.2 KB, 下载次数: 85)

2010-11-9 14:58 上传

点击文件名下载附件

alzeng

1. 
   
2. Sub UcaseIt()
   
3.     Dim rng As Range, strMark$
   
4.     Dim Arr, k%, iLen%
   
5. 
   
6.     For Each rng In ActiveSheet.UsedRange
   
7.         strMark = "": iLen = 0
   
8.         If Len(rng) Then
   
9.             Arr = Split(" " & rng, " ")
   
10.             For k = 1 To UBound(Arr)
    
11.                 iLen = iLen + Len(Arr(k - 1)) + 1
    
12.                 If Arr(k) Like "[a-z]*" Then
    
13.                     strMark = strMark & " " & iLen
    
14.                     Arr(k) = UCase(Left(Arr(k), 1)) & Mid(Arr(k), 2, Len(Arr(k)))
    
15.                 End If
    
16.             Next
    
17.             If Len(Trim(strMark)) Then
    
18.                 rng = Trim(Join(Arr))
    
19.                 Arr = Split(strMark, " ")
    
20.                 For k = 1 To UBound(Arr)
    
21.                     rng.Characters(Start:=Arr(k), Length:=1).Font.Color = vbRed
    
22.                 Next
    
23.             End If
    
24.         End If
    
25.     Next
    
26. End Sub
    

复制代码

一周八天

万分感谢！

kevinchengcw

worksheetfunction.proper不知行不行

[ 本帖最后由 kevinchengcw 于 2010-11-9 16:38 编辑 ]

一周八天

请问一下，能否在过程中判断该词是否为of 或者 and, 如果是，就不更改，请问这样能做到么

alzeng

1. 
   
2. Sub UcaseIt()
   
3.     Dim rng As Range, strMark$
   
4.     Dim Arr, k%, iLen%
   
5. 
   
6.     For Each rng In ActiveSheet.UsedRange
   
7.         strMark = "": iLen = 0
   
8.         If Len(rng) Then
   
9.             Arr = Split(" " & rng, " ")
   
10.             For k = 1 To UBound(Arr)
    
11.                 iLen = iLen + Len(Arr(k - 1)) + 1
    
12.                 If Arr(k) = "of" Or Arr(k) = "and" Then
    
13.                 ElseIf Arr(k) Like "[a-z]*" Then
    
14.                     strMark = strMark & " " & iLen
    
15.                     Arr(k) = UCase(Left(Arr(k), 1)) & Mid(Arr(k), 2, Len(Arr(k)))
    
16.                 End If
    
17.             Next
    
18.             If Len(Trim(strMark)) Then
    
19.                 rng = Trim(Join(Arr))
    
20.                 Arr = Split(strMark, " ")
    
21.                 For k = 1 To UBound(Arr)
    
22.                     rng.Characters(Start:=Arr(k), Length:=1).Font.Color = vbRed
    
23.                 Next
    
24.             End If
    
25.         End If
    
26.     Next
    
27. End Sub
    

复制代码

一周八天

太感谢了, 一念帮了大忙了!!!!!

youwannabet

alzeng 发表于 2010-11-9 16:08

If Len(rng) Then
这点看不懂，if后面不是接逻辑吗，如果 怎么怎么等于大于小于什么什么 就怎么怎么，你这就是怎么理解

袁振涛

这个相当于判断rng.value是否为空。判断逻辑值 true   false,但与此同时，0可转换为false.为空时即为0

tswing

kevinchengcw 发表于 2010-11-9 16:35
worksheetfunction.proper不知行不行

[ 本帖最后由 kevinchengcw 于 2010-11-9 16:38 编辑 ]

这个可以的