- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Xiaomi Mi 11 Ultra - Circus Maximus
- Itt az első kép a 2024-es Nokia 3210-ről
- Fotók, videók mobillal
- Apple iPhone 15 Pro Max - Attack on Titan
- Honor Magic5 Pro - kamerák bűvöletében
- Poco X6 Pro - ötös alá
- OnePlus 7 - magabiztos folytatás
- Huawei P30 Pro - teletalálat
- Android alkalmazások - szoftver kibeszélő topik
Hirdetés
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
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
-
the radish
senior tag
Sziasztok!
"A" oszlop értékei IDŐÉRTÉK függvénnyel korrekt, használható adatot adnak a "B" oszlopba, de szeretném függvény helyett makróval az egész (vagy ameddig adat van benne) "A" oszlop tartalmát "B" oszlopba másolni IDŐÉRTÉK formátumban.
Segítségeteket előre is köszönöm!
-
Fferi50
őstag
válasz the radish #49852 üzenetére
Szia!
Talán a legegyszerűbb:usor=Cells(Rows.Count,1).End(xlup).Row
With Range("B1:B" & usor)
.Formula="=Timevalue(A1)"
.Value=.Value
' .NumberFormat="hh:mm:ss" ' ha formázottan szeretnéd látni akkor vedd ki a sor elejéről az aposztrofot
End With
Üdv. -
-szabi-
őstag
Hi
Az alábbi képen látható táblázatban minden héten elérnek valamennyi pontot a személyek.
Szeretném az adott sorban a három legkisebb értéket kiíratni és mellé a neveket.
"MIN" megkeresi a legkisebb számot de nem tudom ki vagy kik érték el azt.
"SMALL" függvénnyel keresve a következő legkisebb értéket szintén 13-at kapok mert többször is előfordul.
Erre lenne valami ötlet? -
AssAssynn
őstag
Excel-ben hogy kell elérni, hogy egy ilyen számsor folytatva legyen?
001/2022
002/2022
003/2022
...
A baj az, hogy ha beírok három-négy sornyi ilyen szöveget és lehúzással folytatni akarnám a számsort, akkor egyszerűen elölről kezdi a 001/ rész és a beírt három sor számait ismételgetni."Igen nagy hiábavalóság – mondja a Prédikátor –, minden hiábavalóság!" (Préd 12,8)
-
Fferi50
őstag
-
Fferi50
őstag
-
istvankeresz
aktív tag
Üdv!
Textbox-ba írt dátum validálásnál van mód arra, hogy ne yyyy/mm/dd formátumba kelljen beírni, aztán átalakítani yyyy.mm.dd formátumba, hanem a dátum beírásakor egyből megkövetelni a yyyy.mm.dd formátumot?
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #49862 üzenetére
Nézz el ide.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
andreas49
senior tag
válasz istvankeresz #49864 üzenetére
Esetleg ez?
[link]HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Fferi50
őstag
válasz istvankeresz #49864 üzenetére
Szia!
Esetleg 3 Combobox (Év, hónap, nap), ahol meghatározhatod a kiválasztási lehetőségeket (pl. a középsőben a hónapok 1-12 vagy jan-dec, a napoknál pedig a hónaptól függően 28-29-30-31).
Üdv. -
istvankeresz
aktív tag
válasz Fferi50 #49866 üzenetére
Köszi mindenkinek, de végül is átgondolva, nincs szükség rá, hogy dátumként kezeljem a textbox értékét. (egyelőre) Sima textbox-ba írt yyyy.mm.dd formátumos szöveg típust kell kimásolnom majd máshova beilleszteni gombnyomásra. Felesleges lépés (most) beíratni majd a felhasználóval / jelekkel, meg több combobox-al megoldani. Max rakok alá egy labelt, hogy ÉÉÉÉ.HH.NN a helyes formátum és ez elég lesz. Lehet, hogy a kimutátoskhoz majd jobb lesz, ha dátumként kezelem, mert úgy könnyebb lesz havi kimutatást csinálni, de most felesleges egyelőre. Azért köszi mindenkinek!
XBOX ONE GT: istvankereszt79
-
Fferi50
őstag
válasz istvankeresz #49867 üzenetére
Szia!
Lelked rajta. De a textboxba beírt érték mindig szöveg lesz és ellenőrizni kell, hogy megfelelő-e dátumnak - formátumtól függetlenül. Ne ringasd magad álmokba, a felhasználók sajnos gyakran esnek abba a hibába, hogy saját szakállukra írnak be adatokat - mindegy, milyen utasítást látnak alatta vagy akár a felhasználói kézikönyvben. Ha hibátlan adatokkal szeretnél dolgozni, akkor bizony folyamatosan ellenőrizned kell az adatbevitelt. Erre több lehetőség is van, de szerintem valamelyiket mindenképp választanod kell. Egyébként megfelelő formátumú szövegből bármikor tudsz dátumot "varázsolni", a megfelelő formátum a fontos.
Üdv. -
Csokishurka
őstag
Sziasztok,
Egy kis segítséget szeretnék kérni. 2016-os verziót használok.
Szeretnék két oszlopot egymáshoz társítani egy 3ik oszlop alapján. Szóval van egy közös oszlop és az alapján kénr egymáshoz rendelni a két másik oszlopot.
TAlán képekkle jobban el tudom magyarázni:
Egyik fül:
Másik fül:
Ugye a közös pont a MSN oszlop és azt szeretném, hogy az ugyanazon MSN számhoz tartozó két érték egymás mellé kerüljön. Ami fontos, hogy habár itt most sorrendben vannak, ez nem mindig van így, szóval eltérhetnek a sorrendiségek.
Eddig ezt minitabbal oldottam meg, de az most valamiért meghalt és meg vagyok lőve.
Előre is köszi a segítséget!
"Megtanulta (millió lélekváltó árán): akinek minden a vállán nyugszik, nem nyugszik senki vállán."
-
lappy
őstag
-
sonkuci
tag
sziasztok!
2016os excelt használok.
a gondom a következő lenne. van valami ilyesmi táblázat, mint ez:
Most a gond az lenne, hogy nekem a B1et kéne összehasonlítani D1-el és ahol fél kövér akkor azt mutassa egy másik cellában (pl itt akkor az F1-ben). Ha nincs félkövér akkor azt amit ott mutat, mert akkor az ugyanaz a két érték. Valamint C1-et is össze kéne hasonlítani ugyanígy E1-el.
Van erre valami megoldás, ötlet?
Bármilyen megoldásra vevő lennék -
Fferi50
őstag
válasz sonkuci #49876 üzenetére
Szia!
Akkor pontosítsunk: Mitől lesz félkövér egy cellában az érték?
A hasonlításnál a két cella tartalmát kell összehasonlítani?
Ha mindkét cellában ugyanaz a tartalom, de az egyik félkövér, akkor egyezőek vagy nem?
Ha nem egyezik a két érték, de az egyik félkövér, akkor mi a teendő?
Ha figyelni kell a félkövér-séget is, akkor csak makró jöhet szóba, de fontos lenne tudni a pontos szabályt.
Üdv. -
sonkuci
tag
válasz Fferi50 #49877 üzenetére
szia.
A félkövérítést azt a vezetőség dönti el, tehát az a táblázattól független.
(Amúgy, mivel nem találok erre így megoldást, ha más formázással egyszerűbb vagy megoldható, arra is nyitott vagyok. Nem tudom én, színnel kitöltés, bármi)
Igen, a két cella tartalmát kellene összehasonlítani. Ha ugyanaz akkor csak jelenjen meg az adott sor következő cellájában (ahogy írtam, mondjuk F1ben). Ha ugyanaz a két érték, akkor egyik sem félkövér.
Ha valami félkövér, akkor az nem ugyanaz, mint az amivel összehasonlítjuk, és a félkövérnek kell "nyernie" az összeshasonlításban.[ Szerkesztve ]
-
lappy
őstag
-
lumpy92
aktív tag
Ha egy cellának nevet adok, akkor hogy lehet a korábban létrehozott képletekben befrissíteni?
Tehát A2 cella új neve ASD.
Korábban létrohozott képletben még mindig A2 a neve, nem frissül ASD-re."never send to know for whom the bells tolls; it tolls for thee"
-
lappy
őstag
-
Triathlete
senior tag
Sziasztok!
Valamiért az eddig betűvel megnevezett oszlopokat már számmal jelzi. Mit állíthattam el, és hogy tudnám visszacsinálni? Köszönöm előre is!
KovacsK85 / Kovács Krisztián
-
lappy
őstag
válasz Triathlete #49886 üzenetére
fájl - beállítások - képletek - képleteken végzett munka - S1O1 hivatkozás pipa ki
Bámulatos hol tart már a tudomány!
-
the radish
senior tag
Köszönöm!
+1:
Adott egy zip fájlt kitömörítő makró:Sub Unzip()
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String
Fname = Application.GetOpenFilename(Filefilter:="Zip Files (*.zip), *.zip", _
MultiSelect:=False)
If Fname = False Then
'Do nothing
Else
'Destination folder
DefPath = "D:\Data\" '<<< Change path
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If
FileNameFolder = DefPath
' 'Delete all the files in the folder DefPath first if you want
' On Error Resume Next
' Kill DefPath & "*.*"
' On Error GoTo 0
'Extract the files into the Destination folder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
MsgBox "You find the files here: " & FileNameFolder
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End If
End SubSzeretném a "GetOpenFilename" opciójaként megadni, hogy pl. a fájl tallózása során a "munka" elnevézű fájlokra is szűrjön, de eddig csak a fájl típus szűrést találtam.
Egy másik formációval ez sikerült, ott meg a kitömörítéssel nem jutok dülőre:
Sub OpenFileFromDefaultPath()
Dim fileDialogBox As Office.FileDialog
Dim fileName As String
Set fileDialogBox = Application.FileDialog(msoFileDialogFilePicker)
With fileDialogBox
.InitialFileName = "D:\Data\"
.InitialFileName = "*munka*"
If .Show = True Then
' e nélkül is működik
fileName = .SelectedItems(1)
End If
End With
End Sub[ Szerkesztve ]
-
luckyboi82
tag
Gyors megoldást keresek az alábbira:
Költségvetési sorok tételeinek HUF-ban megadott összegei, szorzatai stb-t tehát az összes számot kellene a táblázaton belül egy "kapcsoló" segítségével adott cellába beírt EUR/HUF árfolyamnak megfelelően EUR-ba váltania. A mai árfolyam ingadozások mellett nem tudok több tízezer hivatkozást bemásolgatni minden képlet mögé. Köszönöm, aki segít!
-
lappy
őstag
válasz luckyboi82 #49889 üzenetére
ezzel lehet osztani az összes számot ami az adott tartományban van
Az E3 itt a váltószámSub Divide_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Munka1")
Set rng = ws.Range("B2:B6")
For Each myVal In rng
myVal = myVal.Value / ws.Range("E3") ' ide lehet tenni * is akkor visszavált
Next myVal
End Sub[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
luckyboi82
tag
Uhh, ez nekem teljesen nem magyar. A világos szürkével írtakat ki kell törölni? Az E3 az a cella ahol pl. 401,1 van írva? Worksheets-hez a lapfül nevét kellene írni, azon belül a Range az a tartomány lenne gondolom. Hogyan lehet a kész eredményt megtalálni? Külön kell menteni?
-
lappy
őstag
válasz luckyboi82 #49891 üzenetére
A szürke szöveg maradhat, de törölhető is
E3 ahol az osztò van ezt akárhová teheted a munkalapon
A worksheet neve az a munkalap amin átváltász
A tartományt a b2:b6 nal tudod átírni
A makro átírja a munkalapon belül megadott tartomany összes numerikus adatait ha kell az eredeti akkor másolatot kell készíteniBámulatos hol tart már a tudomány!
-
Triathlete
senior tag
-
Fferi50
őstag
válasz Triathlete #49894 üzenetére
-
lappy
őstag
válasz Triathlete #49894 üzenetére
nekem az angol verzió így csinálja
Bámulatos hol tart már a tudomány!
-
istvankeresz
aktív tag
Üdv! Ismét elakadtam a projektemben.
Adott egy excel fájl aminek a neve változhat, de általában nem változik. Az egyik worksheet egy Temlplate. (Nyilvantartolap_TEMPLATE)
VBA-ban csak ezt az egy worksheet-t szeretném átmásolni egy másik, újonann létrehozott excelbe. Gombnyomásra az új excel-t sikerül létrehoznom abban a mappában ahol szeretném, azon a néven, ahogy szeretném, de nem tudom belemásolni a Template worksheet-t. Tehát megnyitva marad az az excel is amin működik a VBA és mellé nyílik az új excel fájl is.
Sokmindennel próbálkoztam, de nem tudom mit nézek be, mindig hibára fut.
A kódom:
Mi kell a ??? helyére?
Köszi!
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
lappy
őstag
válasz istvankeresz #49897 üzenetére
ebbe sok minden kell
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz istvankeresz #49897 üzenetére
Szia!
Szerintem ennyi elég a másolás - új munkafüzet létrehozásához:Sheets("Nyilvantartolap_TEMPLATE").Copy
Ez egy új munkafüzetbe teszi át ezt az egy munkalapot. Utána ez a munkafüzet lesz aktív, tehát el kell döntened mi legyen a neve, hova mented stb.
Ebben az új munkafüzetben nem lesznek benne a makrók - kivéve, ha a másolt munkalapnak van kódlapja, mert azt viszont átviszi.
Az új munkafüzet bezárása után az eredeti munkafüzet marad aktív.
Ha azt szeretnéd, hogy csak az új munkafüzet maradjon nyitva, akkor ezt a sort kell még betenni a fenti sor után:Thisworkbook.Close False
Ebben az esetben csak az új munkafüzet marad nyitva.
Üdv.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Gaming notebook topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- PlayStation 5
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Luck Dragon: Asszociációs játék. :)
- BestBuy topik
- Projektor topic
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Xiaomi Mi 11 Ultra - Circus Maximus
- Itt az első kép a 2024-es Nokia 3210-ről
- További aktív témák...