Szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Ü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" Hajrá BF3

Nemigazán van erre lehetőség, maximum ha írsz rá egy kis marót

Ami működik, ahhoz nem szabad hozzányúlni!

Nekem van, mert megírtam.

Sub Érték_beillesztése()
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Ezt 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. http://www.elektroabc.hu/

Az sem rossz. Ezt a lehetőséget a 2007-es verzióban vezették be.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Ü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!

=jobb(A1;9)

Feltéve, ha minden esetben 9 karakter a kívánt rész.

Ha ez változhat, akkor =jobb(A1;(hossz(A1)-keres(A1;"/"))

Vagy valami ilyesmi. Most nincs előttem Excel így csak fejből, de a lényege az érthető.

üdv, föccer

[ Szerkesztve ]

_________________ Mindent figyelünk.... (-(-_(-_-)_-)-) ____________________ _____ Az alapelvek nem ismerete nem mentesít annak betartása alól. _____

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ő...

Webfejlesztő vagy? Érdekelnek az újdonságok? Próbáld ki, írj róla és nyerj! http://magyaropera.blog.hu/2011/03/01/iroi_palyazat_dragonfly_bemutato

2003-ban az irányított szűréssel is megoldhatod az egyedi értékek másolását, de csak ugyanarra a lapra. Onnan viszont bárhova.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Köszönöm sikerült. De ha átakarom másolni más munkafüzetbe, ugyebár akkor az A1;9 hivatkozik tehát az érték - lesz.

Nem lehet, hogy már a kiértékelt adatot másolja és ne a képletet?

Beszúrásnál használd az irányított beszúrás->érték funkciót és akkor nem a teljes cella tartalmát (ami jelenleg egy függvény), hanem az általa adott eredményt fogja beszúrni.

üdv, föccer

_________________ Mindent figyelünk.... (-(-_(-_-)_-)-) ____________________ _____ Az alapelvek nem ismerete nem mentesít annak betartása alól. _____

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ön adni

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 Function

1 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).Formula

megj.: 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 ]

˙˙˙˙˙˙˙˙˙˙˙˙ Betonkeverővel a rák ellen. Védd a nyenyeceket, fűts hóddal! ˙˙˙˙˙˙˙˙˙˙˙˙

Köszönöm! Hát, ez sem gyógyította meg, viszont próbálgatással rájöttem. Mindaddig működik amég van találat, viszont a vasúti sínnél (######## = HIÁNYZIK) kiakad. Na, ezt hogy lehet egyszerűen megoldani?

kutya az ember legjobb barátja... lenne, ha tudna kölcsön adni

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?

Alivio FD-M412 0km-es első váltó eladó http://hardverapro.hu/apro/alivio_fd-m412_elso_valto/friss.html

Hogyan adod meg a százaléklábat és hová szeretnéd tenni az eredményt?

MS Office Excel2010 (HUN)

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-el

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)

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ön adni

Erre gondoltam, köszi!

Alivio FD-M412 0km-es első váltó eladó http://hardverapro.hu/apro/alivio_fd-m412_elso_valto/friss.html

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 ]

˙˙˙˙˙˙˙˙˙˙˙˙ Betonkeverővel a rák ellen. Védd a nyenyeceket, fűts hóddal! ˙˙˙˙˙˙˙˙˙˙˙˙

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)

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. http://www.elektroabc.hu/

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>

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ön adni

NM!
Mondjuk én a funkciókat mêg sosem hasznâltam így.
Esetleg MS tudâsbázis megmagyarâzhatja a titkot?

˙˙˙˙˙˙˙˙˙˙˙˙ Betonkeverővel a rák ellen. Védd a nyenyeceket, fűts hóddal! ˙˙˙˙˙˙˙˙˙˙˙˙

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

Eladó Balaton Sound bérlet: http://hardverapro.hu/apro/elado_balaton_sound_heti_berlet/friss.html

simán =fkeres()

Arra figyelj, hogy a keresési oszlop szerint sorba kell rendezni a táblát.

üdv, föccer

_________________ Mindent figyelünk.... (-(-_(-_-)_-)-) ____________________ _____ Az alapelvek nem ismerete nem mentesít annak betartása alól. _____

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/2012

Az óó a 2.-ban állandó csak az elsőben változik de ezt nem kell figyelembe venni a dátumnál.

köszi

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)

Sima szövegként vannak feltüntetve a dátumok, de minden más megoldás is számításba jöhet.

azt megkérdezhetem, hogy a +1 miért szerepel a képletben?

És valamiért nem működik a dupla kattintás a lehúzásnál ennél a képletné. Manuálisan le kell húznom. Amiatt lehet, mert nem a közvetlenül mellette levő oszlop értékeivel számoltatok?

[ Szerkesztve ]

Ú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. http://www.elektroabc.hu/

Ü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.JPG

köszi

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 Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
WAVFile = "Hang.wav"
WAVFile = "Elérési út\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Szó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ön adni

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)

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ön adni

Készítettem 2 parancsgombot

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 Sub

Megjegyzé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)

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ön adni

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 Sub

Sub 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ön adni

Sziasztok!

Erre valaki esetleg?

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" ◄ ヅ

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)

Scroll Lock lett benyomva pár órája, köszönöm.

► "Kicsit olyan webcaritas" ◄ ヅ

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 Sub

Sub Auto_Close()
vege = Int(Rnd() * 27)
MsgBox vege
End Sub

Tehá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

kutya az ember legjobb barátja... lenne, ha tudna kölcsön adni

Randomize