vba 常用代码

Ecyun.com

原文链接：https://jingyan.baidu.com/article/cb5d61055d5d35405c2fe0c0.html

1. 
   
2. Sub adc()
   
3. 
   
4. 
   
5. 
   
6.      On Error Resume Next        '出错继续执行后面的代码
   
7. 
   
8. 
   
9.      'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3
   
10. 
    
11. 
    
12.      'Selection.Font.ColorIndex = 5
    
13. 
    
14. 
    
15.      'Range("A1:A11").Select     '选择辅助的区域
    
16. 
    
17. 
    
18.      'Selection.Copy             '复制
    
19. 
    
20. 
    
21.      'Range("A13").Select        '选择粘贴的第一个单元格
    
22. 
    
23. 
    
24.      'ActiveSheet.Paste          '粘贴
    
25. 
    
26. 
    
27.      'Selection.Font.ColorIndex = 5 '字的颜色号为3 红色
    
28. 
    
29. 
    
30.      Selection.Interior.ColorIndex = 44 ' 背景的颜色为3 红色
    
31. 
    
32. 
    
33.      'Selection.Font.Color = RGB(0, 255, 0) '字的颜色绿色
    
34. 
    
35. 
    
36.      'Selection.Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色
    
37. 
    
38. 
    
39. End Sub

复制代码