- Milyen okostelefont vegyek?
- Telekom mobilszolgáltatások
- Huawei Watch 4 Pro - kívül-belül domborít
- One mobilszolgáltatások
- Milyen GPS-t vegyek?
- Fotók, videók mobillal
- Apple Watch
- Bemutatkozott a Poco X7 és X7 Pro
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Google Pixel 9a - a lapos munka
-
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
-
Delila_1
veterán
Miért akarod makróval formázni a result.xls-t? Csináld meg gyalog, sokkal gyorsabb.
Ha fejléc is lesz benne, akkor a sor_r=1 helyett sor_r=2 kell, vagy ha a címek 2 sort foglalnak le, sor_r=3. A 3 sor helyett beírt 1 sor néhány változót is fölöslegessé tett, inkább megint beteszem a lecsökkent forráskódot újra.
Sub Lel()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 2
For sor = 1 To usor
nev = Cells(sor, 2)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End SubHa az ex1.xls és az ex2.xls is tartalmaz címsort, a For sor=1 To usor is For sor=2 To usor-ra változik.
Az elmúlt héten (vagy előtte) többen több helyet ajánlottunk a VB megismeréséhez, lapozz kicsit vissza.
-
-
Delila_1
veterán
Az első oszlopot sorszámnak néztem.
Sub Lel()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev, adat1, adat2
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 1
For sor = 1 To usor
nev = Cells(sor, 2): adat1 = Cells(sor, 1): adat2 = Cells(sor, 3)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat1
Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
Workbooks("result.xls").Sheets(1).Cells(sor_r, 3) = adat2
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End Sub -
Delila_1
veterán
Sub hianyzok()
Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
Dim nev As Variant, adat As Variant
Windows("ex2.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
sor_r = 1
For sor = 1 To usor
nev = Cells(sor, 2): adat = Cells(sor, 1)
Windows("ex1.xls").Activate
Sheets(1).Select
With Columns("B:B")
Set talal = .Find(nev, LookIn:=xlValues)
If talal Is Nothing Then
Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat
Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
sor_r = sor_r + 1
End If
End With
Windows("ex2.xls").Activate
Next
End Sub -
Delila_1
veterán
válasz
a.t.t.i.
#8721
üzenetére
A megjegyzésekben történő kereséshez itt egy makró.
A makró első sorában megadott területen megvizsgálja a megjegyzések tartalmát, megkeresi bennük a megadott szöveget (keres="alma"), majd az O oszlopban egymás alatt felsorolja a találatok címét, mellettük a P oszlopban a megjegyzés teljes tartalmát.Sub Megjegyz()
Columns("O:P").Select 'Itt változtass
Selection.ClearContents
Set ter = Range("A1:C10") 'itt változtass
keres = InputBox("Mit keresel?") 'itt változtass
sor = 1
For Each CV In ter
Set kom = Range(CV.Address).Comment 'aktuális cellához csatolt megjegyzés
If Not kom Is Nothing Then 'ha van megjegyzés
sz = kom.Text 'Megjegyzés szövege
If InStr(sz, keres) Then
Cells(sor, 15) = CV.Address 'itt változtass
Cells(sor, 16) = sz 'itt változtass
sor = sor + 1
End If
End If
Next
End Sub4 helyre írtam be, hogy "itt változtass".
A másodikhoz a saját területedet írd, a 3. és 4. az O, ill. a P oszlopot jelöli ki (15 és 16) a megjegyzés cellájának, és szövegének beírásához. Az első helyen az előző beírásokat törlöm az O:P oszlopokban, vagyis csak akkor írd át, ha a 15 és 16 értéket módosítottad. -
#8686
Delila_1
veterán
Fire/SOUL/CD
#8685
Delila_1
veterán
válasz
Fire/SOUL/CD
#8685
üzenetére
Az 50 lap nyomtatását mindenképp ciklusba szervezném, akkor nem szükséges megfelezni a makrót.
-
Delila_1
veterán
Régen leveleztünk, biztos a régi címemmel próbálkoztál. Inkább beírom ide a kódot. A füzetet, amiben most 1 lapon vannak az adatok, Eredeti.xls-nek neveztem el, az újat, amit a makró hoz létre, UjFuzet.xls névvel illettem.
Az útvonalat az első sorban írd át.Sub SokLap()
Const utvonal As String = "F:\Eadat\"
Dim lapsz As Integer, lap As Integer
Dim lapnev As String
lapsz = Range("A" & Rows.Count).End(xlUp).Row
Application.SheetsInNewWorkbook = lapsz - 1
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=utvonal & "UjFuzet.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("Eredeti.xls").Activate
For lap = 2 To lapsz
lapnev = Cells(lap, 1)
Workbooks("UjFuzet.xls").Sheets(lap - 1).Name = lapnev
Rows(1).EntireRow.Copy Workbooks("UjFuzet.xls").Sheets(lapnev).Rows(1)
Rows(lap).EntireRow.Copy Workbooks("UjFuzet.xls").Sheets(lapnev).Rows(2)
Next
Windows("UjFuzet.xls").Activate
For lap = 1 To lapsz - 1
Sheets(lap).Select
Range("A1:I2").Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Next
Application.SheetsInNewWorkbook = 3
End Sub -
-
Delila_1
veterán
Úgy vélem, hogy az átalakítandó celláid szöveg formátumú számjegyeket tartalmaznak. Egyszerűbben is átalakíthatod az egészet.
Valahova egy üres cellába beírsz egy 1-est, másolod. Kijelölöd a kérdéses tartományt, jobb klikk, Irányított beillesztés, Szorzás. Az 1-esre már nincs szükség, törölheted. Ennyi. -
#8617
Delila_1
veterán
Vizes Tomi
#8616
Delila_1
veterán
válasz
Vizes Tomi
#8616
üzenetére
Nincs mit.
-
#8615
Delila_1
veterán
Vizes Tomi
#8613
Delila_1
veterán
válasz
Vizes Tomi
#8613
üzenetére
Vegyél fel egy új oszlopot, ahova a HÓNAP függvény segítségével beíratod az A oszlop hónapjának a számát, és erre az oszlopra hivatkozz a SZUMHATÖBB-bel.
Szóba jöhet még a SZOZRATÖSSZEG függvény is a megoldáshoz.
-
Delila_1
veterán
A 2-es kérdésre:
Sub Utvonal()
Dim Utvonal As String, Fajlnev As String
Utvonal = InputBox("Mi legyen az útvonal?", "Útvonal kiválasztása", Default)
Fajlnev = InputBox("Melyik fájlt nyissam meg?", "Fájlnév megadása", Default)
Workbooks.Open Filename:=Utvonal & "\" & Fajlnev & ".xls"
End SubFire
Tényleg kimaradt a képernyőfrissítés letiltása
, jó, hogy észrevetted. -
Delila_1
veterán
válasz
medium84
#8596
üzenetére
Ezt a makrót abba a füzetbe másold be, ahol a 2 oszlopod van. Feltételeztem, hogy mindkét füzeted első lapján vannak az adataid. A makróban írd át a füzetek nevét (Elso, Masodik).
Sub Megjelol()
Dim sor As Integer, usor As Integer
Dim serial, c
sor = 2: usor = ActiveSheet.UsedRange.Rows.Count
For sor = 2 To usor
serial = Cells(sor, 1).Value
Windows("Masodik.xls").Activate
With Range("A:A")
Set c = .Find(serial, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
Cells(c.Row, 1).Font.ColorIndex = 3
Windows("Elso.xls").Activate
Range(Cells(sor, 1), Cells(sor, 3)).Font.ColorIndex = 3
Cells(sor, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],[Masodik.xls]Munka1!C1:C2,2,0)"
Cells(sor, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],[Masodik.xls]Munka1!C1:C3,3,0)"
End If
End With
Windows("Elso.xls").Activate
Next
Range("B:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells(1).Select
Application.ScreenUpdating = True
End Sub -
#8594
Delila_1
veterán
Fire/SOUL/CD
#8593
Delila_1
veterán
válasz
Fire/SOUL/CD
#8593
üzenetére
Köszönöm. A topic pangott, ill. mire észrevettem egy kérdést, már válaszoltatok is.
-
Delila_1
veterán
válasz
pentium4
#8589
üzenetére
2003-as verzióban: állj a rögzíteni kívánt oszlop mögötti, és a rögzítendő sor alatti első cellába, Nézet/Ablaktábla rögzítése.
A rögzítés után a Ctrl+Home erre a cellára állítja a fókuszt.
Megszüntetés: Ctrl+Home billentyűkkel erre a cellára állsz, Nézet/Ablaktábla feloldása. -
Delila_1
veterán
válasz
Robb202
#8536
üzenetére
Makró és ComboBox nélkül:
A kérdéses cellán állva Adatok/Adateszközök/Érvényesítés. Megengedve Lista, a Forráshoz eladva; raktáron; szállítás.
Továbbra is a cellán állva Kezdőlap/Stílusok/Feltételes formázás/Cellakijelölési szabályok/Egyenlő. Ide beírod az eladva szót, hozzárendeled a megfelelő formátumot a legördülőből. Ugyanezen az úton megadod a másik két szóhoz is a kellő formátumot.
Mód.:Ez 2007-re vonatkozik, valószínű, hogy nem változtattak ezen a lehetőségen a 2010-ben.
-
Delila_1
veterán
Az a másik cella lehetőleg másik lapon legyen, a példában a Munka2 lap A1 cellájában van.
Sub MentésTxtbe()
Application.DisplayAlerts = False
utvonal = "D:\Adatok\2010\"
FN = utvonal & Sheets("Munka2").Range("A1").Value
ActiveWorkbook.SaveAs Filename:=FN, FileFormat:= _
xlTextMSDOS, CreateBackup:=False
Application.DisplayAlerts = True
End SubAz utvonal változóhoz add meg a saját mentési útvonaladat.
-
#8516
Delila_1
veterán
Fire/SOUL/CD
#8514
Delila_1
veterán
válasz
Fire/SOUL/CD
#8514
üzenetére
Benne maradt az eredeti
=HA(HIBÁS(FKERES(B1;D:D;1;0));"-";FKERES(B1;D:E;2;0)) -
#8513
Delila_1
veterán
Fire/SOUL/CD
#8512
Delila_1
veterán
válasz
Fire/SOUL/CD
#8512
üzenetére
Ez most egy akadémista vita, mert rTyler a B oszlop tagjaihoz szeretné rendelni a címe(ke)t.
Ha csak az érdekelné, hogy a D tagjai szerepelnek-e a B-ben, egy feltételes formázással, képletek nélkül megtehetné. -
#8511
Delila_1
veterán
Fire/SOUL/CD
#8510
Delila_1
veterán
válasz
Fire/SOUL/CD
#8510
üzenetére
Látszana is, ha oda is lehúztam volna a képletet...
Ezzel a képlettel megkapod a C-ben az E oszlop tartalmát. Ennek szerintem nem sok értelme van. A kérdező a B oszlopban lévő névhez tartozó címet szeretné látni.
Most csak megdupláztad az E tartalmát. -
#8509
Delila_1
veterán
Fire/SOUL/CD
#8508
Delila_1
veterán
válasz
Fire/SOUL/CD
#8508
üzenetére
Ímé az eredmény:
-
Delila_1
veterán
A megoldás, hogy az I1-ben hozza a B1-es ember első e-mail címét, J1-ben a másodikat, K1-ben a harmadikat, stb., ameddig jobbra másolod a képletet. Akinek nincs 2., 3. címe, ott üresen hagyja a cellát.
Ezeket a képleteket együtt lemásolod addig a sorig, ameddig a B oszlopodban tartanak a nevek. -
#8487
Delila_1
veterán
Fire/SOUL/CD
#8486
Delila_1
veterán
válasz
Fire/SOUL/CD
#8486
üzenetére
Tévedsz! Makró nélkül oldottam meg, de csakis azért, hogy ellenkezzek.
A D után beszúrtam egy oszlopot, aminek a képlete (D1-é):
=D1&DARABTELI(D$1:D1;D1)Az I1 képlete: =FKERES($B1&1;$E:$F;2;0)
J1: =FKERES($B1&2;$E:$F;2;0)
K1: =FKERES($B1&3;$E:$F;2;0)Persze ezen még lehet finomítani a hibakezeléssel.
-
#8482
Delila_1
veterán
Fire/SOUL/CD
#8479
Delila_1
veterán
válasz
Fire/SOUL/CD
#8479
üzenetére
Az autoszűrő helyett inkább kimutatást javasolnék.
-
#8475
Delila_1
veterán
Fire/SOUL/CD
#8474
Delila_1
veterán
válasz
Fire/SOUL/CD
#8474
üzenetére
Majd megtudjuk a válaszból.
-
#8458
Delila_1
veterán
m.zmrzlina
#8455
Delila_1
veterán
válasz
m.zmrzlina
#8455
üzenetére
Nézz utána a Public változóknak, amiről Perfag írt, vagy várj estig, míg újra gép közelébe kerülök.
Addig biztosan megírja valaki, mit kell tenned. -
#8452
Delila_1
veterán
m.zmrzlina
#8451
Delila_1
veterán
válasz
m.zmrzlina
#8451
üzenetére
A változók értékét átadhatod egy másik szubrutinnak. Pl. ha az Első() szubrutin C változójának az értékével szeretnél dolgozni egy Második nevű szubrutinban, akkor az Első rutinodban
Második C
módon hívod meg. A Második paramétere legyen C, vagyis
Sub Második(C)
.
.
End SubA Második End Sub-ja után a vezérlés visszajut a hívás helyét követő sorra.
-
#8448
Delila_1
veterán
m.zmrzlina
#8446
Delila_1
veterán
válasz
m.zmrzlina
#8446
üzenetére
Azt hiszem, félreértettelek. Címke alatt egy cella címzésére gondoltam.
If valami then Go To Címke 'vagy Gosub Címke
Címke:
utasítások
Return 'Gosub esetén, innen az if-et követő sorba ugrik vissza.Ezt azonos modulban kell elhelyezned.
-
Delila_1
veterán
válasz
samfishR
#8442
üzenetére
Elég az első cellánál megadni a formátumot. Az 1 beírása után a Ctrl billentyű lenyomása mellett "húzd" le 40 hosszan, akkor automatikusan növeli a sorszámokat.
Másik módszer, hogy a celláknak szöveg formátumot adsz, ezután írod be a 01-et, a másolásához nem kell segédbillentyűt használni. Ezeket szövegként értelmezi az Excel, nem lehet velük számolni.
-
#8443
Delila_1
veterán
m.zmrzlina
#8441
Delila_1
veterán
válasz
m.zmrzlina
#8441
üzenetére
Application.Goto Reference:="nomorelines"
-
#8419
Delila_1
veterán
m.zmrzlina
#8418
Delila_1
veterán
válasz
m.zmrzlina
#8418
üzenetére
Nem biztos, hogy erre gondoltál. Az A21, B21, és C21 cellák 0 és 255 közötti egész számot tartalmaznak. A makró az A22 cella hátterét színezi a fenti értékek szerint.
Sub szín()
Cells(22, 1).Interior.Color = RGB(Cells(21, 1), Cells(21, 2), Cells(21, 3))
End Sub -
#8417
Delila_1
veterán
basaharc502
#8416
Delila_1
veterán
válasz
basaharc502
#8416
üzenetére
Így:
-
Delila_1
veterán
válasz
xKacsax
#8392
üzenetére
Kilencszázkilencvenkilencmillió-kilencszázkilencvenkilencezer-kilencszázkilencvenkilenc-ig kiírja betűvel az összeget ez a függvény, amit nem én írtam, csak alkalmazom néhanapján.
Function Szam_szoveg(szam As Long) As String
Dim j1, j10, j10a, j100
j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j100 = Array("száz", "", "ezer", "millió", "milliárd")
betu = ""
If szam = 0 Then
Szam_szoveg = "Nulla"
Exit Function
End If
s = Format(szam, "0")
j = 1
While s <> ""
i = Len(s) - 2
If i < 1 Then i = 1
s2 = Mid(s, i, 3)
s = Left(s, i - 1)
s3 = ""
If Len(s2) = 3 Then
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
s2 = Right(s2, Len(s2) - 1)
End If
If Len(s2) = 2 Then
If Mid(s2, 2, 1) = "0" Then
s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
Else
s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
End If
s2 = Right(s2, Len(s2) - 1)
End If
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If s3 <> "" Then s3 = s3 + j100(j)
If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
betu = s3 + kot + betu
j = j + 1
Wend
betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
Szam_szoveg = betu
End FunctionAlkalmazása: a cellába =Szam_szoveg(A1) – ha a szám, amit betűvel akarsz kiíratni, az A1 cellában van.
Azt is tudja, hogy kétezer alatt egybe kell írni az összegeket szöveggel, azon felül a hármas tagolás van érvényben. Állítólag már nem kell nagybetűvel kezdeni, akkor az utolsó előtti sort [betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)] töröld ki, vagy tedd megjegyzésbe. -
Delila_1
veterán
A minimum érték 37622 legyen, a maximum pedig attól függően, hogy 2010.júl.1-et, vagy 2010.júl. 31-et akarsz-e befejező dátumnak, 40360, vagy 40390.
Az Excel a dátumokat (is) számként értelmezi, mégpedig úgy, hogy hány nap telt el 1900.01.01. óta az adott dátumig.
A fenti értékeket úgy tudod meg legegyszerűbben, hogy a dátumot tartalmazó cella formátumát általánosra állítod.
-
#8376
Delila_1
veterán
fjanszi123
#8374
Delila_1
veterán
válasz
fjanszi123
#8374
üzenetére
A Cellameretek makrót indítva megadhatod a kijelölt cella – cellák szélességét és magasságát mm-ben.
-
#8371
Delila_1
veterán
m.zmrzlina
#8370
Delila_1
veterán
válasz
m.zmrzlina
#8370
üzenetére
-
#8369
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Na még egy kép, mikor egyszerre is bekapcsolt állapotban vannak egyes lámpák.
(Nem látszik, de ekkor az E oszlop van kijelölve)
-
#8368
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Fire ötletével
Szerk.: a karakterek színét is átírhatod. Alapban fehér, a cella "on" értékénél az aktuális szín legyen a feltételes formázásban.
-
#8366
Delila_1
veterán
m.zmrzlina
#8365
Delila_1
veterán
válasz
m.zmrzlina
#8365
üzenetére
Kijelölöd az oszlopot, pl. az ábra szeinti F-et, és egyszerre adod meg a feltételes formázást. Fontos, hogy a képletben ne $E$2, hanem $E2, vagy csak E2 szerepeljen.
-
#8364
Delila_1
veterán
m.zmrzlina
#8363
Delila_1
veterán
válasz
m.zmrzlina
#8363
üzenetére
Mindkét esethez a feltételes formázás:
-
#8362
Delila_1
veterán
m.zmrzlina
#8361
Delila_1
veterán
válasz
m.zmrzlina
#8361
üzenetére
Feltételes formázás. Olyan színű legyen a cella, mint amelyik lámpa a három közül éppen on állapotban van. Ennyi feltételt a régebbi verziókban is elő lehet állítani.
Ez a színezett cella lehet az, amelyik az időpontot tartalmazza. -
#8330
Delila_1
veterán
Fire/SOUL/CD
#8329
Delila_1
veterán
válasz
Fire/SOUL/CD
#8329
üzenetére
Azért dolgozott azzal, mert az első (?) válaszomban azt írtam.
Szóval működik a text és a value nélkül is. -
#8328
Delila_1
veterán
Fire/SOUL/CD
#8327
Delila_1
veterán
válasz
Fire/SOUL/CD
#8327
üzenetére
Anélkül is vidáman beírja az értékeket, szándékosan hagytam el.
-
-
Delila_1
veterán
válasz
pentium4
#8296
üzenetére
Írtam rá egy függvényt.
Function Minimum(sor As Integer) As Double
Dim tomb(3), tomb_1(3)
Dim b As Integer, s As Integer
tomb(0) = Cells(sor, 7)
tomb(1) = Cells(sor, 12)
tomb(2) = Cells(sor, 17)
tomb(3) = Cells(sor, 22)
For b = 0 To 3
If tomb(b) > 0 Then
tomb_1(s) = tomb(b)
s = s + 1
End If
Next
Minimum = Application.Min(tomb_1(0), tomb_1(s - 1))
End FunctionA szépséghibája, hogy egy üres oszlopba az adatok mellé be kell vinni az =SOR() függvényt, és a Minimum függvényben erre a cellára kell hivatkozni.
Pl. ha a sor() függvények az AA oszlopban vannak, és a W5-ben akarod megtudni az 5. sor minimumát, akkor a W5-be ezt kell írnod: =minimum(AA5), vagy =minimum(5). Az utóbbinál az a baj, hogy a képlet lemásolásakor az 5-öt minden cellában át kellene írni az aktuális sor számára. Az előbbi képlet "lehúzható".
Remélem, ezen valaki tud majd javítani. Ha nem, marad a SOR() függvény. -
Delila_1
veterán
válasz
bnorci71
#8252
üzenetére
Eszembe jutott valami, de megint csak este tudom kipróbálni. Érdekes feladat, biztosan más is próbálkozik addig a megoldással.
Hogy ne kelljen a lehetséges megoldóknak visszakeresni:
Az A2:A14 tartományban focicsapatok nevei vannak. A teljes tartomány címsorral együtt A1:AI14, ami az AI oszlop értékei szerint van csökkenő sorrendbe rendezve. Az AI változik, emellé kellenének a nyilak az AJ, vagy AK oszlopba.
, jó, hogy észrevetted.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Gyermek PC játékok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Csere-Beszámítás! Asus Tuf RX 9070 XT 16GB Videokrátya! Bemutató darab!
- Csere-Beszámítás! Számítógép PC Játékra! Intel I7 6700/ RX 580 8GB / 32GB DDR4 / 500GB SSD
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
- 0% THM 3 havi részlet! Beszámítás, 27% áfa, Sapphire Nitro+ RX 9070XT 16GB készletről
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PC Trade Systems Kft.
Város: Szeged