Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу

@fog__1 · Регистрация: 06.05.2015

Author24 — интернет-сервис помощи студентам

Прошу помочь...
Вот задание:

Кликните здесь для просмотра всего текста

Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу

Вот то что я сделал:
Лист Microsoft Excel (3).xlsx

не получается вывести в таблицу "пол, оплачено или нет, фото сданы или нет, паспорт сдан или нет.

shanemac51 · 10.02.2016, 08:45

вы выложили пустой лист --без кода/формы/данных
------
при расширении xlsx --это невозможно сохранить

@fog__1 · 10.02.2016, 08:51 **[ТС]**

Вот:

@Vlad999 · 10.02.2016, 08:54

удалил.

@fog__1 · 10.02.2016, 09:03 **[ТС]**

Что?

@Vlad999 · 10.02.2016, 09:09

fog__1, шапку таблицы в файле забыли набрать.

Visual Basic

Private Sub CommandButton1_Click()
Dim vНомерПустойСтроки As Long
vНомерПустойСтроки = Application.WorksheetFunction.CountA(Range("A:A")) + 1
 
ActiveSheet.Cells(vНомерПустойСтроки, 1).Value = TextBox2.Value
ActiveSheet.Cells(vНомерПустойСтроки, 2).Value = TextBox3.Value
ActiveSheet.Cells(vНомерПустойСтроки, 3).Value = IIf(OptionButton1.Value, "м", "ж")
ActiveSheet.Cells(vНомерПустойСтроки, 4).Value = ComboBox1.Value
ActiveSheet.Cells(vНомерПустойСтроки, 5).Value = IIf(Me.CheckBox1.Value, "оплачено", "не оплачено")
ActiveSheet.Cells(vНомерПустойСтроки, 6).Value = IIf(Me.CheckBox2.Value, "фото сданы", "фото не сданы")
'ActiveSheet.Cells(vНомерПустойСтроки, 7).Value =
ActiveSheet.Cells(vНомерПустойСтроки, 8).Value = ComboBox2.Value
End Sub

П.С. модераторы удалите пожалуйста пустой пост.

shanemac51 · 10.02.2016, 09:17

забыли про паспорт

Visual Basic

1	ActiveSheet.Cells(vНомерПустойСтроки, 7).Value = IIf(Me.CheckBox3.Value, "пасп сданы", "пасп не сданы")

@Vlad999 · 10.02.2016, 09:19

Сообщение от shanemac51

забыли про паспорт

нет не забыл, специально оставил для самостоятельной работы.

~~Shersh~~ · 10.02.2016, 09:20

Не по теме:

Сообщение от Vlad999

П.С. модераторы удалите пожалуйста пустой пост.

Значок

под ником - и мусора модераторам меньше для чистки:)

@fog__1 · 10.02.2016, 11:01 **[ТС]**

Спасибо.Выручили

@fog__1 0 / 0 / 0 Регистрация: 06.05.2015 Сообщений: 30
		1
	Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу 10.02.2016, 08:29. Показов 2811. Ответов 9 Метки vba (Все метки) Прошу помочь... Вот задание: Кликните здесь для просмотра всего текста Вот то что я сделал: Лист Microsoft Excel (3).xlsx не получается вывести в таблицу "пол, оплачено или нет, фото сданы или нет, паспорт сдан или нет. 0

shanemac51 Модератор 12084 / 4944 / 791 Регистрация: 07.08.2010 Сообщений: 14,517 Записей в блоге: 4
	10.02.2016, 08:45	2
	вы выложили пустой лист --без кода/формы/данных ------ при расширении xlsx --это невозможно сохранить 0

@Vlad999 3920 / 2317 / 785 Регистрация: 02.11.2012 Сообщений: 6,162
	10.02.2016, 08:54	4
	удалил. 0

@fog__1 0 / 0 / 0 Регистрация: 06.05.2015 Сообщений: 30
	10.02.2016, 09:03 [ТС]	5
	Что? 0

@Vlad999 3920 / 2317 / 785 Регистрация: 02.11.2012 Сообщений: 6,162
	10.02.2016, 09:19	8
	Сообщение от shanemac51 забыли про паспорт нет не забыл, специально оставил для самостоятельной работы. 1

~~Shersh~~
	10.02.2016, 09:20 #9
	Не по теме: Сообщение от Vlad999 П.С. модераторы удалите пожалуйста пустой пост. Значок под ником - и мусора модераторам меньше для чистки:) 0

@fog__1 0 / 0 / 0 Регистрация: 06.05.2015 Сообщений: 30
	10.02.2016, 11:01 [ТС]	10
	Спасибо.Выручили 0