-
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
-
#15880
poffsoft
veterán
WildBoarTeam
#15878
poffsoft
veterán
válasz
WildBoarTeam
#15878
üzenetére
Delila_1 válasza kicsit bővebben:
Küldd át neki valahogy a táblázatot, és megcsinálja (nálam működött!)
-
#15846
poffsoft
veterán
dellfanboy
#15844
poffsoft
veterán
válasz
dellfanboy
#15844
üzenetére
És a KM állás sorában nincsen olyan cella, ami azonosítja, hogy ez a km állás sora lesz? mert azt akár fv-nyel is megoldhatnánk...
makróval simán átmásolható:
Option Explicit
Sub CopyRows()
Dim i As Integer
Dim r1, c1, r2, c2, r3 As Double
Dim wsTest As Worksheet
Dim sname As String
sname = "Summa"
Set wsTest = Nothing
On Error Resume Next
Set wsTest = Worksheets(sname)
On Error GoTo 0
If wsTest Is Nothing Then
Worksheets.Add(Before:=Sheets(1), Count:=1, Type:=xlWorksheet).Name = sname
End If
Worksheets(sname).Cells.Clear
For i = 1 To Sheets.Count
If Not Worksheets(i).Name = sname Then
r1 = Worksheets(i).UsedRange.Row
c1 = Worksheets(i).UsedRange.Column
r2 = r1 + Worksheets(i).UsedRange.Rows.Count - 1
c2 = c1 + Worksheets(i).UsedRange.Columns.Count - 1
r3 = Worksheets(sname).UsedRange.Row + Worksheets(sname).UsedRange.Rows.Count
Worksheets(i).Select
Worksheets(i).Range(Cells(r1, c1), Cells(r2, c2)).Copy _
Destination:=Worksheets(sname).Cells(r3, c1)
End If
Next i
Worksheets(sname).Select
[A1].Select
End Sub -
poffsoft
veterán
Option Explicit
Sub kever()
Dim sws, tws As Worksheet
Dim i, endr, dest As Long
Set sws = ActiveWorkbook.Sheets("Munka1")
Set tws = ActiveWorkbook.Sheets("Munka2")
endr = sws.Range("A65536").End(xlUp).Row
sws.Range("V1:V" & Range("V65536").End(xlUp).Row).Clear
tws.Range("A1:A" & Range("A65536").End(xlUp).Row).Clear
sws.Range("A1:A" & endr).Copy Destination:=sws.Range("V1")
Randomize
For i = endr To 1 Step -1
dest = Int((i) * Rnd() + 1)
tws.Range("A" & (endr - i + 1)) = sws.Range("V" & dest)
sws.Range("V" & (dest + 1) & ":V" & i).Copy Destination:=sws.Range("V" & (dest))
sws.Range("V" & i).Clear
Next i
End Subsws a forrás lap, tws a cél (ahová összekeveri)
az "A" oszlopban kell lenni a kérdéseknek. -
#15838
poffsoft
veterán
dellfanboy
#15834
poffsoft
veterán
válasz
dellfanboy
#15834
üzenetére
persze azt is elmondhatnát, minek alapján találod meg, hogy éppen b30, vagy b5?
akkor talán megoldható makróval is (a rendezés is)... -
poffsoft
veterán
-
poffsoft
veterán
válasz
klambi
#15785
üzenetére
(& #15787)
már elmondták a hozzáértők, én csak most vettem észre a kérdést, bocs.
#15776 -ben benne van, meg az office súgóban is, az a 2. paraméter.
De a logikai vizsgálat is átalakítható :
=ha(és(hét.napja(A1;1)>1 ;hét.napja(A1;1)<7);"Hétköz";"Hétvég" ) [Ez az alapértelmezett]
=ha(és(hét.napja(A1;2)>0 ;hét.napja(A1;2)<6);"Hétköz";"Hétvég" )
=ha(és(hét.napja(A1;3)>-1 ;hét.napja(A1;3)<5);"Hétköz";"Hétvég" )Aztán itt van az indirektes, vagy a te saját választ() megoldásod:
indirektnél pl. a B oszlopba írod a megfelelő szöveget a nap neve után,"B" az "A" helyére és kész is.
Vagy a választ-hoz a napok neve helyett a "pihi" 2x, a "munka" 5x.....
-
poffsoft
veterán
válasz
klambi
#15775
üzenetére
=INDIREKT("A"&HÉT.NAPJA(B1;2))
B1-ben van a dátum,
A1:A7-ben pedig a napok :"Hétfő";"Kedd", stbDe megoldható cellaformátummal is.
1.Jelölje ki azokat a dátumokat tartalmazó cellákat, amelyekben a megfelelő napot szeretné látni.
2.Kattintson a nyílra a Kezdőlap lap Szám csoportjában, válassza a További számformátumok lehetőséget, majd kattintson a Szám fülre.
3.A Kategória listában kattintson az Egyéni elemre, és a Formátumkód mezőbe írja be az nnnn kódot a hét napjainak teljes megjelenítéséhez (hétfő, kedd stb.), illetve az nnn kódot a hét napjainak rövidített megjelenítéséhez (H, K stb.).vagy másik képlet:
=SZÖVEG(A2, "nnnn")
A dátumértéket a hét napjává alakítja, és ennek teljes nevét jeleníti meg szövegként (hétfő)
=SZÖVEG(A3, "nnn")
A dátumértéket a hét napjává alakítja, és ennek rövid nevét jeleníti meg szövegként (Cs)Amúgy ezek az office súgójából vannak...
-
poffsoft
veterán
válasz
artiny
#15721
üzenetére
bocsi, de az ilyen "feladatoktól" kapok agyvérzést. A feladatírók iq-ja már alulmúlta a gyökkettőt.
Wiki barátnőm szerint ez a másodfokú függvény esetén használt formula lesz (gondolom, a feladat kiagyalója még a wikiről sem hallott).
vagyis majdnem jó amit kiemeltél, de azt szöveges feladatban így kellene mondani szerintem:
' a hányados tízes alapú logaritmusát szorozzuk meg hússzal, így kapjuk az értéket decibelben kifejezve'
persze ez sem pontos, de elég... wiki mindent elmond, amit kell.H(dB)=20*log(H/H0)
Excelben pedig:
=20*LOG10(E1)a logaritmus azonosságai is megérnének 1-2 szót...
-
poffsoft
veterán
válasz
artiny
#15719
üzenetére
picit pontosítsd.
a képleted az E1 cellában lévő érték 20-as alapú logaritmusát adja meg (0,941515438).
log 20 alatt mit értesz? 20-nak a 10 alapú logaritmusát? mert az excelben :
=log10(20)a te képletedben meg az eredmény gyanúsan =E1*2
a 2 pedig nem a 20 tízes alapú logaritmusa, mert az 1,301029996
szóval, most kibogozva a kérdést:
=E1*LOG10(20)
a válasz
-
poffsoft
veterán
nem excel korlát, én hibáztam.
Nem gondoltam, hogy sima szám is lehet a név...
Option Explicit
Sub lapok()
Dim sorIN%, WSIN As Worksheet
Set WSIN = Sheets(ActiveSheet.Index)
sorIN% = WSIN.Cells(Rows.Count, "A").End(xlUp).Row
Do While sorIN% > 0
If Not (WorksheetExists(WSIN.Cells(sorIN%, 1))) Then
Sheets.Add(After:=WSIN).Name = "" & WSIN.Cells(sorIN%, 1)
Sheets("" & WSIN.Cells(sorIN%, 1)).Range("A1") = WSIN.Cells(sorIN%, 1)
End If
sorIN% = sorIN% - 1
Loop
WSIN.Select
End Sub
Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
Dim Sht As Worksheet
WorksheetExists = False
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name = WorksheetName Then WorksheetExists = True
Next Sht
End Functionnem sokat kellet változtatni rajta
amúgy nincs mit
-
poffsoft
veterán
Option Explicit
Sub lapok()
Dim sorIN%, WSIN As Worksheet
Set WSIN = Sheets(ActiveSheet.Index)
sorIN% = WSIN.Cells(Rows.Count, "A").End(xlUp).Row
Do While sorIN% > 0
If Not (WorksheetExists(WSIN.Cells(sorIN%, 1))) Then
Sheets.Add(After:=WSIN).Name = WSIN.Cells(sorIN%, 1)
Sheets(WSIN.Cells(sorIN%, 1).Value).Range("A1") = WSIN.Cells(sorIN%, 1)
End If
sorIN% = sorIN% - 1
Loop
WSIN.Select
End Sub
Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
Dim Sht As Worksheet
WorksheetExists = False
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name = WorksheetName Then WorksheetExists = True
Next Sht
End Function -
#15658
poffsoft
veterán
pero19910606
#15657
poffsoft
veterán
válasz
pero19910606
#15657
üzenetére
Nem egészen értelek.
Talán a "sorbarendezés" nevű fícsör kell neked? több feltétel szerint tudsz rendeztetni( dátum, aztán név pl.).Vagy kimutatás, de a pivothoz nem értek semmit...
-
poffsoft
veterán
Az adatok kijelölése lapon keress olyat, hogy "kategória feliratok", ott kell kijelölni az "A" oszlopot (a diagram varázslóval a legegyszerűbb).
Ja, ha a kategória feliratokat sikerül adatsornak is kijelölnöd, meghülyül a diagramrajzolás - legalábbis tapasztalataim szerint
Esetleg a kategória tengely formázásába is bele kell nyúlnod.
Persze nem ártana tudni a verziót, stb.... -
#15652
poffsoft
veterán
pero19910606
#15650
poffsoft
veterán
válasz
pero19910606
#15650
üzenetére
Szívesen!
-
poffsoft
veterán
válasz
Delila_1
#15645
üzenetére
vigyázz, ez így csak a "Z" oszlopig működik, ha az "AA" is a tartományba kerül, már hibás!!!
Szerencsésebb lekérdezni az oszlopszám% oszlop koordinátáit (mindig elfelejtem, ez melyik property)., és abból kibányászni. vagy a modus operandus is használható... ízlés kérdése -
#15647
poffsoft
veterán
pero19910606
#15643
poffsoft
veterán
válasz
pero19910606
#15643
üzenetére
nem az osztályhatáros cellákat kell kijelölni.
Mellettük, egy üres oszlop celláit, ott kell a gyakoriság képletet beírni, kijelölve az adatcellákat, majd a határokat tartalmazó cellákat, és est lezárna a ctrl-shift-enterrel....Nekem nem írta ki a hibát...
-
#15642
poffsoft
veterán
pero19910606
#15640
poffsoft
veterán
válasz
pero19910606
#15640
üzenetére
mert tömbképletként kell bevinni.
A kapcsost ay excel teszi be.
Tömbképlet=
jelöld ki a cellákat, amik a tömböt fogják alkotni (az alsó osztályhatárok melletti cellák), F2, beírod a képletet kapcsos zárójelek nélkül, majd CTRL+SHIFT+ENTER -rel viszed be.
Akkor az excel majd kiegészíti amivel kell...
"Tömbképletek bevitele" -
#15639
poffsoft
veterán
pero19910606
#15638
poffsoft
veterán
válasz
pero19910606
#15638
üzenetére
A megoldásban véletlen nem ez a képlet van?:
={GYAKORISÁG(Adattömb;Tartományok)}vagyis tömbképletként vitted be ? mert a gyakoriságot úgy kell...
A gyakoriság fv az adott sorba mindig az alsó határt feltételezi!
vagyis 0,60,70,80,90 - kell a sorokba a Tartományoknál. -
poffsoft
veterán
véleményem szerint a feladat elég balf.sz megfogalmazással az, hogy egy rakat naturáliában nyilvántartott készlet (benzin) korábbi elszámolási értékét (pénzben kifejezve, nem naturáliában) az elszámolási egységár változása miatt újra ki kell fejezni.
Ehhez a legegyszerűbb az alábbi képlet volt szerintem.Amúgy az a táblázat sem smafu, nem ár, hanem nyilvántartott érték, vagy ilyesmi...
A történeti hűség kedvéért én inkább egy d oszlopot szúrnék be, a jelenlegi c-t átkeresztelném "beszerzéskori elszámoló érték"-nek, a d-t pedig "jelenlegi nyilvántartási érték"-nek, pl...
Matekozás szerint amúgy egy másik megoldás, ha megnézed az eredeti ár változásának arányát, és ezzel szorzod a "C"-t , sima aránypárral:
Új érték= régi érték*(új ár/régi ár)meg még 1000 módon
-
#15587
poffsoft
veterán
m.zmrzlina
#15586
poffsoft
veterán
válasz
m.zmrzlina
#15586
üzenetére
"a nyári időszámítás március utolsó vasárnapján kezdődik, és október utolsó vasárnapjáig tart. Ennek megfelelően minden évben más dátumra esik, de az átállítás napja mindig vasárnap. Az óraátállítás az UTC szerint hajnali 1 órakor történik, vagyis Magyarországon márciusban helyi idő szerint 2 órakor előre, októberben 3 órakor vissza kell állítani az órákat."
Temptime= Cells(ActiveCell.Row, 6).Value + Cells(ActiveCell.Row, 5).Value - shift
' ellenőrizd le, hogy téli vagy nyári időpont a Temptime
If summer then temptime=temptime+ (1/24)
ActiveCell.Offset(0, 1).Value = temptimegoogle első találata
-
poffsoft
veterán
válasz
Delila_1
#15464
üzenetére
Nem feltétlen cellából kellene beolvasnom, elég ha kód.
Egyenlőre ezt a megoldást találtam , ezzel maga a mártix bevitel picit áttekinthetőbb, viszont a teljes kód változott (és továbbra is elég favágós algoritmus):Option Explicit
Sub alg()
Dim passlen, pass, LastRow, i, j, Iend, form, d0, d1, d2, d3, d4, d5, d6, d7, det
d0 = Array(0, 0, 0, 0, 0)
d1 = Array(0, 1, 0, 0, 0)
d2 = Array(0, 1, 1, 0, 0)
d3 = Array(0, 1, 0, 1, 0)
d4 = Array(0, 1, 1, 0, 0)
d5 = Array(0, 1, 0, 1, 0)
d6 = Array(0, 1, 1, 0, 0)
d7 = Array(0, 1, 0, 0, 1)
det = Array(d0, d1, d2, d3, d4, d5, d6, d7)
pass = ""
Sheets(1).Select
Iend = 100
passlen = Len(Iend)
For i = 1 To passlen
pass = pass & "0"
Next i
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("A2:G" & LastRow).ClearContents
If Iend = 0 Then Iend = 1
For i = 1 To Iend
det(0)(0) = i
Cells(i + 1, 1).Select
Cells(i + 1, 1) = det(0)(0)
form = "x= "
For j = 1 To 4
det(0)(j) = det(0)(j) + det(((i - 1) Mod 7) + 1)(j)
Cells(i + 1, j + 1) = det(0)(j)
form = form & Right(pass & det(0)(j), passlen) & "*" & Chr(Asc("a") + j - 1) & "+"
Next j
Cells(i + 1, 7) = Left(form, Len(form) - 1)
Next i
Cells(1, 1).Select
End Sub -
poffsoft
veterán
apropo, lenne egy kérdésem ezzel kapcsolatban:
det(0, 1) = 0: det(0, 2) = 0: det(0, 3) = 0: det(0, 4) = 0
det(1, 1) = 1: det(1, 2) = 0: det(1, 3) = 0: det(1, 4) = 0
det(2, 1) = 1: det(2, 2) = 1: det(2, 3) = 0: det(2, 4) = 0
det(3, 1) = 1: det(3, 2) = 0: det(3, 3) = 1: det(3, 4) = 0
det(4, 1) = 1: det(4, 2) = 1: det(4, 3) = 0: det(4, 4) = 0
det(5, 1) = 1: det(5, 2) = 0: det(5, 3) = 1: det(5, 4) = 0
det(6, 1) = 1: det(6, 2) = 1: det(6, 3) = 0: det(6, 4) = 0
det(7, 1) = 1: det(7, 2) = 0: det(7, 3) = 0: det(7, 4) = 1Ennek az értékedásnak nincsen valami egyszerűbb módja?
talán az Array operandus, csak nem egészen értem, hogy ott egy mátrix elemeit (a sorokat) hogyan kellene felsorolnom? -
poffsoft
veterán
válasz
bandus
#15422
üzenetére
háát, ha már favágás, azt én is tudok
:Sub alg()
Dim i, j, Iend, form As Variant
Dim det(7, 4) As Variant
Iend = 100
det(0, 1) = 0: det(0, 2) = 0: det(0, 3) = 0: det(0, 4) = 0
det(1, 1) = 1: det(1, 2) = 0: det(1, 3) = 0: det(1, 4) = 0
det(2, 1) = 1: det(2, 2) = 1: det(2, 3) = 0: det(2, 4) = 0
det(3, 1) = 1: det(3, 2) = 0: det(3, 3) = 1: det(3, 4) = 0
det(4, 1) = 1: det(4, 2) = 1: det(4, 3) = 0: det(4, 4) = 0
det(5, 1) = 1: det(5, 2) = 0: det(5, 3) = 1: det(5, 4) = 0
det(6, 1) = 1: det(6, 2) = 1: det(6, 3) = 0: det(6, 4) = 0
det(7, 1) = 1: det(7, 2) = 0: det(7, 3) = 0: det(7, 4) = 1
Sheets(1).Select
Range(Cells(1, 1), Cells(Iend, 7)).ClearContents
For i = 1 To Iend
det(0, 0) = i
Cells(i + 1, 1) = det(0, 0)
form = "x="
For j = 1 To 4
det(0, j) = det(0, j) + det(((i - 1) Mod 7) + 1, j)
Cells(i + 1, j + 1) = det(0, j)
form = form & Right("00" & det(0, j), 3) & "*" & Chr(Asc("a") + j - 1) & "+"
Next j
Cells(i + 1, 7) = Left(form, Len(form) - 1)
Next i
End Sub -
-
poffsoft
veterán
Üdv!
Egy nagy szakértésre lenne szükségem (asszem jóval komolyabb a feladat, mint amit én meg tudok oldani).
Szóval, van egy szép munkafüzet százegynéhány munkalappal.
A munkalapokon levő adatokat kellene egyetlen táblába összefésülni, összegezve meg osztályozva, bizonyos feltételek szerint...
Ha van lelkes szakértő a környéken, szívesen megosztanám vele a részleteket is....
köcce! -
#14957
poffsoft
veterán
Fire/SOUL/CD
#14956
poffsoft
veterán
válasz
Fire/SOUL/CD
#14956
üzenetére
Köszi,
ha jól emléxem 2007-es, magyar, holnap megpróbálom, mert a melóhelyen kell
-
poffsoft
veterán
válasz
laci8080
#14608
üzenetére
Sub Gomb1_Kattintás()
Dim ch, a, b, c, d, elemek
a = 2
b = 3
c = 8
d = 10
elemek = Array(a, b, c, d)
Cells(1, 1) = ""
For Each ch In elemek
If ch > 5 Then Cells(1, 1) = Cells(1, 1) + 1
Next
End SubAz union rangek-hez használható, szóval, én inkább tömbbel csinálnám meg.
Persze nem értek hozzá.
(és nem hiányzott neki a .value) -
poffsoft
veterán
Üdv!
A következő problémám lenne:
van egy lekérdezésem, ami képletben így néz ki:
=PIArcVal(param1;param2; param3)a PIArcVal fv természtetesen egy automatikusan induló bővítményből jön, nem beépített fv.
Ennek az eredménye egy kétcellás "tömb", az elsőben egy dátum, a másodikban pedig egy szám az eredmény.
Nos, ha én ezt a függvényt szeretném közvetlenül egy makróban használni, hogy megkapjam mindkét eredményt, azt hogyan lehet? A VBA compile természetesen nem ismeri fel , a tömbös eredmény szerint meg szerintem nem fog menni a
myvar=PIArcVal(param1;param2; param3)
sem...elég zavarosnak tűnik, de remélem érthető voltam
(#14575) bugizozi: Viszont csak 95% körüli a kompatibilitás, excellel és worddel is. A "bonyolultabb", objektumokat, spéci formázásokat használó doksikon akad el, a többivel viszont megbirkózik az openoffice.
-
#14487
poffsoft
veterán
zseszter0705
#14484
poffsoft
veterán
válasz
zseszter0705
#14484
üzenetére
caps lock/scroll lock?
-
#13953
poffsoft
veterán
Metathrone
#13952
poffsoft
veterán
válasz
Metathrone
#13952
üzenetére
1.) az IsEmpty(Cell) negáltja a NOT IsEmpty(cell)
2.)Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1", "$A$3"
If (IsEmpty($A$1) AND IsEmpty($A$3)) OR (NOT(IsEmpty($A$1)) AND NOT(IsEmpty($A$3))) Then Makró_1
Case "$D$1", "$D$3"
'.
'.
'.
End Select
End Sub -
poffsoft
veterán
Function Keres_2(ByRef mit As Range, ByRef hol As Range)
Dim C As Range
Dim cnt As Long
cnt = 0
For Each C In hol
If C.Value = mit.Range("A1").Value Then If C.Font.ColorIndex = mit.Range("A1").Font.ColorIndex Then cnt = cnt + 1
Next C
Keres_2 = cnt
End Functionszóval,
ha a B1 cellába bemásolod a keresett kék banánodat, és az A1:A20 tartományban keresed, akkor a képleted:
=Keres_2(B1;A1:A20) -
#13332
poffsoft
veterán
fracture333
#13331
poffsoft
veterán
válasz
fracture333
#13331
üzenetére
fkeres, hol.van, max
persze sokat segítene a tábla is... -
#13299
poffsoft
veterán
krisztian7
#13298
poffsoft
veterán
válasz
krisztian7
#13298
üzenetére
én mondjuk nem értem mit szeretnél
.Az mondjuk majdnem biztos, hogy megoldható....
-
poffsoft
veterán
válasz
#74459392
#13285
üzenetére
1. tábla : "Munka1"
2. tábla : "Munka2"Ha csak a mennyiséget akarod átmásolni a 2. tábláról az 1.-re, akkor - a képletet a D1-be beírva, és utána végig másolva a "D" oszlopban lesznek a darabszámok:
=INDEX(Munka2!F:F;HOL.VAN(Munka1!A1;Munka2!H:H;0);1;1)ha jól értem ez kell neked?
szerk: delila gyorsabb volt....
-
poffsoft
veterán
válasz
kokopeti
#13235
üzenetére
Az a textbox az tuti texbox, nem mondjuk editbox?
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").EditBoxes("datum_d").Text
vagy
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes("datum_d").Text
(#13236): az jó.
És melyik soron hasal el? (debug)
- amúgy, ha gyanús, hogy ez a rossz, debug idejére miért nem kommenteled ki?
ja, most nézem, nem range-t neveztél el, hanem objektet.
Akkor marad az előző verziók közül az egyik, és értelem szerint a datum_d helyére mehet a vevo_nev .... stb...Mondtam, sajna nem értek hozzá, de most rákerestem, editboxes lesz az
-
poffsoft
veterán
válasz
kokopeti
#13233
üzenetére
Mondjuk én nem értek hozzá.
De :
változókat nem szoktuk definiálni a sub elején?
továbbá szerintem adatum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
.
.
.
Sheets("Adatok").Cells(hova, 1) = datumhelyett a
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
is megfelelne...
ja, meg ha a mezőket már elnevezted, miért nem névvel hivatkozol rájuk?
Sheets("Adatok").Cells(hova, 2).Value = Range("vevo_nev").ValueTörléshez is elég lenne csak a range value paraméterébe ""-t írni:
Range("vevo_nev").Value =""Amúgy mi nem működik rajta? mi a hiba?
-
#13190
poffsoft
veterán
Vizes Tomi
#13188
poffsoft
veterán
válasz
Vizes Tomi
#13188
üzenetére
.
bocs, csak nekem lett volna macerás
-
poffsoft
veterán
talán:
az adataid 1 -100 tartományból vannak.
Valamilyen módon képezel ezekből 4-5 számot tartalmazó csomagokat.
Az egyes csomagokban azt kell vizsgálni, milyen számpárok- számhármasok képezhetőek. Itt szvsz nincsen értelme módust keresni, plusz ugye tudnunk kell, hogy kombináció,variáció vagy permutáció-e ....Aztán meg kell számolni minden csomagból az adott számpár-hármas előfordulását.
Ez lenne a "számpár 1. , 2., 3., módusa"szerintem pl olyasmiről van szó, hogy ha az x bajnokságban a meccsek általában 3:2-re végződnek( vagyis egy csapatnak a módusa 3:2 (vagy 2:3)), érdemes neked is 3:2-t tippelned rá....
-
poffsoft
veterán
nekem sem tiszta még mindig a párosok, hármasok kérdése. ez nem egyszerű feladatnak látszik.
Plusz én is tanultam újakat a móduszról ( bár excel 2007 van itthon)
a pivotot meg ahogy van , passzolom.
Szóval, gyanús, hogy csak makróval tudnám megoldani- bár az algoritmusról még elképzelésem sincsen...
(#13154) asuspc96: Hogy működik-e azt lapa-tól kérdezd, én csak lefordítottam, hátha neked sem angol a locale..
-
poffsoft
veterán
B1-be:
=MÓDUSZ(B1:B100)B2-be:
=MÓDUSZ(HA(NINCS(HOL.VAN(A$1:A$100;B$1:B1;0));A$1:A$100))kérdéseim: egy adattömbben a módusz a leggyakoribb értéket adja meg (vagyis a második, harmadik, x-edik leggyakoribbat ezzel nem találod meg...)?
nem a gyakoriságot kellene valahogy használni?
szvsz ez csak makróval menne...Az eredeti kérdés második felét meg már nem is értem... leggyakoribb kombinációk???
-
poffsoft
veterán
válasz
csferke
#13092
üzenetére
Sajna nincs, úgy néz ki.
Pedig nekem is megkönnyítené az életemet ....Delila_1: az a * 1 nagyon szép volt!
Én csak ezeket buta és lassú konverziós fv-eket tudtam volna ajánlani:
Range("A1").Value = CSng(Range("C3").Comment.Text) + CSng(Range("C4").Comment.Text)
vagy:
Range("A1").Value = CInt(Range("C3").Comment.Text) + CInt(Range("C4").Comment.Text)Szöveg számmá: Konverziós függvények
-
poffsoft
veterán
If Not IsError(Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0) Then Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0)
legalábbis gugli szerint
az előző kérdésemre senki semmit?[link]
-
poffsoft
veterán
válasz
Delila_1
#13011
üzenetére
Megoldottam a magyar képletek angolra konvertálását.
Nem elegáns, de működik :
(a feltételes formázás passziválását is lassan megoldom)Public Function ToI(ByVal SStr As String) As String
'
' Formula To International Makró
' By poffsoft
' 2012.02.26.
'
ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").FormulaLocal = SStr
ToI = ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").Formula
End Function1 darab "nemzetközi makrólap" beszúrása kell a munkafüzetbe, annak egyetlen celláját használjuk...
SStr pedig a :
ActiveWorkbook.Sheets(SourceSheetIndex).Range(SourceCell.Address).Formulamegj.: Amíg az Excel4IntlMacroSheets(1) - re a nevével hivatkoztam, valamint amíg az ActiveWorkbook -ot nem szúrtam elé, nem működött
Viszont a mai kérdésem:Hogyan lehet azt figyelni, hogy az aktív cellában szerkesztették a megjegyzést?
Konkrétan azt kellene csinálni, hogy ha szerkeszti valaki a megjegyzést, a megjegyzés utolsó sorát kellene az aktuális dátumra cserélni ami elvileg igy néz ki:
"Modified: 2012.02.27."
, és majd keresni foglak 
.
Új hozzászólás Aktív témák
Fferi50- Kicombosította az M5-ös SoC-családot az Apple
- Megérkezett az Apple 5K-s, 120 Hz-et biztosító monitora
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Ilyen olcsó sem volt még egy Apple notebook
- Azonnali alaplapos kérdések órája
- MWC 2026: Farsangra Galaxy Ultrának öltözött a gyerek
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- E-roller topik
- PayPal
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- MS SQL Server 2016, 2017, 2019
- The Elder Scrolls Online Imperial Collector s Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Fém, összecsukható és kihúzható fotó állvány eladó
- Bomba ár! HP EliteBook 850 G2 - i7-5GEN I 16GB I 512GB SSD I 15,6" FULL HD I Cam I W10 I Gari!
- Apple iPhone 15 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku:87%
- APPLE MacMini 7,1,i5-4278U,8GB RAM,1TB,macOS Monterey
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest