Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.04.2015
Сообщений: 2
1

Прокомментировать код

02.07.2015, 08:47. Показов 527. Ответов 1
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Есть кнопки на них есть код его надо прокомментировать все напианно с помощью VBA

1 Кнопка
Visual Basic
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

Private Sub CommandButton1_Click()
c = 3
s = Trim(Str(c + n))
Range("A" + s).Value = n + 1
Range("B" + s).Value = TextBox1.Text
Range("C" + s).Value = ComboBox1.Value
Range("D" + s).Value = TextBox2.Text
Range("E" + s).Value = ComboBox2.Value
Range("G2").Value = Range("G2").Value + 1
n = n + 1
s = Int(s)
Range(Cells(3, 1), Cells(s, 5)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub
 
 
Private Sub Userform_initialize()
n = Range("G2").Value
 With ComboBox1
.AddItem "ПКС-11"
.AddItem "ПКС-12"
.AddItem "ОРУМ-12"
.AddItem "ПРУМ-11"
.AddItem "ПРУМ-12"
.AddItem "1ТОА-11"
.AddItem "2ТОА-11"
.AddItem "1ТОА-12"
.AddItem "2ТОА-12"
End With
 With ComboBox2
.AddItem "матиматика"
.AddItem "русский язык"
.AddItem "физика"
.AddItem "Ф-ра"
.AddItem "Философия"
End With
End Sub
2 Кнопка
Visual Basic
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

Private Sub CommandButton1_Click()
a = 0
c = 2
If CheckBox1.Value = False Then
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
If Range("E" + s).Value = ComboBox1.Value Then
a = a + 1
End If
Next i
MsgBox ("Дисциплину " & ComboBox1.Value & " посещают " & a & " студентов")
Else
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
If (Range("E" + s).Value = ComboBox1.Value) And ((Range("d" + s).Value = TextBox1.Text) Or (Range("d" + s).Value > TextBox1.Text)) Then
a = a + 1
End If
Next i
MsgBox ("Дисциплину " & ComboBox1.Value & " посещают " & a & " студентов средний балл которых больше " & TextBox1.Text)
End If
 
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Userform_initialize()
 With ComboBox1
.AddItem "матиматика"
.AddItem "русский язык"
.AddItem "Физика"
.AddItem "Ф-ра"
.AddItem "Философия"
End With
End Sub
3 Кнопка

Visual Basic
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

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Label2.Visible = True
TextBox1.Visible = True
Else
Label2.Visible = False
TextBox1.Visible = False
End If
End Sub
 
Private Sub CommandButton1_Click()
a = 0
c = 2
If CheckBox1.Value = False Then
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
If Range("E" + s).Value = ComboBox1.Value Then
a = a + 1
End If
Next i
MsgBox ("Дисциплину " & ComboBox1.Value & " посещают " & a & " студентов")
Else
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
If (Range("E" + s).Value = ComboBox1.Value) And ((Range("d" + s).Value = TextBox1.Text) Or (Range("d" + s).Value > TextBox1.Text)) Then
a = a + 1
End If
Next i
MsgBox ("Дисциплину " & ComboBox1.Value & " посещают " & a & " студентов средний балл которых больше " & TextBox1.Text)
End If
 
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Userform_initialize()
 With ComboBox1
.AddItem "матиматика"
.AddItem "русский язык"
.AddItem "Физика"
.AddItem "Ф-ра"
.AddItem "Философия"
End With
End Sub
4 Кнопка
Visual Basic
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

Private Sub CommandButton1_Click()
c = 2
a = 0
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
If Range("B" + s).Value = ComboBox3.Value Then
Range("C" + s).Value = ComboBox1.Value
Range("D" + s).Value = TextBox2.Text
Range("E" + s).Value = ComboBox2.Value
a = a + 1
End If
Next i
If a = 1 Then
MsgBox ("Данные успешно изменены")
Else
MsgBox ("Такой студент не найден")
End If
End Sub
 
Private Sub Userform_initialize()
n = Range("F3").Value
 With ComboBox1
.AddItem "ПКС-11"
.AddItem "ПКС-12"
.AddItem "ОРУМ-12"
.AddItem "ПРУМ-11"
.AddItem "ПРУМ-12"
.AddItem "1ТОА-11"
.AddItem "2ТОА-11"
.AddItem "1ТОА-12"
.AddItem "2ТОА-12"
End With
 With ComboBox2
.AddItem "матиматика"
.AddItem "русский язык"
.AddItem "физика"
.AddItem "Ф-ра"
.AddItem "Философия"
End With
c = 2
For i = 1 To Range("G2").Value
s = Trim(Str(c + i))
ComboBox3.AddItem Range("B" + s).Value
Next i
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.07.2015, 08:47
Ответы с готовыми решениями:

Прокомментировать код
Помогите понять несколько кусочков кода.Спасибо Public Sub СохранитьКнигу() Select Case...

Прокомментировать код
Sub Shell_demo_START_A() Dim sdi, sdo, w As Integer, e As Integer, sdoA() As Double Set...

Прокомментировать код
n = Application.CountA(Worksheets(1).Range("A:A")) Range("A19:G20").Select Charts.Add ...

Прокомментировать код
помогите пожалуйста расшифровать этот кусок кода из программы! Как он работает? по какому принципу...

1
3920 / 2317 / 785
Регистрация: 02.11.2012
Сообщений: 6,162
02.07.2015, 09:29 2
денис721, длинный текст или код прячьте пожалуйста под спойлер.
как то так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Private Sub Userform_initialize() ' заполнение формы при её открытии
n = Range("G2").Value ' в переменную n заносим значение с активного листа ячейки G2
With ComboBox1 ' процедуры с ComboBox1
.AddItem "ПКС-11" ' заносим значение ПКС-11  в список ComboBox1
.AddItem "ПКС-12" 
.AddItem "ОРУМ-12" 
.AddItem "ПРУМ-11" 
.AddItem "ПРУМ-12" 
.AddItem "1ТОА-11"
.AddItem "2ТОА-11"
.AddItem "1ТОА-12"
.AddItem "2ТОА-12"
End With ' конец процедуры с ComboBox1
With ComboBox2 ' процедуры с ComboBox2
.AddItem "матиматика" ' заносим значение матиматика  в список ComboBox2
.AddItem "русский язык"
.AddItem "физика"
.AddItem "Ф-ра"
.AddItem "Философия"
End With ' конец процедуры с ComboBox2
End Sub
Добавлено через 14 минут
Visual Basic
1
2
3
4
5
6

c = 2 ' переменной с присваиваем значение 2
For i = 1 To Range("G2").Value ' цикл от 1 до числа из ячейки G2
s = Trim(Str(c + i)) ' переменной s присваиваем значение формулы.
ComboBox3.AddItem Range("B" + s).Value ' заносим значение из ячейки столбца В в список ComboBox3
Next i
End Sub
1
02.07.2015, 09:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 02.07.2015, 09:29
Помогаю со студенческими работами здесь

Прокомментировать код
Все привет, у меня тут кусок макроса есть, как грамотно техническим языком объяснить его работу?...

Перевод двоичной тетрады в 16-ричный код. Прокомментировать код
Помогите пожалуйста прокомментировать код программы перевода двоичной тетрады в 16-ричный код:...

Прокомментировать код
private void pictureBox1_MouseMove(object sender, MouseEventArgs e) { if...

Прокомментировать код
Здравствуйте, хотелось бы спросить у старейшин, что делают каждый из блоков программы, просто...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru