-
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
-
Alfonzka77
csendes tag
Sziasztok!
van egy problémám, amit excelben szeretnék megoldani, de nem vagyok járatos ilyen téren...Van egy txt fájlom, amiben van sok sor. ezt szeretném excelbe behívni, utána pedig minden harmadik sor átlagát kiszámolni, mert az eredeti sorok száma túlságosan sok és bőven elég csak az átlaguk...
Illetve egy sorban több paraméter is van, és minden paraméternek kellene nekem az átlaga.
Tud valaki segíteni nekem ebben?
Előre is kössz -
Delila_1
Topikgazda
válasz Alfonzka77 #8851 ü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.
-
Alfonzka77
csendes tag
válasz Delila_1 #8852 üzenetére
Szia!
először is köszi a segítséget!
Nem egészen... Úgy kellene nekem, hogy minden három sor átlagát számolja ki.
(aszem nem bírom megoflgamazni... )
Szóval.pl.
k1= átlag(a1:A2:A3)
K2=átlag(a4:a5:a6)
k3=átlag(a7:A9)
stbstbaztán pl. L1=átlag(b1:b3) L2=átlag(b4:b6)... stb
van kb 40 txt-m amiben ezek az értékek vannak, darabja kb 900-1200 sorral és mindengyikban 7-11 oszloppal. Sajnos a további feldolgozáshoz sok, ezért kellene nekem csökkenteni a mintaszámot amire az átlagolás egy járható mód lenne... Próbálgatom a makrót, de nem bírok rájönni, hogy lehet olyan változót csinálni ami folymatosan nő hármasával és lehet rá hivítkozni mint range...
csináltam egy próbát, hátha igy írthetőbb mi a célom. csak nem tudom képként feltölteni...
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Alfonzka77 #8853 üzenetére
Akkor nem kell makró.
K1-be: =ÁTLAG(A1:A3)
A K2 és K3 üresen marad.
A K13 tartományt együtt kijelölöd, és lemásolod az utolsó sorodig.Ezután kijelölöd a K1 cellától a K oszlop utolsó képletéig a tartományt, és jobbra másolod addig, ameddig kell.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Alfonzka77 #8855 üzenetére
Nemsokára írok rá makrót, csak most van egy kis más dolgom.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Alfonzka77 #8857 üzenetére
Ímé:
Sub Átlag()
Dim sor As Integer, oszlop As Integer
Dim k_sor As Integer, összeg As Double
Dim usor As Integer, uoszlop As Integer
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
sor = 1: k_sor = 1
For oszlop = 1 To uoszlop
Do While sor <= usor
összeg = Cells(sor, oszlop) + Cells(sor + 1, oszlop) + Cells(sor + 2, oszlop)
Cells(k_sor, oszlop + 10) = összeg / 3
k_sor = k_sor + 1: sor = sor + 3
Loop
k_sor = 1: sor = 1
Next
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.
-
Delila_1
Topikgazda
Lacikukac, Alfonzka, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
polaar
tag
Amatőr kérdés-hogy kell megcsinálni hogy a cellákban egymás alatt mindig 1-el nagyobb értékek legyenek,298,15-4000 kéne beírnom és azért az nekem sok.+ kéne hogy ha egymás alatt a képlet csak annyit kell hogy változzon hogy a -7976,15 + 137,093038*A9 - 24,3671976*A9* LN(A9) - 0,001884662* A9^2 - 0,000000877664*A9^3 + 74092*A9^-1 képletben csak az A értéke nőjön(A9-A10-A11 stb) mit kell tennem?
[ Szerkesztve ]
-
félisten
A1-be 298,15
A2-be 299,15
kijelölöd az A1 és A2 cellát együtt
a kijelölés jobb alsó sarkához viszed az egérkurzort, nyomva tartod a bal egérgombot és elkezded lemásolni2 kérdésedre
beírod pl B9 cellába azt a képletet(egyenlőségjellel kezdeni), aztán ráállsz a B9 cellára, a kijelölés jobb alsó sarkához viszed az egérkurzort, nyomva tartod a bal egérgombot és elkezded lemásolniMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
polaar
tag
válasz Fire/SOUL/CD #8863 üzenetére
Köszi!
-
8szaki8
csendes tag
Sziasztok!
Lenne egy sürgős problémám: Van egy 5000 soros adathalmazom excelben és szeretném kivenni belőle minden tizedik (vagy épp minden 20.) sort, annak értékétől függetlenül, és a továbbiakban csak a kivetteket kezelni, így lecsökkentve az adatok számát. Hogy tudnám megoldani ezt?
Ha nem exceles megoldásotok van, az is jó lenne, eredetileg dat fájljaim vannak. Eddig labview merült fel, mint legegyszerűbb módszer, remélem nektek vannak jó ötleteitek.
Köszi, Ákos. -
bugizozi
őstag
Helló!
1) Köszönöm szépen a segítséget perfag-nak!
2) szeretnék még egy kis segítséget kérni...
Van egy ComboBox-om amit egy adott tartományban lévő adatokkal szeretnék feltölteni. Sajnos az a tartomány változik és erre várnék ötleteket...
2.1) Tudom hogy a tartomány sosem több 100nál, igy pl megadom hogy A1:A100, ezzel csak az a probléma hogyha mondjuk 60 db adat van akkor utána még 40 üres sort betesz ami nem jo lehet valamit bűvészkedni ezzel a kóddal, hogy az üres cellákat ne vegye figyelembe?
ComboBox1.ListFillRange = "Munka2!A1:A100"
2.2) Van valami olyan eljárás amivel csak addig vizsgálja a tartományt amíg üres cellát talál és utána abbahagyja a ComboBox feltöltését?
Remélem érthető voltam
Előre is köszi a segítőnek!Zoli
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz 8szaki8 #8865 üzenetére
Mellette egy üres sorba
=HA(SOR()/10=INT(SOR()/10);A1;"")
Ezután autoszűrővel kiszűröd ebből az oszlopból a 0-nál nagyobb értékeket, és irányítottan értékként beilleszted oda, ahol számolni akarsz velük.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bugizozi #8866 üzenetére
Adj nevet a tartománynak, ahol az ofszet fügvénnyel határozod meg az adatok mennyiségét.
Pl. az A oszlopvan vannak a feltöltendő értékek, de az A1-ben címsor is van. A hivatkozás
=OFSZET(Munkalapnév!A2;0;0;DARAB2(Munkalapnév!A:A)-1;1)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zsotesz81
senior tag
Hali
Progressbarnak hogy lehet színt adni?
-
perfag
aktív tag
válasz bugizozi #8866 üzenetére
Delila válaszához csatlakoznék (ha még nem csináltál ilyet):
Tartományok elnevezése Excel 2007-ben és
Névvel ellátott dinamikus tartomány létrehozása munkalapon -
félisten
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8873 üzenetére
microsoft progressbar control 6.0 (SP4)
-
félisten
válasz zsotesz81 #8874 üzenetére
Sajnos nálam ilyen nincs már alapban...Az sem biztos, hogy be tudnám "adagolni" azt a bővítményt, amiben benne van... (W7 x64 és Office 2010 x64)
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8875 üzenetére
melóban csak excel 2003 van, egyébként a tulajdonságok listában nem találtam színezést, ezért kérdeztem, hogy elsetleg valahogy az alap szürke színt le lehet-e cserélni, mindegy annyira nem fontos, azért köszi, hogy próbáltál segíteni
[ Szerkesztve ]
-
félisten
-
Zomb€€
őstag
Üdv VB guruk!
Két kérdésem lenne:
- Először is, ~1 hete ismerkedtem meg VB-el, már megírtam első makrómat, és iszonyat tetszik, egy javaslatot szeretnék, hogy milyen könyvvel, netes anyaggal érdemes kezdeni tanulni, de figyelem, soha nem tanultam programozás:-]- A második már egy VB kérdés, mégpedig, hogy tudjuk meghatározni egy adott táblázat utolsó töltött sorának a pozícióját?
Egyik megközelítésem ez volt:Range("A1").Select
Selection.End(xlDown).SelectDe itt viszont nem tudom meghatározni a poziját.
[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
félisten
1. A help/súgó hasznos dolog, mert abból is sokat lehet tanulni, főleg, ha kezdeteknél még egy for-next ciklus felépítése/megírása is problémát okoz. Ezen felül ezt javaslom: [link]
A kezdőknek szánt könyvekben általában a VBA programozást szokták bemutatni, de olyan szinten, aminél a súgó többet ér, viszont az objektumok bemutatása, az ki szokott maradni az ilyen alap könyvekből. Na szóval ezért javaslom azt, amit fentebb...2. Range("A" & Rows.Count).End(xlUp).Row
Ez az A oszlop utolsó használt sorának a számát adja eredményül, remélem nem értettem félre a kérdésed...[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
Fire válaszához annyit, hogy a lekérdezett sorszámot azonnal egy változóba teheted:
UtolsóSor=Range("A" & Rows.Count).End(xlUp).Row
ElsőÜresSor=Range("A" & Rows.Count).End(xlUp).Row+1Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zomb€€
őstag
Köszönöm a válaszokat!
A neten található tutorialok között mazsolázgatok, egy for ciklus, vagy if-ezés már nem okoz gondot:-]
Még annyi kérdésem lenne, hogy egy aktív cella pozícióját hogy kell kiolvasni? Az előző analógia szerint ez lehet?
X = ActiveCell.Range(Column.Count & Rows.Count)[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
bugizozi
őstag
válasz Delila_1 #8868 üzenetére
Köszönöm szépen Delila_1 és perfag a válaszokat!
Jónak tűnik amit írtatok, de az igazat megvallva a 8879-8880 hsz nekem hasznosabbnak bizonyult
Annak segítségével meg tudtam határozni az utolsó nemüres sort, amit egy változóba tettem és a ListFillRange segítségével feltöltöttem a ComboBox-ot. Nem tudom mennyire érthető amit írtam, ezért a kódom is leíromDim ucso As Long
ucso = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.ListFillRange = "Munka2!A2:A" & ucso & ""Köszönöm mégegyszer a gyors reakciókat!
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
lasarus1988
tag
Zomb€€
If Instr("mák", cells(row, column))>0 Then
amit akarsz csinálni
End IfEgyébként nekem is lenne egy kérdésem:
Hosszú idejű pingelést írtam meg vb makróban és akad benne egy hiba, ez pedig a timer átfordulása. 86400 után 0-tól újrakezdi számolni a napot.
Ha csak pár órát mérek akkor működik így a dolog:
Start = Timer
Pause = 7200
Do While Timer < Start + Pause
mérés
LoopNa most, ha én több napig szeretnék mérni, akkor hogyan tudom megoldani ezt do while ciklussal? Próbálkoztam a now() függvénnyel de nem igazán jártam sikerrel.
[ Szerkesztve ]
-
Zomb€€
őstag
válasz lasarus1988 #8884 üzenetére
Köszi!
Itt figyelmen kívül hagyja a kis és nagy betűket? Az is jól jönne.."Egyszer fent...egyszer fent!"
-
Zomb€€
őstag
válasz lasarus1988 #8886 üzenetére
Köszi!
Még mindig lenne kérdésem:-]
- Egy adott makró végén a filet .csv-be szeretném menteni, a következő szerint:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xy\Dokumentumok\Munkafüzet1.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Viszont ide szeretnék beszúrni egy MA() függvényt a "Munkafüzet1" helyére, hogy minden nap futtatva az aktuális dátummal legyen elmentve a file. Hogy lehet megoldani?- A másik, hogy van egy több If-ből álló tömböm, és az utolsóba beleteszem az összes olyan esetet, ahol nem talált az előző 7-el egyezőséget, és itt csak a másolandó cellát teszem egyenlővé a cél cellával. Viszont amikor kiköpi a .csv-t, akkor az ebbe a kategóriába eső értékeket "" közé teszi, amit nem kéne.
[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
félisten
ActiveWorkbook.SaveAs Filename:="D:\FIRE\" & Format(Now(), "yyyy.mm.dd") & ".csv", FileFormat:= _
xlCSV, CreateBackup:=False"van egy több If-ből álló tömböm"
Ilyen nincs, ez így értelmetlen, bár tudom mire gondolsz.
Amikor az ActiveWorkbook.SaveAs segítségével mented a CSV-t, akkor nincs beleszólásod abba, hogy milyen karakterrel legyenek az elemek elválasztva, mint ahogy abba sem, hogy a szöveg/általános típusú értékeket idézőjelek közé tegye avagy sem.
Excel illetve az OS területi beállításai a mérvadók ebben az esetben. Ha tényleg "személyre szabott" CSV-t szeretnél létrehozni, akkor azt más módszerrel kell megoldani.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8888 üzenetére
Köszi szépen, frankón müxik
A második kérdésemhez pedig egy kis segítség. Ilyen értékek szerepelnek:
123312,343434346,Folyósítva
412344,567567567,Folyósítva
343434,676767677,"Nincs döntés"
344444,564456151,"Nincs döntés"Itt az első 2 sor utolsó értékét a feltétel teljesülése esetén cseréli le erre a státuszra, viszont az utolsó két sorban a megmaradó, feltételeknek meg nem felelő státuszokat varázsolja be a célcellákba, és itt hozza a " jeleket. Ezt hogy lehetne eltüntetni (Notepad++ használata nélkül:-]) ?
Itt is az OS/Excell beállításokban kéne turkálni?
"Egyszer fent...egyszer fent!"
-
félisten
Azért van, hogy idézőjelbe teszi a NINCS DÖNTÉS értéket, mert szóközt tartalmaz, ezt kikerülni nem lehet azzal a módszerrel, amit használsz (legalábbis én nem tudok róla).
Ezért kellene egy másik megoldást eszközölni.(természetesen megoldható, csak egy kicsit több meló, de tényleg csak kicsit több)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8890 üzenetére
Akkor megtudhatnám a konkrét megoldást?:-]
Viszont lenne egy másik problémám is:
Ha kézzel mentek el egy adott lapot úgy hogy "Mentés másként -> CSV (pontosvesszővel tagolt) akkor úgy menti el a filet, ahogy szeretném, pontosvesszőket tesz a cellaértékek közé.
Viszont ha ezt a makró futásába teszem bele, akkor pontosvessző helyett sima vesszőket tesz be:S Ez is területi beállítás függő?"Egyszer fent...egyszer fent!"
-
félisten
Az elsőre majd írok valamit, most nem sok időm van...
""Mentés másként -> CSV (pontosvesszővel tagolt)"
Ha így mented el, akkor az a területi beállításokra támaszkodik, íme a példaMentés másként -> CSV (pontosvesszővel tagolt)-ként mentettem, és ez az eredmény
A makrót nem érdekli a területi beállítás, az az angol beállításokat követi, angolul kell a függvényneveket megadni, a függvények paramétereit vesszővel kell elválasztani stb stb...
Ezért kell más elven megoldani a CSV fájl létrehozását, hogy az területi beállításoktól, a makró alapértelmezett(angol) nyelvétől függetlenül, mindig ugyanazt a formátumú(pontosvesszővel elválasztva, szövegek idézőjelek közt(vagy sem) stb stb) CSV-t produkálja...[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8892 üzenetére
Nálam a listaelválasztóban ; van.
Vagy az angolnál kell átállítani?"Egyszer fent...egyszer fent!"
-
félisten
Szerintem elég egyértelműen fogalmaztam:
"A LISTAELVÁLASZTÓT(pontosvesszőről, ami az alapbeállítás magyar OS esetén) egy függőleges vonalra cseréltem"Ha magyar operációs rendszert használsz, akkor a területi beállításokban az alapértelmezett LISTAELVÁLASZTÓ a pontosvessző, ha meg pl Angol OS-t használsz, ott meg a vessző az alapértelmezett.
A makrót meg nem érdekli, hogy milyen OS-t használsz, az mindig vesszővel fogja elválasztani a CSV-t, ha azzal a módszerrel készíted, ahogy korábban beírtad(ActiveSheet.SaveAs)Jobban/érthetőbben nem tudom leírni...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8894 üzenetére
Oké, értettem, csak itt kis ellentmondást érzékeltem mivel ha a magyar beállításoknál cserélted csak le a ";"-t akkor is ","-t kell hogy kapj.(És most ezt ki is próbáltam, így menti)
Szal gondolom, hogy a makró által használt nyelv beállításánál kéne ezt lecserélni. Vagy nem?"Egyszer fent...egyszer fent!"
-
félisten
Ok, akkor inkább szavak helyett.
'itt add meg, mi legyen az ELVÁLASZTÓ karakter
Const MYDELIMITER = ";"
Dim MyCell As Range
Dim MyRow As Range
Dim MyCellValue As String
Dim MyFname As String
Dim MyFnum As Long
Dim MyRange As Range
Private Sub CommandButton1_Click()
'itt add meg a táblázatod tartományát
Set MyRange = Range("A1:B7")
MyFname = "D:\FIRE\" & Format(Now(), "yyyy.mm.dd") & ".csv"
If Not Dir(MyFname) = vbNullString Then
UserChange = MsgBox(prompt:="A fájl (" & MyFname & ") már létezik. Felülírja?", Title:="Megerősítés", Buttons:=vbYesNo)
If UserChange = vbYes Then WriteMyFile
Else
WriteMyFile
End If
End Sub
Private Sub WriteMyFile()
MyFnum = FreeFile
Open MyFname For Output As MyFnum
For Each MyRow In MyRange.Rows
For Each MyCell In MyRow.Cells
MyCellValue = MyCellValue & MyCell.Value & MYDELIMITER
Next MyCell
MyCellValue = Left(MyCellValue, Len(MyCellValue) - 1)
Print #MyFnum, MyCellValue
MyCellValue = ""
Next MyRow
Close MyFnum
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8896 üzenetére
Köszi, így már érthetőbb volt, bár kicsit elvesztem a kódban...DE!
Kutakodtam a neken, és megtaláltam a megoldást:ActiveWorkbook.SaveAs Filename:="D:\Státusz.csv", FileFormat:=xlCSV, _
CreateBackup:=False, Local:=TrueEzzel a kis paraméterrel a regionális beállításokat veszi figyelembe, és voila, ";" a szeparátor
[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
félisten
Igen, az remek "trükk", csak az a "gond" vele, hogyha egy másik gépen is lesz használva esetleg a munkafüzet és ott más nyelvű OS fut(vagy valamiért mások a területi beállítások), akkor voila, máris nem pontosvessző lesz...
Persze, ha csak és kizárólag a Te gépeden lesz használva az excel munkafüzet, akkor tökéletes megoldás.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8898 üzenetére
Nem, szerencsére csak olyanon lesz használva, ahol magyar az OS.
Viszont ha már erre jársz lenne még egy kérdésem
Amikor mentek egy CSV-t, onnantol kezdi el menteni az oszlopokat, ahol megtalálja az első értékkel feltöltött oszlopot (D<> = D;E;F ...)
Viszont nekem kellenének az előtte lévő oszlopok is, mint üresek (;;;D;E;F)
Ezt csak úgy tudtam megoldani, hogy az A oszlopnak " " értéket adtam, viszont nem nagyon tetszik ez az eljárás."Egyszer fent...egyszer fent!"
-
félisten
Hát azt csak úgy lehet, ahogy írtad. Ki kell jelölni az összes üres cellát, majd beírni az ="" "képletet" mindbe. Ezt természetesen fel lehet gyorsítani, nem kell egyenként elvégezni.
1. Szerkesztés/Ugrás/üres cellák kijelöl és OK
2. (Most ki van jelölve az összes üres cella), kezd el begépelni ezt ="", majd CTRL+ENTEREzáltal minden üres cellába bekerül a "semmi"...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Formula-1
- Sony MILC fényképezőgépcsalád
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Napelem
- Robot fűnyírók
- Milyen autót vegyek?
- Gaming notebook topik
- Otthoni hálózat és internet megosztás
- Rendkívül ütőképesnek tűnik az újragondolt Apple tv
- Xiaomi 13 - felnőni nehéz
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok