-
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
-
VGYke
addikt
válasz
Fferi50
#54643
üzenetére
Nagyon szépen köszönöm!
Kipróbálom amit írtál, csak most nem vagyok excel közelben.
Igen tudom, egy "segéd oszlop" értékszűréssel egyszerű lenne, de adatlekérdezést tartalmazó táblát használok fel, így nem akartam összedisznólkodni egy plusz oszloppal. Köszönöm szépen,megnézem amit javasoltál! -
VGYke
addikt
Sziasztok! SZUMHA(A4:A10;"kritérium";B4:B10) függvényben,hogyan lehet megadni "kritériumként", hogy "A" szerint csak X1-nél nagyobb, de X2-nél kisebb értékeket adjon össze?
Azt tudom, hogy ha X1-nél nagyobb, akkor "kritérium": ">"&X1, de hogy 2 érték között legyen, nem sikerül megoldanom. -
VGYke
addikt
Sziasztok. Nyomtatási területre, illetve annak „automatikus” beállítására szeretnék rákérdezni.
Van egy excel tábla, ami 400 sorig van képletezve. Keresőszótól függően, az eredmények pár sortól, 400 sorig terjedhetnek. Ahol nincs már eredmény, a cellákban "" karakter van, azaz „üres”. pl.
=HA(SZÁM(A106);FKERES($A106;T;2);"")Kép szerint jelen esetben hiába ér véget a táblázat a 105. sorban, ami nyomtatási kép szerint 2. oldalon van és a lap alja 120. sor, 121 sortól folytatja a nyomtatást és ki akarja nyomtatni 400 sorig, összesen 7 oldalban, tehát 5 oldal üres lapot nyomtat.
Tehát, be lehet valahogy állítani a nyomtatási területet, hogy mindig csak az utolsó látható szöveget tartalmazó oldalig nyomtasson?
Itt ugye az automatikus lenne a hangsúly, nem azon hogy kézzel keljen beírni, terjedelemtől függően a nyomtatandó lapok számát. -
VGYke
addikt
válasz
Fferi50
#53628
üzenetére
Köszönöm szépen! Pedig jártam azon a helyen, de elkerülte a figyelmem. Nálam mondjuk a Lekérdezések & Kapcsolatok alatt nem a Kapcsolatok, hanem Lekérdezések alatt volt a megoldás, jobb egérgomb és tulajdonságok:
Így legalább, megtudtam azt is, hogy a lekérdezés nem működik, excel felhőben tárolás és böngészőből megnyitáskor. Ezt az üzenetet küldi:
-
-
VGYke
addikt
Sziasztok!
Valaki tudna olyan egyszerű excel makrót írni, hogy
· egy gombra kattintva,
· elindítson egy képet tartalmazó (pl. excel munkalap) nyomtatást,
· akkor, ha a legutóbbi nyomtatás indítás több mint 15 napja történt,
· ha kevesebb mint 15 napja volt nyomtatás, ne csináljon semmit.
Saját magam megpróbáltam, nem működik. Kijöttem a gyakorlatból. -
VGYke
addikt
Sziasztok!
BÚÉK a csoport tagjainak!
Egy nem túl bonyolult kérdéssel indítanám az évet, amit nem tudok egyszerűen megoldani, de lehet egyszerű a megoldás!
Dátum függfények; Dátum, Óra, Perc:
Ha a dátum függfényeket használom, azok adott nap (Pl.2022.12.31) 0:00 percére vonatkoznak (hóanp első és utolsó napja, képletezve)
De ez így nem jó, mert a hónap utolsó napja nem 2022.12.31 00:00, hanem 2022.12.31 23:59:59, így az első nap: 2022.12.01. 0:00 csak hogy minden másodperc meglegyen!
Szóval, hogyan kellene képletezni A "Dátum Hónap első napja" és Dátum Hónap utolsó napja" képletet, hogy a későbbi számítások másodperc pontosak legyenek? -
#50094
VGYke
addikt
Fire/SOUL/CD
#50093
VGYke
addikt
válasz
Fire/SOUL/CD
#50093
üzenetére
Köszi, de nem is a gyakorlati haszna, hanem az elvi megvalósítás miatt lenne érdekes számomra! Nem kell tudnia a makrónak mikor nyomtattam rajta kívül, csak annyit, mikor nyomtattam a segítségével, és ha letelt az idő nyomtasson, ha nem, nem.
Ez tényleg már csak érdekesség, hogyan lehetne makróval megoldani (ketyeg az idő, ha letelt, nyomtasson valamit, ha nem várjon)... -
VGYke
addikt
Sziasztok! Egy olyan, gondolom másként nem magvalósítható, makrós Excelen töröm a fejem, ami a következőre képes, a színes-tintatartályos drága nyomtatóm miatt, nehogy beszáradjanak a nyomtató fejek:
Ha elindítom mondjuk a Print.xlsx-t, akkor nézze meg hogy utoljára mikor nyomtatta ki a tesztképet.
* Ha a beállított időn belül (mondjuk utolsó nyomtatás+14 nap), akkor ne csináljon semmit.
* Ha a beállított időn kívül (mondjuk utolsó nyomtatás+15 nap), akkor nyomtasson egy általam megadott, akár xlsx tesztképet.
Nyilván a makró nem tudja figyelni, hogy a Print.xlsx indításai között, időközben nyomtattam-e, így nem sok értelme van, de akkor is izgat a feladat.
Tudtok segíteni? -
VGYke
addikt
Sziasztok! Lehet volt már kérdés, de nem találom feladatra a választ.
Adott egy excel tábla, ahol "A" oszlopban információk vannak, némely sor https:\\ hivatkozásokat tartalmaz (úgy ahogyan szokott, kékkel).
A "B" oszlopba olyan képletezést szeretnék, ami megmondja, hogy az adott sorban szerepel-e hivatkozás (kék https) vagy nem.
Van erre megoldás? -
#49067
VGYke
addikt
Fire/SOUL/CD
#49048
VGYke
addikt
válasz
Fire/SOUL/CD
#49048
üzenetére
Tudod, sokszor nem a megoldás értelme a lényeg, hanem maga a megoldás, mert én rendkívül sokat szoktam tanulni belőle. A fentiekből is tanultam...
-
#49046
VGYke
addikt
Fire/SOUL/CD
#49038
VGYke
addikt
válasz
Fire/SOUL/CD
#49038
üzenetére
Köszönöm szépen. Sajnos kell az eltolás (vagy valami hasonló, FKERES, stb) függvény, mert a Keres munkalapra hozom át az Összes munkalap válogatott sorait.
Keres munkalapon beírom az utcanevet, és csak az ennek megfelelő sorok jelennek meg, ide szerettem volna nem csak a N0: oszlop tartalmát, hanem a hivatkozásait is áthozni...
Keres munkalap:
-
VGYke
addikt
válasz
lenkei83
#49024
üzenetére
Egyébként amit te linkeltél az ez:
https://view.officeapps.live.com/op/view.aspx?src=https%3A%2F%2Fwww.mnb.hu%2Farfolyam-letoltes%3Fyear%3D2022&wdOrigin=BROWSELINK
(eltér ettől: https://www.mnb.hu/arfolyam-letoltes?year=2022)
Ha a fenti hosszú címet írjuk be a lekérdezendő címként, valóban görcsre fut... -
#49036
VGYke
addikt
Fire/SOUL/CD
#49028
VGYke
addikt
válasz
Fire/SOUL/CD
#49028
üzenetére
Igen, eltér.
Akkor erre nincs megoldás? -
#49025
VGYke
addikt
Fire/SOUL/CD
#49023
VGYke
addikt
válasz
Fire/SOUL/CD
#49023
üzenetére
Köszönöm szépen!
Sajnos a függvény nem egészen azt teszi, mint amit én szeretnék.
Összes!A$2 cellába beszúrt hivatkozás: https://ingatlan.com/salgotarjan-acelgyar/elado+lakas/tegla-epitesu-lakas/32587041
Ez a képlet:
Viszont ezt a hivatkozást adja vissza: https://onedrive.live.com/?id=8895ecab85694e80%210%2AL0xpdmVGb2xkZXJzL0Rva3VtZW50dW1vay9NZW50w6lzZWsvX19fU2FsZ8OzdGFyasOhbmkgaW5nYXRsYW4vNDQ&cid=8895ECAB85694E80 -
VGYke
addikt
Nem jó, a feladat bonyolultabb. Egy hívjuk adatbázis munkalapról szeretném kiválogatni majd sorba rendezve egy másik munkalapon megjeleníteni a szükséges adatokat, makrók nélkül, csak képletekkel megoldva.
Már az is jó lenne, ha képlettel ki tudnám nyerni az adott cellába beszúrt hivatkozást.
lenkei83: nem jó az "Adatok beolvasása és átalakítása" (lekérdezés)?
Csak pár másodpercet játszottam vele, de nekem sikerült:
-
VGYke
addikt
Sziasztok! Egy cella "értékét" pl. ELTOLÁS függvénnyel egy másik cellába "át lehet vinni". De mivel lehet "átvinni" az eredeti cellához csatolt hivatkozást?
Pl. A B2 cella értéke 10 és Beszúr-Csatolás-Cím: https://prohardver.hu/tema/excel/friss.html
C7-be írt képlet: =ELTOLÁS(A1;1;1), ami ugye a B2 cella értéke. De hogyan tudom a https://prohardver.hu/tema/excel/friss.html címet is "áthozni"?
Elnézést a kacifántos fogalmazásért. -
VGYke
addikt
Belejöttem a kérdezésbe
. Megnyitottam egy kész Excel táblát, a neve "Személyes havi költségvetés", csak hogy szép táblázat kinézetet lessek ki belőle, de aztán ránéztem a képletezésére és rájöttem hogy nekem igen hiányosak az ismereteim.
Mit jelent egy kivonási műveletnél az hogy Különbözet oszlop =[@[Tervezett költség]]-[@[Tényleges költség]] ?
Részösszegnél pedig: =RÉSZÖSSZEG(109;[Különbözet]) tehát mi a [Különbözet] ?
Szóval ezek a szögletes zárójelbe tett nem tudom minek hívjákok kimaradtak az ismereteimből. Nem tartomány elnevezések azt látom, illetve a Névkezelőben nincsenek ilyenek. Útba tudtok igazítani? -
VGYke
addikt
Sziasztok! Egy eddig általam megmagyarázhatatlan problémába ütköztem, jó lenne ha megnéznétek és találnátok rá magyarázatot.
A Próba excel letölthető.
A lényeg:
Van egy táblázat, dátum óra értékekkel, elnevezése RTab (B:C oszlop) és a kWh/hó értéke csak a hónap utolsó napjának dátumánál jelenik meg, a többi helyen a sorának száma látható hibakeresés céljából (na jó, a sor itt el van szúrva 1-el):
Összesítés munkalapon, ahol függőlegesen az év van, vízszintesen a hónapok, kiszedem a fenti RTab táblából a kWh/hó értékeket, minden hónap utolsó napján.
Képlet, amivel dolgozom:
Ugye a DÁTUM($A3;B$2+1;1)-1 az év és hónap szerinti utolsó nap dátum értéke, ezzel nincs hiba, mint ahogyan az FKERES függvénnyel sem, egy darabig.
Mint látható, 2021.07.31-ig tök jól működik, utána megzizzen és az RTab utolsó sorának értékét hozza, ami 620 sorban van (na jó, 619-ben ).
Ez mi a fenétől lehetséges?
Mondjuk az RTab Dátum utolsó pár értéke 1900.01.00, de ha ez zavarna, akkor az összes többi jó értéket is zavarnia kellene nem?
Ha kitörlöm az 1900.01.00 értékeket jól működik a táblázat, de nem akarom kitörölni, illetve az eredeti feladatban nincs lehetőségem módosítani. Ok, használhatnék HOL.VAN, + ELTOLÁS függvényeket is FKERES helyett, ha más megoldás nincs, az nem elegáns és nem ad választ arra, hogy egy képlet egy darabig miért működik jól, utána meg rosszul.
Tudtok segíteni? -
VGYke
addikt
Azért 2, mert ha pl. 1, akkor nem működik helyesen a képletezésem, nevezetesen kimarad a 2021.05.03. dátum.
Ha 3 akkor meg hülyeség a végeredmény.28. után 31. jön…. Nem tudom melyik hónapra gondolsz, de még egyszer a célom:
Van egy nevezzük „Kézi Dátum” oszlopnak. Ebből kell előállítani egy „Képletezett Dátum” oszlopot, a követke módon:
A „Képletezett Dátum” oszlopban szerepeljen a hónap első napja és utolsó napja (függetlenül attól hogy az eredeti „Kézi Dátum” oszlopban ott van e, vagy nincs a hónap első és utolsó napja) és a hónap első napja és utolsó napja között szerepeljenek a „Kézi Dátum” oszlop dátumai.Delila_1 : nem ezeket a képleteket használtam? Szerintem igen….
Na nem azt állítom hogy a megoldás tökéletes, várnám a jobb, egyben egyszerűbb megoldást. És egy olyat, hogy "másolás" biztos legyen, értem ezalatt hogy akár hová beszúrok egy sort, működjön. A mellékelt megoldásom megbolondul ha az 1 sor fölé szúrok be egy sort. 1 alá a beszúrás működik, a feladat ekkor jó.
-
VGYke
addikt
Bocsánat, most látom lemaradt a kérdésem: az adott feladatra tud valaki egyszerűbb megoldást?
1-munkalapon a "szájbarágós" képletekkel, 2-munkalapon az egymásba másolt képletekkel mutatom be a saját megoldásomat, ami túl bonyolultnak tűnik számomra.
Van egyszerűbb megoldásod?
-
VGYke
addikt
Sziasztok!
Következő a feladat:
Egyik oszlopban növekvő sorrendben DÁTUMOK szerepelnek.
A másik oszlopba egy olyan dátum sort kellene előállítani az előzőkből, hogy:
* Minden hónap 01-el kezdődjön (függetlenül attól hogy van e DÁTUMOK-ban érték)
* Minden hónap a hó vége dátummal végződjön (függetlenül attól hogy van e DÁTUMOK-ban érték)
* A fenti két dátum között jelenjenek meg a DÁTUMOK értékeiKészítettem erre egy megoldást, ami innen letölthető.
(1 munkalapon a „szájbarágós” megoldás, 2 munkalapon már összevontam a képleteket)Nem vagyok abban biztos hogy a legegyszerűbb az elgondolásom, így várom a javaslatokat, makrók alkalmazása nélkül.
Megoldásom kibírja azt, hogy ha 1. sor alá beszúrunk egy sort, de nem bírja ki, ha az 1 sor „fölé” szúrunk be egy sort….. megmondom őszintén, ennek megoldására már nem volt erőm.
Szóval van egyszerűbb megoldásotok a feladatra?
-
-
VGYke
addikt
válasz
Capella
#41450
üzenetére
Nem, a mentés xlsx-ben van. Igaz, ez a fájl eredetileg xls-ben készült, de egy idő után (kb. 2013-ban) xlsx-ben lett mentve, használva, havonta megnyitva, mentve. És csak azután kezdte el ezeket az üzeneteket dobálni mentésnél:
hogy a laptopon, amin szintén Office Professional Plus 2016 van, csak az idén vásárolva, OneDrive-ban megnyitottam, módosítottam és mentettem. Laptopon nem reklamál a mentésnél, csak a PC-n megnyitva és mentve, ahol 2016-ban vásárolt Office Professional Plus 2016 van...
Úgy tűnik a két Excel hiába hogy 2016, még sem egyforma
Mondjuk fogalmam sincs mit takar az XLSB és OpenXML formátum (egyik talán Linux Office )
Szóval mi lehet az ok és hogyan tudnám megoldani azon túl, hogy kikapcsolom a kompatibitás ellenőrzést? -
VGYke
addikt
Sziasztok! Excelnek Excel a kérdésem, de lehet ez inkább Office Professional Plus 2016 különböző kiadásai közötti különbségek, vagy Win10Pro és Home-ból adódó eltérések?
Kérdésem, problémám ez.
Van valakinek építő javaslata? -
VGYke
addikt
Sziasztok! Első körben win10 fiókban próbálkoztam az alábbi kérdésemmel, hiába.
A fene tudja milyen (Win, vagy Office, vagy Eset) frissítés óta, az otthoni asztali PC-n megnyitva egy olyan Excel fájlt amiben van egy http:// hivatkozás, arra kattintva az Excel bezárja magát, vagy kiakad (másolatot készít magáról), stb.
Itt van egy minta, amivel eddig a DIGI internet sebességeket mértem.
Ugyanezen Excel fájl otthoni hálózatban laptopon megnyitva kiválóan működik, munkahelyen lévő gépemen is, amiken szintén win10 és Office2016 van, tehát nem a példaként hozott "Sebesség_2019.04.03-tól.xlsx" fájl a hibás, hanem valami ördög költözött a PC-be.
Mi lehet a baj, illetve, fájdalom mentesen (akár win, akár Office) újratelepítés nélkül, hogyan tudnám javítani? -
VGYke
addikt
Sziasztok! Lehet hogy nagy bugyutaságot kérdezek, de azért bepróbálkoznék, hátha...
Van egy internet sebességmérő oldal.
Elvileg lehetne olyan makrót írni, hogy nyomkodja helyettem x (pl.10 perc) időnként a
gombot? -
VGYke
addikt
válasz
Delila_1
#13120
üzenetére
lapa Delila_1, köszönöm! Bennem van a hiba, nem fogalmaztam meg a kérdésem világosan.
Tehát függetlenül az exceltől (bár onnan származnak az adatok, de immár ez lényegtelen), van egy T(i)=értékeket tartalmazó adathalmazom, ahol i=1-től véges egészig tart.
Pl. T(i1)=5, T(i2)=3, T(i3)=6, T(i4)=5, T(i5)=3, T(i6)=100, T(i7)=5, T(i8)=9
Helyes sorrend: T(i1)=5, T(i2)=3, T(i3)=6, T(i4)=100, T(i5)=9.
Tehát VB-ben, erre keresnék egy egyszerű for-next, while-wend, mit tudom én ciklust, mert ahogy én megírtam az nevetséges. -
VGYke
addikt
Sziasztok! Ismét exceles makrós kérdéssel jelentkeznék. Megoldottam ugyan a feladatot, de valami iszonyatosan bonyolultan, biztos a hozzáértők tudnak sokkal egyszerűbb megoldást.
Előállítok egy egyváltozós tömböt (ezt így hívják ), ahol egy keresés találati sor eredményeit gyűjtöm. Azonos sorok szerepelhetnek, de az azonosokat ki szeretném gyilkolni.
Egyszerű példaként: T(1)=5 érték, T(2)=3, T(3)=6, T(4)=5, T(5)=3, T(6)=100, T(7)=5, T(8)=9
Tehát vannak benne ismétlődő elemek, de ha ismétlődik, az "alatta" való ismétlődést ki akarom irtani és a helyes sorrend: T(1)=5, T(2)=3, T(3)=6, T(4)=100, T(5)=9.
Ezt excel képletekkel több oszlopba megírva nem nagy ügy, DARABTELI-t bűvölve, de sajnos a VB-ben változókkal nem működik a COUNTIF (csak range-t lehet megadni, tehát ki kellene iratni az értékeket excelbe, stb.)
Van ötletetek makrós (VB) megoldásra? Én ugyan írtam egyet, de az annyira ronda és bonyolult, hogy inkább senkinek nem mutogatom. -
#13058
VGYke
addikt
Apollo17hu
#13055
VGYke
addikt
válasz
Apollo17hu
#13055
üzenetére
Ráadásul ez a pdf ott fityeg valahol a fontos mentett dolgaim között elég rég óta 
(anno kerestem is a folytatását, de nem találtam).
Köszönöm! -
#13054
VGYke
addikt
Apollo17hu
#13052
VGYke
addikt
válasz
Apollo17hu
#13052
üzenetére
Hopsz, olyan hosszan írtam előző hozzászólásomat, hogy közben Te is írtál. Viszont a megoldást még mindég nem értem.
-
#13053
VGYke
addikt
Apollo17hu
#13050
VGYke
addikt
válasz
Apollo17hu
#13050
üzenetére
Apollo17hu: Ezt nem értem. Nem vagyok profi. Tudnál írni róla bővebben?
Tehát az alapkérdés az, hogy ha véletlenszámot állítok elő egy excel makróban, az miért mindég ugyan az az érték az excel első indításakor, az indítási helytől (otthon, munkahely, op. rendszer, office, stb.) függetlenül? Makró példámban indításnál 16, bezárásnál 14.
Másold be az Auto_Open, Ato_Close mintámat egy tök üres excelbe, meglátod.bandus: a véletlen szám soha nem lesz 1!
-
VGYke
addikt
Sziasztok! Ismét megakadtam egy primitív makrós feladattal, tudnátok segíteni?
Makróm:
Sub Auto_Open()
indit = Int(Rnd() * 23)
MsgBox indit
End SubSub Auto_Close()
vege = Int(Rnd() * 27)
MsgBox vege
End SubTehát azt szeretném, hogy megnyitásnál generáljon 0-22 közötti egész számokat, bezárásnál 0-26 közötti egész számokat.
Nos, ha ezt a makrót tartalmazó munkafüzetet megnyitom, minden egyes alkalommal indit=16 és ha nem csinálok semmit, bezárásnál mindég vege=14.
Véletlen számként indításnál állandóan 16, bezárásnál 14 -
#13044
VGYke
addikt
Fire/SOUL/CD
#13042
VGYke
addikt
válasz
Fire/SOUL/CD
#13042
üzenetére
Még nagy hirtelen csak annyit: plagizáltam egy midi fájl lejátszás makrót. Ebben van játszás, leállítás, de nincs benne a 64-bit
Hát ha valaki hasznát veszi...
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Sub PlayMIDI()
MIDIFile = "xfiles.mid"
MIDIFile = ThisWorkbook.Path & "\" & MIDIFile
mciExecute ("play " & MIDIFile)
End SubSub StopMIDI()
MIDIFile = "xfiles.mid"
MIDIFile = ThisWorkbook.Path & "\" & MIDIFile
mciExecute ("stop " & MIDIFile)
End Sub -
#13043
VGYke
addikt
Fire/SOUL/CD
#13042
VGYke
addikt
válasz
Fire/SOUL/CD
#13042
üzenetére
Nagyon köszönöm hogy írtál! Eddigi ügyeket szabadidőnben, a munkahelyen kreáltam. Most otthon akartam volna folytatni és éppen a hajamat téptem, hogy itthoni próbálkozásnál, Office 2010 (64bit) alatt mi a baj ezzel: Private Declare Function PlaySound Lib.... a "PtrSafe" titokra soha nem jöttem volna rá! A többit majd holnap próbálom, dolgozóba kell menni reggel.
-
#13041
VGYke
addikt
Fire/SOUL/CD
#13040
VGYke
addikt
válasz
Fire/SOUL/CD
#13040
üzenetére
Kösz a választ! Azért ennyire nem vagyok profi, mint írtam a makrót kigugliztam, tehát nyilvános helyről loptam.
1. ASYNC, SYNC megoldás nem jó, ezt kérdés feltevésem előtt is kipróbáltam. Addig "lefagy" = nem válaszol az excel, amíg véget nem ér a lejátszás, egyébként ez így utólag logikus.
2. Kísérletezni fogok vele.... bár ettől jóval kevesebbhez is kevés vagyok...így belegondolva próba nélkül fog egy "diiing" hangot adni, de holnap kipróbálom.
Egyébként azért örültem meg ezen makrónak, mert nem csak tréfának jó, hanem bizonyos makró események hanggal történő jelzésére is. Szinesíthet, ha valakinek van kedve ezzel szórakozni.
Még egy makrós kérdés: VB hogyan lehet nagyon egyszerűen megoldani azt, hogy ha fut egy makró, gomb, egérgomb megnyomásra, mozdításra fejeződjön be? -
VGYke
addikt
Sziasztok! Találtam a neten egy jó kis makrót, Auto_Opennel vagy bármivel alkalmazva, jó kis tréfákat, egyebeket lehet vele megoldani:
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As LongConst SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000Sub PlayWAV()
WAVFile = "Hang.wav"
WAVFile = "Elérési út\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End SubSzóval, futtatva lejátszik egy Hang.wav nevű fájlt, tök jó. Viszont addig játszik, amíg vége nincs a wav-nak, játszik akkor is, ha bezárjuk az excelt. Hogyan lehetne leállítani?
Egy kis kiegészítés: Állítólag nem minden környezetben fut, ezt így lehet megtudni:
If Not Application.CanPlaySounds Then
MsgBox "Sorry, sound is not supported on your system."
Exit Sub
End If -
-
VGYke
addikt
Magamnak válaszolok, de hátha valaki tudja a megoldást.. Az a baj, a VB kiakad a vasúti sínnél (hiányzik).Átírtam a fentieket (gondolkodás nélkül, primitíven):
Do While Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0) = True
A Do While -ba írtam már mindent: "most: TRUE, előbb>0; isnumeric(), stb", nem hathtja meg. A Vasúti sínnél kiakad. -
VGYke
addikt
Sziasztok! Meg tudnátok mondani, hogy az alábbi primitív makrórészletnek mi lehet a baja?
Dim i
For i = 1 To 9
Cells(i, 3) = Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0)
Next i
Szóval: Van pl. A1:A10 tartomány, adatokkal. Excel képlettel B1-be írja bele =Hol.van(A1;A2:A10;0) értékét, B2-be=Hol.van(A2;A3:A10);0);stb. Mit rontok el? -
VGYke
addikt
Ez nagyszerű fórum! Sok helyen vagyok jelen, de ez lett a kedvencem! Itt nincs cseszegetés: "hülye vagy, tudni kellene, olvass vissza, ..." Itt igazi segítség van
Aki autodidakta módon mint én, kb. hobbiból excel makrókkal kisérletezik, ez után a fórum után másodiknak ajánlom ezt az oldalt. Igaz a linkben már egy konkrét kulcsszóra történő keresés szerepel, de így jobb a példa. Bocs az offért. -
VGYke
addikt
válasz
Delila_1
#12973
üzenetére
Ismét köszönöm!
Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
Sub Kitolt()
Lap = "Lekérdezés"
smax = Sheets(Lap).UsedRange.Rows.Count
For L = 1 To smax - 1
Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
szla = Sheets(Lap).Cells(L, 2)
b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
Cells(L + 1, 2) = b
'......hasonló 8. oszlopig
Next L
End Sub
Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg? -
-
VGYke
addikt
válasz
poffsoft
#12959
üzenetére
Köszönöm válaszod!
Most, újabb problémám adódott, amit pár (szor 2-3) baráti sör után hazaérve, nem tudok megoldani makróval, (konkrétan Do-Lop feltételes ciklussal) egy feladatot és nagyon idegesít!
Keresek az egész munkalaopon egy adott szöveget, legyen az "Blabla". Ahol megtalálja, annak az oszlop, sor számára vagyok kíváncsi.
Sikerült olyan ciklust írnom, hogy csak a CTR-alt-del segített
-
VGYke
addikt
Lejárt az időm, bocs... a fentiekhez annyit, hogy egy megoldást tudok:
Do - Loop feltételes ciklussal megkeresem mi van a "H1"-be mint oszlop elnevezésbe írva és ha az ami, oda kell beírni az adatokat (példámban ahol vége a ciklusnak, 8, ha törlünk, hozzáadunk oszlopokat, akkor más).
De nincs erre valami elegánsabb, rövidebb megoldás? -
VGYke
addikt
Sziasztok! Írtam egy rövid makrót. A lényege, a G oszlop celláiban "balba szöveg, számok, blabla szöveg" van és ennek minden variációja és ebből kell kibányászni csak a számokat, átalakítva bizonyos formátumra, majd beírni H oszlop adott sorába.
Kb. így néz ki a magró (rendesen végzi a dolgát):
Do
C = ""
Szam = ""
I = I + 1
C = Cells(I, 7)
For J = 1 To 60
Nev = Mid(C, J, 1)
If Not IsNumeric(Nev) Then
Nev = ""
End If
Szam = Szam + Nev
Nev = ""
Next J
Aszam = Left(Szam, 8) + "-" + Mid(Szam, 9, 1) + "-" + Mid(Szam, 10, 2)
Cells(I, 8) = Aszam
Loop Until Cells(I + 1, 7) = Empty
Viszont ez a makró, csak G-ből olvas (Cells(...,7)) és H-ba ír (Cells(...8).
Na de ha az eredeti táblából valaki kitöröl, vagy hozzáad egy oszlopot, rossz helyről fog olvasni és írni.
Van erre valami megoldás? Tehát 7 és 8 oszlop érték egy változó legyen, és ha törölnek egy oszlopot, ez az érték 6,7, stb. -
VGYke
addikt
Sziasztok! Excelben adatlekérdezéssel nincs sok problémám, beleértve a web lekérdezést.
Viszont most a tudományommal megbuktam, kérlek segítsetek.
Van egy képletekkel teletömött excelem, ahol a kiindulási adattábla egy excel munkalap, amit le lehet tölteni a netről.
Szóval van egy www.akármi címem, amit a böngészőbe beírva, a böngésző helyből felajánlja az excel letöltését/megnyitását.
Ezt a www.akármi címet szeretném valahogy használni az excelemben, hogy megnyitásnál frissítse az adot munkalapot (amit egyébként is letöltene ha böngészőből indítom).
Lehetséges ez?
. Megnyitottam egy kész Excel táblát, a neve "Személyes havi költségvetés", csak hogy szép táblázat kinézetet lessek ki belőle, de aztán ránéztem a képletezésére és rájöttem hogy nekem igen hiányosak az ismereteim.
Ráadásul 
(anno kerestem is a folytatását, de nem találtam).
Új hozzászólás Aktív témák
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3330
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Lenovo ThinkPad P15 Gen 1 Intel i7-10875H 32GB 512GB Nvidia Quadro RTX 3000 1 év garancia
- BESZÁMÍTÁS! MSI B450M R5 5600G 16GB DDR4 512GB SSD RX 6600XT 8GB GameMax Aero Mini ECO 650W
- REFURBISHED - DELL Docking Station WD19S + 130W töltő
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest