- Apple iPhone 16 Pro - rutinvizsga
- Realme GT Master Edition - mestermunka
- iPhone topik
- Google Pixel topik
- Karaktere biztos lesz az első Nothing fejhallgatónak
- Apple Watch
- Hivatalos a OnePlus 13 startdátuma
- Íme az új Android Auto!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy Watch7 - kötelező kör
-
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
-
Mutt
senior tag
válasz
bandus
#51244
üzenetére
Szia,
Ha OFFSZETet használsz akkor régi az Exceled, de 2016-tol az Adatok fülön az adatok beolvasása a Power Queryt indítja. Excel 2010hez külön lehet telepíteni.
Az adatsoron állva Adatok->Adatok beolvasása -> Táblázat/Tartományból betölti a PQt.
Ha nem konvertalja automatikusan akkor a fejlec bal oldalán az ABC123-ra kattintva a DateTime opciót válaszd.
A végeredményt Excelbe az adatok betöltése gombbal lehet elérni.YouTubeon sok videó van, de itt is segítünk.
Üdv
-
Fferi50
Topikgazda
válasz
bandus
#51244
üzenetére
Szia!
"hogyan tudnám képlettel összegezni egy adatsor első x elemét egy sorban, alatta a második x elemét,"
A képlet az A oszlopra pl. ha van fejléced, az X1 cellában van az összegzés darabszáma, az összegző oszlop első cellájában a képlet:=SZUM(Offset($A$2;(SOR()-1)*$X$1;0;$X$1;1))
Ezt húzhatod lefelé.
Ha az oszlop második cellájában szeretnéd kezdeni a képletet, akkor a -1 helyett -2 kell.
Ha nincs fejléc az összegzendő adatoknál, akkor $A$1 kell a $A$2 helyett.
Üdv. -
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
bandus
#49775
üzenetére
Szia!
Kicsit bonyolultabban tömbképlettel:=SZUM(($A$1:$A$30)*(SOR($A$1:$A$30)>(SOR()-1)*6)*(SOR($A$1:$A$30)<=(SOR()*6)))/6
Természetesen az A30 helyére a saját utolsó sorod számát kell írni.
A tömbképletet SHIFT + CTRL + Enter kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
Excel 365-ben (de talán már 2019-ben is?) tudja, hogy tömbképlet lenne, nem kell a kombós lezárás.
Előnye, hogy nincs benne állandóan frissülő elem (ELTOLÁS függvény).
Üdv. -
ny.janos
tag
válasz
bandus
#40129
üzenetére
Miért vannak 4 számjegyű adataid egy adott cellában, amelyek 2-2 bontásban ponttal vannak elválasztva?
Angol nyelvi beállításból hoztad át őket magyar nyelvű munkafüzetbe? Ha igen, és megvan az eredeti forrás, akkor megteheted azt, hogy az oszlopot még azt megelőzően szöveg formátumúra állítod, mielőtt bele másolod az adataidat (értékként). Ez esetben nem alakítja át dátummá. Utána tudod cserélni a pontot vesszőre tömegesen, végül számmá alakítani az oszlopformátumot.
Ha semmi köze az adatoknak a számokhoz, hanem tulajdonképpen 4 számból álló, ponttal elválasztott szövegről van szó, akkor úgy nem válik dátummá az adatod, ha a cellát aposztróffal kezded (Shift + 1).
Valahol biztosan ki is lehet kapcsolni a dátummá alakítást, de azt most én sem tudom, hogy hol.
A már meglévő dátum formátumú celláidból az eredeti formátumot 2 számjegy, pont, 2 számjegy megkapod az alábbi képlettel (tesztem alapján működnie kellene):
=HA(ÉV(A1)=2019;NAP(A1)&"."&HA(HÓNAP(A1)>=10;HÓNAP(A1);0&HÓNAP(A1));HA(HÓNAP(A1)<=12;JOBB(ÉV(A1);2)&"."&HA(HÓNAP(A1)>=10;HÓNAP(A1);0&HÓNAP(A1));A1))A1 helyére a dátumot tartalmazó cellát írd.
(Csak a dátumot tartalmazó cellákra alkalmazd. Ami nem dátum, ott nem fog működni.) -
Fferi50
Topikgazda
válasz
bandus
#33284
üzenetére
Szia!
Próbáld ezt a makrót:
Sub transzp()
Dim honnan As Range, hova As Range, xx As Integer, cl As Range
Set honnan = Range("A1:A14") 'innen kell másolni
Set hova = Range("A20") ' ez a másolási cél első cellája
For Each cl In honnan.Cells
hova.Offset(0, xx).Value = cl.Value
xx = xx + 2
Next
End Sub
Üdv. -
Delila_1
veterán
válasz
bandus
#33284
üzenetére
Transzponálod az egészet, majd az utolsó oszloptól indulva egy ciklusban minden oszlop elé beszúrsz egy újat.
Sub oszlopbe()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 1 Step -1
Columns(oszlop).EntireColumn.Insert
Next
End Sub -
Fferi50
Topikgazda
válasz
bandus
#32591
üzenetére
Szia!
Két lehetőséged is van.
datuma="2016.01.05"
filenev=dir("*" & datuma & "*")
if filenev<>"" then
filemegnyitás
endif
vagy
filenev=dir(*.*)
if instr(filenev,datuma)>0 then
filemegnyitás
endifAz else ágat neked kell kitalálni hozzá - nyilván ciklusban fogod nyitni a fájlokat, vagy továbbmész, vagy hibaüzenetet adsz.
FIGYELJ rá, hogy a datuma nevű változó szöveg és olyan formában tartalmazza a keresett dátumot, ahogyan az a fájlnévben benne van.Üdv.
-
DeFranco
nagyúr
válasz
bandus
#32274
üzenetére
nézd meg az én issuemat pont alattad/feletted, ha jól értem a kérdésedet, akkor erre az INDIREKT függvény használható, ezzel tudsz "paraméterezetten hivatkozni".
előtte-utána példa is van a hsz-emben.
az INDIREKT hátránya viszont az, hogy munkafüzetek között már nem működik megbízhatóan, ha a forrás-munkafüzet be van zárva.
- ha más az elérési út, tehát már a mappa is eltér, akkor biztosan nem működik
- ha azonos a mappa, csak a file más, úgy emlékszem akkor semha nyitva vannak a munkafüzetek, akkor működik, de ez csak félmegoldás.
munkafüzeten belül viszont kiváló, egyik kedvenc trükköm.
-
Fferi50
Topikgazda
válasz
bandus
#32028
üzenetére
Szia!
A probléma megoldásához tudnod kell, hogy az Excel a dátumokat és időt is számként tárolja, a következőképpen:
A szám egész része jelenti a dátumot ( 1900. 01. 01-től eltelt napok számát). míg a törtrész jelenti az időt. Ennek megfelelően 0,5 jelenti a 12 óra 0 percet. Ha a percet le szeretnéd valóságosan is vágni, nem csak a megjelenítésben, akkor a törtrészt kell megmanipulálni.
Az alábbi képlet az A1 cellában levő dátumértéket arra az órára kerekíti, amelyikben éppen van az időpont:
=INT(A1)+INT((A1-INT(A1))*24)/24
Tehát pl. 12:00-tól 12.59-ig a törtrész értéke 0,5 lesz - azaz 12 órát fog megjeleníteni a megfelelő cellaformátum (éééé.hh.nn óó).Üdv.
-
#24985
Fire/SOUL/CD
félisten
bandus
#24984
-
Des1gnR
őstag
válasz
bandus
#23230
üzenetére
Köszi, közben sikerült megoldanom. Nem hagytam magam
![;]](//cdn.rios.hu/dl/s/v1.gif)
'Keresés:
For i = 2 To lastRow
On Error Resume Next
Selection.Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.Number = 91 Then
Sheets("pm_nk_arlista").Cells(lastRow + 1, 1).Value = Sheets("pm_nk_arlista_uj").Cells(i, 1).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 2).Value = Sheets("pm_nk_arlista_uj").Cells(i, 2).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 3).Value = Sheets("pm_nk_arlista_uj").Cells(i, 3).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 4).Value = Sheets("pm_nk_arlista_uj").Cells(i, 4).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 5).Value = Sheets("pm_nk_arlista_uj").Cells(i, 5).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 9).Value = Sheets("pm_nk_arlista").Cells(2, 9).Value
Range("K11").Select
End
End If
Next iMost ezzel csak annyi a gondom, hogy az új értéket megtalálja és beilleszti a régi listába, de az első találatnál leáll. Szóval többször is le kell futtatni.
-
Delila_1
veterán
válasz
bandus
#21587
üzenetére
mit = Range("a5")
Columns("A:A").Find(What:=mit, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Select
MsgBox Selection.RowSzerk.: itt a keresés végén a Select utasítást látod. Erre azért van szükség, hogy utána le tudd kérdezni a pozícióját. Előtte az A oszlopot jelölted ki, Activate utasítással 1-et írna a találat sorának.
-
-
Delila_1
veterán
válasz
bandus
#21584
üzenetére
Az egyszerűség kedvéért a keresést rögzítéssel vettem fel. utólag vettem észre, hogy nem állítottam le a rögzítést. A makró csak ennyi:
Sub Keres()
Dim tofind As Date, sor As Long, oszlop As Long
tofind = Range("A3")
Sheets("FEL").Select
Cells.Find(What:=tofind, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
sor = Selection.Row
oszlop = Selection.Column
MsgBox "Sor: " & sor & vbLf & "Oszlop: " & oszlop
End Sub -
-
Delila_1
veterán
válasz
bandus
#21323
üzenetére
Szia!
Nyiss meg egy almappát pl. a Total Commanderben. Látod, hogy az első tétel [..]. Ha erre kattintasz, a szülő (eggyel fentebbi) mappába jutsz. A TC nem jeleníti meg a [.]-ot, de ha látszana, azt választva egyenesen a főkönyvtárba jutnál bármelyik almappából. Mikor megnyitjuk a mappát, első lépésben a [.]-ra, majd a [..]-ra áll. Ezek nem fájlok, nem lehet őket megnyitni, ezért kell az IF, hibakezelésként.
Ha lépésenként futtatod a makrót (F8), az FN = Dir(utvonal & "*.xls", vbNormal)
sor végrehajtása után vidd a kurzort az FN változó fölé. Láthatod, hogy a mappában lévő első fájlod nevét tartalmazza. A fenti sor a Do – Loop ciklus előtt van. A ciklus végén be kell olvastatni a következő fájl nevét, ezt végzi az FN = Dir(). Ezt is lekérdezheted, az FN fölé mutatva, a soron következő fájl nevét tartalmazza.A ciklus befejező sora Loop Until FN = "". Ez azt mondja, hogy addig folytatódjon a ciklus, amíg az FN (nálam a fájlnévre alkalmazott változó neve) tartalmaz valamit, nem egyenlő üres stringgel.
-
Delila_1
veterán
válasz
bandus
#20863
üzenetére
Az első cellába beírod: 00:00:00. A mellette lévőbe 01:00:00. Kijelölöd a két cellát együtt, és a cellaformázásnál az egyéni kategóriánál megadod a formátumot: "H " óó:pp.
Most lemásolod az első cellát addig, míg eléri a 23 órát. A másik cellát kijelölve a jobb alsó sarkában lévő kis fekete négyzeten duplaklikk, kész a jobb oldali oszlopod.
A két oszlopot lemásolod közvetlenül a kitöltött cellák alá, és a formátumban a H-t átírod K-ra. Ezt ismételd meg a többi nap beírásához.
Mindig ezt a füzetet hívd be, és az új adatok beírása után a Mentés másként opciót választva más néven mentsd el.
-
detroitrw
addikt
-
detroitrw
addikt
válasz
bandus
#20809
üzenetére
én ilyet használnék: klikk
F2 cella értéke:
=INDEX($A$1:$B$7;HOL.VAN(KICSI(HA(F$1=$A$1:$B$7;SOR($A$1:$A$7);"");$E2);SOR($A$1:$A$7);0);2)
ha a cellába beírtad az értéket akkor nyomj egy ctrl+shift+enter kombinációt
a képlet húzható
a hiba eltüntetését rád hagyom, hogy ne legyen teljes a képlet
-
Mutt
senior tag
válasz
bandus
#19898
üzenetére
Hello,
Használd ezt a függvényt, amely a hét kezdetét adja vissza (ha nem hétfővel akarod kezdeni akkor a vbMonday-t módosítsd a kívántra).
Function HetiDatum(ev As Long, het As Long) As Date
'előállítjuk a megadott év január 1-ét, majd korrigáljuk a legközelebbi hétfőre és hozzádjuk az eltelt napokat
HetiDatum = DateSerial(ev, 1, 1) - (Weekday(DateSerial(ev, 1, 1), vbMonday) - 1) + (het - 1) * 7
End FunctionA többi napot megkapod ha 1-et, 2-öt stb adsz hozzá.
üdv
-
válasz
bandus
#19698
üzenetére
közben annyit sikerült előrébb jutnom a dologgal, hogy a makró helyesen másolja be az e-mail címeket abban az esetben is ha egy cellában több mailcímet adok meg. a formátum ilyenko mailcím1; mailcím2; mailcímn viszont az a probléma, hogy ilyenkor az outlook ezeket nem címként ismeri fel valami oknál fogva. viszont ha belekattintok a címzettek mezőbe, majd egy tabbal továbblépek, akkor a címek aláhúzásra kerülnek és az e-mail kár kiküldhető. van ötletetek, hogy ezt hogyan lehetne megoldani, hogy rendes címként kezelje a cella tartalmát?
-
Panthera
őstag
válasz
bandus
#19681
üzenetére
Ha jól láttam, nincs közvetlenül ilyen függvény, ami segít a megoldásban.
A dátumot az excel számként kezeli, ebből kell kiindulni. A hét számát úgy lehetne megkapni, hogy osztod 7-el az év x-edik napját és ha van maradék, akkor hozzáadsz még 1-t.
Csak azt nem tudom, hogy az év elején a törthéttel mit kellene kezdeni. -
-
válasz
bandus
#19499
üzenetére
vagyis úgy egyszerűbb a kérdés, hogy egy cellában megadott szöveges tartalom alapján lehet-e definiálni egy másik cella legördülő listájának értéktartományát? mert addig okés, hogy a legördülő listában nem tartományt adok meg, hanem az elnevezett tartomány nevét, de ezt be lehet-e vinni egy másik cellából?
-
Delila_1
veterán
válasz
bandus
#18670
üzenetére
Utólag elolvasva a válaszomat rájöttem, hogy egy kicsit félrevezettelek.
Az .End(xlUP).Row ez annak a műveletnek a VBA-s leírása, mikor egy cellán állva (jelenleg az A oszlop legalsó celláján) Ctrl+fel nyilat nyomsz. mondat a .Row nélkül igaz. A Row határozza meg, hogy a cellának milyen tulajdonságát akarod a változóhoz rendelni. Ha Row helyett pl. Address-t írsz, a változó a cella címét tárolja el, és ezt beírathatod egy cellába, vagy másképpen használod fel.
Adhatsz .Inrerior.ColorIndex-et is Row helyett, akkor a megtalált cella háttérszínének a kódja lesz az eredmény. Sok lehetőség van ezeken kívül is. -
Delila_1
veterán
válasz
bandus
#18668
üzenetére
Az aktuális lapod A oszlopában lévő utolsó, adatot tartalmazó sorának a számát adja meg.
TotalRows=Cells(Rows.Count, 1).End(xlUP).Row
TotalRows a változó neve, amibe eltárolja az értéket.
Rows.Count a lapon (füzetben) lévő összes sor, ami függ a verziótól.
Cells(Rows.Count, 1) a lap A oszlopának utolsó sora, verzió-függő.
.End(xlUP).Row ez annak a műveletnek a VBA-s leírása, mikor egy cellán állva (jelenleg az A oszlop legalsó celláján) Ctrl+fel nyilat nyomsz. Arra a cellára áll a fókusz, ami felfelé a hozzá legközelebb lévő, adatot tartalmazó cella.Ha egy lapon az alsó kitöltött sor alá akarsz pl. másolni, vagy beírni valamit, ezt szokás alkalmazni, de a végére kerül +1, hogy ne a kitöltött cellára írj.
-
Delila_1
veterán
válasz
bandus
#18605
üzenetére
A gyűjtő füzetben arra a lapra, ahova be akarod gyűjteni az adatokat, tegyél ki 2 választó kapcsolót.
A nevük legyen Utvonal1 és Utvonal2. Ehhez a laphoz rendeld az első makrót.Private Sub Utvonal1_Change()
Dim utvonal As String
If Utvonal1 Then utvonal = "C:\Elso utvonal\" Else utvonal = "C:\Masodik utvonal\"
TobbFuzetbe utvonal
End SubA saját útvonalaidat írd be hozzájuk.
Modulba jön a második makró.
Sub TobbFuzetbe(utvonal)
Application.ScreenUpdating = False 'Képernyőfrissítés letiltása
Application.DisplayAlerts = False 'Kérdések letiltása
'Helyfoglalás
Dim usor, FN, WBGy As Workbook, WBU As Workbook, WSGy As Worksheet, WSU As Worksheet
'Értékadás
Set WBGy = ActiveWorkbook 'Gyűjtő füzet
Set WSGy = WBGy.Sheets(1) 'Gyűjtőnek az a lapja, ahova másolni kell
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
'Fájlok behívása
Workbooks.Open Filename:=utvonal & FN
Set WBU = ActiveWorkbook 'utvonal-ról behívott füzet
Set WSU = WBU.Sheets(1) 'behívott füzet lapja, ahonnan másolsz
WSU.Visible = True 'láthatóság engedélyezése
WSU.Activate 'ez legyen az aktív lap
'első üres sor a gyűjtő füzetben
usor = WSGy.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A1:A25").Copy WSGy.Range("A" & usor) 'másolás
ActiveWindow.Close False 'behívott fájl bezárása módosítás nélkül
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True 'Kérdések engedélyezése
Application.ScreenUpdating = True 'Képernyőfrissítés engedélyezése
End SubA sorokhoz írtam magyarázatot.
Mindegyik füzetben az első lapot vittem be a Set utasításokban, de ezen változtathatsz.
Set WSGy = WBGy.Sheets(1)
Set WSU = WBU.Sheets(1)Az 1-es érték helyére a füzetben elfoglalt helyzetüket add meg.
-
Delila_1
veterán
-
-
#18199
Apollo17hu
őstag
bandus
#18198
Apollo17hu
őstag
válasz
bandus
#18198
üzenetére
Ha adatSORokról van szó, akkor minden sor elejére szúrj be egy azonosítót (mondjuk számokat 1-től n-ig), a képletedben pedig használj FKERES-t, ami ezekre az azonosítókra vonatkozik. Fontos, hogy az azonosítók ABC-rendben legyenek, hogy az FKERES helyesen találja meg őket.
Ha a képleted átírtad, akkor keress egy cellát a munkalapon, ami jól látható helyen van, de nem zavar be az adatsoroknál. Erre a cellára alkalmazz érvényesítést, az érvényesítés tartománya pedig legyenek a korábban létrehozott sorazonosítók (amiket az FKERES-sel vizsgálsz). Így kapsz egy lenyíló menüs cellát, aminek az értéke határozza meg, hogy az FKERES éppen melyik sort találja meg.
-
#15514
Fire/SOUL/CD
félisten
bandus
#15512
-
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 -
-
válasz
bandus
#15414
üzenetére
omg, működik, amit csináltam
igazából ez egy fix periódus lenne, ami minden második cellához hozzá ad egy értéket. a következőképp csináltam meg:
dim i, sum, kkFor i=8 to 126 step 2
sum=cells(3.i).value
kk=sum+5
cells(3.i).value=kk
nextokés, nem egy nagy szám, de végülis ez az első makró amit írtam úgy saját kútfőből
-
Delila_1
veterán
válasz
bandus
#15362
üzenetére
Szívesen.
Így adhatod hozzá az előzőhöz az újabb értéket:
Sub period()
Dim per%, ertek, oszlop%
'A D5:AD5 tartomány kiürítése (evés előtt mosogatunk elv szerint)
Range(Cells(5, 4), Cells(5, 30)).ClearContents
per% = Range("A1"): ertek = Range("B1")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop) = Cells(5, oszlop%) + ertek
Next
per% = Range("A2"): ertek = Range("B2")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop) = Cells(5, oszlop%) + ertek
Next
End Sub -
Delila_1
veterán
válasz
bandus
#15355
üzenetére
Szívesen.
Itt csupán a Step-et nem ismerted, ami a lépésközt határozza meg. Mikor nem adjuk meg, az alapértékként beállított 1-et használja a makró.Szerk.:
A Step értékének negatív számot is adhatunk, pl. mikor bizonyos sorokat törölni akarunk. Ilyenkor érdemes a táblázat aljáról indulni a teteje felé.Sub torol()
Dim sor%
For sor% = 20 To 2 Step -1
If Cells(sor%, 1) < 300 Then Rows(sor%).Delete
Next
End Sub -
Delila_1
veterán
válasz
bandus
#15353
üzenetére
Sub period()
Dim per%, ertek, oszlop%
per% = Range("A1"): ertek = Range("B1")
For oszlop% = 4 To 30 Step per%
Cells(5, oszlop%) = ertek
Next
End SubA periódusok mértékét a per% változó veszi az A1-es cellából, a beírandó értéket az ertek a B1-ből. A fenti makró a 30. oszlopig írja be az azonos értékeket.
-
#15053
Fire/SOUL/CD
félisten
bandus
#15052
-
#14913
Dark Archon
addikt
bandus
#14910
válasz
bandus
#14910
üzenetére
Köszi, van MatLab is, de ahhoz se értek és csak egy darab jegyzőkönyv egy darab kapcsolásához kell, szóval részemről ennyi is lenne
De, ha van lövésed arról, hogy ezzel a programmal hogyan lehet szebben megcsinálni péntekig, akkor megköszönöm. Mert igazából a mért pontokra kellene ráfektetni az RC tagra jellemző görbéket, de azt nem most fogom megtanulni.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
$100="ertek"),0))
:
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Apple iPhone 16 Pro - rutinvizsga
- Mielőbb díjat rakatnának a görögök az olcsó csomagokra az EU-ban
- Milyen belső merevlemezt vegyek?
- Goddess of Victory:Nikke
- Xbox Series X|S
- Realme GT Master Edition - mestermunka
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- iPhone topik
- Garancia kérdés, fogyasztóvédelem
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Csere-Beszámítás! Sapphire Pure RX 7700XT 12GB GDDR6 Videokártya! Bemutató Darab!
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Fujitsu USB Port Replicator PR09 docking station (1x5K vagy 2x4K felbontás) (DisplayLink)
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged