Dalsi sposob ktory ma napadol (za predpokladu ze sa bude zoznam zvacsovat) pristupovat ku suboru ako k XLS databaze spravit formicku kde bude query ktore hodi sumu z Like. Takze ak zada niekto do vyberoveho pola napr Ka vybereto sumu vsetkych Karlov Kaviarov atd... v exceli v Helpe pre VBA vyhladaj OpenRecordset alebo Connect to... nad fciou som si vcera lamal hlavu ale ziadna ma nenapadla ================ Alexander Likavcan Finanz/Controlling Volkswagen Slovakia a.s. tel: ++421 7 6964 2750 fax:++421 7 6964 2347 ================ > -----Původní zpráva----- > Od: Kamil Sverak [SMTP:sverak@csadbk.cz] > Odesláno: 4. október 1999 16:12 > Komu: servis-internet@nawebu.cz > Předmět: Re: Excel fce > > > mam tabulku o dvou sloupcich. > > > > V 1. sloupci je textovy nazev nekolika typu vyrobku. > > Ten nazev neni stejny ale je treba: Karel Xl, Karel XXL > > Josef S, Josef XXXL, Jana M, Olga XL, > > > > V 2. sloupci je numero pocet ks. > > > > Co bych potreboval. Seznam je dosti dlouhy. Potreboval bych > > zapis fce, ktery by mi nasla typ vyrobku (Karel obecne - nezalezi > > na velikosti) a secetla kusy, ktere jsou na sklade. > > Mozna by to slo udelat i nejak elegantneji, ja bych to vyresil jednoduchym > makrem > Predpokladam ze je vzdy mezi jmenem a velikosti mezera ... > Do tretiho sloupce ti to prihodi prvni slovo a potom si nechas udelat > souhrn > podle 3 sloupce s souctem u druhyho. > Kdyz by to melo fungovat jinak tak napis a neco vymyslime > Nez to pustis, tak si udelej zalohu. > > Kamil > > -------------------------------------------------------------- > Sub prvni_slovo() > ' do 3 sloupce vlozi prvni slovo > Dim radek As Integer > Dim retez As String, pom As String > Dim i As Integer > > radek = 1 > > Do > retez = Cells(radek, 1) > For i = 1 To Len(retez) > If Mid(retez, i, 1) = " " Then Exit For > pom = pom & Mid(retez, i, 1) > Next i > Cells(radek, 3) = pom > pom = "" > radek = radek + 1 > Loop While Cells(radek, 1) <> "" > End Sub > --------------------------------------------------------------- > > > > --------- konference casopisu Internet --------------------------------- > Archiv a instrukce pro odhlaseni/prihlaseni na http://internet.nawebu.cz > ------------------------------------------------------------------------
This archive was generated by hypermail 2.1.2 : 03. 09. 2001, 22:17 CEST