-
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
-
Fferi50
őstag
válasz nordican #33944 üzenetére
Szia!
Magától nem növekszik a sormagasság , akkor sem, ha egyszer beállítottad ezt a tulajdonságot. Sajnos minden alkalommal újra kell állítani, amikor adat kerül bele. Erre csinálhatsz egy makrót (rögzítés), amit betehetsz a főlapod változás eseményébe (worksheet_change). Ezáltal lefuthat, valahányszor módosítod a celládat.
Pl.Range("A1").Rows.AutoFit
Ha eléteszed a munkalapot, akkor az adott munkalapon hajtja végre:Sheets(1).Range("A1").Rows.AutoFit
Az esemény vizsgálatnál meg kell nézned, hogy valóban egy listás cellát változtattál-e meg, ennek egyik módja lehet:
IPrivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("K1"))) Is Nothing Then Makró1
'ide sorold fel az Union függvényen belül azokat a cellákat, ahol listád lesz.
End SubSub Makró1()
Sheets("Munka1").Range("A1").Rows.AutoFit
Sheets("Munka2").Range("A1").Rows.AutoFit
'és így tovább, minden lapra és cellára
End SubÜdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Júliustól kötelező biztosítást kell fizetni egyes rollerek után is!
- Vezetékes FEJhallgatók
- Az Xbox Series X|S konzolnak három új verziója jön idén
- PlayStation 5
- Tippmix
- Milyen TV-t vegyek?
- EAFC 24
- Elektromos rásegítésű kerékpárok
- Skoda, VW, Audi, Seat topik
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Eladó Steam kulcsok kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen