[elektro-etc] VBA help

Móczik Gábor pm_levlista at progzmaster.hu
Wed Aug 1 12:48:52 CEST 2012


2012.08.01. 9:55 keltezéssel, Móczik Gábor írta:
> Hali!
>
> Aki ért az Excelben lévő visualbasic-hez, tudna segíteni?
>
> Van egy 31 sor magas, 2 oszlop széles tartomány.
> Az első oszlop egy hónap napjai sorrendben, a másik pedig 0 vagy 1 attól
> függően, hogy az adott nap munkanap-e.
>
> Ebből kellene generálni egy max 25 sor magas 1 oszlopos listát, azokat a
> napokat kigyűjtve ahol a második mező értéke 1. Ha nincs 25 ilyen nap,
> akkor a végén megmaradó sorokat üresre kell állítani.
>
> Egy totál egyszerű for ciklus, pontosabban kettő, csak nem igazán vagyok
> otthon ebben a szintaxisban...
>
> Ha a tartományok hivatkozását nem kellene fixen bedrótozni a VBA kódba,
> hanem mondjuk Named Range-t használna, az maga lenne a tökély. :-)
>
> (egyszerűsítettem, az eredeti táblában nem két egymás melletti oszlopban
> van a napok listája és a munkanap flag, ezért lenne jobb a named range)
>
>
> Köszönöm!

Van valakinek némi ötlete?

Guglizok már egy ideje, de még nincs 10 sor amit írtam. Hiába no, ezt 
sem lehet fél óra alatt megtanulni, csak épp már kéne az eredmény. :-)


     Dim daylist As Name
     Dim dayflag As Name
     Dim wkdaylist As Name

     Set daylist = Names("MonthDayList")
     Set dayflag = Names("MonthDayWkdayFlag")
     Set wkdaylist = Names("WorkdayList")

Ez jó eddig?
Hogy lépkedek végig a tartományon?



More information about the Elektro-etc mailing list