- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy A54 - türelemjáték
- Redmi Note 13 Pro+ - a fejlődés íve
- Samsung Galaxy S21 FE 5G - utóirat
- Készülőben a Xiaomi 2021-es csúcsmodelljeinek HyperOS frissítése
- Milyen okostelefont vegyek?
- Yettel topik
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Futott egy Geekbench kört egy új HTC készülék
- Xiaomi 11 Lite 5G NE (lisa)
Hirdetés
-
Az Apple iPadOS-t is megrendszabályozza az EU
it Az EB közölte: az Apple iPad táblagépekre írt iPadOS rendszere is kapuőrnek számít, az üzleti felhasználókra gyakorolt fontossága miatt.
-
Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
ph Az ASTRIA 600 ARGB ráadásul a hűtési teljesítmény szempontjából sem szégyenkezhet.
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
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
-
tgumis
tag
válasz logitechh #48243 üzenetére
Hali
Én összeraktam egyet. Egy régebbi txt t létrehozó makróból:Sub MegrendeloMunkalapMenteseMaskent()
Const sLJNév As String = "Megrendelő"
Dim sPath As String: sPath = ThisWorkbook.Path & "\"
Dim sFNév As String 'név helyének lefoglalása
Dim sNytsz As String 'OK kell
Dim sSzallito As String
Dim sDatum As String
Dim sUser As String
sNytsz = Worksheets("Megrendelő").Range("X1") 'név deklarálása
sSzallito = Worksheets("Megrendelő").Range("C8")
sDatum = Worksheets("Megrendelő").Range("C12")
sUser = Worksheets("Megrendelő").Range("X2")
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(sLJNév)
sFNév = "M_" & sNytsz & "_" & sSzallito & "_" & sDatum & "_" & sUser & "_" & Format(Now, "yyyymmddhhnnss") & ".xlsx"
.Copy
End With
With ActiveWorkbook
.SaveAs Filename:=sPath & sFNév, FileFormat:=xlWorkbookDefault, CreateBackup:=False
.Close SaveChanges:=False
End With
Application.ScreenUpdating = True
Range("A1").Select
End Sub -
underdark
aktív tag
Sziasztok!
Olyan kérdésem lenne, hogy egy recept adatbázist szeretnék készíteni
Legördülő menüvel, hogy a kiválasztott étel recept összetevőket ki listázza
Idáig eljutok, de nekem kéne az, hogy miből mennyi kell egy adaghoz, hogy azt bármikor fel lehessen szorozni és ne egyesével kelljen számolni, ha mondjuk 50 főre kéne főzni
Ez megoldható lenne így vagy ide már makró kell?
Nem tudom érthető-e mit szeretnék
Köszi![ Szerkesztve ]
"akinek minden a vállán nyugszik, nem nyugszik senki vállán"
-
BigBadPlaYeR
senior tag
válasz Magnat #48206 üzenetére
Gyors dátum-választó ablakhoz alább az Autohotkey script, amit említettem. Elég hasonló a linkelt verzióhoz, de ez már eleve a Mo.-n szokásos dátum formátumra van formázva. Shift+Win+D kombinációra jelenik meg.
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn ; Enable warnings to assist with detecting common errors.
#SingleInstance Force ; Automatically kill older Instance, and replace it!
#Persistent ; Run continously
+#d::
{
Gui, myDatePicker:New, -Resize AlwaysOnTop ToolWindow, DatePicker
Gui, Add, MonthCal, vMyCal 4 W-2
Gui, Add, Button, x+5 hp +Default gDateRoutine, Insert
Gui, Show
Return
GuiClose:
Gui, Destroy
Return
DateRoutine:
;GuiControlGet, MyCal
Gui, Submit
Gui, Destroy
FormatTime, MyDate, %MyCal%, yyyy.MM.dd.
SendInput %MyDate%
Return
[ Szerkesztve ]
"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."
-
Magnat
veterán
-
Fferi50
őstag
válasz sztanozs #48250 üzenetére
Szia!
Mivel a Word Object Library referenciája nincs benne az Excel fájlban, ezért a Word dokumentum létrehozása után az abban a könyvtárban definiált Word specifikus objektumokat nem tudod elérni. Azokat neked kellene egyenként definiálni a dokumentum létrehozása után.
Feltételezhető azonban, hogy maga a könyvtár ott van a gépen, ebben az esetben makróból hozzá lehet adni a referenciákhoz.
A Word könyvtár általában ott van, ahol az Excel könyvtár is van. Az Excel könyvtár helyét megkapod a következőképpen:ActiveWorkbook.VBProject.References("Excel").FullPath
A Word Object Library fájl neve pedig: MSWORD.OLB
Ezt behelyettesítve az Excel fájl neve helyére, a referencia hozzáadása:ActiveWorkbook.VBProject.References.AddFromFile "Word teljes neve"
Ezután már használhatóak a Word objektumok.
Üdv.[ Szerkesztve ]
-
Antonio
senior tag
Sziasztok
szégyellem feltenni a kérdést de teljesen leblokkoltam (kb mikor a belépési jelszavad nem jut eszedbe)primitív kérdés:
adott "A" munkalap különböző adatokkal azt szeretném hogy az adott munkalap egy oszlopában lévő számokat (szériaszámok) vesse össze "B" munkalapban található sorszámokkal. "B" munkalapban csak egy oszlop van a sorszámokkal.tehát csak annyi kellene hogy "A" munkalapban a kérdéses pl.: K oszlop mellé berakok egy L oszlopot a megfelelő képlettel lehúzom és ha talál egyezést "B" munkalap számaival akkor kiírja a szériaszámot vagy "Igaz" tökmindegy, tehát L oszlopban ha szűrök ("hamis" kizárom) akkor K és L oszlopnak meg kellene egyezni a számoknak adott sorban
De mi a függvény ami ide kell? nem emlékszem és eddig semmi se működött (sorba rendeztem a számokat, kigyomláltam a hibás ákombákom adatokat) de tudom hogy a 1000 akárhány sorszámból nekem 164 et kellene megtalálnia, (keres/Fkeres stb nem működnek vagy csak én vagyok béna)
Samsung 65KS8000, Denon AVR-X2400H, White Heco Music Style 500 front, Heco MS Center, Heco MS 200F Satellite, Sub: Dynavoice T12, Zidoo X9S, Synology DS216+II, Dell precision 4800
-
félisten
válasz Antonio #48257 üzenetére
Azt nem tudom, hogy mit ronthatsz el, az FKERES alkalmas a feladathoz.
Munka1 | Munka2
Képlet meg csak ennyi:=FKERES(K1;Munka2!A:A;1;HAMIS)
Hibakezeléssel:=HAHIÁNYZIK(FKERES(K1;Munka2!A:A;1;HAMIS);"Nincs ilyen sorozatszám")
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Fferi50
őstag
válasz Antonio #48257 üzenetére
Szia!
Lehetséges, hogy a keresési értéked és a tartomány amiben keresel nem azonos formátumú!
Szöveg formátumú számot nem talál meg a kereső függvény számokat tartalmazó tartományban és fordítva. Tehát vagy mindkét helyen szöveg formátum legyen vagy mindkét helyen szám.
Ha nem lehet módosítani a formátumot, akkor a keresési értéket kell a kereséshez átalakítani a megfelelő függvénnyel számmá vagy szöveggé.
Üdv -
#06023488
törölt tag
Üdvözlet!
Kezdő vagyok excelben és segítséget kérnék tőletek.Csapatsportok eredményeit és bajnoki táblázatait készitem excelben. Egyik lapon vannak az eredmények, másik lapon a táblázat.
A oszlopban dátum van, B oszlop hazai csapat neve, C oszlop vendég csapat neve, D oszlop hazai gólszám, E oszlop vendég gólszám.
Azt könnyen megcsináltam szumhatöbb és darabhatöbb függvényekkel, hogy ahogy írom be az eredményeket minden bajnoki forduló után a bajnoki táblázat frissül.
(Lejátszott mecs, győzelem, vereség, gólarány, stb.).Utána viszont megakadtam, mivel kellenne készitenem olyan táblázatot is, amelyben minden csapatnak mindig pl. csak az utolsó 5 mérkőzését számolja az excel, hogy lássam a csapatok aktuális formáját.
Erre nem tudok rájönni, hogyan tudnám megcsinálni...
-
Antonio
senior tag
válasz Fire/SOUL/CD #48258 üzenetére
köszönöm a választ megnyugodtam, Fkerest használtam én is a képlet jó volt, de most utólag rájöttem, hogy a legelején mikor is átváltottam számformátumra a szükséges oszlopokat nem csinálta meg végig (vagy valami szűrés be volt kapcsolva), a lényeg hogy megvan a hiba, újra kijelöltem egész oszlopot számra állítottam és voálá, minden okés.
valahogy a leg triviálisabb dologra néha nem gondol az ember
Samsung 65KS8000, Denon AVR-X2400H, White Heco Music Style 500 front, Heco MS Center, Heco MS 200F Satellite, Sub: Dynavoice T12, Zidoo X9S, Synology DS216+II, Dell precision 4800
-
gigabytman
tag
Sziasztok!
A két kulcs oszlop részletét tartalmazza a kép.
A feladat: Egy adott dátumra szűrve (lásd) és a telepules oszlop A-Z-ig rendezve megkapjuk a találatokat. De, csak azokat a településeket kellene listáznom, ahol egy adott település név legalább tízszer vagy többször fordul elő. A képen látható részletnél csak Debrecennek kellene megjelenni. Sajnos nem vagyok excel guru. Valami egyszerű megoldás kellene.
Köszönöm szépen. -
föccer
nagyúr
válasz gigabytman #48265 üzenetére
vegyél fel egy segédoszlopot, ahová darabhatöbb függvénnyel megszámolod, hogy az adott soerban szereplő városból a teljes tartományban mennyiszer fordul elő. Eztuán a segédoszlop autoszűrőjével szűröd a nagyobb egyenlő 10-et.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
kutga
nagyúr
Hölgyek/urak!
Az alábbiakban szeretnék kis segítséget kérni.
Kiküldtem egy árazatlan költségvetést az egyik partnernek, több munkafüzettel, jó sok tétellel, be is árazta, viszont vannak olyan sorok, amiket kitörölt, összevont.
Nekem vissza kellene írnom az eredeti költségvetésbe az anyag és díj egységár értékeit, de a sorok így nem stimmelnek. A tételek megvannak mindenesetre.
Nekiláttam kézzel beirogatni az árakat de így iszonyat meló, nincs erre valami automatikus módszer?
Minden tételhez tartozik egy egyedi tételszám, és anyag, díj egységár.
Let the Zone take me if I am.
-
Fundiego
tag
Sziasztok!
Ha egy képlet a #szám!-ot dobja ki végeredménynek akkor létezik olyan függvény mint mondjuk a HAHIÁNYZIK ahol #hiányzik esetén te adhatod meg h milyen értéket adjon meg a függvény?
Köszönöm -
Chrisluke
csendes tag
Sziasztok, Az 1. oldalon az élőlábban beállítom a kívánt oldalszám formátumot (oldalszám/összes oldal) , majd ezt követően az oldalakon csak az oldalszáma jelenik az viszont folytatólagosan. Mi lehet a hiba?
-
Darth_Revan
veterán
Sziasztok!
Arra van valakinek ötlete, hogy hogyan lehetne azt megcsinálni, hogy pl van 3 sor:Egy, kettő, három
Kiskutya, kismacska
VGA, CPU, RAMÉs abban az esetben, hogy ha pl szerepel a sorban az, hogy "kettő", akkor az az egész sor legyen kicserélve "1'-re, viszont ha nem, akkor az egész sor "0"-ra legyen cserélve, tehát így nézzen ki:
1
NULLA
NULLAKöszönöm!
[ Szerkesztve ]
-
félisten
-
Fundiego
tag
válasz Fire/SOUL/CD #48276 üzenetére
Köszönöm!
48271-nek is! -
félisten
válasz Darth_Revan #48275 üzenetére
Egy cellában vannak az adatok avagy 3 külön cellában?
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Darth_Revan
veterán
válasz Fire/SOUL/CD #48279 üzenetére
külön cella
-
oke
senior tag
Sziasztok,
Az alábbi feladat automatizációjában kérném a segítségeteket, akár makró formájában:
Van egy kb 700 soros táblázat, amit bizonyos időközönként fel kell dolgoznom. A táblázat formátuma, oszlopai nem változnak csak a tartalma és a sorok száma. Amire kellene a segítség dióhéjban az az, hogy egy oszlop cellának tartalma alapján két másik oszlop cellába kell beírnom a hozzá tartozó adatokat. Ahol már beírtam adatot, az ne íródjon át egy következő szűrésnél.Ezt most így csinálom „analóg” módon:
-Beállítom az autoszűrőt
-Az „AC” oszlopban rászűrök az első feltételre (szóra, mondatra, mondat részletre),
-Az így keletkezett kijelölt soroknál, a „G” és a „H” oszlopba beírom a hozzá tartozó adatokat
-A „H” oszlopban rászűrök a csak üres cellákra ez azért fontos, hogy a „G” és a „H” cella már beírt tartalma ne íródjon fel a következő szűrésnél, mivel az "AC" oszlop celláiban több keresendő adat is lehet, de ha már szerepelt egyszer, akkor arra már nincs szükség.
-Ismét visszaugrom az „AC”oszlopra és rászűrök a következő feltételre és innen kezdődik élőről az egész, kb 40x -
Dilikutya
félisten
Van egy táblázat, a sorok dátum szerinti napi adatok, oszlopokban a felhasználók. A táblázat bővül, hogy lehetne azt megcsinálni, hogy mellé egy másikban csak az utolsó két hónap (de akár hét) adatait jelenítsem meg? HÉT.SZÁMA és HÓNAP függvényekkel kapott számot minden hónap és hét.
Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)
-
Darth_Revan
veterán
Sikerült írnom függvényt ami működik, így már nem aktuális
-
Pakliman
tag
Szia!
Egy nagyon leegyszerűsített kód, ami az elvet mutatja (egy lehetőségként):
Sub Fut()
Dim us As Long
Dim sor As Long
Dim elsősor As Long
'Utolsó sor meghatározása
us = Columns("AC").Rows(Rows.Count).Row
elsősor = 2 'nem tudom, Nálad melyik sorban kezdődik:(
For sor = elsősor To us
'Ha a sorban a G és H oszlopban sincs még semmi...
If (Cells(sor, "G") & Cells(sor, "G")) = "" Then
'Feltétel vizsgálata...
If feltétel = True Then
Cells(sor, "G") = "beírandó..."
Cells(sor, "H") = "beírandó..."
End If
End If
Next sor
End Sub[ Szerkesztve ]
-
félisten
válasz Darth_Revan #48285 üzenetére
Sebaj, ha már megírtam beteszem a kódot...
Alapállás | Futtatás eredménye
'Fire/SOUL/CD - 2022
Private Sub CommandButton1_Click()
'ezt a szöveget keressük
Const STRINGTOFIND = "kettő"
'ha megtalálható az adott sor cellájában, akkor erre lesz cserélve
Const REPLACESTRINGFINDTRUE = "1"
'ha nem található az adott sor cellájában, akkor erre lesz cserélve
Const REPLACESTRINGFINDFALSE = "NULLA"
'üres karakter, minden más cella erre lesz cserélve az adott sorban
Const EMPTYSTRING = ""
Dim MyRange As Range
Dim FindFlag As Boolean
Dim ReplaceString As String
Application.ScreenUpdating = False
'itt add meg a megfelelő tartományt
Set MyRange = Range("A1:F24")
For i = 0 To MyRange.Rows.Count - 1
FindFlag = False
For j = 0 To MyRange.Columns.Count - 1
If UCase(MyRange(1).Offset(i, j)) = UCase(STRINGTOFIND) Then
FindFlag = True
Exit For
End If
Next j
If FindFlag = True Then
ReplaceString = REPLACESTRINGFINDTRUE
Else
ReplaceString = REPLACESTRINGFINDFALSE
End If
MyRange(1).Offset(i, 0) = ReplaceString
For k = 1 To MyRange.Columns.Count - 1
MyRange(1).Offset(i, k) = EMPTYSTRING
Next k
Next i
Application.ScreenUpdating = True
End SubMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Darth_Revan #48275 üzenetére
Egy kis makró:
Sub Csere_0_1()
Dim sor As Long, oszlop As Integer
sor = 1
Do While Cells(sor, "A") > ""
oszlop = Cells(sor, Columns.Count).End(xlToLeft).Column
If Application.WorksheetFunction.CountIf(Range(Cells(sor, 1), Cells(sor, oszlop)), "kettő") > 0 Then
Range(Cells(sor, 1), Cells(sor, oszlop)) = 1
Else
Range(Cells(sor, 1), Cells(sor, oszlop)) = 0
End If
sor = sor + 1
Loop
End Sub
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pakliman
tag
Szia!
Későn vettem észre a javítandót
Sub Fut()
Dim us As Long
Dim sor As Long
Dim elsősor As Long
'Utolsó sor meghatározása
us = Columns("AC").Rows(Rows.Count).End(xlUp).Row
elsősor = 2 'nem tudom, Nálad melyik sorban kezdődik:(
For sor = elsősor To us
'Ha a sorban a G és H oszlopban sincs még semmi...
If (Cells(sor, "G") & Cells(sor, "G")) = "" Then
'Feltétel vizsgálata...
If feltétel = True Then
Cells(sor, "G") = "beírandó..."
Cells(sor, "H") = "beírandó..."
End If
End If
Next sor
End Sub -
Pakliman
tag
Ezt még ki kell bővíteni, hogy megfeleljen a feladatnak.
Nincs benne direkt szűrés, hanem minden futtatáskor végigmegy a sorokon.
(Ezt is elszúrtam, helyesen:If (Cells(sor, "G") & Cells(sor, "H")) = "" Then
)
Megnézi, hogy az adott sor G és H oszlopában van-e már valami.
Ha nincs, akkor a feltételvizsgálatnak megfelelően beírja az adott sor G és H oszlopába a megfelelő értéket. -
cekkk
veterán
Sziasztok!
Nem tudom, hogy keressek rá azért kérdezem meg. Egy honlapról akarok egy táblázatot bemásolni, de minden adatot egymás alá egy oszlopa rakbe a beillesztés. Ezt hogyan tudom orvosolni? Köszönöm a segítset. -
félisten
Ha esetleg publikus a dolog, akkor linkeld azt a honlapod (ahol a táblázat van), ránézünk, aztán lehet, hogy a Transzponálás segíthet
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
lappy
őstag
-
cekkk
veterán
válasz Fire/SOUL/CD #48294 üzenetére
Szia!
Erre gondoltam, csak ez esetben nem lesz jó
A honlapot szívsen megosztanám veled, de mivel nem publikus oldal, így nem fogod látni.
Priviben elküldhetem neked, hogy mit másoltam ki? -
félisten
-
Magnat
veterán
Szia,
a html-ben hogy van a táblázat, tr, th, td tagekkel? Ha igen és dinamikusan kell kiolvasni, van rá kimondottan egy objektum vba-ban (fejből nem emléxem, de az otthoni gépemen megvan), ha pedig egyszeri alkalom, akkor van pl ez a konverter, ha bemásolod a html kódot, csinál belőle táblát, amit csak át kell dobni Excelbe.
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
Új hozzászólás Aktív témák
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Canva Pro előfizetés - 1 éves
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.