Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывод в новый столбец по значению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод в новый столбец по значению (Макросы/Sub)
Вывод в новый столбец по значению
Dartj Дата: Среда, 23.04.2014, 23:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ребят, прошу помогите доделать 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

файл ко 2 макросу
С Уважением!
К сообщению приложен файл: 0790456.xlsm (17.9 Kb)


Сообщение отредактировал Dartj - Среда, 23.04.2014, 23:53
 
Ответить
СообщениеРебят, прошу помогите доделать 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

файл ко 2 макросу
С Уважением!

Автор - Dartj
Дата добавления - 23.04.2014 в 23:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод в новый столбец по значению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!