- One otthoni szolgáltatások (TV, internet, telefon)
- Direct One (műholdas és online TV)
- Windows 11
- Musk szerint bajban van a Tesla humanoid robotja
- Linux kezdőknek
- Vége: a kínai platformok nem adják vissza a pénzt visszaküldött áru nélkül
- Tényleg megbüntette az Apple-t és a Metát az EU, jön a megtorlás?
- OpenMediaVault
- Tarr Kft. kábeltv, internet, telefon
- Hálózati / IP kamera
-
IT café
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
- NOTEBOOK / NETBOOK / Mac beárazás
- iPhone topik
- Milyen légkondit a lakásba?
- AMD Navi Radeon™ RX 9xxx sorozat
- Nők, nőügyek (18+)
- gban: Ingyen kellene, de tegnapra
- Apple iPhone 16 Pro - rutinvizsga
- Amlogic S905, S912 processzoros készülékek
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- OLED monitor topic
- További aktív témák...
- Telefon felvásárlás!! Apple Watch SE/Apple Watch SE 2 (2022)
- Bomba ár! HP Elitebook 850 G7 - i5-10GEN I 8GB I 256GB SSD I 15,6" FULLHD I Cam I W11 I Gari!
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 16GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- BESZÁMÍTÁS! Gigabyte AORUS B450 R5 5600X 16GB DDR4 512GB SSD GTX 1080 Ti 11GB ASUS GT 301 FSP 700W
- LG 55C3 - 55" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest