Форма с кнопками ОК и Отмена. По Ок происходит запись в ячейку

@Andryha · Регистрация: 30.12.2011

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

Люди добрые помогите сделать элементарную задачку следующего содержания:
Нужно создать форму с 2-я кнопками (первая "ок", вторая "Выход") и окно для ввода текста.это все я создать могу а вот код к ним написать не могу,ваще не шарю в этом)
Эта форма должна выполнять следующие действия:
- при вводе в это окошко какого либо текста при нажатии кнопки "ок",этот самый текст должен выводиться в первом столбце первой строчки экселя.При последующих нажатиях кнопки "ок" текст должен выводиться в следующию строчку этого же стобца(первого) и так далее.Ну а при нажатии кнопки "выход" соответственно выходить!

Вот такая вот простенькая задача для Вас,но не для меня)
Помогите пожалуйста)
Всех с наступающим!!!

@Казанский · 30.12.2011, 17:28

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

Нужно создать форму с 2-я кнопками (первая "ок", вторая "Выход") и окно для ввода текста.это все я создать могу

Хорошо, выкладывайте XLS с формой.

@Busine2012 · 30.12.2011, 18:56

Andryha,
форма во вложении.

@Andryha · 31.12.2011, 18:46 **[ТС]**

Сообщение от Казанский

Хорошо, выкладывайте XLS с формой.

вот тут она.Если будет не сложно коментом объясните пожалуйста,что там каждая из строк значит)заранее спасибо!

@Казанский · 01.01.2012, 23:54

Пробуйте

@ОЛЕГ 555 · 02.01.2012, 00:08

Сообщение от Казанский

Пробуйте

Уважаемый Казанский,а возможно ли чтобы данные из этой формы сохранялись на Листе2 и на Листе3?
Я создал тему с таким вопросом,но там почему то никто мне не отвечает((.

Памирыч · 02.01.2012, 00:12

ОЛЕГ 555, ну так и апайте ту тему, зачем в чужих писать?

@ОЛЕГ 555 · 02.01.2012, 00:16

Сообщение от Памирыч

ОЛЕГ 555, ну так и апайте ту тему, зачем в чужих писать?

а мне казалось что темы общие,тем более что вопросы похожие.....
и почему то в моей теме мне никто не хочет отвечать))))
Но Всё равно приношу свои извинения,,,,,,

@Казанский · 02.01.2012, 01:05

ОЛЕГ 555,
можно, конечно. Проще всего продублировать код для двух листов:

Visual Basic

Private Sub CommandButton1_Click()
Dim r As Range
Set r = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp)
If r = "" Then r = TextBox1 Else r.Offset(1) = TextBox1
Set r = Sheets("Лист3").Cells(Rows.Count, 1).End(xlUp)
If r = "" Then r = TextBox1 Else r.Offset(1) = TextBox1
End Sub

@Andryha · 02.01.2012, 19:05 **[ТС]**

Сообщение от Казанский

Пробуйте

Спасибо большое!
С новым годом!

@Andryha 0 / 0 / 0 Регистрация: 30.12.2011 Сообщений: 3
	02.01.2012, 19:05 [ТС]	10
	Сообщение от Казанский Пробуйте Спасибо большое! С новым годом! 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	30.12.2011, 17:28	2
	Сообщение от Andryha Нужно создать форму с 2-я кнопками (первая "ок", вторая "Выход") и окно для ввода текста.это все я создать могу Хорошо, выкладывайте XLS с формой. 1

@ОЛЕГ 555 0 / 0 / 0 Регистрация: 01.01.2012 Сообщений: 35
	02.01.2012, 00:08	6
	Сообщение от Казанский Пробуйте Уважаемый Казанский,а возможно ли чтобы данные из этой формы сохранялись на Листе2 и на Листе3? Я создал тему с таким вопросом,но там почему то никто мне не отвечает((. 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	02.01.2012, 00:12	7
	ОЛЕГ 555, ну так и апайте ту тему, зачем в чужих писать? 0

@ОЛЕГ 555 0 / 0 / 0 Регистрация: 01.01.2012 Сообщений: 35
	02.01.2012, 00:16	8
	Сообщение от Памирыч ОЛЕГ 555, ну так и апайте ту тему, зачем в чужих писать? а мне казалось что темы общие,тем более что вопросы похожие..... и почему то в моей теме мне никто не хочет отвечать)))) Но Всё равно приношу свои извинения,,,,,, 0