ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / добавление новой записи в таблицу
25 сообщений из 26, страница 1 из 2
  1  все
добавление новой записи в таблицу
    #37351849
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Привет ребята. Хочу помощи от Вас ) С ВБА у меня пока не очень складывалось... Вот начал учить. Сейчас поставил себе задачу.
Задача: При помощи формы добавлять в таблицу новые записи о людях. (типа как учет делать)
На данный момент я пока не совсем понимаю логику программирования... Знаю что код читается с верху вниз и слева на право.
В примеру думаю будет все ясно. Логика моя следующая. При нажатии кнопки "Add"
1. Найти последнюю запись в таблице и начать вносить данные (последняя запись +1 в низ)
2. проверить все ли поля заполнены, если какое-то не заполнено, то указать на него.
3. Внести данные.
Прошу помощи с логикой и конечно же подсказками Код вместо меня не нужно писать, просто подскажите как нужно... Попытаюсь сам сделать.
Спасибо!
...
Рейтинг: 0 / 0
14.07.2011, 15:04
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351865
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
-O_o-, А как подсказать - на пальцах?
Private Sub CommandButton1_Click()
Dim Name As String
Dim Sname As String
Dim age
Dim lr&
lr = ActiveSheet.[a65536].End(xlUp).Row + 1
Name = Me.TextBox1
Sname = Me.TextBox2
age = Me.TextBox3
If TextBox1.Value <> "" Then
Cells(lr, 1) = TextBox1
Else: MsgBox "Заполните поле Name!!!", vbOKOnly, "Error"
End If
If TextBox2.Value <> "" Then
Cells(lr, 2) = Sname
Else: MsgBox "Заполните поле Surname!!!", vbOKOnly, "Error"
End If
If TextBox3.Value <> "" Then
Cells(lr, 3) = age
Else: MsgBox "Заполните поле AGE!!!", vbOKOnly, "Error"
End If
End Sub
...
Рейтинг: 0 / 0
14.07.2011, 15:13
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351879
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
kuklp,
Спасибо за попытку помощи.
Можно объяснить мне что вот это такое
Код: plaintext
1.
lr = ActiveSheet.[a65536].End(xlUp).Row +  1
а именно End(xlUp)
Ну пока хватит. ) спс.
...
Рейтинг: 0 / 0
14.07.2011, 15:19
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351893
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
-O_o-,
Выделите ячейку [a65536] и нажмите сочетание клавиш ctrl+стрелка вверх. Где окажетесь?
...
Рейтинг: 0 / 0
14.07.2011, 15:25
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351904
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
kuklp-O_o-,
Выделите ячейку [a65536] и нажмите сочетание клавиш ctrl+стрелка вверх. Где окажетесь? Н-да, с комментами у меня напряг:-) Тоже самое делает команда End(xlUp).
...
Рейтинг: 0 / 0
14.07.2011, 15:28
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351908
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
kuklp,
хитро получается это сочетании клавиш End(xlUp) ??? Я просто думал, что нужно перебирать ячейки
Код: plaintext
If Cells(i,  1 ).Value = "" Then `начинать заполнять
что-то типа такого...
а где можно еще почитать об вот этом? End(xlUp) ?
спасибо.
...
Рейтинг: 0 / 0
14.07.2011, 15:32
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37351917
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
-O_o-kuklp,
хитро получается это сочетании клавиш End(xlUp) ??? Я просто думал, что нужно перебирать ячейки
Код: plaintext
If Cells(i,  1 ).Value = "" Then `начинать заполнять
что-то типа такого...
а где можно еще почитать об вот этом? End(xlUp) ?
спасибо.
про End Property уже прочел ))))
...
Рейтинг: 0 / 0
14.07.2011, 15:35
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352124
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
вроде бы что-то навоял.... Но не могу понять куда влепить обнуление
Код: plaintext
1.
2.
TextBox1=""
TextBox2=""
TextBox3=""
Как по мне то не очень элегантное решение, но это пока начало...
Спасибо. Коменты тоже жду по поводу логики... Спасибо.!!!
...
Рейтинг: 0 / 0
14.07.2011, 16:34
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352178
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
-O_o-,
сорри... забыл пример... ))))
...
Рейтинг: 0 / 0
14.07.2011, 16:53
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352256
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Гей ХЛОПЦЫ!!! ну подскажите ))) А то ни как не въеду...
спасибо.
...
Рейтинг: 0 / 0
14.07.2011, 17:32
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352347
Gnickol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gnickol
Гость
-O_o-,

Не рекомендую на листе использовать кнопки - с ними работать неудобно...
Лучше фигуры/рисунки.

А так - смотри код. Все расписано.
...
Рейтинг: 0 / 0
14.07.2011, 18:23
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352351
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Gnickol,
то есть в ячейке G1 у Вас тот рисунок о котором Вы говорили???
В Ворде такое возможно?? если да то как добавляется??
...
Рейтинг: 0 / 0
14.07.2011, 18:27
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352367
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Gnickol,
Ок. спасибо. Завтра уже буду смотреть...
...
Рейтинг: 0 / 0
14.07.2011, 18:43
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352933
Gnickol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gnickol
Гость
Ципихович Эндрю,

Вставка-Рисунок-Автофигуры.

Потом на нем клик правой кнопкой - назначить макрос.
...
Рейтинг: 0 / 0
15.07.2011, 09:31
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37352942
Gnickol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gnickol
Гость
Ципихович Эндрю,

только в ворде это не очень...

В екселе лист большой, и можно зафиксировать строку (например, первую) и вставить в нее рисунок.
А в ворде лист А4 и все время уезжает наверх.

Так что лучше в нем вешать макрос на настраиваемую кнопку меню.
...
Рейтинг: 0 / 0
15.07.2011, 09:35
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37353464
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
ребята... вот ломаю голову над алгоритмом... Не опытный я пока в таких штуках...
Задача заключается в том, как сделать проверку значения Department в форме. Пробовал с помощью Select Case и If then... Но не могу понять как сделать... мне кажется нужно определить массив в котором искать значение из Name_Department. Но не знаю как сделать. Подскажите !!!
Спасибо.
...
Рейтинг: 0 / 0
15.07.2011, 13:36
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37353727
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
ну ребятки!!! что ни кто не может помочь? )
...
Рейтинг: 0 / 0
15.07.2011, 15:39
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37353776
Gnickol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gnickol
Гость
-O_o-,

For a = 1 To lr
If name = Sheet2.Cells(a, 2).Value Then
MsgBox "est takoe"
Exit For
Else Sheet2.Cells(lr, 2).Value = name
Sheet2.Cells(lr, 1).Value = d
End If
Next a


А зачем?
вроде все работает. Хочешь - ищи дальше.
...
Рейтинг: 0 / 0
15.07.2011, 16:01
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37353816
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Gnickol,
В том то и дело, что мне нужно сделать так:
1.Ввожу название департамента в тексбокс ==>
2.нажимаю кнопку "добавить"
3.программа должна проверить наличие значения из текстбокса в массиве В2:В6500
если значение есть то вывести сообщение о том что такое уже есть и остановится
если нет то добавить новое название и выдать сообщение о том, что оно добавлено.
Сейчас у меня при любом раскладе вносит значение из текст бокса.!
...
Рейтинг: 0 / 0
15.07.2011, 16:12
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37353887
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Gnickol,
чего-то не наблюдаю:
Потом на нем клик правой кнопкой - назначить макрос. - нету такого
>Так что лучше в нем вешать макрос на настраиваемую кнопку меню
Так хочется, чтобы это было не во всех документах, да и там уже много натыкано
...
Рейтинг: 0 / 0
15.07.2011, 16:46
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37357331
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
ну что ни кто мне не подскажет алгоритм? )))
...
Рейтинг: 0 / 0
19.07.2011, 11:54
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37358020
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
-O_o-,
алгоритм у Вас уже есть 10981050
Осталось реализацию подправиь.

Правописание у меня хорошее, но оно хромает. (с)Шарик
...
Рейтинг: 0 / 0
19.07.2011, 16:00
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37358786
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
-O_o-Gnickol,
В том то и дело, что мне нужно сделать так:
1.Ввожу название департамента в тексбокс ==>
2.нажимаю кнопку "добавить"
3.программа должна проверить наличие значения из текстбокса в массиве В2:В6500
если значение есть то вывести сообщение о том что такое уже есть и остановится
если нет то добавить новое название и выдать сообщение о том, что оно добавлено.
Сейчас у меня при любом раскладе вносит значение из текст бокса.!
как я понял, надо следующее. есть столбик со значениями. в него пользователь добавляет новые. попытка добавления уже имеющегося должна блокироваться.
перечитайте мой вариант вашего тз и расскажите, где тут необходимость вводить форму?
...
Рейтинг: 0 / 0
20.07.2011, 09:53
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37358872
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
PlanB,
Поняли вы правильно. Но я не понял про форму...
...
Рейтинг: 0 / 0
20.07.2011, 10:21
| Ответить | Цитировать | Написать  
добавление новой записи в таблицу
    #37358924
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
-O_o-PlanB,
Поняли вы правильно. Но я не понял про форму...да нахрен она не нужна! так стало понятнее юзайте акс
...
Рейтинг: 0 / 0
20.07.2011, 10:42
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / добавление новой записи в таблицу
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37352367&tid=2176673]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 152ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 198ms
total:  437ms
созд. / загр.: 437ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]