Article View: pl.comp.lang.vbasic
Article #104139Prośba o pomoc - 2 skrypty Excel
From: cpt.Zbik
Date: Fri, 15 May 2009 15:28
Date: Fri, 15 May 2009 15:28
29 lines
2096 bytes
2096 bytes
Witam, Chciałem Was prosić o pomoc w napisaniu dwóch skryptów, zacząłem już co prawda edukację VBA jednak nie jest to wystarczająca wiedza by sobie poradzić, natomiast w CLR jakoś mi nie wychodziły tak jak powinny....a czas mnie goni bo mam pełno danych do przerobienia.... 1 skrypt: Chodzi o to by skrypt wyszukał wśród komórek z Kolumny X, komórkę której wartość n = 0, następnie przesunął się w wierszu do komórki w Kolumnie Y i skopiował jej wartość. Otrzymane dane (wartość komórki z kolumny X i Y) zapisał w nowym arkuszy w kolumnach A, B. Następnie do wartości n dodajemy 1; n = 1 i wykonujemy analogiczną operację, i tak aż do czasu kiedy nie znajdzie wartości n = k (k kolejna liczba po k pętlach). 2 Skrypt: Mamy komórkę A1 w której możliwe są opcje z listy: kulka, walec, sześcian, prostopadłościan, oraz komórkę B2 w której możliwe są opcje z listy: mała, duża, zielony, niebieski, żółty. Zadaniem skryptu jest analizowanie obu komórek i w zależności co się w nich pojawi wstawiania odpowiednich wartości do komórek C1 i D1 np. kulka - mała : C1 = 1, D1 = 1. Z góry dziękuje za pomoc. -- Pozdrawiam cpt.Zbik ===HooaH=== 'Part of the inhumanity of the computer is that, once it is competently programmed and working smoothly, it is completely honest...'- Isaac Asimov
Technical Details
Message-ID:
<guk1kp$2pbv$6@opal.icpnet.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsb.icpnet.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsb.icpnet.pl!not-for-mail From: "cpt.Zbik" <"d_omin[_NOsPAM_]"@o2.pl> Newsgroups: pl.comp.lang.vbasic Subject: Prośba o pomoc - 2 skrypty Excel Date: Fri, 15 May 2009 17:28:40 +0200 Organization: ICP News Server Lines: 29 Message-ID: <guk1kp$2pbv$6@opal.icpnet.pl> NNTP-Posting-Host: c156-32.icpnet.pl Mime-Version: 1.0 X-Trace: opal.icpnet.pl 1242401241 91519 85.221.156.32 (15 May 2009 15:27:21 GMT) X-Complaints-To: abuse@icpnet.pl NNTP-Posting-Date: Fri, 15 May 2009 15:27:21 +0000 (UTC) User-Agent: Thunderbird 2.0.0.21 (Windows/20090302) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit