- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- bitpork: MOD Júni 13 Augusztus 2- szombat jelen állás szerint.
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
-
LOGOUT
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
-
Capella
senior tag
válasz
fricc_ #41837 üzenetére
Nem a formátumra gondoltam, hanem hogy tényleg szám-e, vagy csak úgy néz ki a tartalom.
Egy felesleges szóköz, vagy tizedesvessző helyett pont, és már nem érték. Igaz az meg feltűnhet alapesetben, hogy merre igazítja a cellában. Vagy ha az ezres elválasztót begépelték, és nem a cellaformátum képzi.
Persze látatlanban csak egy tipp volt.
A szövegformátum is meg tudja bolondítani, de ezek szerint az rendben. -
Pakliman
tag
válasz
fricc_ #36592 üzenetére
D oszlop elrejtve, a
Debug.Print n
4-et ad visszaDim ws As Worksheet
Dim n As Integer
Dim cl As Range
For Each ws In ThisWorkbook.Worksheets
n = 0
For Each cl In .Rows(5).Columns
If cl.Hidden Then
n = cl.Column
Exit For
End If
Next cl
Debug.Print ws.Name & "->n=" & n
Next wsErre gondoltál?
-
Fferi50
Topikgazda
válasz
fricc_ #36565 üzenetére
Szia!
"i= 1
n = 0
For i = 1 To 10
If Range("i5").EntireColumn.Hidden Then
n = i"A kiemelt sorral az a baj, hogy a Range("i5") az i oszlop 5. celláját nézi meg !!!.
Ha ciklussal mész akkor a Cells tulajdonságot kell használni:If Cells(5,i).EntireColumn.Hidden Then
Vagy:
Dim cl As Range
For Each cl in Rows(5).Cells :if cl.EntireColumn.Hidden Then
n=cl.Column :Exit For
Next
A kódod következő része pedig a D oszlopot rejtettnek találva az n értékét 2 -re állítja, legyen az bármennyi is az előző rész alapján.Üdv.
Ps. Légy szives, használd a Programkód gombot, ha makrót másolsz be.
-
Fferi50
Topikgazda
válasz
fricc_ #36340 üzenetére
Szia!
A B3 képletében legyen abszolút az A oszlop, azaz $A3. Ezután a B oszlopban húzd le a képletet. Majd kijelölöd B4-től lefelé a cellákat. Másolás. C3 cellát kijelölöd. Irányított beillesztés, a panelen bejelölöd a képletet és a transzponálást.
A B oszlop képletes celláit utána kitörölheted.Üdv.
Új hozzászólás Aktív témák
Hirdetés
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- BESZÁMÍTÁS! MSI Z370 i5 9500 16GB DDR4 512GB SSD RX6600 8GB Cooler Master MB510L Chieftec 500W
- HATALMAS AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
- 0% THM 3 havi részlet! Beszámítás, 27% áfa, Sapphire Nitro+ RX 9070XT 16GB készletről
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged