- Samsung Galaxy A54 - türelemjáték
- Fotók, videók mobillal
- iPhone topik
- Android alkalmazások - szoftver kibeszélő topik
- Ulefone Amor 29 Ultra - súlyos érvek és ellenérvek
- One mobilszolgáltatások
- Honor 200 Pro - mobilportré
- Apple iPhone 13 Pro Max - őnagysága
- Yettel topik
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
-
Mobilarena
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
- Bomba ár! Lenovo ThinkPad A485 - AMD Ryzen 7 PRO I 8GB I 256GB SSD I 14" FHD I Cam I W11 I Gari!
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Bontatlan egérpad Razer Sphex V3 (RZ02-03820100-R3M1
- GYÖNYÖRŰ iPhone X 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3586, 100% Akkumulátor
- GYÖNYÖRŰ iPhone XR 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3200, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest