- iPhone topik
- Mobil flották
- Honor 400 Pro - Gép a képben
- Íme az új Android Auto!
- Sony Xperia 1 VII - Látod-e, esteledik
- Xiaomi 14 - párátlanul jó lehetne
- Honor Magic V5 - méret a kamera mögött
- Samsung Galaxy Watch7 - kötelező kör
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- iPhone 16e - ellenvetésem lenne
Hirdetés
-
Mobilarena
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
-
azopi74
addikt
válasz
Fferi50
#27097
üzenetére
Én meg azt nem értem, hogy miért nem érhető el excelből (akár name managerből, akár natívan) az összes VBA-s függvény.
Pl egy JOIN is hiánypótló lenne, vacak CONCATENATE helyett. Meg van még egy pár.
Persze bizonyos szempontból érthető , de legalább lehetne mondjuk az excelt expert módba kapcsolni, és akkor minden jóság elérhető lenne, nem kéne makrózgatni minden vacakot, állítólag úgyis a hosszú távú stratégia, hogy a VBA-t örök vadászmezőkre küldjék, dehát így nehéz lesz...
-
-
karlkani
aktív tag
válasz
Fferi50
#27064
üzenetére
Szia!
Tudom, hogy csak egész számokat fogad el, de elütés esetén a számított mezőben #ÉRTÉK jelenik meg azonnal, mert számot betűvel, írásjellel, stb., nem tud szorozni (beírja, csak hibaüzenet jön fel és nem engedi, hogy ott maradjon). Viszont a SZORZAT képletet alkalmazva a sima =A1*B1 helyett, jó. Ugyan, ilyenkor a "nem szám" karaktert 1-nek veszi (mintha 1 db-ot írtam volna, ezért nincs összegzéskor hiba), de az érvényesítés úgyis jelzi, hogy baj van. Innentől kezdve nincs szükség lenyíló menüs listára, mert a módosítás dátumának helyén nem fog #ÉRTÉK megjelenni, amit csak a két rejtett oszlop felfedésével, majd az alábbi képletnél a szerkesztőlécre lépve, majd vissza a munkalapra (ctrl+alt+F9-re innél semmi sem történik).
=HA(C9="";"";HA(VAGY($E$9="";ÉS(SZÁM(F9);C9=F9));F9;C9)) -
karlkani
aktív tag
válasz
Fferi50
#27062
üzenetére
Szia!
Ezen a munkalapon 500-20000-ig vannak a papírcímletek, darabszám, érték összesen az adott bankjegyből, a címletek összértéke, valamint a módosítás ideje. Az idő körkörös hivatkozással lett megoldva, egy fórumtárs segítségével, ami szépen működik is. Viszont, ha nem számok kerülnek a darabszámos mezőkbe (véletlen elütöm), akkor a módosítás dátumára kapok egy #ÉRTÉK! hibaüzenetet. Emiatt kell legördülő lista, érvényesítésnél kellene forrásnak megadni 0-100-ig az egész számokat. Gondolom erre marad az, hogy egy oszlopban 0-100-ig elkészítem a cellákat, majd azt adom meg forrásnak, esetleg az oszlopot elrejtem...
Már át is szerkesztettem a képleteknél!
-
-
#27022
dellfanboy
őstag
Fferi50
#27015
dellfanboy
őstag
válasz
Fferi50
#27015
üzenetére
köszi++
az normális hogy ott nem tudok válaszolni?
szia
köszi a segítséget
2007-es az xls-em de ezt a napokban fogják updatelni.
mintát feltölteni nem tudok de leírok 1 példát
van 1 xls ügyfél adatokkal,név,id1,id2 ország,megye,város,F/L,kor
1másik hogy mit vett tőlünk(telco-it szolgáltatás) elég részletesen
harmadik hogy amit eladtunk neki az milyen főkönyvre van bekötveés ebből vannak summaryk hogy pl
mobil bevétel mennyi /ország/megye/város/kor bontásban a mobil bevételből mennyi az sms, internet stb. ha változott miért vett-e ilyen bővítő cuccot stb. -
-
Árnymester
tag
válasz
Fferi50
#26968
üzenetére
Köszi. Megvannak ezek a függvények. Ismerem ezeket. Egyébként 2010-ről van szó aktuálisan, de használok 2013-at is. A beépített függvények nem tudják a rendkívüli munkanapokat, és nekem most erre volt szükségem, csak nem jött az ötlet. Ha csak egy nap vizsgálatáról lett volna szó, simán leküzdöm FKERES-sel.
Delila szállította a megoldást.
Köszönöm a reflektálást. -
Vladek83
tag
válasz
Fferi50
#26933
üzenetére
A két oszlopban, előfordulhat azonos karakter és mind a két lehetőséget (amit írtál) kellene mutatnia. Mikor leüti a következő betűt vagy számot, akkor már csak azokat a sorokat mutassa ahol az a kettő karakter megtalálható... ( a kis és nagybetűt hagyja figyelmen kívül ) Remélem mindent leírtam
-
tombar
senior tag
-
Fferi50
Topikgazda
válasz
Fferi50
#26879
üzenetére
De még parancsgomb se kell, a makró indítást felteheted a menüszalagra a beállítások, menüszalag testreszabása használatával.
A makróhoz kellene egy kicsit pontosabb ismeret:
Pivottáblából csinálod a diagramot, vagy a "táblázatod" egyszerűen csak külső hivatkzásokat tartalmaz?Üdv.
-
Easy01
újonc
válasz
Fferi50
#26875
üzenetére
Szia!
Beállítottam a megnyitáskori frissítést. A felhasználó azt a személyt jelentené, aki megnyitja a táblát, az szűrni tud benne, valamint a diagramot tudja használni, de a cellákba nem tud sem írni, sem törölni. A tábla töltődik a hivatkozások által, frissülni pedig automatikusan frissül minden megnyitáskor. Viszont ha egész nap használja a felhasználó, folyamatosan nyitva van a file, akkor a napközbeni frissítést az adatok/kapcsolatok/összes frissítéssel oldanám meg, de ezt nem engedi a lapvédelem miatt. Így ezért kérdeztem, hogy esetleg van-e erre valamilyen egyéb megoldás
. Én csak egy lelkes excel felhasználó vagyok, a tudományom véges . Köszi a segítséget! -
Easy01
újonc
válasz
Fferi50
#26873
üzenetére
Szia! Nagyon köszönöm a választ
. Egy problémám van csak, hogy ez a tábla automatikusan és önállóan dolgozik, én nem is nyúlok bele csak a végfelhasználó. Ezért a feloldásra sincs lehetőség 
. A célom az lenne, hogy automatice frissítse az adatokat felhasználás céljából, de ne lehessen szerkeszteni a táblát. -
azopi74
addikt
válasz
Fferi50
#26851
üzenetére
Hát ritkán mondok ilyet, de ez tipikusan az a feladat, ahol sajnos muszáj lesz némi minimális VBA-t bevetni, ha segédoszlop nélkül akarjuk. Az a probléma, hogy ez a vacak concatenate "függvény" elég korlátozott, számomra érthetetlen módon nem lehet neki tömböt megadni paraméterként. Szóval szerintem valamennyi minimális VBA kód muszáj bele, mondjuk ennyi:
Function JoinAll(InputArray As Variant, delim As String) As String
JoinAll = Join(InputArray, delim)
End FunctionÉs akkor ezt rá lehet ereszteni a tömbképletedre, "delim"-nek olyan delimitert megadva, amit akarunk.
Dehát ha már van benne VBA kód, akkor már úgyis mindegy, veszett fejsze nyele
Más ötletem nagyon sajnos nincs, ha szövegösszefűzésről van szó, akkor én is a VBA-ra fanyalodok a primitív concatenate "függvény" - ami valójában nem más, mint az "&" operátor, csak függvény-szerű szintaktikába csomagolva - hiányosságai miatt (nem csak a tömböket, de például az iterációt se támogatja)...
Nem értem miért nem lehet a VBA-s join függvényt betenni a natív excel függvények közé. Ha betennék, akkor ez (meg egy csomó más probléma) teljesen VBA mentesen megoldható lenne.... -
#26789
TrollBalint
addikt
Fferi50
#26787
-
#26783
TrollBalint
addikt
Fferi50
#26782
TrollBalint
addikt
válasz
Fferi50
#26782
üzenetére
kézzel bővítem a táblázatot, egyelőre makró-mentes a file.
Ami még számomra érdekes, hogy mikor kijelöltem a kész tartományt, és táblázattá alakítottam, akkor tartalmazott X darab oszlopot. Azóta, ha új oszlopot szúrok bele (mindig a végére), akkor az eredetileg táblázattá alakított tartomány utolsó oszlopának a formátumát örökli.ja, és a sok formázástól, meg szeret meghalni a file is
Párszor belefutottam a hibába, hogy csinálgattam a dolgomat, elmentem, és mikor meg akarom nyitni, azt írta ki, hogy "file is corrupted" és nem is nyitotta meg. Mikor egy újabb excel-ben megnyitottam - mert hogy az meg tudta nyitni - akkor kiírta, hogy valami stílus probléma van az egyik táblázattal. Azt törölte, és egyébként működött minden. ha újra megformáztam ezt a táblázatot, akkor meg jó lett -
#26781
TrollBalint
addikt
Fferi50
#26780
TrollBalint
addikt
válasz
Fferi50
#26780
üzenetére
Ezt akkor buktam
(Merthogy nekem táblázattá alakított tartományom van, még azopi ajánlotta bő egy hónapja, és azt kell mondjam, nagyon megtetszett, tényleg hasznos. Erre a problémára meg akkor megpróbálok megoldást találni a neten.
Mindenesetre köszi a segítséget,azopi: Neked esetleg van ötleted a megoldásra?
-
#26779
TrollBalint
addikt
Fferi50
#26748
TrollBalint
addikt
válasz
Fferi50
#26748
üzenetére
Köszi,
Egy beállítást találtam:Extend data range formats and formulas Ez nálam be van pipálva (a help szerint, ha jól értem, ez lemásolja az előző sor formátumát. Ehhez képest nem működik
Jól sejtem, hogy ez(ek) a beállítás(ok) a file-hoz tartoznak és nem magához az Excelhez? Mert akkor megnyitom egy modernebb office-szal és beállítom ott -
csferke
senior tag
válasz
Fferi50
#26757
üzenetére
A Hyperlink.TextToDisplay tulajdonság értéke legyen a számlaszám.
Sajnos ezzel nem boldogulok. További segítségedet kérem.A "Számla készítése" lapon (hogy egy helyen legyen minden adat) van egy ilyen rész.
Egy gombhoz (Könyvelés) rendelt makróban Copy A2:E2, átváltás a "Számlák könyvelése" lapra, A oszlop utolsó bejegyzése sor+1 és itt Paste.
Csak ezután, egy másik gomb (PDfF írás & Nyomtatás) íródik ki a számla pdf-be a C4 mezőben összevont névvel és elküldi a számlát egy nyomtatóra is.Pdf írás előtt meghívódik ez a szubrutin amely meghatározza az írás helyét
Sub HovaMenteniMappa()
ChDrive "G"
ChDir "g:\valami\2015\"
End SubTehát azt szeretném, hogy a "Számla könyvelése" lapon a B oszlopban lévő számlaszámok egyben hivatkozások is legyenek az adott pdf számlához. Mindezt automatikusan a makró-ból.
Remélem érthetően sikerült megfogalmaznom az elképzelésemet.
köszi
-
azopi74
addikt
válasz
Fferi50
#26762
üzenetére
Ja persze, a cellaformátumot illek beállítani el.
Igen, megszerettem a használatát, sok helyen ütközik az ügyfél IT policyjával a makrók használata, és le van tiltva alapból, ilyenkor sokszor az iteratív kalkuláció engedélyezése életmentő lehet
Bár néha - komplexebb dolgoknál - kicsit sokat kell a megoldáson agyalni -
Mindless
tag
válasz
Fferi50
#26719
üzenetére
Szia!
Köszönöm a gyors válaszodat
=HA(G351="";"";INDEX(Keres!L:L;HOL.VAN(1;(Keres!G:G=G351)*(Keres!F:F=F351)*(Keres!E:E=E351);0)))
Szerinted ezt a 3 változóval kereső függvényt meg lehet fordítani, úgy hogy ugyanezt csinálja, csak mindig a táblázat aljáról kezdje vagy az utolsó találatot adja vissza az első helyett?
Köszi előre is
-
Zola007
veterán
válasz
Fferi50
#26708
üzenetére
Szia!
Köszönöm, de sajnos ez sem működik valamiért. ( Office Professional Plus 2010 egyébként)Igen, munkalap függvénynek akartam használni, hogy később is ha kijelölök még hozzá egy területet, azt is számolja bele, de akkor úgy látom tényleg minden tartományt külön paraméterként kell bekérni.
Kár, hogy nem tudja a makró kezelni ezt csak külön-külön definiálva.
Nem tudom hány sor vagy oszlop lesz később hozzáadva, inkább megcsinálom úgy, hogy simán összeadom az egyes függvények eredményét, pl így:
=SZUM(sumbold(F12:P12);sumbold(F21:P21);sumbold(F9:P9);
sumbold(F15:P15);sumbold(F18:P18);sumbold(F24:P24))és ha utólag kell még hozzádobni egy tartományt, akkor nem kell a makrót változtatni
-
-
zhari
csendes tag
válasz
Fferi50
#26648
üzenetére
Köszi.
Ezt találtam még a neten de nem akar működni a szerző és az tulaj bejegyzés kinyerése. Meg tudnátok nézni h mi baja lehet?
Előre is köszi
Option Explicit
Public x()
Public i As Long
Public objShell, objFolder, objFolderItem
Public FSO, oFolder, Fil
Sub MainExtractData()
Dim NewSht As Worksheet
Dim MainFolderName As String
Dim TimeLimit As Long, StartTime As Double
ReDim x(1 To 65536, 1 To 11)
Set objShell = CreateObject("Shell.Application")
TimeLimit = Application.InputBox("Please enter the maximum time that you wish this code to run for in minutes" & vbNewLine & vbNewLine & _
"Leave this at zero for unlimited runtime", "Time Check box", 0)
StartTime = Timer
Application.ScreenUpdating = False
MainFolderName = BrowseForFolder()
Set NewSht = ThisWorkbook.Sheets.Add
x(1, 1) = "Path"
x(1, 2) = "File Name"
x(1, 3) = "Last Accessed"
x(1, 4) = "Last Modified"
x(1, 5) = "Created"
x(1, 6) = "Type"
x(1, 7) = "Size"
x(1, 8) = "Owner"
x(1, 9) = "Author"
x(1, 10) = "Title"
x(1, 11) = "Comments"
i = 1
Set FSO = CreateObject("scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(MainFolderName)
'error handling to stop the obscure error that occurs at time when retrieving DateLastAccessed
On Error Resume Next
For Each Fil In oFolder.Files
Set objFolder = objShell.Namespace(oFolder.Path)
Set objFolderItem = objFolder.ParseName(Fil.Name)
i = i + 1
If i Mod 20 = 0 And TimeLimit <> 0 And Timer > (TimeLimit * 60 + StartTime) Then
GoTo FastExit
End If
If i Mod 50 = 0 Then
Application.StatusBar = "Processing File " & i
DoEvents
End If
x(i, 1) = oFolder.Path
x(i, 2) = Fil.Name
x(i, 3) = Fil.DateLastAccessed
x(i, 4) = Fil.DateLastModified
x(i, 5) = Fil.DateCreated
x(i, 6) = Fil.Type
x(i, 7) = Fil.Size
x(i, 8) = objFolder.GetDetailsOf(objFolderItem, 8)
x(i, 9) = objFolder.GetDetailsOf(objFolderItem, 9)
x(i, 10) = objFolder.GetDetailsOf(objFolderItem, 10)
x(i, 11) = objFolder.GetDetailsOf(objFolderItem, 14)
Next
'Get subdirectories
If TimeLimit = 0 Then
Call RecursiveFolder(oFolder, 0)
Else
If Timer < (TimeLimit * 60 + StartTime) Then Call RecursiveFolder(oFolder, TimeLimit * 60 + StartTime)
End If
FastExit:
Range("A:K") = x
If i < 65535 Then Range(Cells(i + 1, "A"), Cells(65536, "A")).EntireRow.Delete
Range("A:K").WrapText = False
Range("A:K").EntireColumn.AutoFit
Range("1:1").Font.Bold = True
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("a1").Activate
Set FSO = Nothing
Set objShell = Nothing
Set oFolder = Nothing
Set objFolder = Nothing
Set objFolderItem = Nothing
Set Fil = Nothing
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
Sub RecursiveFolder(xFolder, TimeTest As Long)
Dim SubFld
For Each SubFld In xFolder.Subfolders
Set oFolder = FSO.GetFolder(SubFld)
Set objFolder = objShell.Namespace(SubFld.Path)
For Each Fil In SubFld.Files
Set objFolder = objShell.Namespace(oFolder.Path)
'Problem with objFolder at times
If Not objFolder Is Nothing Then
Set objFolderItem = objFolder.ParseName(Fil.Name)
i = i + 1
If i Mod 20 = 0 And TimeTest <> 0 And Timer > TimeTest Then
Exit Sub
End If
If i Mod 50 = 0 Then
Application.StatusBar = "Processing File " & i
DoEvents
End If
x(i, 1) = SubFld.Path
x(i, 2) = Fil.Name
x(i, 3) = Fil.DateLastAccessed
x(i, 4) = Fil.DateLastModified
x(i, 5) = Fil.DateCreated
x(i, 6) = Fil.Type
x(i, 7) = Fil.Size
x(i, 8) = objFolder.GetDetailsOf(objFolderItem, 8)
x(i, 9) = objFolder.GetDetailsOf(objFolderItem, 9)
x(i, 10) = objFolder.GetDetailsOf(objFolderItem, 10)
x(i, 11) = objFolder.GetDetailsOf(objFolderItem, 14)
Debug.Print x(i, 1), x(i, 2), x(i, 11)
Else
Debug.Print Fil.Path & " " & Fil.Name
End If
Next
Call RecursiveFolder(SubFld, TimeTest)
Next
End Sub
Function BrowseForFolder(Optional OpenAt As Variant) As Variant
'Function purpose: To Browser for a user selected folder.
'If the "OpenAt" path is provided, open the browser at that directory
'NOTE: If invalid, it will open at the Desktop level
Dim ShellApp As Object
'Create a file browser window at the default folder
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
'Set the folder to that selected. (On error in case cancelled)
On Error Resume Next
BrowseForFolder = ShellApp.self.Path
On Error GoTo 0
'Destroy the Shell Application
Set ShellApp = Nothing
'Check for invalid or non-entries and send to the Invalid error
'handler if found
'Valid selections can begin L: (where L is a letter) or
'\\ (as in \\servername\sharename. All others are invalid
Select Case Mid(BrowseForFolder, 2, 1)
Case Is = ":"
If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
Case Is = "\"
If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
Case Else
GoTo Invalid
End Select
Exit Function
Invalid:
'If it was determined that the selection was invalid, set to False
BrowseForFolder = False
End Function -
Louro
őstag
válasz
Fferi50
#26604
üzenetére
Szia,
a cellák elé beírva, hogy melyik munkalapon találhatóak, úgy Type Mismatch. Ez se jó megoldás.
Szerk.: Úgy már sikerült, hogy a külön definiált range után még odapasszintottam a .address-t.
Péntek óta ismerkedek ezzel a kiegészítéssel is. Bár ha Range-ként definiáltam, akkor ezt feleslegesnek érzem, de biztos jó okkal hozták így létre.Szóval a jó megoldás:
Külön kellett deklarálni egy változót a range-nek, majd a függvényben úgy hivatkoztam rá ,hogy variable.address -
k_miso
tag
válasz
Fferi50
#26615
üzenetére
Szia!
Én is valami ilyesmiben gondolkodtam. Igazából a mentési nevet nem tudtam megoldani eddig. A forrás táblában van egy olyan oszlop, ami egyedi értéket tartalmaz, alkalmas lehetne fájl névnek is. Csak nem tudom, hogy hogyan lehet változót adni meg fájl névként.
Egyébként a sorok között nincs szünet. Ha mégis lenne, gondolom le lehetne szűrni egy adott mezőre, ahol mondjuk "1" érték van a használandó rekordon.miso
-
alfa20
senior tag
válasz
Fferi50
#26599
üzenetére
Köszi,
Közben meg oldottam másként.
Igazából amit tervezek:
1.) Megosztott munkafüzet, amit csak felhasználónév és jelszóval lehet megnyitni/szerkeszteni. - megoldva, a második munkafülbe tettem a felhasználónevet és jelszavakat, fehér betűszínnel írtam mindent, majd levédtem a munkalapot, semmit nem lehet vele kezdeni jelszó hiányában
2.) egyes userek csak bizonyos oszlopokba írhassanak - ezt úgy tervezem, elrejtek minden oszlopot, minden user-hez rendelek egy számot, ami majd belépéskor megadja kinek melyik oszlopot fedje fel. Azt mondjuk nem tudom, hogy lehet-e olyat, hogy a felfedést és elrejtést letiltani, hogy csak a makró fedjen fel oszlopokat, user nem tudjon.
3.) 'Admin' felhasználónak összes oszlop felfedése - na ez a legegyszerűbb 
Szóval ez lenne a tervem
-
Törpella
csendes tag
válasz
Fferi50
#26509
üzenetére
Nekifutok mégegyszer:
1. Beviteli form, ami a data1 sheetre másolja az adatokat:
[link]
A data1 sheet:
[link]
2. A lekérdezés űrlapja.....:
[link]
.....ami a sheet1-en levő pivot(ok)ból nyeri az adatokat (minden lekérdezéshez külön pivot tartozik és minden lekérdezésnél azok frissülni fognak):
[link]
3. Elképzelésem szerint a lekérdezés űrlapján megadott adat (product code) alapján kellene szűrni a kész és fix helyen levő pivotot, azt annak a keresőmezőjébe bemásolva:
[link]
A lekérdező űrlapon megadott adat elvileg a sheet1 A2-es fix cellájába másolódik, eddig jutottam el.
Innen szeretném a row labels search mezőjébe bemásolni (makrón belül), aminek az eredménye
[link]
lenne tovább másolva, ami majd egy gyönyörű feladat lenne ismét, csakhogy félúton megbuktam az egyszerűbbeknél :-/
Röviden ennyi....
Minden segítségnek vagy javaslatnak örülnék... :-) -
Törpella
csendes tag
válasz
Fferi50
#26509
üzenetére
Szia, Excel 2010-et használok.
Próbáltam megfelelő képfeltöltő megoldást találni, remélem sikeres...
[link]http://kepfeltoltes.hu/view/150413/9494202901_www.kepfeltoltes.hu_.jpg
Ez a beviteli form, amit sikerült megcsinálni rendesen, és a data1 sheetre másolja az adatokat.
-
swoody
senior tag
-
azopi74
addikt
válasz
Fferi50
#26484
üzenetére
Ez zárszónak is jó volt, azt hiszem ebben itt meg is állapodhatunk, és pontot is tehetünk a vita végére.
Amennyire igyekszem, megtartom az aktivitásomat, (persze van, amikor jobban el van havazva az ember)
Egyébként csak véletlenül bukkantam erre topicra pár hete, pedig az IT cafe olvasója vagyok régóta, és nagyon megörültem neki , mert nem is tudtam, hogy van magyar nyelvű színvonalas excel szakmai topic. Természetesen én is sok olyan dolgot/megoldási módszert/trükköt láttam, amiről nem is tudtam, hogy van, pedig én sme most kezdtem az excel-lel ismerkedni
Meg az is jó az ilyen topicokban, hogy miközben segít az ember másoknak maga is fejlődik és tanul, és ha olyan példákkal találkozik, amivel korábban nem találkozott, de mégis az „életből jött”, és megoldja, az később hasznára lehet magának is.
(Pl múlt héten kellett megoldanom munkahelyen egy ahhoz hasonló munkaidős/munkanapos problémát , amihez hasonlót pont előtte egy-két héttel oldottam meg valamelyik fórumtársnak, és csak fel kellett használnom annak az elemeit )
Ezért bíztatok én is másokat is, akik tehetik, hogy válaszoljanak a kérdésekre, ha idejük engedi, mert az gyakran semmibe nem telik, és mindenképpen hasznos.
A vitára visszatérve, én azért, (ha persze Delila is egyetért) default továbbra is az angol képleteket használom, de mellé teszem rögtön a magyar megfelelőt is, így senki nem mondhatja, hogy , hogy nem segítség, hanem „bosszantás”.. Ha pedig a kérdésből látszik, hogy magyart/ vagy angolt használ, akkor a magyar vagy angolnak megfelelő választ adok.
A kulturált, egészséges viták pedig csak előre viszik a világot, ebben egyetértünk... -
azopi74
addikt
válasz
Fferi50
#26480
üzenetére
Jól van, rendben, úgy látom itt kisebbségben maradok itt a véleményemmel, de akkor is fenntartom...
És ha más excel-es fórumokon is körbenéztek, nálam sokkal "sarkosabb" véleményeket találtok a függvények lokalizálásáról, én még általában finoman szoktam fogalmazni..
Vagyis szerintem sokkal nagyobb nehézség megérteni/megjegyezni a függvények magyar megfelelőit, mint fordítva. Annak is, akinek nem okoz nehézséget a magyar nyelv, és nem beszél angolul, csak minimálisan. És egy multinacionális cégnél különösen bosszantó (és súlyos munkaidőben, ergó pénzben) kifejezhető károkat okozna, ha különböző nyelvű office-ok lennének telepítve, gondoljatok bele akár csak a supportba, vagy abba, hogy milyen káosz lenne a meetingeken, webkonferenciákon, ha mindenki a saját kis lokalizált Office-át használná, és vetítgetné ki a dokumentumait a kollégáknak ... És ezért tartom különösen sajnálatosnak, hogy az oktatásban is a maqyar office-t tanítják, általános esetleg középiskolában még OK, de felsőoktatásban? Kicseszés a diákokkal is és a leendő munkaadójukkal is.
De a Help, illetve a GUI lokalizálást még megértem és elfogadom (bár azt is nehezen vette be a gyomrom), ami viszont hatalmas baklövés volt, az az a függvények lokalizásása, azzal szerintem túllőttek a célon, és nagyobb zavart okoztak vele, mint ami hasznot hozott az egész.
Amúgy az informatika nyelve az angol, ez így volt mindig, és is így lesz ezután is.(persze itt most nem facebookolásra gondolok, meg arra ,hogy a mindemegettén megkeressük a zserbó receptjét ).
És az excel ezen a szinten már eléggé közel áll a hagyományos értelemben vett informatikához ...
Szerintem azoknak, akik függvényeket használnak nem okoz nagy fejtörést egy IF() függvéy, egy HA() annál jobban megizzasztjaDe OK, én vagyok az új, nekem kell alkalmazodnom. Megszoksz, vagy megszöksz
Egyébként már alkalmazkodtam... Bár ez szerintem már inkább politikai kérdés, mint szakmai... -
layerke
aktív tag
válasz
Fferi50
#26451
üzenetére
Totál mindegy mit hogy írok be, azt sikerült már elérnem, hogy összeszedem több cellából a hivatkozást, de nem csinál vele semmit, vagy #HIV hibát hoz vagy csak összeírja egymás után szépen, ahogy kell, de nem keresi meg az adott cellát.. Nem értem miért nem keresi meg, nyitva van a forrásfájl is.
-
layerke
aktív tag
válasz
Fferi50
#26431
üzenetére
Szia
"Kis ügyeskedéssel azt is össze tudod hozni, hogy egy táblázat alapján képlettel keletkezzen a hivatkozás,(Év-hó-nap) alapján indirekt függvény használatával "
Hivatkozáson belül próbálok egy cellát hivatkozi, de minden áron meg akarja nyitni a fájlt, amikor entert ütnék rá, hogy beírassam a cellába ezt a hivatkozást.
Ilyen az elérési útvonal a meghivatkozott cellával együtt:
='\\fsl1\GMV\Napi\2013\Január\[GMVj20130101.xls]GMVjelentés'!$D$5Az ÉÉÉÉHHNN-ot kellene valahogy megadnom másik munkalap egyik cellájára hivatkozva, de vagy azt írja hogy nem helyes a képlet vagy ha helyesnek ítéli, akkor meg akarja nyitni enter lenyomása után az adott fájlt.
-
-
#26362
tonermagus
aktív tag
Fferi50
#26360
-
azopi74
addikt
válasz
Fferi50
#26264
üzenetére
nagyon nagy +1, sose értem, miért szeretik egyesek concatenate (összefűz) függvényt használni az & operátor helyett.
Még ha normális függvényként működne a concatenate (vagyis pl range-et is lehetne megadni paraméterként, vagy működne tömbfüggvényben) , akkor megérteném, dehát nem. Semmi többre nem képes, mint egy vacak & operátor, akkor meg miért nem az utóbbit használjuk? Sokkal billentyűzetkímélőbb
Nem igazán tudok felhozni egy érvet sem a concatenate védelmében. -
Geryson
addikt
válasz
Fferi50
#26214
üzenetére
Ja, hogy ezt a felhasználó szintű dolgot ezt programozni kellene? Szóval akkor ez nem olyan, hogy beállítom menüből és kész?
azopi74: Itt hatalmas titkosítás nem kell. Valami olyasmit szeretnék, hogy a titkárnőm be tudjon vinni adatokat, de ne lássa pl. a korábbiakat (vagy ne lásson bizonyos adatokat).
-
Louro
őstag
válasz
Fferi50
#26201
üzenetére
Na ez kifogott ma rajtam. Máshol a forrás és teljes elérési útvonalat adnék meg. Pl.: Z:\Work\Subwork\Folder\Target_Excel.xlsx
Subscript out of range.....és a gugli se nagyon segít.
Erre dobja a hibát:
File = Pathname & "\" & Filename & "\*.xlsx"
Workbooks(File).Worksheets("Target").Cells(1, 1) -
Louro
őstag
válasz
Fferi50
#26183
üzenetére
Kreáltam magamnak egy feladatot és megnéztem ezt a megnyitásmentes megoldást és nekem az a baj, hogy ahhoz, hogy befrissüljön felugrik egy párbeszédablak, hogy tallózzam be a forrást. Az oké, hogy ha Esc-elem, akkor frissül, de nálam lehet a bibi?
Kódrészlet.
WB_Source_file = "D:\VB_Test\" & Year(Now - 30) & "\" & actual_month & "\" & code & ".xlsx"
Filename = Dir(WB_Source_file)
If Filename = "" Then
GoTo Nem_létezik_a_forrása
Else
For k = 1 To 3
Sheets("Összesített_eredmény").Cells(j, 3 + actual_month).Formula = _
"=HAHIBA('[" & Filename & "]TOTAL'!V29,""-"")"
Sheets("Kommunikáció").Cells(j, 3 + actual_month).Formula = _
"=HAHIBA('[" & Filename & "]TOTAL'!V10,""-"")"
Sheets("Mozgás").Cells(j, 3 + actual_month).Formula = _
"=HAHIBA('[" & Filename & "]TOTAL'!V18,""-"")"Rosszul hivatkozom be a másik munkafüzetet?
@26199: Köszi. Pont a hétvégén futottam bele ebbe a "másolás a célba" esetbe. Csak még nem gyakoroltam be, így ezért nem alkalmazom.
-
bteebi
veterán
válasz
Fferi50
#26166
üzenetére
Szia!
Közben elég sokféleképp próbálkoztam. A jelenlegi változatnál "Subscript out of range" hibaüzenetet dob ennél a sornál:
cellap.Cells(19 + 2 * adat, oszlop) = Left(Workbooks(fajlnev).Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16), _
Len(Workbooks(fajlnev).Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16) - 1))Sub masol()
Set cellap = ThisWorkbook.ActiveSheet
Set ablak = Application.FileDialog(msoFileDialogOpen)
ablak.Filters.Clear
ablak.Filters.Add "Excel fájlok", "*.xls, *.xlsx, *.xlsm"
ablak.Filters.Add "Excel 2003 worksheet (.xls)", "*.xls"
ablak.Filters.Add "Excel 2010 worksheet (.xlsx)", "*.xlsx"
ablak.Filters.Add "Excel makró (.xlsm)", "*.xlsm"
ablak.FilterIndex = 1
FileChosen = ablak.Show
ablak.Title = "Válaszd ki a file-t"
ablak.InitialFileName = ThisWorkbook.Path
ablak.InitialView = msoFileDialogViewList
If FileChosen = -1 Then
fajlnev = ablak.SelectedItems(1)
Workbooks.Open (fajlnev)
Else: Exit Sub
End If
For adat = 1 To 10
For oszlop = 2 To 10 Step 4
cellap.Cells(19 + 2 * adat, oszlop) = Left(Workbooks(fajlnev).Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16), _
Len(Workbooks(fajlnev).Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16) - 1))
cellap.Cells(19 + 2 * adat, oszlop) = cellap.Cells(19 + 2 * adat, oszlop) * 1000
cellap.Cells(19 + 2 * adat, oszlop).NumberFormat = "0"
Next oszlop
Next adat
Workbooks(fajlnev).Close savechanges:=False
End SubHa az End If az utolsó előtti sorban van, akkor lefut a kód, csak nem csinál semmit; nem másol és nem zárja be a megnyitott file-t. A Workbooks(fajlnev) helyett próbálkoztam ActiveWorkbook-kal is, de úgy se ment, akkor "Type mismatch" hibaüzenetet ad.
-
bteebi
veterán
válasz
Fferi50
#26163
üzenetére
Szia!
"Ez azt jelenti, hogy mindig van a szám után egy betű és a formátum szöveg?"
Basszus, igazad van (ebben is)!
Minden bizonnyal emiatt nem ment a szorzás, mert az eredeti cella szöveg formátumú volt (vagyis általános). Viszont valamiért az adatmásolás továbbra sem megy. Szerintem itt van a probléma, valószínűleg a "fajlnev" (vagy épp a "cellap") miatt:Set cellap = ThisWorkbook.ActiveSheet
...
cellap.Cells(19 + 2 * adat, oszlop) = Left(fajlnev.Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16), Len(fajlnev.Sheets("Sheet1").Cells(36 + 2 * (adat - 1), 16) - 1))A végén pedig szeretném bezárni a megnyitott file-t, de a Workbooks.Close (fajlnev) paranccsal nem megy, pedig a Workbooks.Open (fajlnev) parancsra megnyitja
. -
hhheni
tag
válasz
Fferi50
#26150
üzenetére
sziasztok
nem úgy tűnik, hogy ez csak nálam működne, rákerestem egy picit:
[link]
213. oldalon, "képlet" és "logikai"[link]
"felt_1" (itt egyébként megtaláltam arra a kérdésre a megoldást, amelyikben Delila segített)ugyanez videón (itt van egy "felt_2" is):
[link][link]
65. oldal, a hozzá tartozó példa megoldással együtt:[link]
(itt üresen hagyja, de kitöltve is működik)
amit ti.
)
Új hozzászólás Aktív témák
Hirdetés
- Hegesztés topic
- Kerékpárosok, bringások ide!
- PROHARDVER! feedback: bugok, problémák, ötletek
- Korábbi vezetője szerint 40 milliárd dollár kell az Intel versenyképességéhez
- Házimozi belépő szinten
- Alkoholista nevelde
- iPhone topik
- Medence topik
- Debrecen és környéke adok-veszek-beszélgetek
- EA Sports WRC '23
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- AM 4 alaplapok! Kamatmentes rèszletre is!
- Designer 4K Monitor - BenQ PD-3200-U
- Bomba ár! Fujitsu LifeBook U7310 - i5-10GEN I 16GB I 256SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Bomba ár! Dell Latitude 5401 - i5-9400H I 8GB I 256SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- DELL Latitude 7340 i7-1365U 16GB 512GB 13.3" FHD+ TouchScren 1 év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest