- Kábeleket és csövezést rejtő "kirakatház" a GameMax logójával
- Felvarrták az Arctic rackmount rendszerekhez szánt CPU-hűtőjének ráncait
- Háromféle kivitelben, és nem kis kapacitásokkal jönnek a Micron 6550 ION SSD-i
- Már a Samsung sem szolgálja ki modern AI lapkákkal Kínát
- Havazáshoz igazított kiadás kap a Steam Deck OLED
- Bambu Lab 3D nyomtatók
- OLED TV topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Hivatalosan is elkészült az NVIDIA App
- Hisense LCD és LED TV-k
- VR topik (Oculus Rift, stb.)
- Milyen monitort vegyek?
- Intel Core i3 / i5 / i7 8xxx "Coffee Lake" és i5 / i7 / i9 9xxx “Coffee Lake Refresh” (LGA1151)
- Kormányok / autós szimulátorok topikja
- Mini PC
-
PROHARDVER!
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
-
#13608
bugizozi
őstag
Bocimaster
#13607
bugizozi
őstag
válasz
Bocimaster
#13607
üzenetére
Én úgy csinálnám, hogy a kapott adatot, amit a "Pl:" után írtál beletenném egy jegyzettömbbe, majd beimportálnám az excelbe, onnantól pedig már egy helyette fv-nyel széppé tudod formázni
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
#13610
Delila_1
veterán
Bocimaster
#13607
Delila_1
veterán
válasz
Bocimaster
#13607
üzenetére
=BAL(G2&"____________";7)&BAL(H2&"______";5) &BAL(K2&"_____________";20)&BAL(U2&"________";10)&V2
Ha az i és a m karakter azonos szélességű lenne, ez a képlet szépen összehozná. Olyan betűtípust kell választanod, ami nem szép ugyan, de teljesíti ezt a feltételt.
A BAL függvényben Te határozd meg az egyes hosszakat.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13611
bugizozi
őstag
Bocimaster
#13609
bugizozi
őstag
válasz
Bocimaster
#13609
üzenetére
Tőlem több ezer sor is lehet a kimenetel, de ha olyan formátumban van, mint ami a "Pl:" után van akkor úgy tudsz belőle szép táblázatot kreálni...vagy én most valamit nagyon nem értek
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
#13614
Delila_1
veterán
Bocimaster
#13613
Delila_1
veterán
válasz
Bocimaster
#13613
üzenetére
Nem kell az ÖSSZEFŰZ szó.
Vagy =ÖSSZEFŰZ(A1;B1), vagy =A1&B1. Aki keresgéli a billentyűket, mint én, spóroljon a gépeléssel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13616
Delila_1
veterán
Bocimaster
#13615
Delila_1
veterán
válasz
Bocimaster
#13615
üzenetére
Milyen fontot töltöttél le?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13618
Bocimaster
csendes tag
Bocimaster
#13617
Bocimaster
csendes tag
válasz
Bocimaster
#13617
üzenetére
De ezek után másik 5 oszlopra részösszeget csináltam, majd az első oszlop (klucs) amit elsőként kellett csinálni, most szét kell bontanom függvénnyel 5 részre
- most ezen töröm a fejem.....Az ösztön mindig többet ér az észnél.
-
#13619
Bocimaster
csendes tag
Bocimaster
#13618
Bocimaster
csendes tag
válasz
Bocimaster
#13618
üzenetére
0711___s____Budapest_________K0101_____Krónikus belgyógyászat
0711___s____Budapest_________K0101_____Krónikus belgyógyászat Összesen
0764___s____Siklós-Máriagyűd_1806______Addiktológiai rehabilitáció
0764___s____Siklós-Máriagyűd_1806______Addiktológiai rehabilitáció Összesen
1052___s____Mohács___________2202______Belgyógyászati rehabilitáció
1052___s____Mohács___________2202______Belgyógyászati rehabilitáció Összesen
1052___s____Mohács___________K0101_____Krónikus belgyógyászat
1052___s____Mohács___________K0101_____Krónikus belgyógyászat
1052___s____Mohács___________K0101_____Krónikus belgyógyászat Összesen
1052___s____Mohács___________2201______Mozgásszervi rehabilitáció
1052___s____Mohács___________2201______Mozgásszervi rehabilitáció Összesen
1084___s____Baja_____________K0101_____Krónikus belgyógyászat
1084___s____Baja_____________K0101_____Krónikus belgyógyászat Összesen
1084___s____Baja_____________2201______Mozgásszervi rehabilitációés nekem ezek után az összesítéseket kell szét bontanom. na ez most kifog rajtam így ebéd előtt
Az ösztön mindig többet ér az észnél.
-
#13620
Delila_1
veterán
Bocimaster
#13619
Delila_1
veterán
válasz
Bocimaster
#13619
üzenetére
Csatolj egy képet a lapról, mert ebből nem nagyon látszik, mi a gond.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13621
Delila_1
veterán
Bocimaster
#13619
Delila_1
veterán
válasz
Bocimaster
#13619
üzenetére
A 2. sorban: =ha(a2="Összesen";"";ide_jön_az_előző_képlet)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13668
Delila_1
veterán
Bocimaster
#13667
Delila_1
veterán
válasz
Bocimaster
#13667
üzenetére
A napokban írtam valakinek erre a feladatra egy makrót. Nála az azonosító, ami Nálad a telephely, az A oszlopban van.
A makró telephelyenként szétdobja külön lapokra a Munka1 lap adatait, majd minden lapot áttesz külön füzetbe, és a telephely nevén lementi. Írtam bele megjegyzéseket, aszerint módosíts a makrón.
Sub Telephelyek()
Dim sor As Double, usor As Double, usor_1 As Double, nev$, WS1 As Worksheet
Dim utvonal$, lap%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
utvonal = "E:\Eadat\" 'itt írd be a saját útvonaladat ehelyett, ügyelj a \ jelekre
usor = Cells(Rows.Count, "A").End(xlUp).Row
Set WS1 = Sheets("Munka1") 'ide jön a saját indító lap%od neve
'Másolás lap%okra
For sor = 2 To usor
nev$ = WS1.Cells(sor, 1)
On Error GoTo Uj_lap
usor_1 = Sheets(nev$).Cells(Rows.Count, "A").End(xlUp).Row + 1
'a következő 2 sorban írd át a "K"-t az utolsó oszlopod azonosítójára
If usor_1 = 2 Then Range(WS1.Cells(1, "A"), WS1.Cells(1, "K")).Copy Sheets(nev$).Cells(1)
Range(WS1.Cells(sor, "A"), WS1.Cells(sor, "K")).Copy Sheets(nev$).Cells(usor_1, "A")
Next
'**********************************************************************************************
'Ha nem kell külön füzetekbe menteni a lapokat, ezt a részt hagyd ki
'Mentés, zárás
For lap% = 1 To Sheets.Count - 1
nev$ = utvonal & Sheets(1).Cells(2, "A")
Sheets(1).Move
ActiveWorkbook.SaveAs Filename:=nev$, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Next
'**********************************************************************************************
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Kész"
Exit Sub
Uj_lap:
If Err = 9 Then
Worksheets.Add.Name = nev$
Resume 0
Else
Error Err
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13678
Delila_1
veterán
Bocimaster
#13675
Delila_1
veterán
válasz
Bocimaster
#13675
üzenetére
Sub Korhaz()
Dim sor As Double, usor As Double, nev$
Dim WB As Workbook
Dim utvonal$, lap%
Application.ScreenUpdating = False
utvonal = "E:\Eadat\" 'itt írd be a saját útvonaladat ehelyett, ügyelj a \ jelekre
Set WB = Workbooks("Gyerek és subspec ágyak végl.xlsm")
usor = Cells(Rows.Count, "A").End(xlUp).Row
For sor = 4 To usor
nev$ = Cells(sor, 4) & ".xlsx" 'D oszlopban lévő név a nev$ változóba
Workbooks.Add 'az új füzetet el is mentjük
ActiveWorkbook.SaveAs Filename:=utvonal & nev$, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
WB.Sheets(1).Range("1:3").Copy Range("A1") '1:3 sor másolása
WB.Sheets(1).Rows(sor).Copy Range("A4") 'sor-adik sor másolása
'újabb mentés a bemásolt adatokkal
ActiveWorkbook.SaveAs Filename:=utvonal & nev$, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close 'füzet bezárása
Next
Application.ScreenUpdating = True
End SubAz "A D oszlopban az intézeteket egyesével kimásolni minden egyes intézet külön fájlba és az intézet névvel elmentve.." nem egészen világos nekem. Arra gondoltál, hogy az egyes intézetek teljes sorát kell másolni? Úgy írtam meg a makrót.
A makró bemásolása után makróbarátként kell mentened a füzetet, a kiterjesztése xlsm lesz. Ez szerepel a Set kezdetű sorban.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13733
Delila_1
veterán
Bocimaster
#13731
Delila_1
veterán
válasz
Bocimaster
#13731
üzenetére
Ha tényleg tetszik, jó, ha nem, a makró elejére írd be:
Application.DisplayAlerts = False, a végére Application.DisplayAlerts = True.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#13909
Bocimaster
csendes tag
Bocimaster
#13908
Bocimaster
csendes tag
válasz
Bocimaster
#13908
üzenetére
Sub Makró3()
'
' Makró3 Makró
''
Windows(" v1_barni.xlsx").Activate
Range("A3:S3").Select
Range("S3").Activate
Selection.Copy
Windows("...mutatokkal 2.0_barni.xlsm").Activate
ActiveSheet.Paste
Range("AQ4").Select
Windows(" v1_barni.xlsx").Activate
Range("A2:S2").Select
Range("S2").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("..._mutatokkal 2.0_barni.xlsm").Activate
ActiveSheet.Paste
End Sub- ehhez kéne egy feltétel
( és ez csak két sor másolása , feltétel nélkül)Az ösztön mindig többet ér az észnél.
-
#14045
zz76zz
csendes tag
Bocimaster
#14044
zz76zz
csendes tag
válasz
Bocimaster
#14044
üzenetére
Oké köszi holnap megpróbálom, hogy a makrorögzítő különböző táblákon, is "jól" viselkedik e.
www.vagyunk.hu
-
#14049
zz76zz
csendes tag
Bocimaster
#14048
zz76zz
csendes tag
válasz
Bocimaster
#14048
üzenetére
Bankszámlaszám csak 3*8 vagy 2*8 jegy lehet. Ha 2*8 akkor ki kell egészíteni 8db 0 val
www.vagyunk.hu
-
#14081
zz76zz
csendes tag
Bocimaster
#14044
zz76zz
csendes tag
válasz
Bocimaster
#14044
üzenetére
Az a baj, hogy azt nem fogadja logikailag el, hogy
A1="2012*"
mert ugyan a többi feltétel egzakt a harmadik ha feltétel a 2012 vel kezdődő adatokat is igaznak kellene vennie. . .www.vagyunk.hu
-
#14087
zz76zz
csendes tag
Bocimaster
#14084
zz76zz
csendes tag
válasz
Bocimaster
#14084
üzenetére
Az a baj, hogy ha szöveggé konvertálod át a cellákat, akkor viszont nem tudod formázni.
3 külön cellába tudod tenni, de az nem túl szép megoldás.
Esetleg beviteli mezőket alkalmazhatsz. . . bár jó lenne pontosan tudni mi a feladat.www.vagyunk.hu
-
#14554
Delila_1
veterán
Bocimaster
#14553
Delila_1
veterán
válasz
Bocimaster
#14553
üzenetére
Nem kell neki a kiterjesztés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#14556
Delila_1
veterán
Bocimaster
#14555
Delila_1
veterán
válasz
Bocimaster
#14555
üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#14557
Bocimaster
csendes tag
Bocimaster
#14555
Bocimaster
csendes tag
válasz
Bocimaster
#14555
üzenetére
valaki nem tudja mivel lehetne bináris fájl-t valamilyen adatbázis formátumra hozni?
Az ösztön mindig többet ér az észnél.
-
#14560
lappy
őstag
Bocimaster
#14557
lappy
őstag
válasz
Bocimaster
#14557
üzenetére
Az attól függ milyen az adathalmaz, de a BIN2DEC fgv próbálkozz!
Bámulatos hol tart már a tudomány!
-
#14595
lappy
őstag
Bocimaster
#14589
lappy
őstag
válasz
Bocimaster
#14589
üzenetére
Szia!
Ha jól gondolom akkor ilyet szeretnél!
Minden le van írva, hogy hogyan kell!
[link]Bámulatos hol tart már a tudomány!
-
#14600
lappy
őstag
Bocimaster
#14596
lappy
őstag
válasz
Bocimaster
#14596
üzenetére
Az elején létrehozod a diagramot és utána kellenek azok a lépések!
Bámulatos hol tart már a tudomány!
-
#16113
Delila_1
veterán
Bocimaster
#16112
Delila_1
veterán
válasz
Bocimaster
#16112
üzenetére
Látogass el ide!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#16114
lappy
őstag
Bocimaster
#16112
lappy
őstag
válasz
Bocimaster
#16112
üzenetére
Delila1 megelőzött!!
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
#16116
lappy
őstag
Bocimaster
#16115
lappy
őstag
válasz
Bocimaster
#16115
üzenetére
Ezt milyen függvény?!
Angolul vagy magyarul még egyszer leírnád!Bámulatos hol tart már a tudomány!
-
#16118
lappy
őstag
Bocimaster
#16117
lappy
őstag
válasz
Bocimaster
#16117
üzenetére
Nem látszol annak csak nem igazán értem hogy ez mi így nem tudok segíteni!
És mi a feladat??![ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
#16149
lappy
őstag
Bocimaster
#16119
lappy
őstag
válasz
Bocimaster
#16119
üzenetére
[link]
Szia!
Bocs a késésért, de nem volt egyszerű rájönni hogyan is működik.
Annyi a változás hogy a feladat napló munkalapon nem lehet automatikusan a táblázatot színezni (sötétebb világosabb cella színezés), csak manuálisan.Bámulatos hol tart már a tudomány!
-
Excelbarat
tag
válasz
Bocimaster
#16918
üzenetére
Ez megoldja a problémád:
Sub masolo()
Application.ScreenUpdating = False 'kikapcsolja a képfrissítést így gyorsabb
Sheets.Add.Name = "Összes" 'beszúr egy összes nevű lapot
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Select
If Sheets(i).Name = "Összes" Then 'ha a lap neve összes akkor ugrik a következőre
Else
Range(Rows(4), Rows(19)).Copy 'kijelöli a 4-től 19-ig a sorokat
Sheets("Összes").Select 'átvált az összes lapra
u = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'megkeresi az összes lapon az utolsó sort
Cells(u, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues 'bemásolja
End If
Next i
Application.ScreenUpdating = True 'visszakapcsolja a képfrissítést
End Sub[ Szerkesztve ]
-
#16940
Delila_1
veterán
Bocimaster
#16939
Delila_1
veterán
válasz
Bocimaster
#16939
üzenetére
Az Cells(u, "A").Select sort írd át Cells(u+1, "A").Select-re.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#16942
Delila_1
veterán
Bocimaster
#16941
Delila_1
veterán
válasz
Bocimaster
#16941
üzenetére
Az is jó, csak ott több billentyűt kellett volna leütnöm.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Excelbarat
tag
válasz
Bocimaster
#16941
üzenetére
Bocs a kellemetlenségért, siettében átsiklottam a +1-en
vagyis csak oda gondoltam..., de ahogy látom Delila_1 közben meg is válaszolta. -
#17823
Mutt
senior tag
Bocimaster
#17803
Mutt
senior tag
válasz
Bocimaster
#17803
üzenetére
Hello,
Ha tényleg 35GB-os a text fájl akkor szerintem Excel-t felejtsd el, vagy előbb PowerPivot kiegészítőd rakd fel. Ezt inkább adatbáziskezelővel kellene feldolgozni.
A lenti makró megcsinálja azt amit kérsz, egy 70MB-os 400.000 soros text fájlon nekem kb. 5 perc kellett neki. Egy 35 GB-oson 41 óra lenne a beolvasás, szóval mielőtt ráereszted egy kisebb szeleten is próbáld ki.
Saját felelősségre itt a kód.
Sub ImportTxtFile()
Dim myFileName As String
Dim myLine As String
Dim FileNum As Long
Dim sor As Long
Dim splitLine
Dim i As Long
Const chrDelimiter = vbTab
'fájl hozzárendelése
myFileName = "C:\test.txt"
FileNum = FreeFile
Close FileNum
Open myFileName For Input As FileNum
'képernyő frissítés kikapcsolása
Application.ScreenUpdating = False
sor = 1
'fájl beolvasás kezdete
Do While Not EOF(FileNum)
Line Input #FileNum, myLine
'sorok felszabdalása
splitLine = Split(myLine, chrDelimiter)
'sorok cellákba mentése
If UBound(splitLine) > 0 Then
For i = 1 To UBound(splitLine)
ActiveSheet.Cells(sor, i) = splitLine(i - 1)
Next i
End If
sor = sor + 1
'új munkalap nyitása - ha már nincs több sor
If sor > Rows.Count Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
sor = 1
End If
Loop
Application.ScreenUpdating = True
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
#24366
Thrawnad
senior tag
Bocimaster
#17803
Thrawnad
senior tag
válasz
Bocimaster
#17803
üzenetére
Simán lazán FoxPro-t vennék elő 35 giga TXT-hez
Hardver hibára ritkán van jó szoftver...
-
#40569
Fferi50
Topikgazda
Bocimaster
#40568
Fferi50
Topikgazda
válasz
Bocimaster
#40568
üzenetére
Szia!
Szumhatöbb függvény? Az év,hó,nap,idő cella értékeket átalakítva dátummá.
Üdv.
[ Szerkesztve ]
-
#40571
Lasersailing
senior tag
Bocimaster
#40568
Lasersailing
senior tag
válasz
Bocimaster
#40568
üzenetére
Az nem elég, ha leszűröd D oszlopot 00:00-ra majd az F oszlopban végighúzod a képletet, ami összeadja a felette lévő négy cellát?
Ha jól látom mindig 15 percenként van adat, azaz minden egész órában az előtte lévő négy cellát szeretnéd összegezni. (kérdést nem találtam, ez volt a kérdés?)
-
#40574
bteebi
veterán
Bocimaster
#40572
bteebi
veterán
válasz
Bocimaster
#40572
üzenetére
Ha egybefüggő a tartomány, akkor nem kell (egérrel) lehúznod a képletet, hanem elég, ha a képletet tartalmazó cella jobb alsó sarkához mész az egérkurzorral. Ha az egérmutató egy kis fekete keresztté változik, és duplán kattintasz a bal egérgombbal, akkor lemásolja a képletet/cellatartalmat az összefüggő tartomány aljáig. Ha az 10 sor, akkor 10 sor, ha 50000, akkor 50000.
Ha nem egybefüggő a tartomány ("szakadás" van benne), de az egyszerűség kedvéért egyben akarod lemásolni a képletet, akkor ctrl+C-vel tedd a vágólapra a képletet tartalmazó cellát. A ctrl+nyilak segítségével fel-le, jobbra-balra tudsz ugrálni. Az ugrálgatással keresd meg az utolsó sort (pl. ctrl+le, majd egyet balra, és ctrl+fel nyíl, ezzel elvileg megtaláltad az utolsó sort), majd vissza a képletet tartalmazó sorba (a jelen példánál maradva egyet jobbra), majd ctrl+shift+felfelé nyíl (a shift ugye azért kell, hogy kijelöld a cellákat, amikbe le akarod másolni a képletet). Addig nyomd a felfelé nyilat, amíg el nem éred a másolt cellát, majd ekkor vagy ctrl+v-t, vagy entert nyomsz, és kész is van. (Ha a képletet tartalmazó oszlop a legszélső, és nincs az oszlopban semmi más, akkor nem kell többször megnyomnod a felfelé nyilat, mert kapásból a másolt cellára kell ugrania.)
Leírva talán bonyolultan hangzik
, de ha kipróbálod, akkor majd rájössz, hogy milyen egyszerűen működik. Kezdetnek nyomkodd a ctrl+nyilakat össze-vissza, aztán az ugrálásokra ráérezvén majd meg tudod egyszerűen oldani a képlet, vagy bármi másnak a másolását.Cancel all my meetings. Someone is wrong on the Internet.
( és ez csak két sor másolása , feltétel nélkül)
vagyis csak oda gondoltam..., de ahogy látom Delila_1 közben meg is válaszolta. 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Nyíregyháza és környéke adok-veszek-beszélgetek
- Politika
- Külpolitika
- Samsung Galaxy S23 Ultra - non plus ultra
- Bambu Lab 3D nyomtatók
- OLED TV topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Önfenntartásra rendezkedik be a kínai chipszektor
- eBay-es kütyük kis pénzért
- Hivatalosan is elkészült az NVIDIA App
- További aktív témák...
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: HC Pointer Kft.
Város: Pécs