2007-01-10

一个简单的vba程序

关键字: 程序
1、实现一个基本的复制功能，办公室同事所需要的一个小功能。
 
  1. Sub rep()  
  2. '  
  3. ' rep Macro  
  4. ' 宏由 sea gull 录制，时间: 2007-1-10  
  5. '  
  6.   
  7. '  
  8.   Dim i As Integer  
  9.   Dim endrow As Integer  
  10.   endrow = Range("A65536").End(xlUp).Row  
  11.     
  12.   For i = 2 To endrow  
  13.     
  14.     If Cells(i, 2).Value = "" Then  
  15.       Cells(i, 2).Value = Cells(i, 3).Value  
  16.     End If  
  17.       
  18.   Next  
  19.     
  20. End Sub  


2、检查身份证号码不为18位的单元格刷红：
 
  1. Sub check18()  
  2. '  
  3. ' check18 Macro  
  4. ' 宏由 sea gull 录制，时间: 2007-1-10  
  5. '   
  6. '  
  7. Dim i As Integer  
  8. Dim endrow As Integer  
  9. endrow = Range("A65536").End(xlUp).Row  
  10. For i = 2 To endrow  
  11.   If Len(CStr(Cells(i, 3).Value)) <> 18 And Len(CStr(Cells(i, 3).Value)) <> 15 Then  
  12.       Cells(i, 3).Font.ColorIndex = 3  
  13.   End If  
  14. Next  
  15.   
  16. End Sub  
评论
发表评论

您还没有登录，请登录后发表评论

sea gull
搜索本博客
存档
最新评论
评论排行榜