- Azonnali notebookos kérdések órája
- Megérkezett a Razer DeathAdder V3 Hyperspeed verziója
- Milyen nyomtatót vegyek?
- Hobby elektronika
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- ASUS Vivobook Snapdragonnal: talán egy új korszak kezdete!
- E-book olvasók
- TCL LCD és LED TV-k
- Autós kamerák
- Milyen billentyűzetet vegyek?
Hirdetés
-
Stellar Blade - Túl az 1 millión
gp Külön érdekesség, hogy a Metacritic oldalán a felhasználók ennek a PS5-ös játéknak adták a legjobb pontokat.
-
Az USA tisztifőorvosa figyelmeztető címkét ragasztana a közösségi médiára
it Figyelmeztető címkéket szeretne látni az USA tisztifőorvosa a közösségi médiában, ami főleg a serdülők számára lenne emlékeztető a platformok súlyosan káros hatásairól.
-
Olcsó USB WiFi AC adapter
lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz
jani-wan #12369 üzenetére
Sub elrejt()
Dim sor As Integer, oszlop As Integer
Sheets("Munka1").Select 'ezt írd át arra a lapnévre,
'ahol rejteni akarod a sorokat és oszlopokat
'Sorok rejtése
For sor = 2 To 20 '2-től 20. sorig ellenőriz, írd át a tartományt
If Cells(sor, 2) = "" Then
Rows(sor).Hidden = True
Else
Rows(sor).Hidden = False
End If
Next
'Oszlopok rejtése
For oszlop = 2 To 60 'B-től BH oszlopig ellenőriz, írd át a tartományt
If Cells(2, oszlop) = "" Then
Columns(oszlop).Hidden = True
Else
Columns(oszlop).Hidden = False
End If
Next
End SubHa a képletet tartalmazó cellák soronként nem a B oszlopban vannak, a Sorok rejtése részben az If Cells(sor, 2) = "" Then sorban a 2-t írd át az oszlop számára.
Kitehetsz egy gombot a lapodra az Űrlapok eszköztárból, majd a jobb klikkre előjövő menüben hozzárendeled az "elrejt" makrót. Utána már gombnyomásra elvégzi a műveletsort.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Cégek számára kedvezmény! Irodai programok: Office, Word, Excel
- 10 Darab PC Játék (Bontatlanul!) Egyben 5990Ft.-ért Foxal!!!