[ Siki 5 @ 31.10.2010. 15:17 ] @
Da li postoji funkcija u excelu pomoću koje bi moglo da se u ćeliji D1 pojavi vrednost iz ćelije A1 ili B1 ili C1 u zavisnosti od toga na koju od ćelija kliknemo odnosno kada kliknemao na ćeliju A1 da vrednost u ćeliji D1 bude 0;kada kliknemo na ćeliju B1 da vrednost u ćeliji D1 bude 1;kada kliknemo na ćeliju C1 da se pojavi u ćeliji D1 vrednost 2.






[ timmy @ 31.10.2010. 18:21 ] @
Jedini nacin da u Excelu izazovemo promenu u celiji posle selektovanje neke celije jeste da modiifkujem WorkSheet_SelectionChange dogadjaj.

1. Pritisni Alt+F11
2. Otvori prozor VBA editora za zeljeni list (dupli klik na naziv lista u Project Exploreru sa leve strane)
3. Ubaci sledeci kod

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (Application.Intersect(Target, [a1:c1]) Is Nothing) Then [d1] = Target
End Sub


4. Vrati se na prozor Excela koji prikazuje radni list i probaj da selektujes celije A1, B1 ili C1

Pozdrav
[ Siki 5 @ 31.10.2010. 19:34 ] @
Hvala,to je to. Sada imam problem kako to uraditi u opsegu A1:A100,B1:B100,C1:C100,D1:D100, odnosno kako to izvesti za narednih 100 redova. Ja sam probao sa kopiranjem coda i ubacivanjem drugih ćelija,npr. umesto a1:c1 napišem a2:c2 i td., ali to ne ide tako. VBA i moja malenkost ne idu nikako zajedno. Zahvalnost se podrazumeva.
[ timmy @ 01.11.2010. 00:09 ] @
Probaj sa

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (Application.Intersect(Target, [a1:c100]) Is Nothing) Then Cells(Target.Row, 4) = Target
End Sub


Pozdrav
[ Siki 5 @ 01.11.2010. 16:39 ] @
To je ono što mi je bilo potrebno . Hvala za nesebičnu pomoć.