Hirdetés
Új hozzászólás Aktív témák
-
MartinIsti
csendes tag
-
MartinIsti
csendes tag
válasz
[HUN]Zolee
#393
üzenetére
Köszi a segítséget, végül én a következőt találtam ki kedden a sorok számának megállapítására (persze ehhez az kell, hogy az első üres cella alatt már ne legyen több nem üres cella):
Sub elsourescella()
' Hogyan kell megállapítani az első üres sor helyét
Dim i As Integer ' változó definiálása
i = 3 ' változó alapértékének meghatározása
While Cells(i, 2) <> '''' ' i-dik oszlop vizsgálata az első üres celláig
i = i + 1
Wend
End Sub -
MartinIsti
csendes tag
A múltkori problémámat sikerült megoldanom. Mondjuk sejtettem, hogy egy egyszerű ciklus-utasítás révén menni fog a dolog, csak jól meg kellett ''fogalmazni''.

Most viszont egy olyan átfogó kérdésem lenne, hogy miként lehet az egyes Excel táblák határait megállapítani? Érthetőbben kifejezve: az adott munkalapon szereplő táblázat hány soros és hány oszlopos? Ez ugye ránézésre simán megy, de ha automatizálni akarom a folyamatot, akkor már gondban vagyok, mert makrórögzítés révén nem tudom kisilabizálni a dolgot. Ezenkívül van valamilyen függvény vagy utasítás, amely megállapítja, hogy az adott fájl hány munkalapból áll?
Ha nem teljesen világos a kérdésem, szívesen leírom a segíteni szándékozó kedves emberkének, mi is a pontos feladat, aminek a részeként ezek kellenek.
-
MartinIsti
csendes tag
Sziasztok!
Nagyon kezdő vagyok még a Visual Basicban, és most még csak az Office-ba épített változatával ismerkedem. Két kérdésem volna:
1) Tud valaki tanácsot adni, hogy miként kezdjem el elsajátítani a VB-t (a próbálgatáson kívül, mert most még csak a makró rögzítése alapján ügyeskedem az Excellel)? Esetleg létezik valami jó könyv erről? (A Visual Basic és Excel programozás címűt néztem, az nem az igazi.)
2) Egy egyszerű függvényt akarok létrehozni, amely egy Excel tábla második oszlopában azt figyeli, hogy hányadik sortól kezdve üresek a cellák, ezt az értéket megjegyzi, és az oszlop elemeit az elejétől eddig a sorig másolja át egy eltérő munkalapra.
Ciklusokkal még régen, C64 Basicjénél találkoztam, és bár valamennyire emlékszem rájuk, most valahogy nem sikerül összehoznom a dolgot. A logikája már megvan a fejemben, de nem tudom utasításokba önteni.
Új hozzászólás Aktív témák
- Milyen billentyűzetet vegyek?
- Poco F8 Ultra – forrónaci
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Amilyen gyorsan jött, olyan gyorsan ment is a világ legdrágább csúcs-VGA-ja?
- potyautas: Kiküldetésben a szép Juhásznénál
- Azonnali alaplapos kérdések órája
- Milyen videókártyát?
- Videós, mozgóképes topik
- Horvát fricska Elon Musk önvezető Tesláira
- BestBuy ruhás topik
- További aktív témák...
- Logitech Trueforce G923 kormány és pedál szett váltóval, break moddal
- Bomba ár! HP ProBook 450 G7 - i5-10GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- Bomba ár! HP ProBook 450 G6 - i7-8GEN I 16GB I 512SSD I HDMI I 15,6" FHD I Cam I W10 I Gari!
- Bomba ár! HP ProBook 450 G6 - i5-8GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W10 I Gari!
- Bomba ár! HP ProBook 450 G6 - i3-8GEN I 8GB I 128SSD I HDMI I 15,6" FHD I Cam I W10 I Gari!
- BESZÁMÍTÁS! Sony PlayStation 5 Slim 1TB SSD Lemezes konzol Elite kontrollerrel garanciával hibátlan
- Thinkpad P52s workstation: Core i7 8650U, 32GB RAM, P500 2 GB VGA, új kijelző és akkumulátorok
- Apple iPhone XR 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Lenovo IdeaPad V15-IWL: i5-8GEN I 8GB I 256SSD I 15,6" FHD I Cam I W11 I Garancia!
- Update 12.04. - Bomba árak 2025-ben is! Üzleti - Consumer laptopok DELL FUJITSU HP LENOVO
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




