excel 时钟 LED效果

1. Sub 条件()
   
2. [a7] = Now()
   
3. 
   
4. '//////////////秒钟显示//////////////
   
5. 
   
6. [B9] = Second(Now())
   
7. [a3] = 25
   
8. If [A9] = 0 Then
   
9. 数字0
   
10. End If
    
11. If [A9] = 1 Then
    
12. 数字1
    
13. End If
    
14. If [A9] = 2 Then
    
15. 数字2
    
16. End If
    
17. If [A9] = 3 Then
    
18. 数字3
    
19. End If
    
20. If [A9] = 4 Then
    
21. 数字4
    
22. End If
    
23. If [A9] = 5 Then
    
24. 数字5
    
25. End If
    
26. If [A9] = 6 Then
    
27. 数字6
    
28. End If
    
29. If [A9] = 7 Then
    
30. 数字7
    
31. End If
    
32. If [A9] = 8 Then
    
33. 数字8
    
34. End If
    
35. If [A9] = 9 Then
    
36. 数字9
    
37. End If
    
38. 
    
39. 
    
40. [a3] = 31
    
41. If [A10] = 0 Then
    
42. 数字0
    
43. End If
    
44. If [A10] = 1 Then
    
45. 数字1
    
46. End If
    
47. If [A10] = 2 Then
    
48. 数字2
    
49. End If
    
50. If [A10] = 3 Then
    
51. 数字3
    
52. End If
    
53. If [A10] = 4 Then
    
54. 数字4
    
55. End If
    
56. If [A10] = 5 Then
    
57. 数字5
    
58. End If
    
59. If [A10] = 6 Then
    
60. 数字6
    
61. End If
    
62. If [A10] = 7 Then
    
63. 数字7
    
64. End If
    
65. If [A10] = 8 Then
    
66. 数字8
    
67. End If
    
68. If [A10] = 9 Then
    
69. 数字9
    
70. End If
    
71. 
    
72. 
    
73. '//////////////分钟显示//////////////
    
74.    
    
75. [B4] = Minute(Now())
    
76. [a3] = 13
    
77. If [A4] = 0 Then
    
78. 数字0
    
79. End If
    
80. If [A4] = 1 Then
    
81. 数字1
    
82. End If
    
83. If [A4] = 2 Then
    
84. 数字2
    
85. End If
    
86. If [A4] = 3 Then
    
87. 数字3
    
88. End If
    
89. If [A4] = 4 Then
    
90. 数字4
    
91. End If
    
92. If [A4] = 5 Then
    
93. 数字5
    
94. End If
    
95. If [A4] = 6 Then
    
96. 数字6
    
97. End If
    
98. If [A4] = 7 Then
    
99. 数字7
    
100. End If
     
101. If [A4] = 8 Then
     
102. 数字8
     
103. End If
     
104. If [A4] = 9 Then
     
105. 数字9
     
106. End If
     
107. 
     
108. 
     
109. [a3] = 19
     
110. If [A5] = 0 Then
     
111. 数字0
     
112. End If
     
113. If [A5] = 1 Then
     
114. 数字1
     
115. End If
     
116. If [A5] = 2 Then
     
117. 数字2
     
118. End If
     
119. If [A5] = 3 Then
     
120. 数字3
     
121. End If
     
122. If [A5] = 4 Then
     
123. 数字4
     
124. End If
     
125. If [A5] = 5 Then
     
126. 数字5
     
127. End If
     
128. If [A5] = 6 Then
     
129. 数字6
     
130. End If
     
131. If [A5] = 7 Then
     
132. 数字7
     
133. End If
     
134. If [A5] = 8 Then
     
135. 数字8
     
136. End If
     
137. If [A5] = 9 Then
     
138. 数字9
     
139. End If
     
140. 
     
141. 
     
142. 
     
143. '//////////////时钟显示//////////////
     
144.    
     
145. [B1] = Hour(Now())
     
146. [a3] = 0
     
147. If [A1] = 0 Then
     
148. 数字0
     
149. End If
     
150. If [A1] = 1 Then
     
151. 数字1
     
152. End If
     
153. If [A1] = 2 Then
     
154. 数字2
     
155. End If
     
156. If [A1] = 3 Then
     
157. 数字3
     
158. End If
     
159. If [A1] = 4 Then
     
160. 数字4
     
161. End If
     
162. If [A1] = 5 Then
     
163. 数字5
     
164. End If
     
165. If [A1] = 6 Then
     
166. 数字6
     
167. End If
     
168. If [A1] = 7 Then
     
169. 数字7
     
170. End If
     
171. If [A1] = 8 Then
     
172. 数字8
     
173. End If
     
174. If [A1] = 9 Then
     
175. 数字9
     
176. End If
     
177. 
     
178. 
     
179. [a3] = 6
     
180. If [A2] = 0 Then
     
181. 数字0
     
182. End If
     
183. If [A2] = 1 Then
     
184. 数字1
     
185. End If
     
186. If [A2] = 2 Then
     
187. 数字2
     
188. End If
     
189. If [A2] = 3 Then
     
190. 数字3
     
191. End If
     
192. If [A2] = 4 Then
     
193. 数字4
     
194. End If
     
195. If [A2] = 5 Then
     
196. 数字5
     
197. End If
     
198. If [A2] = 6 Then
     
199. 数字6
     
200. End If
     
201. If [A2] = 7 Then
     
202. 数字7
     
203. End If
     
204. If [A2] = 8 Then
     
205. 数字8
     
206. End If
     
207. If [A2] = 9 Then
     
208. 数字9
     
209. End If
     
210. 
     
211. 
     
212. Application.OnTime Now + TimeValue("00:00:03"), "条件"
     
213. 
     
214. End Sub
     
215. 
     
216. Sub 数字0()
     
217.    
     
218.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
219.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
220.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
221.     Sheet1.Cells(4, 10 + [a3]) = 1 '
     
222.     Sheet1.Cells(4, 8 + [a3]) = 1 '
     
223.     Sheet1.Cells(6, 9 + [a3]) = 0 '
     
224.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
225.     Sheet1.Cells(7, 8 + [a3]) = 1 '
     
226.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
227.    
     
228.     'Application.OnTime Now + TimeValue("00:00:03"), "数字1"
     
229.    
     
230.    
     
231. End Sub
     
232. 
     
233. 
     
234. Sub 数字1()
     
235.    
     
236.     Sheet1.Cells(2, 9 + [a3]) = 0 '
     
237.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
238.     Sheet1.Cells(3, 8 + [a3]) = 0 '
     
239.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
240.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
241.     Sheet1.Cells(6, 9 + [a3]) = 0 '
     
242.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
243.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
244.     Sheet1.Cells(10, 9 + [a3]) = 0 '
     
245. 'Application.OnTime Now + TimeValue("00:00:03"), "数字2"
     
246.    
     
247. End Sub
     
248. Sub 数字2()
     
249.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
250.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
251.     Sheet1.Cells(3, 8 + [a3]) = 0 '
     
252.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
253.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
254.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
255.     Sheet1.Cells(7, 10 + [a3]) = 0 '
     
256.     Sheet1.Cells(7, 8 + [a3]) = 1 '
     
257.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
258.    ' Application.OnTime Now + TimeValue("00:00:03"), "数字3"
     
259.    
     
260. End Sub
     
261. Sub 数字3()
     
262.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
263.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
264.     Sheet1.Cells(3, 8 + [a3]) = 0 '
     
265.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
266.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
267.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
268.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
269.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
270.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
271.     'Application.OnTime Now + TimeValue("00:00:03"), "数字4"
     
272. 
     
273. End Sub
     
274. Sub 数字4()
     
275.     Sheet1.Cells(2, 9 + [a3]) = 0 '
     
276.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
277.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
278.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
279.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
280.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
281.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
282.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
283.     Sheet1.Cells(10, 9 + [a3]) = 0 '
     
284.     'Application.OnTime Now + TimeValue("00:00:03"), "数字5"
     
285. 
     
286. End Sub
     
287. Sub 数字5()
     
288.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
289.     Sheet1.Cells(3, 10 + [a3]) = 0 '
     
290.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
291.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
292.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
293.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
294.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
295.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
296.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
297.     'Application.OnTime Now + TimeValue("00:00:03"), "数字6"
     
298. 
     
299. End Sub
     
300. Sub 数字6()
     
301.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
302.     Sheet1.Cells(3, 10 + [a3]) = 0 '
     
303.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
304.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
305.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
306.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
307.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
308.     Sheet1.Cells(7, 8 + [a3]) = 1 '
     
309.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
310.     'Application.OnTime Now + TimeValue("00:00:03"), "数字7"
     
311. 
     
312. End Sub
     
313. Sub 数字7()
     
314.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
315.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
316.     Sheet1.Cells(3, 8 + [a3]) = 0 '
     
317.     Sheet1.Cells(4, 10 + [a3]) = 0 '
     
318.     Sheet1.Cells(4, 8 + [a3]) = 0 '
     
319.     Sheet1.Cells(6, 9 + [a3]) = 0 '
     
320.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
321.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
322.     Sheet1.Cells(10, 9 + [a3]) = 0 '
     
323.    ' Application.OnTime Now + TimeValue("00:00:03"), "数字8"
     
324. 
     
325. End Sub
     
326. Sub 数字8()
     
327.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
328.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
329.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
330.     Sheet1.Cells(4, 10 + [a3]) = 1 '
     
331.     Sheet1.Cells(4, 8 + [a3]) = 1 '
     
332.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
333.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
334.     Sheet1.Cells(7, 8 + [a3]) = 1 '
     
335.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
336.    'Application.OnTime Now + TimeValue("00:00:03"), "数字9"
     
337. 
     
338. End Sub
     
339. Sub 数字9()
     
340.     Sheet1.Cells(2, 9 + [a3]) = 1 '
     
341.     Sheet1.Cells(3, 10 + [a3]) = 1 '
     
342.     Sheet1.Cells(3, 8 + [a3]) = 1 '
     
343.     Sheet1.Cells(4, 10 + [a3]) = 1 '
     
344.     Sheet1.Cells(4, 8 + [a3]) = 1 '
     
345.     Sheet1.Cells(6, 9 + [a3]) = 1 '
     
346.     Sheet1.Cells(7, 10 + [a3]) = 1 '
     
347.     Sheet1.Cells(7, 8 + [a3]) = 0 '
     
348.     Sheet1.Cells(10, 9 + [a3]) = 1 '
     
349.     'Application.OnTime Now + TimeValue("00:00:03"), "数字0"
     
350. 
     
351. End Sub

复制代码

用函数做好想更简单些

高，真高，就是高！！！！！！！！

这个功能不错呀。:D:)

大家看怎么样 我认为很好.