excel实用练习题

aiqingyouyu

Excel专业一年级，:)

Peter_qz

谢谢 楼主的无私奉献.... ..

weixin_sysu

楼主好样的，加油

一万只老虎

楼主辛苦了

mutianyilee

谢谢楼主，适合初学者

weixin_sysu

1. Sub arr2()  '主程序
   
2. 
   
3. Sheets(2).Range("d1:iv9").Value = ""
   
4. 
   
5.   Dim rng1 As Range, rng2 As Range
   
6.   Dim i As Long, j As Long
   
7.   Dim bb As Long, cc As Long
   
8.   
   
9.   aa = Sheets(2).Range("a65536").End(xlUp).Row
   
10.   
    
11.   Set rng1 = Sheets(2).Range("a2:a" & aa)
    
12. 
    
13.       j = 2
    
14.       For i = 2 To aa Step 1
    
15.         conf1 = WorksheetFunction.CountIf(Range("a1:a" & (i - 1)), Range("a" & i))
    
16.         
    
17.         If Range("a" & j) <> "" And conf1 = 0 Then
    
18.         
    
19.           Cells(1, j + 2) = Range("a" & i)
    
20. 
    
21.             j = j + 1
    
22.           End If
    
23.          
    
24.           Next
    
25.                   
    
26.   Call arr3  '辅助程序1
    
27.    
    
28.   Call arr4  '辅助程序2
    
29.   
    
30.    
    
31. End Sub
    
32. 
    
33. 
    
34. 
    
35. Sub arr3()
    
36.   Dim cc As Long
    
37.   
    
38. Set rng1 = Sheets(2).Range("a2:a65536")
    
39. Set rng2 = Sheets(2).Range("b2:b65536")
    
40.    bb = Sheets(2).Range("IV1").End(xlToLeft).Column
    
41.    aa = Sheets(2).Range("a65536").End(xlUp).Row
    
42.       
    
43.       For i = 2 To aa Step 1
    
44.       
    
45.          For j = 4 To bb Step 1
    
46.         
    
47.             If Range("a" & i) = Cells(1, j) Then
    
48.               cc = Sheets(2).Cells(65536, j).End(xlUp).Row
    
49.               Cells(cc + 1, j) = Range("b" & i)
    
50.               
    
51.               End If
    
52.               
    
53.         Next
    
54.         
    
55.       Next
    
56.       
    
57. 
    
58. End Sub
    
59. 
    
60. Sub arr4()
    
61. 
    
62. Dim rng As Range
    
63. 
    
64.    Set rng = Sheets(2).Range("d1:i9")
    
65.    
    
66.       With rng.Borders(xlEdgeLeft)
    
67.         .LineStyle = xlContinuous
    
68.         .Weight = xlThin
    
69.       End With
    
70.       
    
71.        With rng.Borders(xlEdgeRight)
    
72.         .LineStyle = xlContinuous
    
73.         .Weight = xlThin
    
74.       End With
    
75.       
    
76.       With rng.Borders(xlEdgeBottom)
    
77.         .LineStyle = xlContinuous
    
78.         .Weight = xlThin
    
79.       End With
    
80.       
    
81.       With rng.Borders(xlEdgeTop)
    
82.         .LineStyle = xlContinuous
    
83.         .Weight = xlThin
    
84.       End With
    
85.       
    
86.     With rng.Borders(xlInsideVertical)
    
87.         .LineStyle = xlContinuous
    
88.         .Weight = xlThin
    
89.     End With
    
90.    
    
91.     With rng.Borders(xlInsideHorizontal)
    
92.         .LineStyle = xlContinuous
    
93.         .Weight = xlThin
    
94.         End With
    
95.         
    
96.      With rng.Interior
    
97.         .Pattern = xlSolid
    
98.         .Color = vbCyan
    
99.     End With
    
100.    
     
101.      Sheets(2).Range("d1:iv1").Font.Bold = True
     
102. 
     
103. End Sub
     
104. 
     
105. 
     
106. Sub test1()
     
107. 
     
108. Dim starttime As Double
     
109. 
     
110.   starttime = Timer
     
111.   
     
112.   Call arr2
     
113.   
     
114.   MsgBox ("程序运行时间为：" & Timer - starttime & "秒！")
     
115.   
     
116. End Sub
     
117. 
     
118. 
     
119. 
     
120. Sub delete1()
     
121. 
     
122.   Sheets(2).Range("d1:iv9").Value = ""
     
123.   
     
124. End Sub
     
125. 
     
126. Sub delete2()
     
127. 
     
128.   Sheets(2).Range("d1:iv9").Clear
     
129.   
     
130. End Sub

复制代码

ae9480

感谢分享！特别是日期函数的应用总结的非常好。

zuiaidh2004

谢谢楼主。。。。

艾暖宝贝

谢谢楼主啦  顶！

Della-朱

第五题那个不知道怎么弄出来的。那个下拉的选择是在哪弄的？然后选择谁他的就出来，怎么弄呀？