🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104139

Prośba o pomoc - 2 skrypty Excel

#104139
From: cpt.Zbik
Date: Fri, 15 May 2009 15:28
29 lines
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-mail

Show 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