Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 19:35 19.06.24 
Компютри и Интернет
   >> Електронни таблици
*Кратък преглед

Тема Автоматичен ъпдейт на клетки  
Автор f(x)dx ()
Публикувано07.02.06 17:06



Може ли да се направи така, че ако клетка А1 се промени, автоматично да се промени клетка В1.
работата е да стане без формула

проблемът ми е следният:
В клетка А1 се въвеждат имена на градове. В клетка В1 - имена на клиенти.
Използвал съм номера на Алексов с валидирането и Indirect. така като избера в А1 "Варна", в падащия списък на В1 ми излизат само клиентите от Варна. Проблемът е, че ако след това избера в А1 "Русе", в В1 си остава някой варненски клиент и това може да доведе до объркване.
и сега търся начин, чрез който когато сменя името на града в А1, автоматично без натискане на бутони В1 да приеме някаква неутрална стойност (примерно да стане празна, или да пише Total)



Тема Re: Автоматичен ъпдейт на клеткинови [re: f(x)dx]  
Автор f(x) ()
Публикувано07.02.06 19:13



Адаш пробваи нещо от сорта

Private Sub Worksheet_Change(ByVal Target As Range)

' използвай Worksheet_Change(ByVal Target As Range)мисля че стратегията трябва да
'бъде изградена на база на събитието Change WorkSheet останалото е пълнеж дал съм и един пример

If Sheet1.Cells(1, 1) = "ruse" Then
Else
Sheet1.Cells(1, 2) = "total"
End If

End Sub

Ако съм разбрал правилно това трябва да ти свърши работа, ако не питай ще помогна ако мога разбира се!



USER ERROR: replace user and press any key to continue.



Тема Re: Автоматичен ъпдейт на клеткинови [re: f(x)dx]  
Автор alexoff ( (_)] .)
Публикувано07.02.06 19:33



мисля, че това ще ти свърши работа, но само ако променяш съдържанието в клетка А1 чрез валидация или го изтриеш

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, Range("A1")) Is Nothing Then
Else
Range("B1").ClearContents
End If
End Sub



Тема Re: Автоматичен ъпдейт на клеткинови [re: alexoff]  
Автор alexoff ( (_)] .)
Публикувано07.02.06 19:43



Така работи по добре

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Else
Range("B1").ClearContents
End If
End Sub



Тема Re: Автоматичен ъпдейт на клеткинови [re: alexoff]  
Автор f(x)dx ()
Публикувано08.02.06 08:48



Момчета, едно грамадно благодарско и на двамата.
Значи и двете работят. Варианта на адаша го схванах горе долу. Иф-миф щом има, ясна работата. Но вариантът на Алексов ме устройва повече, щото е по-мързелив

обаче да пукна, ако разбирам каква му е логиката. Това Private Sub Worksheet_Change(ByVal Target As Range), Intersection и така натам.
Баси чувствам се много зле, че съм толкоз невежа
Кажете нещо да чета, ама от А и Б да почва. По възможност нещо в нета.



Тема Re: Автоматичен ъпдейт на клеткинови [re: f(x)dx]  
Автор alexoff ( (_)] .)
Публикувано08.02.06 09:32



Препоръчвам ти Как да напишем макроси в Excel



Тема Re: Автоматичен ъпдейт на клеткинови [re: f(x)dx]  
Авторbate ivan (Нерегистриран)
Публикувано08.02.06 11:01



даи си и меила да ти пратя нещо от www.ozgrid.com или направо влез там
и си изтегли MatchingLists.zip мисля че точно това ти трябва аз също съм го ползвал



Тема Re: Автоматичен ъпдейт на клеткинови [re: f(x)dx]  
Автор alexoff ( (_)] .)
Публикувано10.02.06 08:57



Използвам Intersection, за да определя дали има сечение на две области. в случея активната клетка и клетка А1, при положение че твърдението е вярно, т.е. има съвпадение на области да се изпълни определено събитие при промяна на тази област.




*Кратък преглед
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.