Курсовая работа: Компьютерная подготовка

myRecord.no = NoBox.Value

myRecord.Flat = FlatBox.Value

myRecord.Phone = Val(PhoneBox.Value)

' добавление строки на лист и ее заполнение

putRecord ActiveCell.EntireRow, myRecord

' скрытиеформы

editRowForm.Hide

EndIf

EndSub

PrivateSub PhoneBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (KeyAscii < Asc("0")) Or (KeyAscii > Asc("9")) Then

MsgBox"Допускается ввод только цифр!"

KeyAscii.Value = 0

EndIf

EndSub

reportForm

PrivateSub UserForm_Activate()

AllOption.Value = True

OKButton.Caption = "Расчет"

OKButton.SetFocus

EndSub

PrivateSub AllOption_Click()

OKButton.Caption = "Расчет"

EndSub

PrivateSub StreetOption_Click()

OKButton.Caption = "Параметры..."

EndSub

PrivateSub HouseOption_Click()

OKButton.Caption = "Параметры..."