Keresés

Részletes keresés

kelan Creative Commons License 2011.05.02 0 0 14726

Köszi Jimmy, a képleted első fele volt a megoldás a problémámra. A cellaformázás problémáját meg végül így sikerült megoldanom:

 

=HA(A2>A1;"- ";"") & SZÖVEG(ABS(A2-A1);"[ó]") & " h "&SZÖVEG(ABS(A2-A1);"pp")&" p"      :)

Előzmény: Törölt nick (14725)
Törölt nick Creative Commons License 2011.05.02 0 0 14725

Ha nem akarsz az eredménnyel további számításokat végezni, akkor szövegként megjeleníthető:

=HA(A2>A1;"- ";"") & SZÖVEG(ABS(A2-A1);"óó:pp:mm")

 

Előzmény: kelan (14724)
kelan Creative Commons License 2011.05.02 0 0 14724

Sziasztok!

 

A problémám a következő, két időértéket szeretnék kivonni egymásból, a cellaformátumok:  [ó]" h" pp "p"

 

Ha a különbség negatív, akkor ############ jelenik meg eredményként, nyilván az Excel nem tud mit kezdeni a negatív idő fogalmával, de én szeretném, hogy ez jelenjen meg. Nem tudok rájönni a megoldásra... Tudtok segíteni?

Xooo Creative Commons License 2011.05.02 0 0 14723

Sziasztok !

 

A kérdésem a következő lenne....

 

Adott egy excel file: http://www.megaupload.com/?d=L5TTNBZD

 

Így érthetőbb lesz. :) Ez egy szállítmányozási terv, aminek a felső sorának egy blokkja ezt tartalmazza pl: 400 co 11630. Vagyis hány db termék melyik raktárban milyen munkaszámon van. Az oszlop ( csak 3 kiszállítás terve van meg mindig, tehát 3 dátumot tartalmaz egy blokk )

 

Jelenleg manuálisan számolgatom, hogy ha pl 1200 terméket kell kiszállítanom ápr 30-án, akkor ahhoz szedjen össze az első raktárból 400-at ( mert ott annyi van ) a másodikból pedig 800-at pl. Ez egyszerű, van amikor 4-5 helyről kell összeszednem és számolgatnom a maradékot a következőhöz.

 

Van erre szerintetek valami épkézláb megoldás, hogy ha beírom az összesen-be hogy 1320, akkor ez sorban ( a raktárak sorban vannak ) szedje össze a megfelelő mennyiségű terméket?

 

Példa: 300 co 11447            380 a 11447              250 co 77455

Össz: 500

 

Ehhez az első raktárból 300-at vesz el, a másodikból pedig 200-at, de abban maradt 180.

 

 

Köszi az ötleteket előre is :)

Törölt nick Creative Commons License 2011.05.01 0 0 14722

Menü: Ablak -> Ablaktábla rögzítése.

Az aktuális kijelölés fölötti, illetve attól balra eső rész lesz rögzítve.

Előzmény: wiesel (14721)
wiesel Creative Commons License 2011.05.01 0 0 14721

Üdv a Fórumnak!

 

Excel programon belül kínlódok már egy jó ideje. Még valamikor jócskán a múltban sikerült olyasvalamit véletlenül elkövetnem, hogy akármennyire görgettem le a "Munkafüzet"-en, néhány kijelölt sor mindig látszódott a lap tetején. Ezt milyen paranccsal lehet elérni? (2003 Office-om van.) Segítséget előre is köszönöm! Üdv:

 

Wiesel

amo007 Creative Commons License 2011.04.30 0 0 14720

Egy kis cheat-re lenne szükségem.

Adott egy excel file, amiben van VB kód, command button stb.

A file 2006-ban készült: tulajdonságok->Részletek->tartalom létrehozása.

Ezt a tartalom létrehozása időt hogyan tudom átállítani, mondjuk a mai napra???
Póbáltam, hogy kimásoltam mindent és beillesztettem egy új file-ba, de a dátum maradt 2006

A file mentés máskét és eredeti felülírásánál is maradt a dátum

Help pls!

pilota-kex Creative Commons License 2011.04.27 0 0 14719

SQLkerdes: a megoldásod tökéletes, köszönöm szépen! :) ÜDV!

Előzmény: SQLkerdes (14675)
bencesoma Creative Commons License 2011.04.27 0 0 14718

hálás köszönet!

kb. ez volt az amit és ahogy még nem próbáltam :)

Előzmény: Törölt nick (14717)
Törölt nick Creative Commons License 2011.04.27 0 0 14717

így vhogy:

ÉV(MA())

stb...

Előzmény: Törölt nick (14716)
Törölt nick Creative Commons License 2011.04.27 0 0 14716

szia,

a guru te vagy, mert válaszoltál a saját kérdésedre.

ÉV()

HÓNAP()

NAP()

függvényekkel.

Előzmény: bencesoma (14715)
bencesoma Creative Commons License 2011.04.27 0 0 14715

sziasztok Excel-guruk, egy aprócska (és talán láma) kérdésem lenne:

azt hogyan lehet/kell megcsinálni, hogy az Excelben függvény alkalmazásával a cellákba az aktuális értékeket írja be: év, hónap, nap (mármint, hogy 2011, 04, és 27 legyen az addig üres 3 cellában)?

előre is köszönöm!

Törölt nick Creative Commons License 2011.04.27 0 0 14714

pl. az, hogy ez nem müxik így :)

Előzmény: joe.bacsi (14711)
mixtura_pectoralis Creative Commons License 2011.04.26 0 0 14713

Hála köszönet, így már műxik! :-))

Előzmény: stromba (14710)
Delila10 Creative Commons License 2011.04.26 0 0 14712

Annak jó, aki nem mer (nem tud) makrót írni, alkalmazni.

Előzmény: joe.bacsi (14711)
joe.bacsi Creative Commons License 2011.04.26 0 0 14711

Alt-F11

Insert->Module

 

Function szamolas(keplet As String)    

szamolas = Evaluate(keplet)

End Function

 

Alt-Q

=szamolas(a2)

 

Vagy van valami külön oka, hogy érdemes ezt ennyire megbonyolítani? :)

Előzmény: Delila10 (14708)
stromba Creative Commons License 2011.04.26 0 0 14710

 

"'szükséges referencia a "Microsoft Scripting Runtime"-hoz. VBA-ban Tools - References alatt"

VBE nem VBA, de nem véletlenül írtam oda megjegyzésnek. :)

 

Szóval a Visual Basic Editorban a menüben kiválasztod a Tools-t majd a References-t és bepipálod a "Microsoft Scripting Runtime"-ot. De úgy is működnie kellene amit Jimmy írt.

 

 

Előzmény: mixtura_pectoralis (14707)
Törölt nick Creative Commons License 2011.04.25 0 0 14709

Próbáld meg úgy, hogy ezt:

Dim FSO As Scripting.FileSystemObject

kicseréled erre:

Dim FSO As Object

Előzmény: mixtura_pectoralis (14707)
Delila10 Creative Commons License 2011.04.25 0 0 14708

Hátha valakit érdekel:

 

 

mixtura_pectoralis Creative Commons License 2011.04.25 0 0 14707

Köszönöm, odáig eljutottam, hogy a makrok közé bemásoltam, de futásnál erre "user-defined type not defined" hibát ir ki:

Dim FSO As Scripting.FileSystemObject

 

Előzmény: stromba (14706)
stromba Creative Commons License 2011.04.25 0 0 14706

 

Például. Én szeretek csak annyi sort kimásolni az alapfájlból amennyiben értékes adat van (vizsgáljuk például azt hogy mi az utolsó sor), ez itt lent annyiban egyszerűbb hogy mindenképpen 200 sornyi adatot másol. Az "első munkalap" nem mindig az első munkalap ezért érdemes lenne inkább névre hivatkozni.

 

 

Sub CrDb()

Dim FSO As Scripting.FileSystemObject, folder As Scripting.folder, file As Scripting.file, wb As Workbook

'szükséges referencia a "Microsoft Scripting Runtime"-hoz. VBA-ban Tools - References alatt

Dim directory As String

Dim thisWB, tempWB As String

Dim dbSh As String

Dim i As Long

 

Application.ScreenUpdating = False 'képernyõfrissítés kikapcsolása

 

Workbooks.Add 'adatbázis új munkafüzetben, ezt majd lementheted MIND.xls néven v. akárhogy máshogy

thisWB = ActiveWorkbook.Name

dbSh = ActiveSheet.Name

i = 1

 

    directory = "d:\PersonalData\Test" 'az alkönyvtár ahol a fájlok vannak.

 

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set folder = FSO.GetFolder(directory)

 

    For Each file In folder.Files

 

        Application.DisplayAlerts = False 'windows üzenetek kikapcsolása

        Workbooks.Open file

        tempWB = ActiveWorkbook.Name

        Worksheets(1).Activate 'az elsõ munkalap ahol az adatok vannak

        Range("A1:J200").Select 'az a tartomány ahol az adatok vannak

        Selection.Copy

 

        Workbooks(thisWB).Worksheets(dbSh).Activate

        Cells(i, 1).Select 'adatok bemásolása az adatbázisba

        ActiveSheet.Paste

        i = i + 200 'következõ adathalmaz 200 sorral késõbb másolódik

        Workbooks(tempWB).Activate

        ActiveWorkbook.Saved = True

        ActiveWorkbook.Close 'becsukjuk az alapfájlt

        Application.StatusBar = tempWB & " kész" 'statusbar frissítése, hol tart a program

 

    Next file

End Sub

 

 

Előzmény: mixtura_pectoralis (14705)
mixtura_pectoralis Creative Commons License 2011.04.24 0 0 14705

Ha jól értem a szöveget, akkor ez sok munkalapot csinál egy munkafüzetbe.

 

Nálam az a helyzet, hogy eltettem a MUNKA könyvtárba 250 db excel fájlt, p001 - p250 néven.

Mindegyikből az első munkalapon lévő A-J oszlopok tartalmát kell kimásolni a MIND.xls fájl első munkalpjára, egymás alá.

Végignéztem őket, a leghosszabb sincs 200 sor, tehát A1:J200 cellákat kell átmásolni, de a célterület az A1, A201, A401, stb. cellákkal kell kezdődnie.

 

A végeredmény a mind.xls első munkalapján a1 - j5000 táblázat, amit már tudok kezelni.

Ehhez kérek segítséget.

Előzmény: Törölt nick (14704)
Törölt nick Creative Commons License 2011.04.24 0 0 14704
Előzmény: mixtura_pectoralis (14703)
mixtura_pectoralis Creative Commons License 2011.04.24 0 0 14703

250.

igen.

Csak egymás alá kell másolni őket, az oszlopok azonosak.

Előzmény: Sánta Kutya (SK) (14702)
Sánta Kutya (SK) Creative Commons License 2011.04.24 0 0 14702

Mennyi a rengeteg? A szerkezetük teljesen azonos?

Előzmény: mixtura_pectoralis (14701)
mixtura_pectoralis Creative Commons License 2011.04.24 0 0 14701

Üdv, látom, nagyon profik vannak itt vba szkriptek terén is, máris van reményem.;)

Az access listára irtam, azt a választ kaptam, hogy szkripttel oldható meg, de fogalmam sincs, milyen access szkriptet kellene irni, és csak sql-hez értek.;)

Viszont akkor a másik oldalról fognám meg a probléma gyökerét, és talán ebben tudtok segiteni.

 

Adott rengeteg excel fájl, heti pénztár forgalmi adatokkal, 10 oszlop, 110 sor.

Access-be át kell másolni őket, de access-be csak egyesével lehet, abba beleőszülök.

 

Az lenne a legegyszerűbb, ha az excel fájlokat - mindegyik egy munkalapos - egyetlen fájl egyetlen munkalapjára, egymás alá be lehetne másolni, azt már - pici kézimunkával - be tudnám importálni access-be.

 

Valaki tudna egy szkripttel segiteni?

szkripnyik Creative Commons License 2011.04.23 0 0 14700

Kösz!

Egyébként, ahol a problémám adódott volt egy harmadik (szintén LONG típusú) szorzótényező is.

Ha azt írom előre és nem a konstans tényezőt, akkor nincs probléma...

:-))

Kellemes ünnepet!

Előzmény: Törölt nick (14698)
Törölt nick Creative Commons License 2011.04.22 0 0 14699

VBA, Integers are 16-bit signed types, when you perform arithmetic on 2 integers the arithmetic is carried out in 16-bits. Since the result of multiplying these two numbers exceeds the value that can be represented with 16 bits you get an exception. The second example works because the first number is first converted to a 32-bit type and the arithmetic is then carried out using 32-bit numbers.

Előzmény: szkripnyik (14696)
Törölt nick Creative Commons License 2011.04.22 0 0 14698
Előzmény: szkripnyik (14696)
maiann Creative Commons License 2011.04.22 0 0 14697

hohoóó, így fényévekkel egyszerűbb, köszönöm a segítséget, SQLkerdes és Delila10!!

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!