Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Excel таблица при создании анкеты, Excel 
:(
    Опции темы
eXplore
  Дата 28.8.2003, 17:08 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











необходимо сделать форму с таким приколом но я никак не допру как
имя
фамилия
отчество
возраст
-----------
экзамены тут менюшка ниспадающая типа селектора а данные должны быть взяты из Екселя

Математика рядом тексовое поле
Физика рядом тексовое поле

Пара кнопочек

Отчистить форму и проверить

если сумма балов больше 30 то Месага что штрих поступил если меньше то нет
В месаге должно присутвавать первая часть типа имя фамилия возраст
  Вверх
Vex
Дата 28.8.2003, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


кацапосрачмученiкъ
****


Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: нет
Всего: 88



Что конкретно не понятно?


--------------------
Слава Україні.
PM   Вверх
-Mikle-
Дата 28.8.2003, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Мне, например, вообще ничего не понятно.... Я кое-как расставил знаки препинания, чтобы хоть какой-то смысл уловить... smile.gif
Где ты пишешь прогу? В ВБ или ВБА?
Цитата
имя
фамилия
отчество
возраст
- что это значит?
Цитата
а данные должны быть взяты из Екселя
- какие данные? из одной или нескольких строк? или от условия зависит? Короче, напиши нормально, в чем состоит задача и что нужно сделать... и не в одну строчку, а предложениями, чтоб было понятно что ты пишешь... Тогда и люди к тебе потянутся... smile.gif Желаю успехов!


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Vavan
Дата 31.8.2003, 00:00 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Прогу пишу в ВБ
Прога по типу поступил не поступил абитура в инст.

Краткое описание верхней части формы
3 лейбла и 3 текстовых поля.
Имя Фамилия Отчество

Нижняя часть

5 лейблов рядом с каждым селектор, и вот названия экзаменов типа математика, физика, и тд
должны быть взяты из файлика Ексель. По идее из одной строки.
После селекторов опять идут 5 текстовых полей куда надо ввести калличество баллов за екзамен.

Итог
В самом низу кнопка с кепшеном "проверить".
При нажатии кнопки должна сработать следущая процедулина проверки:
если сумма баллов больше чем 60
появляется месседж с данными об имени, фамилии, и поздравления о успешной сдаче.
Если меньше то нооборот.




  Вверх
-Mikle-
Дата 1.9.2003, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Вот это другое дело! Сразу понятно что за задача. Проще это сделать в самом Екселе. Но если очень хочеться прогу, то вот как можно прочитать значение ячейки из екселя:

1. Подключи Ексель к проге (confused.gif это версия твоего екселя)
Project -> References... -> Microsoft Excel confused.gif Object Library
2. Эта функция выдает МессжБокс со значением ячейки 'А1' из первого листа в файле "С:\test.xls"
Цитата
  'Объявляем переменные
  Dim Exl As Excel.Application
  Dim Sh As Excel.Worksheet
 
  'Создаем новую копию Ехсеl
  Set Exl = New Excel.Application
  'Делаем ее невидимой
  Exl.Visible = False
  'Открываем в Екселе файл
  Exl.Workbooks.Open FileName:="c:\test.xls"
  'Sh будет ссылаться на первый лист в файле
  'можно писать .Worksheets("Лист1") т.е. по имени листа
  Set Sh = Exl.Workbooks("test.xls").Worksheets(1)
  'Вот и выводим значение А1, надеюсь понятно будет как читать другие ячейки smile.gif
  MsgBox Sh.Range("A1").Value
  'Закываем файл (SaveChanges - сохранять изменения? если были конечно)
  Exl.Workbooks("test.xls").Close SaveChanges:=False 'не сохраняем
  'Закрываем сам Ексель
  Exl.Quit
  'Уничтожаем ссылки на объекты из памяти
  Set Exl = Nothing
  Set Sh = Nothing


Если будут вопросы, не стесняйся, пиши... не стоит обращать внимание на высоконосых особ... Удачи! adv/76.gif


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0745 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.