USERFORM HELPPPPPPP

Здравейте отново,

Надявам се да помогнете отново
Искам да си направя потребителска контрола/USER FORM/ която да съдържа:

1 COMBOBOX - да ми показва съдържанието от SHEET1!G:H - потребителя ще избира от списъка

2 TEXTBOX 1- в който потребителя ще въвежда данни спрямо това което е избрал от „COMBOBOX”

3 TEXTBOX 2 -в който потребителя ще въвежда данни

4 Бутон отказ -

5 Бутон въведи – текста от TEXTBOX 1 да се въвежда в SHEET1 колона М, реда да се взима според избраното в COMBOBOX-a и TEXTBOX 2 пак в SHEET1 колона L реда да се взима според избраното в COMBOBOX


За да стане малко по-ясно ще опиша колоните на SHEET1 за който става въпрос:

SHEET1!G- номер на билет – /„COMBOBOX”/
SHEET1!H – Име- - /„COMBOBOX”/
SHEET1!М- Цена – /информацията ще бъде въвеждана от TEXTBOX 1/
SHEET1!L- дата на плащане /информацията ще бъде въвеждана от TEXTBOX 2/


По-принцип контролата ми ще съдържа много повече „TEXTBOX”, но аз ако помогнете с тези 2-та, ще си ги до направя сама :-)

Много ще съм благодарна ако помогнете отново

Не се разбира какво точно искаш. Не можеш да си направиш формата или не можеш да обработваш резултатиге?

Аз нищо не мога :-(
Успях да намеря как се прави форма, която въвежда данните от TEXTBOX-овете в следващия празен ред, но не намерих как да ги въвежда в реда спрямо избраното в COMBOBOX-A
Не зная как да го обясня по-ясно

Като си нарисуваш комбо бокса отиваш в свойства (Properties) и в срещу RowSourse пишеш a1:a22 (например) - това е частта от таблицата, която се появява в списъка.
Влизаш в редактора на кода (може с F7)
Горе лявото поле на редактора избираш ComboBox1.
В дясното поле избираш Change
Ще се появи
Private Sub ComboBox1_Change()

End Sub

Вътре пишеш
rr = ComboBox1.ListIndex
rr - е променлива в която се пази номера на избрания елемент от списъка.
rr трябва да се обяви в секцията General Declarations чрез Dim rr
броенето на елементите от списъка започна от `0` (по подразбиране), зато за да пишеш на правилния ред добавяш 1

Cells(rr+1,Col)= стойност

STST много ти благодря, ама няма да се справя :-( търся нещо готово което да използвам,но за сега не намирам , но все пак надеждата умира последна :-)

здрасти, имам смътното усещане, че съм правил нещо подобно.

трябва да попреровя нещата си.

проблемът е, че на 9-ти юни имам изпит за АССА и почти цялото ми свободно време е посветено на това. ако не ти е късно - след изпита ще се "чуем" по ICQ

Много мило, ако не съм намерила нищо до тогава ще те потърся
Мерси Теди

Успех с изпита!