Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Porównanie wartości komórek w wierszu
anonim




Typ: Nie zarejestrowany
Porównanie wartości komórek w wierszu

Może ktoś na forum podpowie jak za pomocą VBA wyłuskać
komórki z wiersza Arkusza(1), które spełniają kryteria dla
1) PRZYPADEK I:
Jeśli wartość Cell (w, k) < wartość Cell (w, k+1)
oraz  wartość Cell (w, l) > wartość Cell (w, l+1)
oraz wartość Cell (w, k) > wartość Cell (w, l+1)
oraz wartość Cell (w, l+1) >= wartość Cell (w, m) - co oznacza,
że między wartościami z komórek Cell (w, k) i Cell (w, m)
w tym wierszu istnieje tylko wartość Cell (w, l+1);
dwie ostatnie wartości mogą być sobie równe gdy wartość Cell (w, l+1) w tym wierszu jest najmniejsza

oraz wartość Cell (w, k+1) > wartość Cell (w, l)
oraz wartość Cell (w, l) > wartość Cell (w, n) - co oznacza,
że między wartościami z komórek Cell (w, k+1)
i Cell (w, n)
w tym wierszu istnieje tylko wartość Cell (w, l)

jeśli spełnione są powyższe warunki to wstaw do Arkusz(2) kolumna
"A" - nr wiersza zwracającego wartości
"D" - wartość Cell (w, k)
"J" - wartość Cell (w, l+1)
"E" - wartość Cell (w, k+1)
"I" - wartość Cell (w, l)
"F" - wartość Cell (w, n)
"H" - wartość Cell (w, m)

2) PRZYPADEK II - natomiast jeśli:
      wartość Cell (w, k) > wartość Cell (w, k+1)
oraz  wartość Cell (w, l) < wartość Cell (w, l+1)
oraz wartość Cell (w, k+1) < wartość Cell (w, l)
oraz wartość Cell (w, k+1) > wartość Cell (w, m) - co
oznacza, że między wartościami z komórek Cell (w, l) i Cell (w, m)
w tym wierszu istnieje tylko wartość Cell (w, k+1);
wartości Cell (w, m) i Cell (w, k+1) mogą być sobie równe
gdy wartość Cell (w, k+1) jest namniejsza w wierszu

oraz wartość Cell (w, k) < wartość Cell (w, l+1)
oraz wartość Cell (w, k) > wartość Cell (w, n)- co oznacza,
że między wartościami z komórek Cell (w, l+1)
i Cell (w, n) w tym wierszu istnieje tylko wartość Cell (w, k)

jeśli spełnione są te kryteria to wstaw do Arkusz(2) kolumna
"A" - nr wiersza zwracającego wartości
"C" - wartość Cell(w, k)
"K" - wartość Cell(w, l+1)
"D" - wartość Cell(w, k+1)
"J" - wartość Cell(w, l)
"F" - wartość Cell(w, n)
"H" - wartość Cell(w, m)

gdzie :
w - wiersz
k - kolumny od "B" do "L"
l - kolumny od "D" go "N"
m, n - kol. od "B" do "O"

Pozdrawiam
forUmik

03-06-2004 22:44
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Można...

Można, tylko podeślij przykładowy plik, a odeślę Ci go z odpowiednim kodem.
Kod też zamieszczę na forum.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

04-06-2004 14:32
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany
Porównanie wartości komórek w wierszu

Więcej przykładów, sztuczek i trików znajdziesz w mojej książce o programowaniu w VBA....
-------
Chcąc poznać podstawy VBA przejrzałem wiele książek na ten temat - także
"MS Office 2000 i 2002/XP. Tworzenie własnych aplikacji w VBA" oraz wiele stron
w sieci. Jednak nigdzie nie spotkałem problemu podobnego mojemu.
Póki co próbuję z mozołem dalej sam rozwikłać tę zagadkę.

Dziękuję za zainteresowanie moim problemem.
Pozdrawiam.
--------
forUmik

09-06-2004 12:47
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Witaj,

Proszę o jeszcze trochę cierpliwości. To, że się nie odzywam, nie oznacza, że nie chcę Ci pomóc, a jedynie to, że nie mam na to wystarczająco dużo czasu.

Problem masz i powiem Ci szczerze, że już go częściowo rozwiązałem, tylko muszę poprawić algorytm, bo jeszcze nie wylicza mi tak, jak byś sobie tego życzył.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

09-06-2004 17:55
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1