-
Fototrend
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
-
-
#14292
zz76zz
csendes tag
ChiliChili
#14290
zz76zz
csendes tag
válasz
ChiliChili
#14290
üzenetére
http://office.microsoft.com/hu-hu/excel-help/osszefuz-HP005209020.aspx
-
VGYke
addikt
Sziasztok! Lehet hogy nagy bugyutaságot kérdezek, de azért bepróbálkoznék, hátha...
Van egy internet sebességmérő oldal.
Elvileg lehetne olyan makrót írni, hogy nyomkodja helyettem x (pl.10 perc) időnként a
gombot? -
#14290
ChiliChili
tag
ChiliChili
tag
Azt szeretném megoldani, hogy az egyik oszlop tartalmaz bizonyos értékeket (pl.: 01:10:00) és az értékek elé be szeretném tenné a 00:-t, vagy a 01:-t, hogy a végső forma pl.: 00:01:10:00 legyen. Hogyan tudom elérni, hogy az egész oszlopban kibővüljenek az értékek a kívánt 00:-val vagy 01:-el? Egyenként beütni elég macerás, mert akár 3-400 sor is lehet. Van erre egyszerű megoldás? Libre Office és GDrive áll rendelkezésemre.
-
Sziszmisz
csendes tag
sziasztok,
egy apró, ámde nagy fejtörést okozó problémám lenne, amiben szeretném a segítségeteket kérni. Hivatkozni szeretnék bizonyos adatokra, de itt a "m2" 2-ese nem marad felsőindexbe a hivatkozott résznél. Nekem pedig nyomtatnom kellene ezt, ezért fontos. Próbálnám manuálisan felső indexbe rakni, de mivel hivatkozás nem engedi, max az egész cellát, de az úgy se jó nekem. valakinek lenne esetleg valami ötlete? köszönöm előre is
-
mizu_
tag
Sziasztok!
Munkalapokat kellene VBasicben átmásolnom egyik XLS-ből a másikba úgy, hogy az adott munkalapban található Visual Basic kód ne másolódjon át. Egyelőre eddig jutottam:
Windows("forrás.xlsm").Activate
Sheets("munka2").Select
Sheets("munka2").Copy After:=Workbooks("cél.xlsm").Sheets(Workbooks("cél.xlsm").Worksheets.Count)Ha valaki tud légyszi segítsen.
Előre is köszi! -
#14281
lappy
őstag
Metathrone
#14279
lappy
őstag
válasz
Metathrone
#14279
üzenetére
Szia!
Valódi jelszó megtudására a GOOGLE-ba beírva egy pár kulcsszót kidob egy pár programot amivel excel jelszót meg lehet tudni! Igaz el tarthat egy darabig még megkeresi a valódi jelszót! -
lacid90
csendes tag
válasz
Delila_1
#14277
üzenetére
Nagyon köszönöm
. Lenne még két kérdésem ha lehet. A munkalap nevét kellene megjeleníteni az A1-es cellában, de úgy hogyha változik a lap neve automatikusan változzon a cellában is. Ha lehet makró nélkül lenne jó, de ha nem lehet akkor jöhet makróval is. A másik kérdés, hogy a munkalapon létrehozott szövegdobozt lelehet horgonyozni úgy, hogy scrollozáskor mindig látható legyen. Ez egy a felhasználót segítő ablak lenne. Ha így nem lehet, akkor hogyan.
Köszönöm a segítséget. -
#14279
Metathrone
csendes tag
Delila_1
#14278
Metathrone
csendes tag
válasz
Delila_1
#14278
üzenetére
Ezt egy programmal 2 mp alatt fel lehet törni, csak sajna nem tudja meg az ember az igazi jelszót. Arra van valami mód, hogy a valódi jelszót megtudjam? Persze nem úgy, hogy megkérdezem
Nem rombolni vagy lopni akarok vele.Továbbá egy korábbi kérdésemen picit átsiklott mindenki. Lehetséges makróval beilleszteni a ctrl+f keresőablakba az aktuális vágólap tartalmát?
Köszönöm
-
Delila_1
veterán
válasz
lacid90
#14275
üzenetére
Az A:F oszlopok hátterét vizsgálja a makró. Ha a teljes sort akarod ellenőriztetni, a Range("A" & sor & ":F" & sor) helyett ezt írd be: Range(Cells(sor, 1), Cells(sor, Columns.Count)) .
Sub Szines()
Dim CV As Object, sor As Integer
sor = ActiveCell.Row
For Each CV In Range("A" & sor & ":F" & sor)
If CV.Interior.ColorIndex <> -4142 Then
MsgBox "Van színes hátterű cella"
Exit Sub
End If
Next
MsgBox "Nincs színes hátterű cella"
End Sub -
Delila_1
veterán
válasz
79blueboy
#14272
üzenetére
A laphoz kell rendelned a kódot. A makró a C3 cellát zárolja, és a lapot az "aaa" jelszóval védi.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
Range("C3").Locked = True
ActiveSheet.Protect Password:="aaa"
End If
End Sub -
#14271
lacid90
csendes tag
Fire/SOUL/CD
#14270
lacid90
csendes tag
válasz
Fire/SOUL/CD
#14270
üzenetére
Köszi!
-
#14270
Fire/SOUL/CD
félisten
lacid90
#14269
válasz
lacid90
#14269
üzenetére
Ha úgy érted, hogy az újonnan beszúrt sor és B oszlop metszéspontjába kell a csillag, akkor
Private Sub CommandButton1_Click()
ActiveCell.Offset(1).EntireRow.Insert
Range("B" & ActiveCell.Row + 1) = "*"
End SubHa az aktuális cella sorának és B oszlopának metszéspontjába kell a csillag, akkor töröld ki a makróból a + 1-et.
-
lacid90
csendes tag
-
zz76zz
csendes tag
válasz
D@ni88
#14260
üzenetére
"Azért azt a 2 GB xls-t is górcső alá venném. . .
Nincs annyi adat szerintem, amit egy átlátható xls tartalmazna.
Példa: el volt "harapózva" egy xls em mérete. Tesztelgettem egy adott feladatot.
Majd minden adat nélkül csak 30 sor makrót tartalmazó xls lett 4MB.
Na mondom ez nem járja.
Nyitottam egy üres file-t és bemásoltam csak a makrót a szerkesztőbe. Így lett ugyan azt a funkciót ellátó file 46kB. . ."
A lényeg, hogy az Excel dagasztja a file-okat. A csökkenést még nem tapasztalt érdekesség. -
#14259
Töki bácsi
aktív tag
Töki bácsi
aktív tag
Sziasztok! Elég alap kérdéssel fordulnék hozzátok. Kis probléma, de sok gondot tud okozni:
Adott egy viszonylag nagy excel file, amiből kitörlöm a sorok felét, akkor a csuszka továbbra is a korábbi lista teljes hosszán keres, így amikor kicsit mozdítok rajta, nagyot ugrik. Azt szeretném elérni, hogy a csuszka a már nem létező sorokat ne vegye bele a csúszkálási hosszba. Lehetséges-e ez, és hogyan? -
lappy
őstag
válasz
D@ni88
#14257
üzenetére
Szia!
itt van egy txt beolvasóPublic Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
Sub DoTheImport()
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If FileName = False Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Sep = Application.InputBox("Írjon be egy elválasztó karaktert.", Type:=2)
If Sep = vbNullString Then
''''''''''''''''''''''''''
' user cancelled, get out
''''''''''''''''''''''''''
Exit Sub
End If
Debug.Print "FileName: " & FileName, "Separator: " & Sep
ImportTextFile FName:=CStr(FileName), Sep:=CStr(Sep)
End Sub -
allein
addikt
Üdv. mindenkinek. Adott két Excel táblázat. Ami összeköti őket az "A" oszlop, tehát az adatok amik ebben az oszlopban vannak megtalálhatóak mindkét Excel esetében. Az a lényeg, hogy egy olyan Excel táblázatot akarunk csinálni amiben látunk minden olyan oszlopot ami éppen nincs benne az egyik vagy a másik Excel táblázatban. Lényeg itt egy névsorról van szó. Nem tudom mennyire voltam érthető.
-
zz76zz
csendes tag
válasz
vzsryl
#14241
üzenetére
Azért azt a 2 GB xls-t is górcső alá venném. . .
Nincs annyi adat szerintem, amit egy átlátható xls tartalmazna.
Példa: el volt "harapózva" egy xls em mérete. Tesztelgettem egy adott feladatot.
Majd minden adat nélkül csak 30 sor makrót tartalmazó xls lett 4MB.
Na mondom ez nem járja.
Nyitottam egy üres file-t és bemásoltam csak a makrót a szerkesztőbe. Így lett ugyan azt a funkciót ellátó file 46kB. . . -
-
#14244
Metathrone
csendes tag
Metathrone
csendes tag
Sziasztok!
Szükségem lenne egy olyan makróra, amit az első sheeten helyeznék el egy gombon és csak annyit csinál, hogy átlép egy másik sheetre ott megnyit egy keresést (ctrl+f), a felbukkanó ablakba bemásolja az éppen aktuális tartalmat a vágólapról és elindítja a keresést.
Az is jó lenne, ha a keresés eredményét, ha van találat akkor is egy popup ablakban jelenítené meg, nem csak akkor, ha nincs találat.Köszönöm a segítséget.
-
#14242
Fire/SOUL/CD
félisten
vzsryl
#14241
-
#14241
vzsryl
nagyúr
Fire/SOUL/CD
#14240
vzsryl
nagyúr
válasz
Fire/SOUL/CD
#14240
üzenetére
Felhívtam telefonon az illetőt. Másik gépen megtudta nyitni a 2003-assal, szóval valószínűleg azzal a géppel lesz valami probléma, főleg, hogy azóta már pl a google chrome sem akar megnyílni. Gyanús, hogy a rendszerre ráfér egy javítás, esetleg újratelepítés.
-
#14240
Fire/SOUL/CD
félisten
vzsryl
#14239
válasz
vzsryl
#14239
üzenetére
Ha valóban az Excel 2003 limitációjából adódóan van jelen ez a jelenség, akkor csak annyit lehet tenni, hogy 2007/2010 Excelbe betölteni ezt a méretes xls-t, majd xlsx-ként menteni, majd feltelepíteni azt a csomagot, amit linkeltem és úgy (elméletileg) az Excel 2003 is tudja kezelni. Másik alternatív lehetőség, hogy megpróbálni LibreOffice-al megnyitni az eredeti xls-t, hátha nincs olyan nagyon speciális formázás vagy egyéb, ami miatt hibásan vagy egyáltalán ne tudná a Libre kezelni. (nyilván ha makrót is tartalmaz, az már kizáró ok)
-
#14239
vzsryl
nagyúr
Fire/SOUL/CD
#14238
vzsryl
nagyúr
válasz
Fire/SOUL/CD
#14238
üzenetére
Konkrétan egy építészettel foglalkozó irodában szeretné megnyitni az egyik tervező. Tehát nem én akarom ezt megtenni. Újabb office-on kívül más megoldás nem lehetséges? Most az irodának nincs pénze újabb office csomag megvételére, mert elég rosszul állnak anyagilag, ami manapság nem meglepő...
-
#14238
Fire/SOUL/CD
félisten
vzsryl
#14237
válasz
vzsryl
#14237
üzenetére
Túl méretes az a fájl, valószínűleg az Excel 2003-ban érvényes valamelyik limitációt átlépte a munkafüzet tartalma. Hogy melyiket, azt nem lehet megmondani, pl lehet, hogy több mint 65536 sor van benne (pl korábban(amikor még meg lehetett nyitni) nem volt ennyi csak bele "tettél" bele többet stb stb)
Excel(2003) specifications and limitsSzóval egy 2007-el vagy újabbal kellene megnyitni, legalábbis ha szerkeszteni is kellene, akkor mindenképp vagy ezzel is megpróbálkozhatsz: [link]
-
psg5
veterán
15 fő, 40 verseny egy évben, mind a 15 kap pontot (utolsó 5 pont 14. 10 pont stb., de a pontszámítás nincs kikötve bárhogy lehet) minden verseny után, így nyilván alakul egy rangsor.
Feladat: Ha ráklikkelek egy névre kiadná, hogy kikkel játszhat a következő versenyen (1.-5. egymással, 6.-10. egymással, 11.-15. egymással vagyis a legrosszabb nem játszhat azonnal a legjobbal csak ha kellő pontja összejön)
Valamint ha az 5. megveri az 1.-őt akkor azért a győzelemért több pont járna vagyis nem csak a helyezés ér pontot, hanem egy győzelem is.
Plussz összesített ranglistát mindig mutassa.
Kb ennyi. Keresgettem, de nem nagyon használnak ilyent. (lehet mi sem fogunk) -
#14231
dobri320
csendes tag
Fire/SOUL/CD
#14224
dobri320
csendes tag
válasz
Fire/SOUL/CD
#14224
üzenetére
Köszönöm szépen! Sokat segítettél!
-
#14227
Fire/SOUL/CD
félisten
desirehd
#14225
válasz
desirehd
#14225
üzenetére
Korábbi képletben az A:A és B:B teljes oszlopot jelöli, persze hogy nem működik a képlet, egy ilyen felépítésű munkalapon, ahogy a képeden látszik(van fejléce, nem a teljes oszlop kell, stb), nyilván tartományt kell használni.
(Az már csak hab a tortán, hogy a képeden nem látok fizetést)
-
#14224
Fire/SOUL/CD
félisten
desirehd
#14222
válasz
desirehd
#14222
üzenetére
Pl A oszlopban a kor, B oszlopban a fizetések, és a 40 évesek fizetésének átlagára van szükséged, akkor
=ÁTLAGHA(A:A;"=40";B:B)
dobri320
makróban nem lehet a magyar függvény nevekkel hivatkozni, azaz a kódodban a SZUM helyett SUM kell. A másik, hogy a .Value helyett a .Formula-t használd. -
dobri320
csendes tag
Sziasztok!
Remélem jó helyre írok a makrós problémámmal.
A program az input adatoktól függően változtatja a kiszámolt eredményeknél a sorok számát. A sorok alá szeretnék egy olyan SZUM függvényt írni, ami nem csak kiszámolja a felette lévő sorok összegét, hanem én magát a függvényt szeretném látni a cellában, hogy a program futtatása után az esetleges kézi változtatásokat tudja követni.
Eddig ezzel a megoldással próbáltam élni, de sajnos a 2010es excelem #név hibára fut, és nem látom az eredményt:
cells(változó1,4).value = "=SZUM(d4:d" & változó2 & ")"
A program futtatása után, hogyha egyszerűen beleklikkelek a szerkeztősoron a képletbe, és ütök egy entert akkor már működik, de sajnos ez egy nem megoldás.
A képletbe a SZUM, kis betűkkel kerül, és hogyha egy kézi irányítású cserét végrehajtok, nagy SZUM-ra, akkor is működik már a függvény, de hogyha makróba teszem a csere funkciót akkor nem cseréli ki.
Sajnos kifogytam az ötletekből, ezért szeretném a Ti segítségeteket kérni.
Előre is köszönök minden javaslatot és segítséget!Szép napot nektek!
-
psg5
veterán
Üdv újra!
Ranglista készítőt szeretnék.
12-15 fő játszik (tenisz) , egy évben kb 40 verseny lenne. Folyamatosan az eredmények függvényében kapnának pontokat, aztán ha pl a 14. megveri a 10.-et akkor az több pontot kap, de pl az 1. nem játszhat a 15.-el csak ha az elér egy bizonyos helyig.
Nem tudom van-e már ilyen? Meg lehet-e oldani? -
#14218
Fire/SOUL/CD
félisten
tezse66
#14215
-
lappy
őstag
Sub WriteXls()
Dim firstrow As Integer, rownum As Integer, colnum As Integer
Dim filename As String
Dim Filelocation As String
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Filelocation = "C:\SAJÁT\"
With ws
rownum = 3
While .Cells(rownum, 1) <> ""
filename = .Cells(rownum, 1).Value
Open (Filelocation & filename & ".xls") For Output As #1
colnum = 2
While .Cells(rownum, colnum) <> 0
Print #1, ws.Cells(rownum, colnum) & " ";
colnum = colnum + 1
Wend
Close #1
rownum = rownum + 1
Wend
End With
End Sub
Szúrj az első sorba egy nevet, mert úgy menti majd el!
pl.: A1:text1===>text1.xls -
tezse66
csendes tag
Sziasztok!
Kérnék segítséget egy makróban. Az "F" oszlopban (2-5000 sor) található nemüres (ha a cella nem üres) nevekre (ezek szövegesek) egy olyan makró kellene, amely beszúr egy hiperhivatkozást, amely www.valami.hu/kód hivatkozásra mutat változatlan név mellett, ahol az kód az adott sor "B" oszlopában található. Vigyázat! A kód interger érték, az excel számként tárolja, nem tudom ennek van-e jelentősége a kódolásnál, hogy esetleg stringgé kell alakítani, mikor a cimhez adjuk.
Biztos nem bonyolult, de én sajnos még nem tudom megírni. Megköszönöm, ha valaki tud segíteni.
-
psg5
veterán
Üdv újból:
Nem tudom excel kérdése-e, de hátha van rá megoldás:
Adott egy 6 db 500 sorból álló xls, 10 oszlop szöveggel és képekkel. Számozott sorszámú külön sorok.
Minden egyes sort külön excel fájlba kellene kimásolni. Vagyis 6x500 xls fájlom lesz a végén.
Van-e gyorsabb megoldás rá, mint hogy másolom a sort, majd beillesztem az új xls-be és mentem. Majd kezdem a következő sorral. ? -
#14213
Fire/SOUL/CD
félisten
joefasalasso
#14210
válasz
joefasalasso
#14210
üzenetére
Ha minden sorban ugyanazon 2 oszlophoz tartozó cellát kell összeszorozni, az egyszerűen kivitelezhető. Pl A-tól F oszlopban vannak az érintett sorok, akkor a G1-es cellába beírod, hogy =A1*B1 és egérrel lemásolod. (Természetesen igényednek megfelelően módosítod a képletet)
psg5
Szívesen.
-
#14212
psg5
veterán
Fire/SOUL/CD
#14208
psg5
veterán
válasz
Fire/SOUL/CD
#14208
üzenetére
Ctrl+H val is alakul előző hsz.-em tárgytalan! Nem egészen értettem a cserét elsőre...
Köszi, köszi, köszi!
-
#14211
psg5
veterán
Fire/SOUL/CD
#14208
psg5
veterán
válasz
Fire/SOUL/CD
#14208
üzenetére
Ja és nagyon nagy köszönet idáig is
-
#14210
joefasalasso
aktív tag
joefasalasso
aktív tag
Kis segítséget kérnék:
Adott 6 szlop és 906 sor, numerikus adatokkal feltöltve.
Létre szeretnék hozni egy 7. oszlopot amely automatikusan kiszámolja az összes sorban bizonyos két oszlop szorzatát.Lehetséges? Ugye nem kell soronként?
Köszi
-
#14209
psg5
veterán
Fire/SOUL/CD
#14208
psg5
veterán
válasz
Fire/SOUL/CD
#14208
üzenetére
- köszi, megnéztem, nekem a szum, untig elég
- ez a ctrl+h csere nem jön össze, a másik munkafüzetbe ugyanazzal írja be a képletet ez ok, de nekem az is kell, hogy a képletben szereplő összeadandók is átváltsanak a hivatkozandó xls-ek másik fülére ahonnan hívja a számokat, persze akkor lehet, hogy ezt másolással nem lehet csak ha minden fülön egy új képletet beviszek és azt másolom minden cellába az adott fülön.
- azt írta az excel sugó, amikor menteni akartam, hogy 255 karakterig kezeli a csukott xls-nél a karaktereket a 2007 előtti excel.
-
#14208
Fire/SOUL/CD
félisten
psg5
#14205
"Darabteli vagy sima Sum fügvénnyel érdemesebb megoldani? Mi a fő különbség?"
Ilyen infókhoz használd az Excel súgóját, vagy Google-t, mert alapinformációk.
SZUM vs. DARABTELI"Ha egy excelben egy fülön megcsináltam minden (képletek benn) akkor hogyan tudom azt másik 12 fülre másolni, hogy a hivatkozások is megfelelően változzanak?"
Átmásolod a képletet a másik munkalapokra majd az adott munkalapon CTRL+H (csere) és a Munkafüzet1-et lecseréled Munkafüzet2-re"Állítólag csak a excel 2007-ben lehet megoldani, hogy csukott excelekből is nyerjen adatokat, régebbi verziónál csak 255 karakterig megy ez?"
Erről nem tudok, majd ha benéz Delila_1, Ő talán tud rá mit mondani, mert Ő még használ 2003-at. (ha nem tévedek)Ez a "255-ig megy ez" nem teljesen világos... (Ha Windows rendszerben a maximális karakterek száma a fájlnévben-re gondolsz, az nem Office függő)
-
#14207
psg5
veterán
Fire/SOUL/CD
#14201
psg5
veterán
válasz
Fire/SOUL/CD
#14201
üzenetére
Ha egy excelben egy fülön megcsináltam minden (képletek benn) akkor hogyan tudom azt másik 12 fülre másolni, hogy a hivatkozások is megfelelően változzanak?
Állítólag csak a excel 2007-ben lehet megoldani, hogy csukott excelekből is nyerjen adatokat, régebbi verziónál csak 255 karakterig megy ez?
-
#14205
psg5
veterán
Fire/SOUL/CD
#14201
psg5
veterán
válasz
Fire/SOUL/CD
#14201
üzenetére
Aha, akkor ezzel is lehet szabályozni a tiltást.
Köszi, ezt is kipróbálom! De már lehet csak holnap
Sorry, szerkeszthettem volna az előzőbe is...
Még valami:
Darabteli vagy sima Sum fügvénnyel érdemesebb megoldani? Mi a fő különbség?
-
-
#14201
Fire/SOUL/CD
félisten
psg5
#14200
Nem rombolni vagy lopni akarok vele.
Új hozzászólás Aktív témák
Fferi50- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3330
- BESZÁMÍTÁS! MSI H310M i5 9500 16GB DDR4 120GB SSD 2TB HDD RTX 2060 Super 8GB ÚJ Zalman T4 Plus 600W
- Acer TravelMate P214 i3-1115G4 12GB 256GB 14" FHD 1év garancia
- Törött Apple iMac 19.2 i5-8500 Radeon Pro 560X 4GB 16GB 256GB SSD 21.5" 4K Retina
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő