-
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
-
0P1
aktív tag
válasz
Ghoosty
#36264
üzenetére
Ha véletlenszerűen szeretnéd, akkor használhatod az Excel Get&Transform funkcióját . Meg lehet oldani persze worksheet függvénnyel is, de szerintem a Get&Transform szebb
.Ha az oszlop megnevezéseid Termék neve, Sorozatszám és Státusz, akkor Data / Get& Transform / From table az első munkalapon lévő táblán, aztán Advaced editorba vágd be az alábbi queryt:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
AddedIndex = Table.AddIndexColumn(Source, "Index", 0, 1),
BufferedRandomNumberList = List.Buffer(List.Random(Table.RowCount(AddedIndex))),
AddedCustom = Table.AddColumn(AddedIndex, "Random", each BufferedRandomNumberList{[Index]}),
SortedRows = Table.Sort(AddedCustom ,{{"Random", Order.Ascending}}),
#"Filtered Rows" = Table.SelectRows(SortedRows, each [Státusz] = "reg"),
#"Grouped Rows" = Table.Group(#"Filtered Rows", {"Termék neve"}, {{"Random", each List.Min([Random]), type number}}),
#"Merged Queries" = Table.NestedJoin(#"Grouped Rows",{"Termék neve", "Random"},AddedCustom,{"Termék neve", "Random"},"NewColumn",JoinKind.LeftOuter),
#"Aggregated NewColumn" = Table.AggregateTableColumn(#"Merged Queries", "NewColumn", {{"Sorozatszám", List.Min, "Sorozatszám"}}),
#"Removed Columns" = Table.RemoveColumns(#"Aggregated NewColumn",{"Random"}),
#"Sorted Rows" = Table.Sort(#"Removed Columns",{{"Termék neve", Order.Ascending}})
in
#"Sorted Rows"És utána Close&Load. Ki fogja dobni egy új munkalapra a termékneveket, egy random módon megtalált lehetséges sorozatszámmal, ahol a státusz "reg". Ha megnyitáskor automatikus frissitést szeretnél , pipáld be a "Refresh data when opening the file" checkboxot a connection propertiesben (de természetesen frissstheted manuálisan is.
Új hozzászólás Aktív témák
- Allegro vélemények - tapasztalatok
- Linux kezdőknek
- BestBuy topik
- Így kezdődik a Vampire: The Masquerade - Bloodlines 2
- Vírusirtó topic
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- HiFi műszaki szemmel - sztereó hangrendszerek
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- PlayStation 5
- Nem indul és mi a baja a gépemnek topik
- További aktív témák...
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Árváltozás + játék DVD: Splinter Cell Blacklist the 5th Freedom Edition
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Árváltozás+játék DVD: Bioshock Infinite Ultimate Songbird Edition
- Telenor 5G Indoor WiFi Router (FA7550) + töltő
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3563,100% Akkumulátor
- Google Pixel 10 Pro 5G Porcelain AI-fotó varázs, Super Actua 120 Hz 128 GB
- Samsung Galaxy S23 Ultra 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600X / GTX 1080Ti / 16GB DDR4 / 512 SSD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
.
Fferi50
