|
Тема
|
Автоматичен ъпдейт на клетки
|
|
Автор |
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, при положение че твърдението е вярно, т.е. има съвпадение на области да се изпълни определено събитие при промяна на тази област.
| |
|
|
|
|