- Komoly akcióval érkezik Magyarországra a Honor Magic V5
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Hivatalos a OnePlus 13 startdátuma
- Sony Xperia 1 VII - Látod-e, esteledik
- Szinte játékpénzért megvehető a Honor Play 10C
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Samsung Galaxy A54 - türelemjáték
Hirdetés
-
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
válasz
felora:) #24801 üzenetére
"minden cellának majd a szöveget az "A16"-osba kell begenerálnia, szépen egymás után."
Ezt úgy érted, hogy az A16-ban az utoljára kiválasztott értéknek megfelelően jelenjen meg az OK vagy a NEM OK szöveg?Ha igen, az A16 képlete legyen:
=HA(INDIREKT("A" & DARAB2(A1:A15))="Igen";"OK";"NEM OK")
Az A1:A15 helyett azt a tartományt add meg, ahol kiválasztod az igen, vagy nem szöveget.
-
Cuci3
tag
válasz
felora:) #5059 üzenetére
Pár kérdés, mivel csak utólag vettem észre, hogy ez a számsor az aláírásod:
1. Mivel vannak elválasztva a számok a cellán belül? Gondolok itt space-re, vesszőre, tabra, ilyesmire.
2. Tényleg nyolc szám van? (Aláírásodban csak 7 - bár már magam sem tudom, hogy mit higgyek)Kezdésnek itt egy makró, mely a space-sel elválasztott adatokat szedi szét. Az adatoknak a Munka1 A1-es cellájában kell kezdődnie. A 'szövegből oszlopok' módszerrel szétszedett adatokat a Munka2 A2-es cellájától folyamatosan kezdi el felhozni, majd a Munka2 C3-as cellájától kezdve bedob egy kimutatást, amit a számok darabszáma alapján rendez csökkenő sorrendbe.
Kikommentelni nem volt kedvem, de ha kell egyszer megteszem. Rem OpenOffice alatt is frankón működik, dehát ki tudja.
Próbáld ki, aztán majd lesz valahogy!
Most látom csak, hogy a szöveg szétszedésénél 7 érték van, amit majd módosítani kell, ha tényleg 8 szám van.
Próba után okosabbak leszünk.
Sub nyolcmaximum()
Dim i, sor, sor2 As Integer
Dim hely, hely2 As String
Munka1.Activate
Munka1.Cells(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1)), TrailingMinusNumbers:=True
Munka1.Cells(1, 1).Select
sor = Selection.End(xlDown).Row
For i = 1 To Selection.End(xlToRight).Column
Munka1.Activate
Munka1.Range(Cells(1, i), Cells(sor, i)).Select
Selection.Copy
Munka2.Activate
Munka2.Cells((i - 1) * sor + 2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Application.CutCopyMode = False
Munka2.Cells(1, 1).Select
Selection = "szam"
sor2 = Selection.End(xlDown).Row
hely = "Munka2!R1C1:R" & sor2 & "C1"
hely2 = "[" & ActiveWorkbook.Name & "]Munka2!R3C3"
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
hely).CreatePivotTable TableDestination:= _
hely2, TableName:="nyolcszam", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTables("nyolcszam").AddDataField ActiveSheet.PivotTables( _
"nyolcszam").PivotFields("szam"), "Darab / szam", xlCount
ActiveSheet.PivotTables("nyolcszam").AddFields RowFields:="szam"
ActiveSheet.PivotTables("nyolcszam").PivotFields("szam").AutoSort xlDescending _
, "Darab / szam"
End Sub -
Cuci3
tag
válasz
felora:) #5056 üzenetére
Azt nem tudom, hogy mit tud az OpenOffice. Én makrók nélkül kezdtem el gondolkodni.
De úgy gondolkodtam, hogy alap függvényekkel csak boldogul. Én Excel 2003-at használtam, és egy példát felraktam [ide].
A Munka1-en először szétszedem a nyolc számot. Innentől azonban már sok megoldás van:
1. Munka2-re A2-től kezdve egymás alá másolom a számokat, mellé rakok egy darabteli függvényt, majd a B oszlop szerint rendezem csökkenőbe az egészet. (800 számnál kicsit macerás a 8 legnagyobbat megadni)
2. az egymáés alá másolt számokat bedobom egy kimutatásba, teszek mellé darabszámot, aztán berendezem a darabszám szerint csökkenőbe. (mivel 1-től 20-ig mennek a számok, ezért ez egész átkátható)Tehát az a kérdés, hogy mennyire gyakran kell ezt megcsinálnod? Ha sűrűn, akkor tényleg kényelmesebb egy makró.
Új hozzászólás Aktív témák
- Nyaralás topik
- NVIDIA GeForce RTX 3060 Ti / 3070 / 3070 Ti (GA104)
- Kezdő fotósok digitális fényképei
- Autós topik
- Komoly akcióval érkezik Magyarországra a Honor Magic V5
- Futás, futópályák
- Vigneau interaktív lokálblogja
- Kuponkunyeráló
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- sziku69: Szólánc.
- További aktív témák...
- PC Game Pass előfizetés
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- AKCIÓ! GIGABYTE AORUS ELITE Z790 i7 14700K 64GB DDR5 1TB SSD 7900 XTX 24GB be quiet! SB 802 1000W
- BESZÁMÍTÁS! Microsoft XBOX One S 512GB lemezes konzol + 6db játék garanciával hibátlan működéssel
- Magic Trackpad legújabb fajta, lightning csatlakozóval
- LG 27GR95UM - 27" MiniLED - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 1000
- Gamer PC- Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 500GB SSD+ 2TB HDD
Állásajánlatok
Cég: FOTC
Város: Budapest