-
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
-
Mannon
tag
Üdv,
Tudja valaki, hogy van-e billentyűkombináció arra, hogy cella irányított beillesztése értékként.
Nekem a sok helyen írt ctrl+alt+v nem mükszik @-ot ír.Köszi előre is, bár kétlem hogy lesz.
Pussza"For the Horde"
-
Delila_1
Topikgazda
válasz Mannon #13003 üzenetére
Nekem van, mert megírtam.
Sub Érték_beillesztése()
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End SubEzt a makrót a personalba vidd be (több leírást találsz itt róla a fórumon). Mikor bevitted, az Excelben Alt+F8-cal előcsalod a makrókat, kiválasztod a listából (ha van több is), és az Egyebeknél gyorsbillentyűt rendelsz hozzá.
Működés: Kijelölöd és másolod (Ctrl+C) a tartományt, oda lépsz, ahova az értéket be akarod illeszteni, és megadod a bill. kombináció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.
-
tevfik
tag
Üdv!
Egy webáruházba xml fájlt csinálok tömeges feltöltésre és a következő problémám akadt!
Az admin felületen manuálisan lehet felvinni a képeket.
Tehát az én esetemben így nézz ki : 146_1.jpg
Viszont előzőleg vdb exportáltam csv-t és ezt a stuktúrát kaptam a képekkel.
C:\Users\Felhaszáló\Desktop\2012/146_1.jpg
Ha ezt másolom a cellába- a webáruház nem tudja értelmezni. Hogyan lehet csoportosan levágni az első felét?
C:\Users\Felhaszáló\Desktop\2012/146_1.jpg
C:\Users\Felhaszáló\Desktop\2012/146_2.jpg
146_1.jpg
146_2.jpgígy tovább, folytatva. Több mint 5000db termék
Köszönöm!
-
föccer
nagyúr
-
cousin333
addikt
Bocs, hogy nem válaszoltam, nem voltam gépközelben. De látom, sikerült megoldanod a problémát. Igen, azt az oldalt én is ismerem, sőt, tulajdonképpen én is onnan néztem ki anno.
Az a helyzet, hogy ennek a képletnek a legnagyobb rákfenéje, amivel te is találkoztál: alapvetően nem mindegy, hogy a forrásadatok (X és Y) függőlegesen, vagy vízszintesen vannak-e, az eredményt (az együtthatókat) függőlegesen, vagy vízszintesen várod-e illetve, hogy a tizedes elválasztód pont, vagy vessző...
"We spared no expense"
-
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?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
poffsoft
addikt
válasz Delila_1 #13011 üzenetére
Megoldottam a magyar képletek angolra konvertálását.
Nem elegáns, de működik :
(a feltételes formázás passziválását is lassan megoldom)Public Function ToI(ByVal SStr As String) As String
'
' Formula To International Makró
' By poffsoft
' 2012.02.26.
'
ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").FormulaLocal = SStr
ToI = ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").Formula
End Function1 darab "nemzetközi makrólap" beszúrása kell a munkafüzetbe, annak egyetlen celláját használjuk...
SStr pedig a :
ActiveWorkbook.Sheets(SourceSheetIndex).Range(SourceCell.Address).Formulamegj.: Amíg az Excel4IntlMacroSheets(1) - re a nevével hivatkoztam, valamint amíg az ActiveWorkbook -ot nem szúrtam elé, nem működött
Viszont a mai kérdésem:Hogyan lehet azt figyelni, hogy az aktív cellában szerkesztették a megjegyzést?
Konkrétan azt kellene csinálni, hogy ha szerkeszti valaki a megjegyzést, a megjegyzés utolsó sorát kellene az aktuális dátumra cserélni ami elvileg igy néz ki:
"Modified: 2012.02.27."[ Szerkesztve ]
[ Szerkesztve ]
-
VGYke
addikt
-
#83216640
törölt tag
Sziasztok!
Egy egyszerű kérdésem lenne. Van egy oszlop, x cellával, random számokkal, azt szeretném ha az oszlopban lévő számok értéke csökkenne x%-al. Hogy tudom kivitelezni? -
félisten
válasz #83216640 #13018 üzenetére
Tartományban lévő számok szorzása egy számmal
Nyilván, hogy csökkentsd, így 1-nél kisebb számmal kell szoroznod, pl ha 1%-al csökkentenéd, akkor 0,99-elMindenki 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)
-
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.[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
#83216640
törölt tag
válasz Fire/SOUL/CD #13020 üzenetére
Erre gondoltam, köszi!
-
poffsoft
addikt
If Not IsError(Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0) Then Application.WorksheetFunction.Match(Cells(i, 1), Range(Cells(i + 1, 1), Cells(10, 1)), 0)
legalábbis gugli szerint
az előző kérdésemre senki semmit?[link]
[ Szerkesztve ]
[ Szerkesztve ]
-
attiati
veterán
Van az elmúlt 1000 napra minden nap egy számom, ami folyamatosan változik véletlenszerűen fel és le.
A legelső naptól kiindulva kiválasztom egyesével a számokat és végignézem. Azt szeretném kideríteni, hogy a következő például 75 napban mekkora volt a legnagyobb kilengés felfelé és lefelé a kiinduló naptól kezdve. Ha megvan, akkor átugrok a 2. napra és az azt követő 75 napot vizsgálom.
Ezt egyszerűen meg tudom csinálni a min, max függvénnyel, és ha megvan a min. max érték, akkor leosztom a kiinduló értékkel, és megvan a százalékos elmozdulás. És végighúzom a függvényt, így mindig a következő 75 napot vizsgálja.
Ha végeztem mind a 925 nappal (ugye a 926. naptól már ugyanazt a 75 elemű mozgó idősort vizsgálom, mint a 925. napon), akkor szeretném optimalizálni a számítást.
75-ről növelném vagy csökkenteném a vizsgált mozgó időszak napjainak számát. És ki szeretném számolni minden számú mozgó időszakra (10 naptól egészen 400 napig az összes variációra).
Elég unalmas lenne mindig eggyel hosszabb időszakra végighúzni a képletet 400 féleképpen.
Erre szerintetek van valami egyszerű megoldás, vagy csak manuálisan lehet?
(a valóságban jóval nagyobb mintáról lenne szó, mint a példában)
(szeretném optimalizálni az időszak napjainak számát, és megtalálni azt a hosszúságú időszakot, ami mellett max. 10,11,12… 500 %-os elmozdulás volt) -
Delila_1
Topikgazda
válasz attiati #13024 üzenetére
Ilyesmi kell hozzá:
=MAX(INDIREKT("A"&SOR()+1&":A"&SOR()+$C$1))
ahol az összegek az A oszlopban vannak, és a C1-be írod be, hány szám maximumát akarod kiszámoltatni. Pl. C1=5. A B2-ben megadott képlet az A3:A7 max értékét adja, lehúzva a képletet a B10 az A11:A15-ét.
Egyébként nem kell végighúzni a képletet. Mikor beírtad az elsőt, a cellán állva a jobb alsó sarkában lévő kis fekete négyzetre klikkelsz duplán, és az végig másolja addig, ameddig a tőle balra lévő oszlopban valamilyen adatot talál, vagy addig, ameddig a saját oszlopában van adat.
[ 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.
-
SecMan
csendes tag
XML adatok szerkesztése Excel-el (2003)
Amit meg kellene oldalom:
egy xml-t importálni, szerkeszteni, majd exportálni xml-ben.
Amíg az xml-be nem került ismétlődő adat, addig működött is.
Ráadásul az ismétlődő elem darabszáma is változó elemenként, ezért nem csinálhatom azt, hogy c1,c2, magyarul annyi oszlop, ahányszor előfordul egy elemben.Tudnátok valami támpontot adni, hogy alakíthatnám olyanná, amit Excel is megeszik?
A forrás:
<root>
<elem>
<a></a>
<b></b>
<c></c>
<c></c>
<c></c>
<c></c>
<d></d>
</elem>
<elem>
...
</elem>
...
</root> -
VGYke
addikt
válasz poffsoft #13023 üzenetére
Ismét köszönöm, de ez sem gyógyította meg, ellenben megismertem az IsError-t
Nekem meg ez a lap segített, igaz nem gyorsan.
A titok: Application.WorksheetFunction.Match( nem szereti a vasúti sínt.
Application.Match( semmi baja a hiányzikkal!kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
veterán
sziasztok!
van két táblázatom, egy 60k soros mailcímekkel, beosztásokkal, stb.
van ennek egy kivonata, 500 soros, ahol viszont csak az emailcímek adottak. hogyan tudnám megoldani, hogy az 500 soros táblázatban a megadott emailcímekhez tartozó pl. munkahelyet valamilyen fv kitöltse, azaz megkeresse az óriási táblázatban ugyanezt a mailcímet tartalmazó sort, és annak az éppen szükséges oszlopát átmásolja. azért lenne jó, mert így nem kellene egyenként megkeresni a mailcímeket... vlookup fv-el nem nagyon akar összejönni
köszi a segítséget
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
csferke
senior tag
Szasztok!
Igen, igaz ez nem Excel téma de sajna a Word fórumon hiába tettem fel a kérdést. Tehát megpróbálom itt is hátha tud valaki segíteni.
Word 2007
A szövegben szerepel 2 dátum óó/nn/hh/éééé formában. Van-e lehetőség és hogyan lehet kivitelezni, hogy ha az 1. dátumot megváltoztatom akkor automatikusa változzon a 2. is.
Az automatikus változás -31 nap kellene, hogy legyen. Értelemszerűen változnia kell a nn/hh/éééé-nek.óó/nn/hh/éééé
1. dátum 07/23/02/2012
2. dátum 18/23/01/2012Az óó a 2.-ban állandó csak az elsőben változik de ezt nem kell figyelembe venni a dátumnál.
köszi
-
félisten
válasz csferke #13032 üzenetére
Egy kép beszédesebb lett volna, most csak kérdezni tudok
Szövegként vannak jelen a dátumok avagy valamilyen objektumként (pl activex vezérlő) vagy pl körlevél törzsdokumentum mezőként stb?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)
-
csferke
senior tag
válasz Fire/SOUL/CD #13034 üzenetére
Sima szövegként vannak feltüntetve a dátumok, de minden más megoldás is számításba jöhet.
-
attiati
veterán
-
Delila_1
Topikgazda
válasz attiati #13036 üzenetére
Újra átolvasva a kérdésedet, valóban nem kell a +1.
Nem szükséges, hogy a képlet a mellette lévő oszlopra hivatkozzon, de a balra mellette lévő oszlopban legyenek bármilyen adatok ahhoz, hogy dupla kattintásra végig lemásolódjanak a képletek. Ameddig van adat, addig lesz másolat.
Most, hogy kiveszed a +1-et, működni fog a duplaklikk, mert a másik lehetőség, hogy az aktuális oszlopban legyenek folyamatosan valamilyen adatok, képletek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kreiszdavid
csendes tag
Üdv!
abban kéne a segítségetek:Hivatkozással megtudtam csinálni hogy egy képet megjelenítsen az excelben. Ha képletmásolással lehúzom akkor csak mindig ugyanazt az egy képet mutatja. Nekem az volna a jó ha mindig a sorban az alatta lévő elérési útját mutatná és akkor az a kép jönne fel hivatkozáskor ami a szöveghez tartozik. A mappában a képek neve megegyezik a cellákban lévő szöveggel
képek elérési útja:
c:\Képek\munka\cipők\szállás u\BAI12AB5141GR.JPGköszi
-
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[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
félisten
Igen, jó kis tréfa, kár hogy most magadat viccelted meg. 2 megoldás is lehet
1. SND_SYNC-re cseréled a SND_ASYNC-et (ilyenkor megáll a lejátszás ha pl kilépsz az excel-ből
2. WAVFile helyett Vbnullstring-el hívod meg újra a playsound-ot.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)
-
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?[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
félisten
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Play_Click()
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
WAVFile = "D:\test.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Private Sub Stop_Click()
Call PlaySound(vbNullString, 0&, SND_ASYNC Or SND_FILENAME)
End SubMegjegyzés
A deklarációba bekerült nálam a PtrSafe, mert x64-es a rendszerem. 32 bites rendszernél nincs rá szükség.[ 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)
-
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.
[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
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[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
yoogie
aktív tag
Sziasztok!
Erre valaki esetleg?
-
Winner_hun
félisten
Nyilakkal való lépkedéskor miért nem a mellette levő cellába ugrik a program? Egy egész oszlopnyit arrébbgörgeti a dokumentumot, a kijelölés viszontmarad az eredeti cellán.
► "Kicsit olyan webcaritas" ◄ ヅ
-
félisten
válasz Winner_hun #13046 üzenetére
Ablakfelosztás van vagy be van kapcsolva a Scroll Lock
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)
-
Winner_hun
félisten
válasz Fire/SOUL/CD #13047 üzenetére
Scroll Lock lett benyomva pár órája, köszönöm.
► "Kicsit olyan webcaritas" ◄ ヅ
-
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 14kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
Új hozzászólás Aktív témák
- Miért vezet mindenki úgy, mint egy állat?
- Autós topik látogatók beszélgetős, offolós topikja
- A fociról könnyedén, egy baráti társaságban
- Havi kétszáz leégett tápcsatlakozó fut át egy Los Angeles-i szervizen
- A Baseus legfrissebb Type-C dokkolója nem csupán sokrétű, de helytakarékos is
- Samsung Galaxy S21 FE 5G - utóirat
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- Milyen egeret válasszak?
- Fotók, videók mobillal
- Házimozi belépő szinten
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Canva Pro előfizetés - 1 éves
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Makón Operációs rendszerek telepítését, frissítését, karbantartását rövid határidővel vállalom
- GIGABYTE BRIX
- PC Grand Theft Auto (GTA) Episodes from Liberty City MAGYAR kiadás
- egyben - termékkulcs nélküli magyar nyelvű Windows 8/8.1 Pro 32- és 64-bit OEM telepítőlemez
- egyben - termékkulcs nélküli magyar és angol nyelvű Microsoft Windows 7 Pro 32-bit OEM telepítőlemez