|
помогите с командами в Visual Basic
#37564006
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
здравствуйте...мне дали решили задачу: определение настроения по цветозаписи..и мне надо скоро отчитываться по ней...а я не пойму что где означает...какие команды что означают...помогите пожалуйста...очень прошу!!!!
основная таблица делается в экселе а потом открывается Visual Basic и там идет всё программирование.....там 5 кнопок и под каждой программирование, следующие кнопки(может это поможет): начало дня, конец дня, результат, очистить, проверка ввода, еще есть пустой экран, куда выводятся фамилии
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
Private Sub CheckBox1_Click()
End Sub
Public Sub CommandButton1_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 22
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = 3
End If
Next
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 22
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = 3
End If
Next
End If
End Sub
Private Sub CommandButton10_Click()
Dim S(11) As Integer
Dim A(11) As Integer
If OptionButton2.Value = True Then
For j = 0 To 10
S(j) = Range("E3").Offset(j, 0).Interior.ColorIndex
If S(j) = 2 Then
n = 1
Else
n = n - 1
End If
Next
If n = 1 Then
MsgBox ("Перед получением результата заполните все данные ")
End If
End If
If OptionButton1.Value = True Then
For j = 0 To 10
S(j) = Range("C3").Offset(j, 0).Interior.ColorIndex
If S(j) = 2 Then
n = 1
Else
n = n - 1
End If
Next
If n = 1 Then
MsgBox ("Перед получением результата заполните все данные ")
End If
End If
End Sub
Private Sub CommandButton2_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 4
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = 2
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 4
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = 2
End If
Next i
End If
End Sub
Private Sub CommandButton3_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 6
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = 1
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 6
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = 1
End If
Next i
End If
End Sub
Private Sub CommandButton4_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 51
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = 0
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 51
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = 0
End If
Next i
End If
End Sub
Private Sub CommandButton5_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 5
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = -1
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 5
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = -1
End If
Next i
End If
End Sub
Private Sub CommandButton6_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 13
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = -2
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 13
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = -2
End If
Next i
End If
End Sub
Private Sub CommandButton7_Click()
If OptionButton1.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("C3").Offset(i, 0).Interior.ColorIndex = 16
Worksheets("Результаты").Range("C3").Offset(i, 1).Value = -3
End If
Next i
End If
If OptionButton2.Value = True Then
For i = 0 To 10
If ListBox1.ListIndex = i Then
Worksheets("Результаты").Range("E3").Offset(i, 0).Interior.ColorIndex = 16
Worksheets("Результаты").Range("E3").Offset(i, 1).Value = -3
End If
Next i
End If
End Sub
Public Sub CommandButton8_Click()
Dim A(11) As Integer
i = Range("D3:D13")
If OptionButton1.Value = True Then
For i = 0 To 10
A(i) = Range("D3").Offset(i, 0)
Next
For i = 0 To 10
n = (n + A(i))
Next
n = n / i
If n >= 0.6 And n < 1.6 Then
Range("C14").Interior.ColorIndex = 6
Range("C14").Offset(0, 1) = 1
Else
If n >= 1.6 And n < 2.6 Then
Range("C14").Interior.ColorIndex = 4
Range("C14").Offset(0, 1) = 2
Else
If n >= 2.6 And n < 3.6 Then
Range("C14").Interior.ColorIndex = 22
Range("C14").Offset(0, 1) = 3
Else
If n < 0.6 Then
Range("C14").Interior.ColorIndex = 51
Range("C14").Offset(0, 1) = 0
If n <= -0.6 And n > -1.6 Then
Range("C14").Interior.ColorIndex = 5
Range("C14").Offset(0, 1) = -1
Else
If n <= -1.6 And n > -2.6 Then
Range("C14").Interior.ColorIndex = 13
Range("C14").Offset(0, 1) = -2
Else
If n <= -2.6 And n > -3.6 Then
Range("C14").Interior.ColorIndex = 16
Range("C14").Offset(0, 1) = -3
End If
End If
End If
End If
End If
End If
End If
End If
Dim S(11) As Integer
i = Range("F3:F13")
If OptionButton2.Value = True Then
For i = 0 To 10
A(i) = Range("F3").Offset(i, 0)
Next
For i = 0 To 10
n = (n + A(i))
Next
n = n / i
If n >= 0.6 And n < 1.6 Then
Range("E14").Interior.ColorIndex = 6
Range("E14").Offset(0, 1) = 1
Else
If n >= 1.6 And n < 2.6 Then
Range("E14").Interior.ColorIndex = 4
Range("E14").Offset(0, 1) = 2
Else
If n >= 2.6 And n < 3.6 Then
Range("E14").Interior.ColorIndex = 22
Range("E14").Offset(0, 1) = 3
Else
If n < 0.6 Then
Range("E14").Interior.ColorIndex = 51
Range("E14").Offset(0, 1) = 0
If n <= -0.6 And n > -1.6 Then
Range("E14").Interior.ColorIndex = 5
Range("E14").Offset(0, 1) = -1
Else
If n <= -1.6 And n > -2.6 Then
Range("E14").Interior.ColorIndex = 13
Range("E14").Offset(0, 1) = -2
Else
If n <= -2.6 And n > -3.6 Then
Range("E14").Interior.ColorIndex = 16
Range("E14").Offset(0, 1) = -3
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub CommandButton9_Click()
Range("C3:C14", "E3:E13").Interior.ColorIndex = Clear
Range("D3:D14", "F3:F13").Value = Clear
For j = 0 To 10
Range("E3").Offset(j, 0).Interior.ColorIndex = 2
Range("C3").Offset(j, 0).Interior.ColorIndex = 2
Next
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Private Sub ScrollBar1_Change()
End Sub
Public Sub UserForm_Initialize()
With ListBox1
.AddItem "Шевцов Д.А"
.AddItem "Лебедева М.А"
.AddItem "Сударикова Н.А"
.AddItem "Рябов В.В"
.AddItem "Юганов М.А"
.AddItem "Соколова О.Н"
.AddItem "Мартыненко В.К"
.AddItem "Осокина Е.А"
.AddItem "Скворцова О.С"
.AddItem "Кузьмин С.В"
.AddItem "Храпова С.В"
End With
End Sub
вот это и есть...распишите в этой программе что означают команды, для чего они, хотя бы кратко...пожалуйста...очень надо!!!! |
|
|
