Hirdetés
-
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
-
Fferi50
Topikgazda
válasz
attiati
#53625
üzenetére
Szia!
Próbáld ki a következőt importálás előtt:
Egy üres excelben - Beállítások - Speciális - Rendszerbeállítások szerinti elválasztók használata elől a pipát kiveszed. -Tizedesjel helyére beírod a . (pontot). Leokézod. Bezárod az Excelt majd újra megnyitod.
Beimportálod az adatokat. Ezután megcsinálod: Beállítások - Speciális - Rendszerbeállítások szereinti elválasztók használata elé pipa. Oké.
A beimportált számoknál a pontok vesszőre fognak változni.
Üdv. -
-
attiati
veterán
válasz
attiati
#39480
üzenetére
mégiscsak segít, de registry bejegyzésekkel:
windowsban adminisztrátorként futtatni kell a cmd parancsot és utána ezeket lefuttatni:
reg add hkey_current_user\software\classes\.xhtml /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.xht /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.html /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.htm /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.shtml /ve /d htmlfile /f -
Delila_1
veterán
válasz
attiati
#13036
üzenetére
Újra átolvasva a kérdésedet, valóban nem kell a +1.
Nem szükséges, hogy a képlet a mellette lévő oszlopra hivatkozzon, de a balra mellette lévő oszlopban legyenek bármilyen adatok ahhoz, hogy dupla kattintásra végig lemásolódjanak a képletek. Ameddig van adat, addig lesz másolat.
Most, hogy kiveszed a +1-et, működni fog a duplaklikk, mert a másik lehetőség, hogy az aktuális oszlopban legyenek folyamatosan valamilyen adatok, képletek.
-
Delila_1
veterán
válasz
attiati
#13024
üzenetére
Ilyesmi kell hozzá:
=MAX(INDIREKT("A"&SOR()+1&":A"&SOR()+$C$1))
ahol az összegek az A oszlopban vannak, és a C1-be írod be, hány szám maximumát akarod kiszámoltatni. Pl. C1=5. A B2-ben megadott képlet az A3:A7 max értékét adja, lehúzva a képletet a B10 az A11:A15-ét.
Egyébként nem kell végighúzni a képletet. Mikor beírtad az elsőt, a cellán állva a jobb alsó sarkában lévő kis fekete négyzetre klikkelsz duplán, és az végig másolja addig, ameddig a tőle balra lévő oszlopban valamilyen adatot talál, vagy addig, ameddig a saját oszlopában van adat.
-
#10443
Fire/SOUL/CD
félisten
attiati
#10440
-
perfag
aktív tag
-
Delila_1
veterán
válasz
attiati
#3895
üzenetére
Angol nyelvűnél is működik, de csak akkor, ha a gyümölcsök és a lapok neve megegyezik.
Másképp honnan tudná a program, hogy melyik lap adataihoz írja a következőt?Vegyél fel egy új lapot, ahol az A oszlopban a hosszú név, B-ben a hozzárendelt rövid lapnév szerepeljen. Kibővítettem a makrót. A Masolt_lap E oszlopába beírja az
=fkeres(a2;Uj_Sheet!a:b;2;hamis) függvényt, és ezután a lapnevet nem a B, hanem az E oszlopból olvassa ki.Sub Masol()
Sheets("Masolt_lap").Select
usorm = Range("A65536").End(xlUp).Row
Range("E2").Select
ActiveCell.Formula = "=VLOOKUP(B2,Uj_Sheet!A:B,2,FALSE)"
Selection.AutoFill Destination:=Range("E2:E" & usorm)
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnev = Cells(sor, 5)
ar = Cells(sor, 3)
Sheets(lapnev).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ar
Sheets("Masolt_lap").Select
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
válasz
attiati
#3893
üzenetére
A lapot, amit másolsz valahonnan, "Másolt_lap"-nak neveztem el (két helyen szerepel a makróban, írd át a saját lapod nevére). Ezen az A oszlopba írtam a dátumot, B-be a termék nevét, C-be az árat. Mindezt a második sortól, mert feltételezem, hogy az első sorban oszlopcímek vannak. A gyümölcsök lapjára már nem kell minden sorba az azonosítót beírni, azért nem tettem be az adatok közé.
Az gyümölcs lapokra csak két oszlopot vettem fel, a dátumot és a hozzá tartozó árat.Sub Másol()
Sheets("Másolt_lap").select
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnév = Cells(sor, 2)
ár = Cells(sor, 3)
Sheets(lapnév).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ár
Sheets("Másolt_lap").Select
sor = sor + 1
Loop
End Sub
)
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Huawei Pura 70 Ultra 512GB Black Karcmentes állapot 16GB RAM 6 hónap garancia
- BESZÁMÍTÁS! Gigabyte B450M R5 3600X 32GB DDR4 512GB SSD RTX 3060 12GB NZXT Source 340 Bitfenix 550W
- Telefon szerviz helyben - Gyors javítás, akár 30 perc alatt!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest