Йети князь Хибинский (bull_terier) wrote,
Йети князь Хибинский
bull_terier

Обучение меня

Итак, я опять со своими проблемами в Office. Да мне нужен макрос.
Концепция изменилась, я так понял лучше заполнять таблицу, и данные с неё вносить в шаблон и печатать. Раньше, когда-то давно, я самостоятельно умудрился освоить Basic, исключительно на примерах.
Нашёл в интернете похожий пример, для ввода данных в таблицу, посмотрел на код... очень сильно растроился, потому что я пока не понимаю, за что отвечает каждая конкретная строчка в коде, что бы бессовестно её ломать.
Для начала я не нашёл как в Excel 2007 сделать "кнопочку", к которой потом привязывают макрос.
Макрос имеет

Const Пароль = "123"

Private Sub B_Дата1_Change_Click()
Me.Date1 = Get_Date(Me.Date1, DateSerial(2009, 1, 1))
End Sub

Private Sub CheckBox1_Click()

End Sub

Private Sub CheckBox2_Click()

End Sub

Private Sub CheckBox3_Click()

End Sub

Private Sub CommandButton1_Click()
If Me.ElDv = "" Then MsgBox "Нет данных", vbCritical, "Ошибка": Exit Sub
If Me.Date1 = "" Then MsgBox "Не введена дата", vbCritical, "Ошибка": Exit Sub
If Me.Zaz = "" Then MsgBox "Нет данных", vbCritical, "Ошибка": Exit Sub
If Me.FIO = "" Then MsgBox "Нет данных", vbCritical, "Ошибка": Exit Sub
Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)

' ActiveSheet.Unprotect Пароль ' снимаем защиту
cell = cell.Row - 1: cell.Next = Me.ElDv: cell.Next.Next = Me.Zaz: cell.Next.Next.Next = Me.Date1: cell.Next.Next.Next.Next = Me.FIO
' ActiveSheet.Protect Пароль ' снова ставим защиту
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ElDv_Change()

End Sub

Private Sub FIO_Change()

End Sub

Private Sub Zaz_Change()

End Sub
На экране у меня серый прямоугольник с четырьмя строчками для ввода данных. В коде вижу, что 4, но их расположение и почему столько Sub мне непонятно. Господа, знающие, можете растолковать как упростить сей макрос и что тут что отзначает?
Tags: Обучение
Subscribe

  • Азия

    У меня счастье, я таки уговорил жену, дочь, погрузил их в аутомобиль и мы поехали. На данный момент пробег от дома 1800км и за окном Челябинск.…

  • Осаго на Дастер

    Вот и прошёл год владения моим Дастером. За год на одометре мои цифры пока 22 300 км, и настала пора покупать новый полис ОСАГО. Я ж рекламу видел,…

  • Две недели у родителя

    Провёл две недельки у товарища подполковника, что живёт в лесу и прекрасно провёл мужские выходные. Приезжал я к отцу дважды, каждый раз на пару…

promo bull_terier august 26, 2014 11:22 6
Buy for 30 tokens
Опубликовал рассказ, свои идеи и мысли по поводу моих животных. Если я вам надоел своими оленями, вы скажите мне...ну чтоб я знал
  • Post a new comment

    Error

    default userpic

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 4 comments