С помощью стандартной формы

Заполнение списка, содержащего данные о сотрудниках,

Математическое описание задачи

- Формирование заголовка списка см. стр. 18.

- Заполнение списка конкретными данными:

для i = 1.. k, A1_i = фамилия и инициалы i–го сотрудника

В1_i = табельный номер i–го сотрудника

С1_i = должность i–го сотрудника

D1_i = коэффициент тарифной сетки i–го сотрудника

E1_i = количество детей i–го сотрудника

Циклический вычислительный процесс продолжается до тех пор, пока пользователь информационной технологии не щелкнет по кнопке "Закрыть", расположенной на стандартной форме (работа со стандартной формой рассмотрена в пункте 4). Значение k соответствует количеству записей, введенных пользователем.

Код приложения

Private Sub CommandButton1_Click()

' Заполнение первой строки

Range("A1").Value = "Фамилия И.О."

Range("B1").Value = "Таб№"

Range("C1").Value = "Должность"

Range("D1").Value = "Коэфф."

Range("E1").Value = "Дети"

Range("F1").Value = "Начислено"

Range("G1").Value = "Налог"

Range("H1").Value = "К выдаче"

' Для числовых данных устанавливается формат - 2 знака после десятичной точки

Columns("D").Select

Selection.NumberFormat = "0.00"

Columns("F:H").NumberFormat = "0.00"

Range("A1:E1").Select

' Вызов стандартной формы

ActiveSheet.ShowDataForm

' Автоматическая установка ширины столбцов A, B, C, D, E и F в зависимости от значения хранящихся в них данных

Columns("A:H").AutoFit

End Sub

Схема алгоритма

9.2. Заполнение списка, содержащего данные о сотрудниках,

Дата добавления: 2014-12-27