-
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
-
#27501
scott_free
senior tag
Delila_1
#27500
scott_free
senior tag
-
azopi74
addikt
Ja, tényleg így is lehet darabtelivel, tegnap kissé már fáradt voltam
ennek ellenére a hol.van megoldás jóval közelebb áll a férfi logikámhoz, na és nagyságrendekkel gyorsabb is (több százezer sornál már nagyon nem mindegy) ha az előtt-et így értettes, akkor delila által írtat javaslom )kombinálva a hol.van-os módszeremmel 
-
#27505
Delila_1
veterán
scott_free
#27501
Delila_1
veterán
válasz
scott_free
#27501
üzenetére
A helyedben a combobox feltöltését a userform aktiválásához rendelném.
Private Sub UserForm_Activate()
Dim szám
For Each szám In Sheets(1).Range("C1:C20")
If Len(szám) = 10 Then
ComboBox1.AddItem szám.Offset(0, -2).Value
End If
Next szám
End SubA len(szám)-nál hiba volt len(szám.value)-t írni, hiszen a len függvény a beolvasott adat hosszát adja, a value pedig az értékét.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
veterán
válasz
Stimpy
#27504
üzenetére
Írj simán =B2 & "-SBA" -t.
Lehet, hogy az Exceled nem ismeri az Összefűz függvényt, mert nem magyar nyelvű – ebben az esetben a pontosvessző helyére vesszőt írj –, vagy esetleg nem Excelt használsz.
[ 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.
-
#27508
Delila_1
veterán
scott_free
#27507
Delila_1
veterán
válasz
scott_free
#27507
üzenetére
Szivi.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Emu
őstag
Sziasztok!
Kaptam egy nem felhasználóbarát adathalmazt, amit MSDOS formátumból importáltak, és dolgoznom kellene vele. Cserével és egyéb módszerekkel mindent átírtam benne, hogy az excel tudjon számolni velük, már csak valahogy az összes cellába be kellene szúrnom egy = jelet. Létezik erre valami függvény, vagy gyors módszer?
Előre is köszi![ Szerkesztve ]
-
qwertly
addikt
Sziasztok!
Sajnos lehet,hogy alap dolog de most nem találom eddig excel 2003 volt abba megvolt már éve óta.Most meg 2010 excel van a ezzen képen az egyes cellába beírt próba rendet szeretném fixen rögzíteni.Vagyis ha 50 eddig vagy 100 sorba görgetnék akkor is látszódjék az 1 sorba mi van írva.
-
Zola007
veterán
Kitöltésre színnel (cellaszín megváltoztatása ) létezik gyorsbillentyű?
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
válasz
azopi74
#27518
üzenetére
köszi
ezt már néztem, de fizetős
Egyébként sem akartam külön kiegészítőt feltenni, de az lesz a vége, mert már unom a kattintgatást[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Delila_1
veterán
válasz
Zola007
#27519
üzenetére
Nem kell semmit telepíteni, vásárolni, makróval megoldhatod. A kijelölt, akár nem összefüggő területek hátterét változtatja meg a lenti két makró.
Sub PirosHatter()
Selection.Interior.Color = RGB(255, 0, 0)
End SubSub ZoldHatter()
Selection.Interior.Color = RGB(0, 255, 0)
End SubA zárójelben lévő értékeket 0 és 255 között változtatva mindenféle színt, árnyalatot előállíthatsz.
Ha ezeket a makrókat a personal.xlsb-be mented, akkor bármelyik füzetedben alkalmazhatod.
Gyorsbillentyű hozzárendelése: Alt+F8-cal megjeleníted a makrókat. Kiválasztod az egyiket, és az Egyebek gomb segítségével megadod a CTRL gombhoz rendelt betűt.A színek RGB értékeit könnyen "kitalálhatod". A Kezdőlapon a háttér beállításánál a További színeket választod, az Egyéni fülön kikevered a megfelelő színt, a hozzá tartozó 3 értéket írod a makróba.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
azopi74
addikt
válasz
Zola007
#27519
üzenetére
Csak az utolsó megoldás igényel add-int, én pont nem arra gondoltam, hanem az első négyre
Egyébként a lite verzió ingyen van, deén sem szeretem a kiegészítők telepítgetését, akkor se, ha ingyenes (amit meg lehet oldani kiegészítő és makró nélkül, azt oldjuk meg úgy) . egyébként azt a 15 usd-s full verziót kb egy napos munkával le lehet kódolni akár VBA-ban. Vicc, hogy van pofájuk ezért pénzt kérni -
-
Zola007
veterán
válasz
azopi74
#27521
üzenetére
Igen, de a többi meg nem egy gombos, attól még a kattintgatás is egyszerűbb
ettől függetlenül köszi#27520) Delila_1:
köszi, kipróbálomMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
csferke
senior tag
Sziasztok!
Ha egy mezőbe ez van =SaveDate() akkor ez a Modul ebbe a mezőbe beírja a mentés dátumát.
Function SaveDate()
Application.Volatile True
SaveDate = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End FunctionAzt szeretném ha nem a Mentés dátumát hanem a Nyomtatás dátumát írná a mezőbe. Ehhez a 12-es szám helyett kellene valami más. Sajnos nem tudom mit kellene megadni, hogy a Nyomtatás dátumát használja.
Értelemszerűen a mezőben ez lenne =PrintDate() a Modul pedig ez
Function PrintDate()
Application.Volatile True
PrintDate = ActiveWorkbook.BuiltinDocumentProperties(??).Value
End Functionköszi
[ Szerkesztve ]
-
ueva
csendes tag
Sziasztok!
A következőben szeretném a segítségeteket kérni.
Van egy lista, amelyben előfordulnak azonos értékek. (Képen az A oszlop).
B2-be egy olyan képletre lenne szükségem, amelyet a szükséges cellákba másolva megadja az ismétlődések nélküli B oszlopot.
Sem segédcellákat, sem a speciális szűrést nem lehet alkalmazni.
Így nem boldogulok vele.
Köszönöm előre is a segítséget.[ Szerkesztve ]
-
azopi74
addikt
Szia:
Ezt írd B2-be, és húzd le a képletet, ameddig szükséges :
=INDEX($A$2:$A$12;HOL.VAN(0;INDEX(DARABTELI($B$1:B1;$A$2:$A$12);0;0);0))
(Ha 12-nél több sorod van, akkor értelemszerűen A$12-t írd át annak megfelelően)
Ha nem akarod,, hogy #NA hibát hozzon a felesleges cellákba, hanem inkább üres cellát, akkor:
=HAHIBA(INDEX($A$2:$A$20;HOL.VAN(0;INDEX(DARABTELI($B$1:B1;$A$2:$A$20);0;0);0));"")
[ Szerkesztve ]
-
azopi74
addikt
válasz
azopi74
#27533
üzenetére
Egyébként Excel 2016-ban van erre egy gyorsabb és elegánsabb megoldás is (Excel 2010-ben és 2013-ben is megoldható csak kicsit máshogy, de kell hozzá az ingyenes Power Query bővítmény):
Alakítsd táblává az "ismétlődéssel" oszlopot (jobb egér, insert table), aztán Data->Get&Transform-> From table
Utána kattints a query editorban a Remove Duplicates-be, nevezd át az oszlopot "Ismétlődés nélkül"-re (rename), és szúrd be a query-t B1-be. (Close and load to.. existing worksheet)Ezután ha frissül (vagy bővül) az A oszlopban az ismétlődéses lista, ha manuálisan a B oszlopban az ismétlődésen, az is frissül. Vagy megadhatsz neki akár percenti frissítést, vagy hogy minden megnyitáskor frissüljön.
Vagy akár VBA-val eseményvezéreltté is teheted a frissítést - ha frissül az alaplista, frissítsen rá automatikusan az ismétlődés nélkülire.
-
Delila_1
veterán
válasz
azopi74
#27533
üzenetére
Tömbképlettel:
{=HAHIBA(INDEX($A$2:$A$12;HOL.VAN(0;DARABTELI($B$1:C1;$A$2:$A$12);0));"")}
Egyszerűbben, ha tartománnyá alakítjuk az A1:B12 területet, az A2:A12-nek Lista nevet adunk:
{=HAHIBA(INDEX(Lista;HOL.VAN(0;DARABTELI(B$1:$B1;Lista);0));"")}
Ez utóbbi a lista bővülésekor automatikusan bővíti a kigyűjtést.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#27538
scott_free
senior tag
scott_free
senior tag
hi,
amikor default értéket állítok be egy comboboxba, akkor kell a ".Text" végződés? (mert így láttam egy fórumban, de működik anélkül is):
Me.ComboBox1.Text = Me.ComboBox1.List(0)
thx!
[ Szerkesztve ]
-
slashing
senior tag
Hi, meg tudom azt csinálni makróval ami jelenleg így néz ki(dupla kattintásra kép beszúrás, majd átméretezem az objektummeretezés modullal):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D4:AY1048576")) Is Nothing Then
Application.Dialogs(xlDialogInsertPicture).Show
objektumMeretezes
End If
End Subhogy, azt a képet még másolja is át abba a könyvtárba ahonnan megnyitom az excel fájlt? A másolással önmagában nincs gondom csak nem tudom hogy adjak a másolás parancsnak kiinduló útvonalat és fájlnevet?
-
slashing
senior tag
válasz
Fferi50
#27541
üzenetére
félreértettél. Körülmények excelfájlba adott területre kétszer kattint feljön a képbeszúrás párbeszédpanel kiválasztom pl. a pendrive-ról a képet beszúrja az excel füzetbe átméretezi stb... nah ha ez megtörtént akkor még ezt a képet át kéne másolni egy adott könyvtárba, pl. abba ahol van a fájl....
-
swoody
senior tag
-
Fferi50
Topikgazda
válasz
swoody
#27543
üzenetére
Szia!
A Ha és az Fkeres függvények többszörös egymásba ágyazása szükséges, az eredmény attól függ, hogy van-e már előtte levő cellában érték, illetve meg van-e jelölve (1) az adott cella.
Szerintem próbálj végigmenni egy - egy képlet alkotó részein és bizonyára meg fogod érteni.Mást (többet) most ilyen "időtávból" nem tudok gyorsan mondani. Ha konkrét kérdésed lenne, azért írd meg bátran.
Üdv.
[ Szerkesztve ]
-
#27547
ElemiKoczka
csendes tag
ElemiKoczka
csendes tag
Sziasztok!
milyen keresési függvénnyel lehet megoldani a következő feladatot.
6 munkalapon vannak késztermékek receptjei (azonos készterméknek lehet akár minden munkalapon más a receptje!); a különféle késztermékeknek nem mindig egyforma fajtájú összetevője van!Egy munkalapon szeretném azt megcsinálni, ha beütöm egy késztermék 4 számjegyű kódját, akkor mind a 6 munkalapról átemeli a recepteket (összetevőket, mennyiségüket).
A cél az egésszel az, hogy 6 üzem receptjeinek különbözőségét lehessen szűrni.
Megoldható?
Előre is köszönöm az infókat:
Koczka -
#27548
Fferi50
Topikgazda
ElemiKoczka
#27547
Fferi50
Topikgazda
válasz
ElemiKoczka
#27547
üzenetére
Szia!
Ehhez azért látni kellene a receptek "tárolási" struktúráját. A recept száma alapján az FKERES függvénnyel dolgozhatsz, minden munkalapra külön-külön megadva - nyilván külön-külön cellában.
A másik megoldás a makró.Üdv.
-
#27549
Delila_1
veterán
ElemiKoczka
#27547
Delila_1
veterán
válasz
ElemiKoczka
#27547
üzenetére
A 27332-es kérdést, és a rá adott, 23333-as választ olvasd el. Az első lapra beteszel egy érvényesítést, amivel kiválasztod a receptet. A makró az első lap H1 cellájából veszi a keresendő értéket, itt lehet az érvényesítésed.
Ha a kód, és a leírás azonos sorban van, ez a makró jó lesz a feladatod megoldására.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
Sziasztok!
Van egy munkafüzetem több munkalappal. Többek között pl. A(adatokPivot) és B(diagram). Az A az egy Pivot és állandóan változik a tartalma. Ezekből a kiértékelt adatokból készül a diagram. Ha most szeretném a diagramban látni a "képet" az aktuális adatokról akkor előbb aktiválom az A munkalapot, hogy frissüljenek az adatok és ezután lépek a B lapra, hogy megjelenítsem az aktuális adatokkal a diagramot.Amit szeretnék.
Hogyha megnyitom a B(diagram) lapot akkor a háttérben automatikusan frissítse az A(adatokPivot) lapot és csak ezután mutassa a diagramot.
Angol Excel 2007köszi
[ Szerkesztve ]
ennek ellenére a hol.van megoldás jóval közelebb áll a férfi logikámhoz, na és nagyságrendekkel gyorsabb is (több százezer sornál már nagyon nem mindegy) ha az előtt-et így értettes, akkor delila által írtat javaslom )kombinálva a hol.van-os módszeremmel 
thx !!
Így nem boldogulok vele.
Új hozzászólás Aktív témák
- Tőzsde és gazdaság
- Kormányok / autós szimulátorok topikja
- Dell notebook topic
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- A fociról könnyedén, egy baráti társaságban
- BestBuy ruhás topik
- Megérkezett a Snapdragon X-hez tervezett Windows 11 lemezkép
- Óra topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- LEGO klub
- További aktív témák...
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Vírusirtó, Antivirus, VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, kedvező ár!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest