Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.02.2009, 07:04   #1
komar73
Пользователь
 
Регистрация: 24.01.2009
Сообщений: 66
По умолчанию Помогите сделать форму

Помогите пожалуйста создать форму только добавления данных в таблицу EXCEL, допустим в столбце A и B.
komar73 вне форума Ответить с цитированием
Старый 23.02.2009, 10:50   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Телепаты в отпуске...
Пример файла + подробное описание задания.

С такой формулировкой задания Вам никто не поможет.
EducatedFool вне форума Ответить с цитированием
Старый 23.02.2009, 12:48   #3
komar73
Пользователь
 
Регистрация: 24.01.2009
Сообщений: 66
По умолчанию Прикрепил пример с описанием

Я дико извиняюсь здесь пример
Вложения
Тип файла: rar 2222.rar (10.7 Кб, 19 просмотров)
komar73 вне форума Ответить с цитированием
Старый 23.02.2009, 20:25   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Так подойдёт?



Пароль на защиту листа - 123

Перед записью данных на лист пароль снимается, а после устанавливается вновь.
Для облегчения выбора даты предусмотрена специальная кнопка на форме.

Для запуска формы ввода нажмите на зелёную кнопочку.

Вот весь код:
Код:
Const Пароль = "123"

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

Private Sub CommandButton1_Click()
    If Me.FIO = "" Then MsgBox "Не введена фамилия", vbCritical, "Ошибка": Exit Sub
    If Me.Date1 = "" 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.FIO: cell.Next.Next = Me.Date1
    ActiveSheet.Protect Пароль    ' снова ставим защиту
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub
Пример во вложении:
Вложения
Тип файла: rar Ввод записей в базу данных через форму.rar (51.5 Кб, 46 просмотров)
EducatedFool вне форума Ответить с цитированием
Старый 01.03.2009, 11:47   #5
komar73
Пользователь
 
Регистрация: 24.01.2009
Сообщений: 66
По умолчанию

Огромное спасибо это то что мне нужно
komar73 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать нестандартную форму steck Общие вопросы Delphi 10 07.12.2011 14:30
Помогите сделать кнопочную форму demonic Microsoft Office Access 5 18.01.2009 21:43
Помогите советом! Как сделать форму сворачиваемой? Bezdar Microsoft Office Excel 3 18.08.2008 13:52
Как сделать форму? HAMMAN Помощь студентам 1 29.01.2008 22:11