В таблице дана информация о результатах экзамена по программированию: фамилия, группа, оценка по 100-балльной шкале. Напишите макрос, который выведет в новый столбец под названием «Оценка по национальной шкале» в зависимости от балла соответствующее значение: • 90 – 100 баллов – «отлично» • 80 – 89 баллов – «очень хорошо» • 70 – 79 баллов – «хорошо» • 60 – 69 баллов – «удовлетворительно» • 51 – 59 баллов – «достаточно» • 35 – 50 баллов – «неудовлетворительно» • 1 – 34 балла – «неудовлетворительно, на комиссию».
Public N As Integer Sub Auto_Open() N = InputBox("сколько студентов?") ActiveSheet.Name = "Рейтинги" Dim S As String S = "A1:C" & CStr(N + 1) Worksheets("Рейтинги").ScrollArea = S Worksheets("Рейтинги").Range("A1").Value = "Фамилия" Worksheets("Рейтинги").Range("B1").Value = "Группа" Worksheets("Рейтинги").Range("C1").Value = "Оценка" Worksheets("Рейтинги").Range("A1:C1").HorizontalAlignment = xlCenter Worksheets("Рейтинги").Range("A1:C1").Font.Bold = True Worksheets("Рейтинги").Range(S).Borders.LineStyle = xlSolid Worksheets("Рейтинги").Range(S).Borders.Color = RGB(0, 0, 120) Range("A1:C1").Interior.ColorIndex = 15 End Sub
Второй В таблице дана информация о сотрудниках компании: • фамилия • должность • стаж • оклад. Напишите макрос, который: а) у всех сотрудников, работающих на должности тестировщика со стажем более 3х лет, увеличит оклад на10%; б) скопирует в область, ниже заполненной, информацию обо всех программистах.
Public N As Integer Sub Auto_Open() N = InputBox("сколько работником?") ActiveSheet.Name = "Рейтинги" Dim S As String S = "A1:D" & CStr(N + 1) Worksheets("Рейтинги").ScrollArea = S Worksheets("Рейтинги").Range("A1").Value = "Фамилия" Worksheets("Рейтинги").Range("B1").Value = "Должность" Worksheets("Рейтинги").Range("C1").Value = "Стаж" Worksheets("Рейтинги").Range("D1").Value = "Оклад" Worksheets("Рейтинги").Range("A1:D1").HorizontalAlignment = xlCenter Worksheets("Рейтинги").Range("A1:D1").Font.Bold = True Worksheets("Рейтинги").Range(S).Borders.LineStyle = xlSolid Worksheets("Рейтинги").Range(S).Borders.Color = RGB(0, 0, 120) Range("A1:D1").Interior.ColorIndex = 15 End Sub Sub ReplaceCellsData() Dim cell As Range For Each cell In [C1:C20] If cell.Value Like "*тестировщик*" Then cell.Value = "????" End If Next End Sub
файл ко 2 макросу С Уважением!
Ребят, прошу помогите доделать 2 макроса
В таблице дана информация о результатах экзамена по программированию: фамилия, группа, оценка по 100-балльной шкале. Напишите макрос, который выведет в новый столбец под названием «Оценка по национальной шкале» в зависимости от балла соответствующее значение: • 90 – 100 баллов – «отлично» • 80 – 89 баллов – «очень хорошо» • 70 – 79 баллов – «хорошо» • 60 – 69 баллов – «удовлетворительно» • 51 – 59 баллов – «достаточно» • 35 – 50 баллов – «неудовлетворительно» • 1 – 34 балла – «неудовлетворительно, на комиссию».
Public N As Integer Sub Auto_Open() N = InputBox("сколько студентов?") ActiveSheet.Name = "Рейтинги" Dim S As String S = "A1:C" & CStr(N + 1) Worksheets("Рейтинги").ScrollArea = S Worksheets("Рейтинги").Range("A1").Value = "Фамилия" Worksheets("Рейтинги").Range("B1").Value = "Группа" Worksheets("Рейтинги").Range("C1").Value = "Оценка" Worksheets("Рейтинги").Range("A1:C1").HorizontalAlignment = xlCenter Worksheets("Рейтинги").Range("A1:C1").Font.Bold = True Worksheets("Рейтинги").Range(S).Borders.LineStyle = xlSolid Worksheets("Рейтинги").Range(S).Borders.Color = RGB(0, 0, 120) Range("A1:C1").Interior.ColorIndex = 15 End Sub
Второй В таблице дана информация о сотрудниках компании: • фамилия • должность • стаж • оклад. Напишите макрос, который: а) у всех сотрудников, работающих на должности тестировщика со стажем более 3х лет, увеличит оклад на10%; б) скопирует в область, ниже заполненной, информацию обо всех программистах.
Public N As Integer Sub Auto_Open() N = InputBox("сколько работником?") ActiveSheet.Name = "Рейтинги" Dim S As String S = "A1:D" & CStr(N + 1) Worksheets("Рейтинги").ScrollArea = S Worksheets("Рейтинги").Range("A1").Value = "Фамилия" Worksheets("Рейтинги").Range("B1").Value = "Должность" Worksheets("Рейтинги").Range("C1").Value = "Стаж" Worksheets("Рейтинги").Range("D1").Value = "Оклад" Worksheets("Рейтинги").Range("A1:D1").HorizontalAlignment = xlCenter Worksheets("Рейтинги").Range("A1:D1").Font.Bold = True Worksheets("Рейтинги").Range(S).Borders.LineStyle = xlSolid Worksheets("Рейтинги").Range(S).Borders.Color = RGB(0, 0, 120) Range("A1:D1").Interior.ColorIndex = 15 End Sub Sub ReplaceCellsData() Dim cell As Range For Each cell In [C1:C20] If cell.Value Like "*тестировщик*" Then cell.Value = "????" End If Next End Sub