Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Konkurs #15 - Dodawanie formatowania warunkowego przez VBA

Wormsek · Ostatnio zmieniony przez Wormsek 04-11-2011, 10:24, w całości zmieniany 1 raz

Załączam pliczek z przykładowym kodem dodawania formatowania warunkowego kodem VBA.
Dodawanie jest specyficzne, ponieważ zakresy mają względne zakresy i zmienną w funkcji.

I teraz pytanie. Czemu zakres zamiast przybrać wartość jaką dajemy, to zmienia np na 65500 etc.

Odpowiedzi podawajcie do jutra (piątek 2011-11-04) do godziny 12:00 w południe :mrgreen:

.
Nie psujmy innym zabawy więc odpowiedzi proszę wysyłać na PW do mnie :-).

Have fun :-)

EDIT: Sorka podałem zahasłowany plik, bo pozostałość z pracy. Już dobry załącznik.

EDIT2: Okazuje się, że problem jest tylko w excelu 2003. Więc na nim testujcie ;-)

FW a VBA.zip
bez hasła

Pobierz Plik ściągnięto 369 raz(y) 18.44 KB

Wormsek · Wysłany: 04-11-2011, 07:11

No proszę, najlepszy czas (i na razie jedyny ;-)

) -> leda
Gratulacje :-)

.

Do roboty reszta ;-)

Artik · Wersja: Win Office 365 **Pomógł:** 3133 razy Posty: 10378

Worm, z wiadomości na SB wynika, że nie tylko mi przedstawiony w załączniku kod generuje prawidłowe odwołania (widzimy, że przed uruchomieniem makra odwołania w załączonym pliku są nieprawidłowe).
Jak więc mamy badać co jest nie halo?
Choć jak widać ledzie się udało.

Artik

Wormsek · Wysłany: 04-11-2011, 09:41

Dziwne.

Ściągam plik, otwieram, klikam przycisk, sprawdzam odwołania powiedzmy w F7 i widzę:

Kod:

=$E65534>0

Kod:

=ORAZ(NIE(CZY.PUSTA($F65534));DŁ(PODSTAW($F65534;";";""))=DŁ($F65534))

Ja nie wiem jak wy testujecie :-P

PS. bodek też to rozgryzł już ;-)

PS2. Zauważcie, że kod wrzuca 2 formuły do komórki, są to formuły, które są przed zakończeniem działania procedury. Po zakończeniu działania one się zmieniają same z siebie ;-)

Artik · Wersja: Win Office 365 **Pomógł:** 3133 razy Posty: 10378

Dobra, już widzę kiedy nie działa. :-)

Artik

Zbiniek · Wysłany: 04-11-2011, 10:07

Kurcze - u mnie cały czas działa :roll:

Dodam, że w firmie na Excelu 2010 wszystko gra, na innych wersjach nie testowałem.

No jestem ciekaw :lol:

przed.jpg
przed zastosowaniem kodu

Plik ściągnięto 40 raz(y) 210.06 KB

po.jpg
po zastosowaniu kodu

Plik ściągnięto 47 raz(y) 195.58 KB

Artik · Wersja: Win Office 365 **Pomógł:** 3133 razy Posty: 10378

Początkowo testowałem na 2K10, było wszystko OK.
Na 2K3 wariuje.

Artik

Wormsek · Wysłany: 04-11-2011, 10:23

zbiniek,
Dla komórki F7 masz porównanie komórki F3. A miało być F7. Coś inaczej to wygląda w 10? Czy ja czegoś nie rozumiem? :-P

A sprawdziłeś inne komórki po uruchomieniu? :->

Artik,
O no proszę, czyli poprawili to w późniejszych wersjach. Czyli końkurs tylko dla ex2003 ;-)

Zbiniek · Wysłany: 04-11-2011, 10:40

Potwierdzę, że wspomniane wcześniej problemy miałem na Excelu 2003 - taki jeszcze wtedy miałem w firmie (piękne czasy to były :-)

)

Wormsek · Wysłany: 04-11-2011, 12:05

hurgadion · ExcelSpec **Pomógł:** 1080 razy Posty: 2447

Kto wygrał ? :)

Wormsek · Wysłany: 04-11-2011, 12:12

Jedyne 2 poprawne odpowiedzi na PW podałem jako cytat :-)

. leda była pierwsza, więc myślę, że dla niej większe gratulacje się należą :-)

. (bodku mam nadzieję, że nie gniewasz się ;-)

)

bodek · Wersja: Win Office 2019 **Pomógł:** 994 razy Posty: 2900

Po jakimś czasie przesłałem Wormskowi, na pw korektę interepretacji o następującej treści:

Jak sobie o tym myślę, to lekko jest to (co napisałem) naciągane. Musiałbym potestować żeby uzasadnić lub zmienić uzasadnienie.
Niewątpliwie formatuje (domyślnie nie faktycznie) lewy górny róg zaznaczonego zakresu a potem przenosi odwołania w FW na obszar wskazany kodem. Dlaczego - wymaga chyba głebszej analizy niż to co napisałem.
Nie mam teraz czasu na testy dla innych przypadków.

Oczywiście leda była pierwsza i to jak najbardziej jej :tak

należą się wszelkie zaszczyty i pochwały.

leda · ExcelSpec **Pomogła:** 132 razy Posty: 267

Z tymi zaszczytami i pochwałami dla mnie to przesada. Ja tylko zaobserwowałam zachodzące zależności. Niestety moja wiedza jest tak niewielka, że nie jestem wstanie, w przeciwieństwie do bodka, zinterpretować tego zjawiska i go sklasyfikować przez co moje rozwiązanie jest tylko połowiczne. Już sam fakt, że mogłam uczestniczyć z Wami w tym konkursie jest dla mnie nagrodą i z tego się niezmiernie cieszę.

Pozdrawiam :)

leda

Artik · Wersja: Win Office 365 **Pomógł:** 3133 razy Posty: 10378