V中第04讲(01号-22号)作业上交贴

fjmxwrs

谢谢老师指点
第4讲作业-012-fjmxwrs.zip (37.25 KB, 下载次数: 31)

2012-2-17 18:22 上传

点击文件名下载附件

rxj_0414

1. 
   
2. Function ChkShExists(sheetName)
   
3.     Dim sht As Worksheet
   
4.     Dim wb As Workbook
   
5.     ChkShExists = "不存在"
   
6.     For Each wb In Workbooks
   
7.         For Each sht In wb.Worksheets
   
8.             If sht.Name = sheetName Then
   
9.                 If ChkShExists = "不存在" Then ChkShExists = ""
   
10.                 ChkShExists = ChkShExists & wb.Name & "   "
    
11.             End If
    
12.         Next sht
    
13.     Next wb
    
14. End Function
    
15. 
    
16. Function ColName(cel)
    
17.     Dim num As Integer
    
18.     Dim iFst As Integer
    
19.     Dim iSec As Integer
    
20.     num = cel.Column
    
21.     iFst = num \ 26
    
22.     If iFst > 0 Then
    
23.         ColName = Chr(iFst + 64)
    
24.     End If
    
25.     iSec = num Mod 26
    
26.     ColName = ColName & Chr(iSec + 64)
    
27. End Function
    
28. 
    
29. Function ColorStr(rng As Range)
    
30.     Dim i%
    
31.     For i = 1 To Len(rng.Value)
    
32.         If rng.Characters(i, 1).Font.ColorIndex = 3 Then
    
33.             ColorStr = ColorStr & VBA.Mid(rng.Value, i, 1)
    
34.         End If
    
35.     Next i
    
36. End Function
    

复制代码

jsgslgd

不会做了。只做了后面的。
第04讲作业-09-jsgslgd.rar (32.12 KB, 下载次数: 1)

2012-2-19 16:00 上传

点击文件名下载附件