Az alábbiakban egy programot nézünk be Excel VBA hogy törli az üres cellákat. Helyzet: 1. Először kétféle változót deklarálunk az Integer. Az egyik nevű számláló és az egyik i. Inicializáljuk a változó számlálót 0 értékkel. Dim counter As Integer, i As Integer counter = 0 2. Ezután ellenőrizzük az egyes cellákat, hogy üres-e vagy sem (<> nem egyenlő). Ehhez egy hurkot használunk. Ha nem üres, akkor az értéket a B oszlopba írjuk. A számláló nyomon követi a B oszlopba átmásolt cellák számát. Minden alkalommal, amikor egy értéket másolunk a B oszlopba, a számláló értékét 1-gyel növeljük. Ez a programrész a következőképpen néz ki: For i = 1 To 10 If Cells(i, 1) <> "" Then Cells(counter + 1, 2) = Cells(i, 1) counter = counter + 1 End If Next i Eddig eddig: 3. Végül ürítjük ki a tartományt ("A1: A10"), másolja a B oszlop értékeit az A oszlopra és az üres tartományt ("B1: B10"). Range("A1:A10") = "" Range("A1:A10") = Range("B1:B10") Range("B1:B10") = "" Eredmény:
Ezek kis területen kevés energiafelhasználással valósítják meg a víz látványát lakásunkban, ha pedig lehetőségeink megengedik, telepíthetünk akár kisebb méretű szökőkutakat, vízeséseket is. A Vatera választékában megtalálhatja azt a terméket, amely az ízlésével, lakásával harmóniában tud lenni, ami az anyagi lehetőségeinek és a rendelkezésre álló térnek is megfelelő. Vásárolja meg a oldaláról lakásdekorációs kellékeit, vegyen lakásszökőkutat és csobogót a legkedvezőbb árakon. Kapcsolódó top 10 keresés és márka