-
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
-
#47546
Zomb€€
őstag
Fire/SOUL/CD
#47534
Zomb€€
őstag
válasz
Fire/SOUL/CD
#47534
üzenetére
Igen, eltávolodtam a géptől
Hatalmas köszönet az átdolgozásért a héten csekkolom
-
Zomb€€
őstag
Sziasztok,
egy guru tudna nekem segíteni ezt a (node)js szkriptet vba-sítani?
const crypto = require('crypto');const query_string = 'timestamp=1578963600000';const apiSecret = 'NhqPtmdSJYdKjVHjA7PZj4Mge3R5YNiP1e3UZjInClVN65XAbvqqM6A7H5fATj0j';function signature(query_string) {return crypto.createHmac('sha256', apiSecret).update(query_string).digest('hex');}console.log("hashing the string: ");console.log(query_string);console.log("and return:");console.log(signature(query_string));console.log("\n");const another_query = 'symbol=LTCBTC&side=BUY&type=LIMIT&timeInForce=GTC&quantity=1&price=0.1&recvWindow=5000×tamp=1499827319559';console.log("hashing the string: ");console.log(another_query);console.log("and return:");console.log(signature(another_query)); -
Zomb€€
őstag
Sziasztok!
Ismét segítséget kérnék.
Adott az előző QR kód generálós makró, és mivel többen is használnák, szeretnék beépíteni egy olyan funkciót, hogy a kód generálását követően, ha 5mp-en belül nem történik újabb kódgenerálás, bezáródik a munkafüzet.Próbáltam hogy a Timer-rel játszok, és 5mp késleltetéssel bezárom, illetve az Application.Wait paranccsal is, de mindkettőnél azt tapasztaltam, hogy lockoljál a formot, így nem is lehet újra kódot generálni, mindenképpen bezáródik a munkafüzet.
Tehát a kérdés az, hogy lehet valami tétlenség figyelőt beépíteni úgy, hogy attól még lehessen használni az egyéb makrókat?
-
Zomb€€
őstag
Köszi a választ, időközben megoldottam.
Beírom ide is, hátha valakinek jól jön.
Találtam egy oldalt, amit meg lehet hívni getparameterrel, és egyből kész a qr kód.
http://api.qrserver.com/v1/create-qr-code/?data=
Értelem szerűen a "=" jel után kell írni a kódolandó szöveget. -
Zomb€€
őstag
Sziasztok!
Egy oylan makrón dolgozok, ami különféle kódokat generál, és utolsó lépésként meghív egy QR kód generáló oldalt.
Szeretném minden szempontból optimalizálni a dolgot, elképzelhető, hogy a weboldalon is mahináljak valamit VBA-ból? Mondjuk a konkrét stringet beadni a felhíváskor.Erről az oldalról lenne szó: [link]
-
Zomb€€
őstag
Sziasztok!
2 Pivot tábla értékeit szeretném egy 3. munkalapra összemásolni, meg is írtam rá a makrót, és F8-al szépen végigfut, viszont ha nem lépésenként akarom futtatni, akkor kifagy :S Mi lehet a gond? A Pivotok egy külső adatbázisból szedik az adatokat, de ha be van frissítve elvileg nem is nyúl a kapcsolathoz.
-
Zomb€€
őstag
Sziasztok!
Bocsi, hogy itt kérdezem, de ez a topik jobban pörög.
Van egy Accessem, amiben egy űrlap vezérel több makrót. A kérdésem az lenne, hogy, hogy lehet azt megoldani, hogy a user csak az űrlapot lássa induláskor, semmi mást.
Kerestem már neten, de kifinomult, működő megoldást még nem találtam.Köszi!
-
Zomb€€
őstag
Sziasztok!
Az lenne a kérdésem, hogy ha egy makrón belül nyitunk meg Workbook.Add parancsal egy új munkafüzetet, akkor arra az új munkafüzetre hogy lehet konkrétan hivatkozni, pl. ha be akarom zárni, Workbooks("????").Close ?
Mindig csak ActiveWorkbook-ként lehet rá hivatkozni? -
Zomb€€
őstag
válasz
bugizozi
#11941
üzenetére
Ezzel az a gondom, hogy hiába rejti el, attól még nem a pozitív ágon folytatja, csak nem jelenik meg.
Amúgy már szétgugliztam az agyam, de mindenhol csak a DisplayAlerts = False-ra bukkantam
Hopp, idő közben ki is találtam a megoldást:
Meghívom a körleveles Wordöt DA = False értékkel, majd a wordben behúzom az adatbázist. Yee
-
Zomb€€
őstag
Üdv!
Van arra valamilyen megoldás, hogy egy felugró DiplayAlertet automatikusan leokézzon a program? Nem elrejteni akarom, hanem pozitív ágon folytatni a műveletet.
Konkrétan egy excelből hívok meg egy word körlevélsablont, és a word megnyitásakor felugrik, hogy SQL kapolcsolatot akar létesíteni a megadott adatbázissal, és ezt kéne folytatni. -
Zomb€€
őstag
Sziasztok!
Egy Access makróból szeretnék excelbe másolni fileokat, és közben el is szeretném nevezni az adott sheetet.
Az alábbi parancsot használom:
Set Wsheet = Wbook.Worksheets.Add
Viszont itt nem tudok nevet megadni. Hogy lehet megoldani, hogy a default "Munka4" helyett mindjárt bizonyos névvel hozza létre a munkalapot? -
-
-
-
Zomb€€
őstag
válasz
Delila_1
#10174
üzenetére
Úgy néz ki a dolog, mintha lenne 2 adattáblánk egy közös kulccsal. Az egyikben az oktatási adatok vannak a jelentkezőkkel, míg a másikon a jelentkezők adatai. És ebből kell egy 3 táblát csinálni az oktatásra jelentkezettek adataiból. (a 3-ik táblából pedig egy körlevél sablon dolgozik majd)
-
Zomb€€
őstag
Sziasztok!
Ismét kérdés:
Adva van egy halmaz, egyedi azonosítóval (1. lapfül)
Egy alapadatokkal rendelkező lapfül, amiben benne van az 1. kulcs (2. lapfül)
A feladat egy 3. lapfülre össze Fkeresezni a kulcsokhoz tartozó alapadatokat (15 adat) és a kulcsokból is lehet 30-40 db. Ezt most Vlookup-al próbáltam, de rengeteg időt vesz igénybe. HOgy lehetne ezt egyszerűbben? -
Zomb€€
őstag
Sziasztok!
Egy accessben lévő makrót szeretnék futtatni egy .vbs file-al (2010 Access), és az alábbi módon nem sikerül nem találja magát a makrót, pedig minden elérési út, és név stimmel:
Const DBPath = "xxx"
Const MacroName = "yyy"
Set AccessApp = GetObject(DBPath, "Access.Application")
AccessApp.DoCmd.RunMacro MacroName
AccessApp.Quit -
#10076
Zomb€€
őstag
Fire/SOUL/CD
#9984
Zomb€€
őstag
válasz
Fire/SOUL/CD
#9984
üzenetére
Uhh, köszönöm szépen!
Másik kérdésem is lenne:]
Eddig az alábbi sor tökéletesen működött 2007-es excelben, de a 2010 alatt elszáll hibaüzenettel "Type mismatch"
Range("='jelenlet_temp'!A" & S) = Range("B" & X) + " " + Range("C" & X) + " " + Range("A" & X)Miért?:-C
-
Zomb€€
őstag
Üdv!
Újra kérdeznék:]
Szóval, egy makró adott excelt .csv file-ként ment el, ami majd feltöltésre kerül valahova. Viszont a feltöltés feltétele megváltozott, és ASCII helyett UTF-8 kódolású filera lenne szükség. Ezt be lehet építeni a makróba, hogy ne kelljen külön még átkódolni a .csv-t? -
Zomb€€
őstag
Sziasztok!
Hogy lehet megadni egy változónak (String) olyan üres értéket, hogy .csv-be mentéskor a két pontosvessző között ne legyen semmi (;;)?
Delila_1 köszönöm szépen az előző segítséget, ne haragudj, szégyenlem magam, hogy nem tudtam válaszolni, de egyszerűen nem volt időm egy kimerítőbb válaszra. Ebben a témában még szeretném majd a segítséged kérni.
-
Zomb€€
őstag
Sziasztok!
Az előző kérdéseimmel kapcsolatos problémával fordulnék ismét hozzátok.
Kicsit nagyobb lélegzetvételű a dolog, próbálom felvázolni.
Adott egy lista amiben képzésre jelentkező emberek vannak a megadott képzéshelyszínnel és oktatóval ellátva. Egy képzéshelyszínhez több oktató is tartozhat. (ennek a szétbontását már megoldottam)
Ebből a listából oktató szinten kell körleveleket generálni.
Eddig úgy csináltam, hogy a szétbontásnál létrehoztam magamnak egy segédtáblázatot, ahol az oktató szintű szétbontás intervallumait jegyeztem fel (pl: Budapest 1-11)
majd ezt a bruttó listát beolvasva a körlevélsablonba szétdaraboltam. Viszont ez a megoldás eléggé hosszadalmas, és sok manuális inputot igényel.
A kérdésem az lenne, hogy ha megvannak az oktatókhoz tartozó intervallumok excelben, akkor azt nem lehet valami változóba betöltve szétdaraboltatni a word körlevélben?Remélem érthető
-
Zomb€€
őstag
Azt hiszem az előző problémát hellyel közzel megoldottam, viszont lenne még kérdésem:-]
Lehet olyan változót beiktatni egy szkriptbe, ami mindenhol a felvett értékkel dolgozik?
Itt arra gondolok, hogy egy excel makróban felvesz egy értéket, és azon belül meghív egy word makrót, és ott a felvett értéknek megfelelően dolgozik.
Public Const xx-et találtam, de ezt nem eszi meg az excel :-/ -
Zomb€€
őstag
Grr, nagyobb a probléma mint hittem. Inkább beírom az egészet, hátha más megközelítés kell neki,.
Szóval adott egy lekérdezés, melyben bizonyos emberek oktatási adatai vannak, többek között a helyszín is, ahova menne oktatásra.
A helyszínek mindig változóak lehetnek.
Ami még érdekes, hogy a helyszínekhez mindig más, és több oktató is tartozhat.
A bruttó listát pedig oktató szinten kell feldarabolni, tehát a gondolatmenetem szerint folyamatosan vizsgálni kéne a lekérdezés eredményében lévő helyszínt az alap adatokkal, ahova az oktatók vannak rögzítve, és a rögzített oktatók száma > 1 akkor az összes, oktatóhoz tartozó képzéshelyszínnel rendelkező rekordot el kell osztani az oktatók számával, és feltölteni velük arányosan (Mindig egyenlő arányban kéne)
Nem akar jönni az ihlet:-]Remélem érthető voltam
-
Zomb€€
őstag
Az előzőnél kicsit összetettebb problémám is akadt.
Adott 10 hely ahol képzéseket tartanak, és a helyeken belül több oktató is előfordulhat. A cél az adott bruttó listát oktatónként szétdarabolni fileokba.
És ott akadtam el, hogy hogyan tudom vizsgálni (ha sorba van rendezve) hogy még adott helyen adott oktató van, és az összes hozzá tartozó adatot kijelölni.
Tehát tudnom kell az oktató utolsó cellájának pontos koordináját.
5let? -
Zomb€€
őstag
Üdv!
Megint egy kis problémával fordulnék hozzátok:
csináltam egy makrót, ami kimászik egy adatbázisba, és bizonyos értékeket hoz le. Ez jól is funkcionál. Viszont én ezt egy .vbs szkripttel szeretném futtatni, és mikor a szkript meghívja az excelt, akkor nem 2007-es nyílik meg, hanem 2003-as, ami elszáll a makró futtatásakor.
Van erre vmi megoldás, hogy a 2007 excelt használja?
(Próbáltam .xlsm-ként menteni, de azt is 2003-al nyitja meg.) -
#8918
Zomb€€
őstag
Fire/SOUL/CD
#8917
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8917
üzenetére
Sajnos nem megoldható, 2 választást találtam én is:
1)
Időzítem a makrót Application.OnTime paranacsal, és ezt 15mp-vel a futás előtt megnyittatom TasSchedulerrel2)
Csinálok egy .vbs scriptet, ami megnyit bizonyos excelt, és lefuttatja benne a makrót.
Beteszem a kódot, hátha vkinek jól jön:Dim objXL
Set objXL = CreateObject("Excel.Application")
on error resume next
With objXL
.Workbooks.Open ("c:\temp\test2.xls")
.Run "test2.xls!test"
.Quit
End With
Set objXL = NothingMindezt egy notepad-be írva és .vbs-ként mentve
Viszont az időzítéshez ezt is be kell tenn ia TaskSchedulerbe, viszont ez azért szebb megoldás, mert az egész a háttérben fut. -
Zomb€€
őstag
Lehet, hogy mostani kérdésem túlnyúlik a VB-n, de a megoldás mindenképpen érdekelne.
Szóval, egy excell makró futtatására lenne szükség, viszont minden nap egy bizonyos időpontban. Megoldható ez vhogy, hogy az adott excelt, vagy esetleg magát a makrót beágyazva egy programba minden nap egy adott időben lefusson? -
#8913
Zomb€€
őstag
mimi_bacsi
#8912
Zomb€€
őstag
válasz
mimi_bacsi
#8912
üzenetére
Kijelölöd a szétválasztani kívánt oszlopot, majd (2007-es excel esetén) Adatok/Szövegből oszlopok menüpont, itt a tagoltat jelölöd be, és megadod a választókaraktert (ami jelen esetben space).
-
Zomb€€
őstag
Sziasztok!
Újabb problémára szeretnék megoldást kérni tőletek:
Egy makró végén szeretnék bizonyos oszlopokat törölni, makró felvételével megnzétem, hopgy írja be a kódot:
Range("A:A,C:C,D:D,E:E").Select
Selection.Delete Shift:=xlToLeft
Viszont ezt lefuttatva folyamatosan elszáll
"Method 'Range' of object '_Global' failed" hibaüzivel:S -
#8903
Zomb€€
őstag
Fire/SOUL/CD
#8902
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8902
üzenetére
Ezt makróba hogy írod be, hogy az ="" legyen a cellákba? Mert kevésnek érzem a pár hetes tudásomat ide
-
#8901
Zomb€€
őstag
Fire/SOUL/CD
#8900
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8900
üzenetére
Az a baj, hogy ha "" értéket adok meg a celláknak, akkor ugyan úgy kihagyja azokat az oszlopokat a CSV-ben, ezért kellett egy space-t beiktatni (" ") A:A-ba.
-
#8899
Zomb€€
őstag
Fire/SOUL/CD
#8898
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8898
üzenetére
Nem, szerencsére csak olyanon lesz használva, ahol magyar az OS.
Viszont ha már erre jársz lenne még egy kérdésem
Amikor mentek egy CSV-t, onnantol kezdi el menteni az oszlopokat, ahol megtalálja az első értékkel feltöltött oszlopot (D<> = D;E;F ...)
Viszont nekem kellenének az előtte lévő oszlopok is, mint üresek (;;;D;E;F)
Ezt csak úgy tudtam megoldani, hogy az A oszlopnak " " értéket adtam, viszont nem nagyon tetszik ez az eljárás. -
#8897
Zomb€€
őstag
Fire/SOUL/CD
#8896
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8896
üzenetére
Köszi, így már érthetőbb volt, bár kicsit elvesztem a kódban...DE!
Kutakodtam a neken, és megtaláltam a megoldást:ActiveWorkbook.SaveAs Filename:="D:\Státusz.csv", FileFormat:=xlCSV, _
CreateBackup:=False, Local:=TrueEzzel a kis paraméterrel a regionális beállításokat veszi figyelembe, és voila, ";" a szeparátor
-
#8895
Zomb€€
őstag
Fire/SOUL/CD
#8894
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8894
üzenetére
Oké, értettem, csak itt kis ellentmondást érzékeltem mivel ha a magyar beállításoknál cserélted csak le a ";"-t akkor is ","-t kell hogy kapj.(És most ezt ki is próbáltam, így menti)
Szal gondolom, hogy a makró által használt nyelv beállításánál kéne ezt lecserélni. Vagy nem? -
#8893
Zomb€€
őstag
Fire/SOUL/CD
#8892
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8892
üzenetére
Nálam a listaelválasztóban ; van.
Vagy az angolnál kell átállítani? -
#8891
Zomb€€
őstag
Fire/SOUL/CD
#8890
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8890
üzenetére
Akkor megtudhatnám a konkrét megoldást?:-]
Viszont lenne egy másik problémám is:
Ha kézzel mentek el egy adott lapot úgy hogy "Mentés másként -> CSV (pontosvesszővel tagolt) akkor úgy menti el a filet, ahogy szeretném, pontosvesszőket tesz a cellaértékek közé.
Viszont ha ezt a makró futásába teszem bele, akkor pontosvessző helyett sima vesszőket tesz be:S Ez is területi beállítás függő? -
#8889
Zomb€€
őstag
Fire/SOUL/CD
#8888
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8888
üzenetére
Köszi szépen, frankón müxik
A második kérdésemhez pedig egy kis segítség. Ilyen értékek szerepelnek:
123312,343434346,Folyósítva
412344,567567567,Folyósítva
343434,676767677,"Nincs döntés"
344444,564456151,"Nincs döntés"Itt az első 2 sor utolsó értékét a feltétel teljesülése esetén cseréli le erre a státuszra, viszont az utolsó két sorban a megmaradó, feltételeknek meg nem felelő státuszokat varázsolja be a célcellákba, és itt hozza a " jeleket. Ezt hogy lehetne eltüntetni (Notepad++ használata nélkül:-]) ?
Itt is az OS/Excell beállításokban kéne turkálni?
-
#8887
Zomb€€
őstag
lasarus1988
#8886
Zomb€€
őstag
válasz
lasarus1988
#8886
üzenetére
Köszi!
Még mindig lenne kérdésem:-]
- Egy adott makró végén a filet .csv-be szeretném menteni, a következő szerint:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xy\Dokumentumok\Munkafüzet1.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Viszont ide szeretnék beszúrni egy MA() függvényt a "Munkafüzet1" helyére, hogy minden nap futtatva az aktuális dátummal legyen elmentve a file. Hogy lehet megoldani?- A másik, hogy van egy több If-ből álló tömböm, és az utolsóba beleteszem az összes olyan esetet, ahol nem talált az előző 7-el egyezőséget, és itt csak a másolandó cellát teszem egyenlővé a cél cellával. Viszont amikor kiköpi a .csv-t, akkor az ebbe a kategóriába eső értékeket "" közé teszi, amit nem kéne.
-
#8885
Zomb€€
őstag
lasarus1988
#8884
Zomb€€
őstag
válasz
lasarus1988
#8884
üzenetére
Köszi!
Itt figyelmen kívül hagyja a kis és nagy betűket? Az is jól jönne.. -
Zomb€€
őstag
Köszönöm a válaszokat!
A neten található tutorialok között mazsolázgatok, egy for ciklus, vagy if-ezés már nem okoz gondot:-]
Még annyi kérdésem lenne, hogy egy aktív cella pozícióját hogy kell kiolvasni? Az előző analógia szerint ez lehet?
X = ActiveCell.Range(Column.Count & Rows.Count) -
Zomb€€
őstag
Üdv VB guruk!
Két kérdésem lenne:
- Először is, ~1 hete ismerkedtem meg VB-el, már megírtam első makrómat, és iszonyat tetszik, egy javaslatot szeretnék, hogy milyen könyvvel, netes anyaggal érdemes kezdeni tanulni, de figyelem, soha nem tanultam programozás:-]- A második már egy VB kérdés, mégpedig, hogy tudjuk meghatározni egy adott táblázat utolsó töltött sorának a pozícióját?
Egyik megközelítésem ez volt:Range("A1").Select
Selection.End(xlDown).SelectDe itt viszont nem tudom meghatározni a poziját.
-
#8775
Zomb€€
őstag
Fire/SOUL/CD
#8772
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8772
üzenetére
Köszönöm szépen!
Elkezdtem én is kutatgatni, a ciklusig eljutottam, de a másolandó paraméternél teljesen elakadtam, az "&" jelre nem gondoltamDelila_1 N Köszi neked is!
-
Zomb€€
őstag
Sziasztok!
Egy makrós guru segítségére lenne szükségem:
Van egy alapfolyamatunk, amit 60x meg kéne ismételni, viszont 2-2 értéket mindig meg kell növelni fix értékkel.
Konkrétan így néz ki az alapfolyamat:
Range("D48").Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-40]C[-1]"
Range("D49").Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-41]C"
A félkövéren szedett értékeket kell mindig növelni. Meg lehet ezt oldani Visualban? -
#8563
Zomb€€
őstag
Fire/SOUL/CD
#8562
Zomb€€
őstag
válasz
Fire/SOUL/CD
#8562
üzenetére
Hú, először is köszi a gyors választ
Ami viszont gond lehet, hogy én általában 1-1 lekérdezés eredményét copy-paste-elem excelbe, ahol az adatbázisban szereplő pontok, vesszők meghatározottak. Erre is jó lehet ez a global átállítás?
-
Zomb€€
őstag
Sziasztok!
Ezt a 2 kérdést még az Office 2007 topikban tettem fel, de sajna nem kaptam válaszokat, pedig fontos lenne, talán itt...
Érdeklődnék, hogy lehet-e olyat beállítani Excell 2007-nél, hogy NE okoskodjon nekem, hogy ha dátumformátumot észlel, akkor azt már be is állítja dátumformátumra, mert az abból induló függvényeket ez iszonyúan megborítja. Nem is értem ezt miért tették bele, Iszonyat sok szívásom van ebből, hogy először szöveggé konvertálok, aztán beilleszt...
Másik pedig az lenne, hogy lehet saját függvényeket írni? Konkrétan nem írni akarok, hanem egy meglévő függvényben megváltoztatni azt a tartományt ami változik a jobbra-balra, le- fel húzogatással.
Mert a bemásolt kód nekem nem működik 
Új hozzászólás Aktív témák
Fferi50- Kutyának sem kellenek a 8 GB-os VGA-k?
- Hisense LCD és LED TV-k
- Bemutatkozott a HHKB legújabb, Topre kapcsolókkal szerelt billentyűzete
- Battlefield 6
- Wise (ex-TransferWise)
- Otthoni hálózat és internet megosztás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Eredeti játékok OFF topik
- Autós kamerák
- iPhone topik
- További aktív témák...
- AKCIÓ! Apple MacBook Pro 16 M4 Max 36GB RAM 1TB SSD macbook garanciával hibátlan működéssel
- Samsung Galaxy S24 Ultra 8/256 GB Titanium Gray 6 hónap Garancia Beszámítás Házhozszállítás
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue - 1 ÉV GARANCIA, Kártyafüggetlen, 100% Akkumulátor,MS3409
- REFURBISHED - Lenovo ThinkPad 40AC Thunderbolt 3 Dock
- Nokia 8 Sirocco / 6/128GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest