- Milyen NAS-t vegyek?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
-
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
-
ulrik19
tag
sub akármi() ekvivalens a public sub akármi() használatával
vagyis "kintről" elérhető.ugyanakkor: private sub akármi() esetében a hatókör nem engedi, hogy máshonnan meghívják, ezért a makróindításnál sem látszik. DE, a 3 sub-nak egy modulban kell lenniük.
egyébként szerintem mindig célszerű kitenni a private/public kulcsszót, hogy totál egyértelmű legyen.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5792 üzenetére
Én nem eseményhez kötném a lefutást, hanem így oldanám meg:
Public Function SubTotal(xRow As Integer, xCol As Integer)
Dim lap As Byte, Sum As Double
Sum = 0
For lap = 2 To Worksheets.Count
Sum = Sum + Sheets(lap).Cells(xRow, xCol)
Next
SubTotal = Sum
End FunctionAztán az Összesítő sheet 3 megfelelő cellájába mehet ez a képlet (magyar excelnél a , helyett ; kell természetesen ):
=SubTotal(154, 12)
=SubTotal(155, 12)
=SubTotal(156, 12)Vagyis ez egy összeadó függvény, ami a megadott sor- és oszlopszámú cellákat összeadja valamennyi munkalapon (kivéve az összesítőt). Jelen esetben L154-es, L155-ös és L156-os cellák összegét.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz ulrik19 #5802 üzenetére
Ez pedig egy elegánsabb megoldás:
'végigmegy az összes munkalapon, és amelyik nem a kijelölt terület munkalapja,
'összeadja az azonos elhelyezkedésű cellák értékét
Public Function SubTotal(cRange As Range)
Dim lap As Worksheet, Sum As Double
Sum = 0
For Each lap In Worksheets
If Not lap.Name = cRange.Worksheet.Name Then Sum = Sum + lap.Cells(cRange.Row, cRange.Column)
Next
SubTotal = Sum
End FunctionEnnek használata pedig:
=SubTotal(L154)Persze, lehet más cella is az argumentumban. Azt a cellát kell belerakni ebbe a képletbe, amiket szeretnénk az összes többi sheeten összegezni. Mivel cellahivatkozás, másolható máshová, tehát "átírja" a hivatkozást, mint bármilyen más függvény használatakor.
(Bár a Sum = 0 sor nem lenne kötelező, javaslom, hogy minden hasonló helyzetben adjátok meg a kezdőértéket. Néha előfordulnak cifra dolgok ennek elhagyása esetén )
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Így van, ahogy Delila írta, meg kell fordítani a gondolatot. Ugyanis a next automatikusan megtörténik, amint a ciklusmag végére ér a folyamat. Vagyis, ha az elágazásod arról szól, hogy mikor nem egyezik meg a sheet neve a vizsgálandóval, akkor ha egyeznek, nem történik semmi a cikluson belül.
For Each lap In Workbooks(valtozo).Worksheets
If lap.Name <> el Then
... ide jön amit végeztetni akarsz ...
End If
Next...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Én így csinálnám. Ehhez a makróhoz célszerű hozzárendelni egy billentyű-kombinációt is.
Public Sub ktgelosztas()
Dim cella As Object, osszeg As Integer
osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:") / Selection.Count))
For Each cella In Selection
cella.Value = Val(cella.Value) + osszeg
Next
End SubHasználata:
kijelölöd azokat a cellákat, amikre szét akarod osztani az értéket. (a ctrl nyomva tartva az egérrel ugye tudsz egymástól független cellákat sorban kijelölni, ahányat csak szeretnél)Majd indítod a makrót (pl. a hozzárendelt billentyűkombinációval).
A progi bekéri a számot, amit szétoszt annyi részre, ahány cellát kijelöltél, és a kijelölt cellák értékét növeli a rá jutó résszel. (ha valamelyik kijelölt cellában szöveg volt, akkor azt nullának értelmezi, ha szöveget adsz be a felugró ablakban, akkor nullát ad mindenhova, vagyis nem változik az érték. Ha valamelyik kijelölt cellában képlet van, akkor az felül fog íródni a konkrét értékkel)
hajrá!
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
megoldható ez is.
Ez némileg másképp működik. Meg kell adni egy cellában, hogy melyik cellákba kell szétosztani, és milyen arányban. Gondolom, ez előre rögzíthető, vagyis általában ugyanazt a dolgot ugyanabban az arányban ugyanazokra a ktghelyekre osztasz szét.
Pl. legyen egy cella tartalma ez: N12=20;N16=30;N21=10;N26=40
Itt százalékban van megadva, hogy melyik cellára mekkora rész menjen. Nem vizsgálja a program, hogy az összeg 100%-e! Persze azt is bele lehet szőni... Fontos az egyenlőségjel, és az is, hogy ;-vel kell elválasztani az elemeket.Állj rá erre az egy cellára. Majd indítsd a makrót:
Public Sub ktgelosztas2()
Dim osszeg As Integer, i, strAr, strAr2
osszeg = Int(Val(InputBox("Felosztandó összeg:")))
strAr = Split(Selection.Value, ";")
For i = 0 To UBound(strAr)
strAr2 = Split(strAr(i), "=")
Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + osszeg * Val(strAr2(1)) / 100
Next i
End SubEzzel a módszerrel egyébként több költségallokációs módot tudsz tárolni. De azon a sheet-en kell tárolni, ahol az adatok vannak.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz ulrik19 #5833 üzenetére
hmmm, egy picit módosítanom kellett:
Public Sub ktgelosztas()
Dim osszeg As Double, i, strAr, strAr2
osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:")))
strAr = Split(Selection.Value, ";")
For i = 0 To UBound(strAr)
strAr2 = Split(strAr(i), "=")
Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + Int(osszeg * Val(strAr2(1)) / 100)
Next i
End SubHa nem egész százalékra van szükséged, akkor tizedespontot kell használni. Pl. harmadoláshoz: 33.3333
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
-
ulrik19
tag
a minta kimenet H4-es cellájában a 4 mit jelent? Mármint hogyan jött ki a táblából?
Ha pl. ugyanabban az idősávban több azonos pass van (station is azonos), akkor mi kerül a célcellába? Az összes megfelelő darabszáma, vagy egy itt nem látható oszlop (talán az említett G) értékösszege? Ha tudsz küldeni egy minta file-t, szerintem nem túl bonyolult megcsinálni.
Egy olyan spec függvényt kell írni rá, ami egyszerre több cella értékét is vizsgálja többféle bevitt paraméter szerint.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Csak azért, hogy mások számára is hasznos legyen a téma
Csináltam egy bővített vlookup() függvényt...
Használata pl:
=multivlookup($E$1:$N$100;3;0;1;A1;4;B1/2;10;"Béla")
ahol:
$E$1:$N$100 a keresés helye (mint vlookup)
3, azaz a tábla 3. oszlopában lévő adatot adja vissza
0, azaz ha nem talál semmit, 0-t adjon vissza. (lehet "" is akkor üresen marad, de bármi más szintén mehet ide)
ez a három kötelező paraméter
ez után lehet megadni a feltételeket az alábbi módon (a fenti példát követve)
párosával kell nézni a paramétereket:
1;A1 azaz a tábla 1. oszlopában A1-gyel egyenlő érték legyen (természetesen nem csak hivatkozás lehet itt)
4;B1/2 azaz a tábla 4. oszlopában a B1 cella értékének felét keresse
10;"Béla" azaz a tábla 10. oszlopában a "Béla" szöveg legyen
lehet 1, de akár több feltételt is belerakni, rugalmasan kezeli
Ha több sor is megfelelne a feltételnek, akkor az első találatot adja vissza
(a paraméterek között ÉS kapcsolat van, tehát mindnek meg kell felelni)Public Function multivlookup(HolKeressen As Range, MelyikOszlopAdatatAdjaVissza As Byte, HaNincsTalalat As Variant, ParamArray OszlopInformaciok() As Variant) As Variant
'Ha nem páros számú az OszlopInformaciok argumentum (az UBound elemszám-1 értéket ad vissza ilyenkor)
If (UBound(OszlopInformaciok) + 1) Mod 2 = 1 Then
'adjon vissza hibát
multivlookup = CVErr(1)
Exit Function
End If
Dim i As Integer, j As Integer, ok As Boolean
For i = 1 To HolKeressen.Rows.Count
ok = True
For j = 0 To UBound(OszlopInformaciok) Step 2
'ha nagyobb oszlopszám a hivatkozás, mint ahány oszlop egyáltalán van...
If HolKeressen.Columns.Count < OszlopInformaciok(j) Then
'adjon vissza hibát
multivlookup = CVErr(2)
Exit Function
End If
'ha nem felel meg a feltételnek, akkor ok = False (ne is vizsgálja ezt az adatsort tovább...)
If HolKeressen.Cells(i, OszlopInformaciok(j)) <> OszlopInformaciok(j + 1) Then
ok = False
Exit For
End If
Next j
'ha van találat, akkor ok = True (ne is menjen tovább, mert az első találot adatom vissza)
If ok Then
multivlookup = HolKeressen.Cells(i, MelyikOszlopAdatatAdjaVissza)
Exit Function
End If
Next i
'ha volt találat, akkor már kiléptünk a függvényből... ha nincs, akkor:
multivlookup = HaNincsTalalat
End Function[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Valahogy nem egészen így kellene kinéznie...
A táblázat "belsejébe" (magjába, ahol összesíteni szeretnél) csak olyan mezőket tegyél be, amik összegezhetők. (mennyiség és érték)
Majd úgy kell formázni, hogy vízszintesen tegye egymás mellé őket, ne függőlegesen egymás alá...
Amit a képen látok, az valami részösszegzésesnek tűnik. Ezzel is megoldható mondjuk, ha az azonos termékbejegyzések mindig egymás után jönnek (pl. ABC-rendezve az oszlop), viszont nincs beállítva minden összegzendő mező. (Adatok/Részösszegek... menü)
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Szia!
Szerintem egy ilyen XML-es dolognál a legegyszerűbb egy XSL stíluslap hozzácsatolása lenne. Onnan simán (jó fomában, üres cellák nélkül) be lehetne másolni az excel-be.
Tudok benne segíteni, de ahhoz ismerni kellene a pontos XML-szerkezetet.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Ti egyről beszéltek egyébként? Mert nekem úgy tűnik, Feltételes formázás vs. Makróikon a "téma". Vagy valamit rosszul olvasok?
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Kell hozzá a Microsoft ActiveX Data Objects 2.8 Library (Tools/References).
Értelemszerűen adatbázisnév, felhasználónév és jelszó a ConnectionString-ben. Illetve ugyanitt meg kell adni az adott MySQL ODBC driver-t. (Nálam 5.1, de az adott gépen persze lehet más. Ha rosszat adtok meg, nem találja meg.)
Ebben a példában 3 mezőt ad vissza a lekérdezés, aztán minden visszaadott adatot kinyom az első sheet-re. Profin persze kellene bele hibakezelés stb.
Option Explicit
Public conn As ADODB.Connection
Public rs As Recordset
Public sh1 As Worksheet
Public SQL As String
Public Sub mySQL_kapcsolat()
Dim c As Integer
Set sh1 = Excel.Worksheets(1)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost; DATABASE=adatbazisnev;UID=anonymus;PWD=; OPTION=3"
conn.Open
SQL = "select * from tbl_tablanev"
rs.CursorLocation = adUseServer
rs.Open SQL, conn
rs.MoveFirst
c = 1
Do Until rs.BOF Or rs.EOF
sh1.Cells(c, 1).Value = rs.Fields(0)
sh1.Cells(c, 2).Value = rs.Fields(1)
sh1.Cells(c, 3).Value = rs.Fields(2)
rs.MoveNext
c = c + 1
If rs.EOF Then
rs.MoveFirst
Exit Sub
End If
Loop
End Sub[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
-
ulrik19
tag
-
ulrik19
tag
válasz ArchElf #5940 üzenetére
hmmm, én nem ismertem ezt a mókát, de jópofa dolog.
arról van szó, amikor egyszerre akarok sok sorban lévő adattal dolgozni, és kell mondjuk egy végösszeg (ami mondjuk összegez egy sorban néhány cellát, majd ezeket kell soronként összegezni).
pl. vannak termékek egymás alatt, az oszlopokban a heti forgalmak.
kell a totál árbevétel. akkor pl. csinálok minden sor végén egy összesítést, majd ezeket az utolsó sorban összegzem.
de, megy ez a CSE (cltr-shift-enter) módon, hogy az adatokat tömbként kezelem.
mondjuk így:
A oszlop: terméknevek
B oszlop: 1. hét
C oszlop: 2. hétösszegző képlet: =SZUM(B1:B100+C1:C100)
ha ennek a végén entert ütsz, hibát jelez, de ha CSE-t,
akkor ott az eredmény.
a szum() helyett lehet bármilyen összegző függvény
(átlag, szórás stb),
az argumentum lehet összetett is,
pl. =SZUM(B1:B100+C1:C100*D1:D100)
itt a B-hez hozzáadatom a C és a D szorzatát.
tovább lehet ezt bolondítani egy HA()-val is
pl.=SZUM(HA(A1:A100="bélyeg";B1:B100+C1:C100*D1:D100))
amikor csak a bélyeg-eket összesíti.
egyébként képletnél {=...} jelenik meg, ebből látszik,
hogy tömbről van szó.[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5971 üzenetére
Még egy kis szőrözés (bocsi érte)
1) elegendő lenne így is:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value Then
masolas_adat
End If
reogitesreceiving
reogitesvisual
reogitesquicktest
reogitesfct
Application.ScreenUpdating = True
End Sub2) de ha mégis szükséges az application.run, akkor nem muszáj zárójelet használni az argumentumnál, mert nincs visszatérési érték. (de ez már tényleg csak szőrszálhasogatás )
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz VANESSZA1 #5979 üzenetére
Lehet: Beszúrás/objektum/Létrehozás fileból...
ott kiválasztod a file-t, és azt is, hogy csatolja (ha módosítod a word doksit, akkor az excelben is a módosított fog mindig látszódni), vagy ágyazza be (ilyenkor a beillesztéskori állapot megmarad, hiába írod át a .doc-ot később)...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz ulrik19 #5980 üzenetére
és hogy teljes legyen a kép, ezeket lehet lekérni
Title
Subject
Author
Keywords
Comments
Template
Last Author
Revision Number
Application Name
Last Print Date
Creation Date
Last Save Time
Total Editing Time
Number of Pages
Number of Words
Number of Characters
Security
Category
Format
Manager
Company
Number of Bytes
Number of Lines
Number of Paragraphs
Number of Slides
Number of Notes
Number of Hidden Slides
Number of Multimedia Clips
Hyperlink Base
Number of Characters (with spaces)(word-del együtt elvileg)
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5984 üzenetére
ja, erre szeretné használni? mármint, hogy a létrehozási dátum:idő néven mentse el?
(de ilyenkor a file-név mindig az "előző file" létrehozási nevén futna, mármint amiben futtatták a makrót...)...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5986 üzenetére
Persze-persze, az világos. Az logika nem világos nekem, hogy mire fog menni az így kialakított filenevekkel. (mármint azért, mert ugye egy adott file neve annak a file-nak a létrehozási dátuma lesz, amiből létrehozták. Mert ha mindig az aktuális dátum idő lenne benne, azt még érteném )
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5988 üzenetére
húha, egyre inkább nem értem
ha mindig az abszolút eredeti file-ból futtatja ezt a kódot, akkor mindig ugyanazon a file-néven fogja elmenteni (mert ugye a létrehozási dátum nem változik)
ha mindig az újonnan létrejött file-ból futtatja, akkor meg egyre hosszabb filenév lesz, mert mindig hozzáfűzi a dátumot.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5994 üzenetére
Hú, nem tudom, jól értem-e amire gondoltál. De szerintem az alap excel file-hoz nem tud "hozzányúlni", mert egy totál független programból jönnek szerintem az adatok (adat exportálás excel formátumban menüpontszerűségből), vagyis nemhogy makrót, de még csak képletet, értéket (totál semmit) nem tud beszúrni.
Az sem kizárt, hogy igazából egy html formátum jön ki xls kiterjesztéssel
(egyébként a Date() és Now() mindig az adatkiolvasás időpontját és/vagy napját mutatná, nem a file létrejöttét. vagyis azt hiszem)
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #5996 üzenetére
Az activeworkbook azért nem biztos, hogy jó, mert a makró nem abban a file-ban fut, aminek a dátuma kell, és nem biztos, hogy a dátum lekérdezésekor éppen az az aktív. Persze lehet úgy alakítani a kódot, de akkor már egyszerűbb egy direkthivatkozás: workbooks("filenév.xls")
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #6014 üzenetére
igen, én is finomítottam még egy kicsit a kódon (érdemes használni a Set-et)
Sub masolas_adat()
Dim alapfile As Workbook, adatok As Workbook
Set alapfile = ThisWorkbook
Set adatok = Workbooks.Open("C:\Production_Daily.xls")
alapfile.Sheets("Data").Range("A47") = adatok.BuiltinDocumentProperties("Creation date").Value
adatok.Sheets(1).Columns("A:G").Copy
alapfile.Sheets("IDE_MASOLD").Range("A1").PasteSpecial Paste:=xlValues
adatok.Close
End Sub[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
rendezd sorba ABC szerint, ahol az "utángyártott" vagy "gyári" kifejezés van. így egymás után kerülnek az egyformák.
vagy ha ez nem megoldható, mert nincs ilyen, vagy össze-vissza van a szöveg, valahogy "kódold" be 1-es legyen az utángyártott, 2 a gyári. (pl. ha tényleg minden második utángyártott, akkor kezdd 1-gyel az A1 cellában, majd alá képlet az A2-be: =3-A1... ezt lemásolva minden másodikban 1 lesz, egyébként 2. Ha ezt sorbateszed, akkor megint az egyformák jönnek egymás után.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
valamiért az az excel, amivel ott dolgozol, nem tartalmazza (ezek szerint) a "Creation date" tulajdonságot, ezért jelez hibát.
Próbáld ki szerintem a .BuiltinDocumentProperties.Item(1).Value módszerrel (ahol az indexet 0-tól viszed, amíg nem jelez hibát, és figyeled, melyik adja vissza a jó értéket.
Az is lehetséges, hogy mivel a kérdéses xls-t egy külső (gyanítom nem office) program hozta létre, nem tette bele a file-leírásba ezeket a tulajdonságokat... Ha így van, akkor más megoldás kell. Méghozzá valamilyen fso (FileSystemObject) módszer.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Fire/SOUL/CD #6030 üzenetére
Creation date (kis d) működött, az office helpben is így szerepel.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
ez kell bele valahol a sub elején:
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")és a dátumos sort erre módosítani:
alapfile.Sheets("Data").Range("A47") = adatfile.DateCreated...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz animatrix11 #6041 üzenetére
Egyszerre? Mármint egy időben? Nem hiszem.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
legördülőben egyszerre csak egy érték választható.
ha a klikkelés eseményhez olyan eljárást rendelsz, ami nem felülírja a cellát, hanem a tartalmához hozzáfűzi az újonnan választott értéket, akkor szépen sorban belekerülnek a kiválasztott értékek.
konkrétabb javaslathoz látni kellene a fájlodat.
ha a választási lehetőséget mindenképp egyszerre kell megoldani, akkor másik vezérlő(ke)t kell alkalmazni.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Fire/SOUL/CD #6066 üzenetére
Na igen, lehetnek ilyen dolgok. Bár konkrétan ez a kód nálam (office2000 alatt) rendesen futott...
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
Új hozzászólás Aktív témák
- Milyen NAS-t vegyek?
- Milyen monitort vegyek?
- HP ProLiant MicroServer Gen8
- Helldivers 2 (PC, PS5)
- Milyen TV-t vegyek?
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- További aktív témák...