- Bemutatkozott a Poco X7 és X7 Pro
- Okosóra és okoskiegészítő topik
- Augusztusban jön a Honor Magic V Flip 2
- Magisk
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Milyen okostelefont vegyek?
- Motorola Edge 40 - jó bőr
- Google Pixel topik
- Android alkalmazások - szoftver kibeszélő topik
- Honor 200 Pro - mobilportré
-
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
-
poffsoft
veterán
egy munkafüzetemben lapvédelem, füzetvédelem nincsen bekapcsolva.
Viszont nem enged beilleszteni semmit (copy-paste), a helyi menüben is szürke a beillesztés...Ezt mivel lehet megszüntetni,engedélyeznem a másolást?
mit kell keresnem a VBA kódban? -
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!) -
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. -
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
valami elállítódott az excelemben:
a ctrl+c, ctrl+v, stb,stb. megnyomásakor nem az eredeti funkció (copy, paste) jön elő, hanem törölni akarja a kijelölt cellákat...
Mi a szösz lehet ez???
Eléggé idegesítő... -
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 -
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.... -
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 -
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...
-
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" -
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
-
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! -
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
Üdv!
Adott egy tábla, A és B (és C és D) oszlop.
Össze kellene számolnom képletben, hogy hány darab olyan elem van az A oszlopban, ami "ABCD"-vel kezdődik, feltéve, hogy a B oszlop adott sora nem üres.... -
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.
-
poffsoft
veterán
válasz
zseszter0705 #14484 üzenetére
caps lock/scroll lock?
-
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) -
poffsoft
veterán
válasz
fracture333 #13331 üzenetére
fkeres, hol.van, max
persze sokat segítene a tábla is... -
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?
-
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."
Új hozzászólás Aktív témák
Hirdetés
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Lenovo ThinkPad X13 Gen 5 notebook - Ultra 5 135U16GB DDR5 512GB SSD Intel Graphics W11
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
- LG 27UL550-W - 27" IPS / 3840x2160 4K / 60Hz 5ms / HDR10 / AMD FreeSync
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest