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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2013, 13:46   #11
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

EducatedFoolСпасибо, я пробую делать по вашему примеру. Пока не получается.
Посмотрите пожалуйста мою форму , может что подскажите.
Код на Checkbox.


Dim x As Range
Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(myColumn3)
If myColumn18 Then x.Interior.ColorIndex = 10

Сделал , ячейка закрашивается.
Но проблемма в том что при добавлении данных в заказ, появляется сообщение что заказ уже существует .
Подскажите, что в коде нужно подправить.
Без этого кода и Checkbox всё работает нормально
Вложения
Тип файла: rar Лист 1.rar (43.0 Кб, 6 просмотров)
and150382 вне форума Ответить с цитированием
Старый 07.02.2013, 14:42   #12
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Не могу понять из примера EducatedFool http://excelvba.ru/programmes/Entrant


Private Sub Spin_ПрокруткаЗаписейБД_SpinDown() ' прокрутка списка абитуриентов к началу базы данных
If Строка > ПерваяСтрокаБД Then Строка = Строка - 1: RowChanged
End Sub
Private Sub Spin_ПрокруткаЗаписейБД_SpinUp() ' прокрутка списка абитуриентов к концу базы данных
If Строка < ПоследняяСтрокаБД Then Строка = Строка + 1: RowChanged
End Sub

что мне нужно вставить вместо Строка > ПерваяСтрокаБД Then Строка = Строка - 1

и вместо Строка < ПоследняяСтрокаБД Then Строка = Строка + 1
and150382 вне форума Ответить с цитированием
Старый 07.02.2013, 16:01   #13
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Помогите кто-нибудь!!!!
Убил неделю на эту форму и если листание не смогу сделать, то неделя коту под хвост.
Без листания всё напрасно было.
and150382 вне форума Ответить с цитированием
Старый 07.02.2013, 16:54   #14
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 776
По умолчанию

Я оставил в вашей книги только то, что связано с вашим вопросом в этой теме.
VBA-код берёт всю информацию из "TextBoxа". "SpinButton" только изменяет значения в "TextBoxе".
Вложения
Тип файла: zip Лист_1_v_1.zip (19.6 Кб, 23 просмотров)
Скрипт вне форума Ответить с цитированием
Старый 07.02.2013, 16:56   #15
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Цитата:
Помогите кто-нибудь!
Ну так есть рабочий пример - копируйте код оттуда, делайте все по аналогии

Вместо того, чтобы сделать всё за полдня в Access без каких-либо макросов,
вы сами решили обеспечить себя проблемами, делая БД в Excel
(это равносильно тому, чтобы делать редактор таблиц с формулами в Word)

Просто возни с этими формами много - это ж надо для каждого поля заполнение делать, при нажатии кнопки прокрутки, да и первую\последнюю строку определять.

Сложного ничего нет - надо просто потратить час времени, чтобы разобраться.

В моем коде:
Переменная Строка - хранит номер строки на листе, из которой подгружаются данные
Макрос RowChanged подгружает на форму данные с листа, из строки с номером Строка
EducatedFool вне форума Ответить с цитированием
Старый 07.02.2013, 16:58   #16
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 776
По умолчанию

Цитата:
EducatedFool: Вместо того, чтобы сделать всё за полдня в Access без каких-либо макросов
для этого надо быть профессионалом в работе с программой Access. Если программу Access не знать, то на это уйдёт год, наверное.
Скрипт вне форума Ответить с цитированием
Старый 07.02.2013, 17:31   #17
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Спасибо большое EducatedFool,Скрипт. Вы самые уважаемые люди на форуме.
Чуть попозже буду пробовать.
and150382 вне форума Ответить с цитированием
Старый 07.02.2013, 17:58   #18
nerv
Форумчанин
 
Аватар для nerv
 
Регистрация: 26.04.2010
Сообщений: 450
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Вот здесь есть пример с перелистыванием:
http://excelvba.ru/programmes/Entrant
Цитата:
Посмотреть все скриншоты программы
сделай галерею, не удобно
Тишина – самый громкий звук
nerv вне форума Ответить с цитированием
Старый 07.02.2013, 18:37   #19
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Цитата:
Сообщение от nerv Посмотреть сообщение
сделай галерею, не удобно
Привет
Там же не VBA, в движке сайта)

Возни по доработке много - она не окупится (приток посетителей ведь не увеличится)
Кто захочет посмотреть - посмотрит
Я публиковать статьи-то не успеваю, а до дизайна и украшательств пока руки не доходят
(чтобы галерею сделать, надо CSS корректировать, иначе все криво. А мне не до этого сейчас)
EducatedFool вне форума Ответить с цитированием
Старый 07.02.2013, 20:24   #20
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Спасибо всем!!!
Листание работает!
and150382 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прокрутка формы в C# No_Comments Помощь студентам 0 27.12.2011 12:26
Прокрутка В PascalABC Рудко Дмитрий Паскаль, Turbo Pascal, PascalABC.NET 2 09.02.2010 01:51
Прокрутка на сайте DALLAS JavaScript, Ajax 1 07.01.2009 09:34
Прокрутка nala HTML и CSS 0 29.09.2008 16:15