- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Így nem hajlik, úgy kettétörik az új iPad
- Kilép a PC-s piacról a Noctua
- Ezért jött hardveres sugárkövetés nélkül a Hellblade II
- Samsung Galaxy Tab S6 Lite 2024 - a visszatérő
- Gaming notebook topik
- Nem indul és mi a baja a gépemnek topik
- SSD kibeszélő
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen TV-t vegyek?
Hirdetés
-
Kilép a PC-s piacról a Noctua
ph Az új HOME termékek asztali ventilátorként a felhasználókat, vagy külön szellőztetőként például erősítőket hivatottak hűteni.
-
Ilyen lesz az Astor: Blade of the Monolith
gp A C2 Game Studio nemrég átnevezett játéka a tervek szerint a hónap végén debütál.
-
Megvan a Honor 200 európai startdátuma is
ma A Honor párizsi prezentációján megerősítették a 200-as csúcsmodellek érkezését.
Új hozzászólás Aktív témák
-
ArchElf
addikt
így próbáltad?
(Sheets(2).Cells(i, eo).Value
Ja és használj kódbeillesztést, mert tagolatlan kódot kínszenvedés olvasni...
A változónevek sem mondanak amúgy sokat...AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
ArchElf
addikt
Próbáld meg elötte kiválasztani a sheet-et és a cellát és utána lekérdezni. Esetleg nézz át az Excel topicba, ott sokkal több tapasztalat van az excel makrók tekintetében.
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
martonx
veterán
Szia!
A hülye Excel a létező legtriviálisabb hibákra szokott ilyen semmitmondó hibaüzenetet adni.
Azaz ilyenekre tippelek, hogy:1. nem létezik az fk
2. nem létezik az eo
3. fk és eo létezik, de nem számokvagy mittudom én, de ilyen szintű kis bizbasz hibát kellene keresned.
Én kérek elnézést!
-
Homer
tag
Szia!
Nem teljesen értettem amit akartál, de ha minden igaz akkor ilyesmi válaszra vársz.
Egyrészt az nem teljesen világos, hogy az intersect minek bele? Gondolom a több cella egyszerre történő kijelölése végett van benne, így ez esetben az általam javasolt megoldás nem működik majd. De azért gondolkodtam rajta. Tess:Public elozo, default As Integer
Const uj = 3Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Az új sor színének beállítására
Rows(Target.Row).Interior.ColorIndex = uj'Annak a vizsgálatára, hogy kell-e visszaállítani formátumot, azaz első kijelölés, vagy már volt előtte kijelölve valami?
If elozo <> 0 Then
Rows(elozo).Interior.ColorIndex = default
End If'Az előzőleg kijelölt sor száma
elozo = ActiveCell.Row' itt az eredeti cella formátumát kellene beállítani az 5 helyett de ezt pontosan nem értettem a leírásodból... :S
default = 5
End Sub -
Homer
tag
Örülök, hogy segíthettem.
Egyébként ajánlok neked is egy könyvet:
Balogh Gábor - Visual Basic és Excel programozás
a neten megtalálod...Megpróbálom elmagyarázni mi nem volt teljesen világos:
- Szóval ha van egy táblázatod amiben minden sor (esetleg minden oszlop is) egyforma formátumú, akkor nem gond ha előre meghatározott stílust állítasz be default értéknek.
régi sor(x) stílus = régi formátum- Ha a sorok megegyeznek, de az oslopok formátuma eltér (pl színük más) akkor a cellék formátumát egyesével kell állítgatni.
régi cella(régi sor, oszlop(1...x)) formátuma = default cellastílus (régi sor, oszlop(1...x) formátuma- Ha az eredeti sorok formátumai is eltérnek egymástól (azaz különbözőek), akkor még bonyolultabb a helyzeted, mert a default értéket az eredeti stílus szerint kell meghatározni.
tehát pl a visszaállításnál a
cella1 stílus = eredeti cellaformátum1.oszlop
cella2 stílus = eredeti cellaformátum2.oszlop
...Tudom nem teljesen érthető a magyarázat, bocs.
Új hozzászólás Aktív témák
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Megérkezett a Google Pixel 7 és 7 Pro
- Építő/felújító topik
- Politika
- Kecskemét és környéke adok-veszek-beszélgetek
- Gyúrósok ide!
- Így nem hajlik, úgy kettétörik az új iPad
- Kilép a PC-s piacról a Noctua
- Háztartási gépek
- BMW topik
- További aktív témák...
- JBL Partybox Club 120 - Új, garanciális, akár beszámítással
- JBL Partybox 710 - Új, garanciális, akár beszámítással
- LG 75Uq8100 4K HDR Thinkq AI SMART TV Magic Motion Távirányítóval!
- Thinkpad P16s Gen2 16" FHD+ IPS i7-1370P RTX A500 32GB 512GB NVMe ujjlolv IR kam gar
- LG 65Qned7S3QA Qned UHD 4K HDR Thinq AI SMART TV
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen