-
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
-
plaschil
aktív tag
válasz Delila_1 #12800 üzenetére
Köszönöm szépen, éjjel 1-ig szórakoztam vele mire megtudtam hogy a "left"-et kell használni ha kezdődést akarok vizsgálni.
Viszont ez az if hibás, vagy nekem nem működik, én is így írtam először:
If Cells(i, 4) = "5415" Or "5415B" Then
Nekem ez csak úgy működött hogy:
If Cells(i, 4) = "5415" Or Cells(i, 4) = "5415B" Then
Most már változott az egész ciklus, úgyhogy így néz ki:
For i = 1 To SorokSzama
If Cells(i, 5) = "72" Then
If (Cells(i, 4) = "5415" Or Cells(i, 4) = "5255" Or Cells(i, 4) = "211B" Or Cells(i, 4) = "5345" Or Cells(i, 4) = "5195") Then
If Left(Cells(i, 2), 5) = "0.603" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 5) = "0.615" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.a" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorből kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.z" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
End If
End If
Next[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz plaschil #12801 üzenetére
Javítás:
Nem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***oszlopot*** átteni egy másik fájl végére.
Hanem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***cellát*** átteni egy másik fájl végére.[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
-
plaschil
aktív tag
válasz Delila_1 #12803 üzenetére
1 bizonyos fájl végére. A bizonyos fájl 3 oszlopból áll. (A, B, C)
Így:
A oszlopba:
B oszlop (i, 2) celláját, tegye a bizonyos fájl A oszlop végére.
C oszlopba:
D oszlop (i, 4) celláját, tegye a bizonyos fájl C oszlop végére.
B oszlopba:
Ez egy kicsit bonyolult, mert a C oszlopba beírt adatoktól függően kell beírnia valamit. Tehát, ha C-be írt pl. 5255-öt, akkor B legyen "ország_1", ha 5345-öt akkor "ország_2" és még 3db ilyen feltétel.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
Delila_1
Topikgazda
válasz plaschil #12801 üzenetére
Az első IF-en belül két újabb kritérium már eleve hamis ágra fut.
Az első feltétel vizsgálja az E oszlop i-edik értékét, és csak akkor jut el az igaz ágba, ha ez az érték 72. Te ebbe az igaz ágba teszel két újabb feltételt, ami azt vizsgálja, hogy ugyanez a cella 0.603-mal, vagy 0.615-tel kezdődik-e.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
poffsoft
addikt
-
poffsoft
addikt
válasz Delila_1 #12813 üzenetére
Ez nem pont az a megoldás
Ha telepítenie is kell az analysis toolpack-ot, nem biztos hogy megy a melóhelyen
Programozásügyileg?Perpill egy olyan képletet (képlettömböt) használok, ami 1-től 31-ig hozzáadja az adott hónap 1. napjához a számokat(ami a cella saját oszlopszáma), és megvizsgálja, hogy megváltozott-e a hónapszám . Ez a munkám még makrómentes
Csak lassan megtelik az egész lapom, és még nem készült el a beosztás
(mert most egy 23-dik variációt kell megpróbálni elkészítenem, amolyan kártyanaptár- formátumra)p.s.: a Köszi lemaradt...
[ Szerkesztve ]
[ Szerkesztve ]
-
rroolleerr
csendes tag
Sziasztok,
2010 -s Excel -ben probálok parancsgombot letenni, de nem sikerül. Ezt az üzenetet kaptam:
"A Microsoft Excel már nem támogatja a Microsoft Map használatát"
Ez mond valakinek valamit? Nekem nem sokat..
-
Pá
addikt
Nah, nem hiszem, hogy ez megoldható, de hátha. Lepjetek meg.
Úgy néz ki a munkafüzetem, hogy bal oldalon van egy nagy, több ezer soros táblázat (felső sor rögzítve). A jobb oldalon pedig egy ebből a táblázatból készült kimutatás.
Jó lenne, ha a felső sorhoz hasonlóan a kimutatást is tudnám "rögzíteni". Szóval amikor scrollozgatok össze-vissza a nagy táblázatban,szeretném folyamatosan látni a kimutatást is a jobb oldali üres területen.
szerk: makro nélkül kéne, gondolom így végképp esélytelen, de hátha
[ Szerkesztve ]
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Pá
addikt
válasz poffsoft #12820 üzenetére
ezt a funkciót nem ismertem. Jó lenne, de szerintem valamit rosszul csinálok.
Elvileg felosztom az ablaktáblát, a táblázatom mellett megjelenik egy nagy függőleges csík, de ha scrollozok, akkor mindkét oldal mozog.
Érdekes, mert ha vízszintesen osztom fel az ablakok, akkor mindig csak az aktív ablakot scrollozza, de függőlegesnél valamiért nem megy nekem.''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
Ablak | Új ablak | Elrendezés. A füzeted 2 ablakban jelenik meg, ahol külön-külön tudod görgetni ugyanazt a lapodat.
Arra is jó, hogy a két ablakban két különböző lapod tartalmát jeleníted meg, így követheted az egyik lapon történt változás befolyását a másik lapra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
VásRló
tag
Van egy oszlopom, és szűrni kell benne.
Egy adatot szűrök ki mindig, és azt szeretném, ha ez az adat automatikusan bemásolódna egy másik cellába.
Lehet ilyet valahogy? -
Delila_1
Topikgazda
válasz VásRló #12823 üzenetére
A lapodhoz kell rendelned a makrót. Az A oszlop szűrésének módosításakor a C1-be beírja a feltételt. Ehhez azonban a lapon egy cellába (bármelyik cella lehet) be kell írnod a most függvényt: =MOST()
Private Sub Worksheet_Calculate()
Range("C1") = Cells(Range("A2:A65536").SpecialCells(xlCellTypeVisible).Row, 1)
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
luckyboi82
tag
Sziasztok!
Egy kis segítség kellene! Egy nagy adatokkal teli excel táblám rengeteg külső hivatkozást használ, pdf-ekre hivatkozik , beszkennelt állományokra. Az elérési utam megváltozott z:\... ról c:\....-re. Hogyan lehet kompletten az eredetire visszaváltoztatni a hivatkozási linkeket? Egyenként lehet csak átírni ctrl+k val?
Köszönöm a buta kérdésemre adott okos választ
-
Delila_1
Topikgazda
válasz luckyboi82 #12828 üzenetére
A Csere (Ctrl+h) funkcióval egyszerre le tudod cserélni a Z:\-t C:\-re, vagy a Csatolás-nál átváltod a forrást. Ez utóbbinak a módjára találsz itt a fórumon néhány hozzászólást, ha a csatolás szóra keresel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
válasz Delila_1 #12826 üzenetére
A feltételes formázásokkal kapcsolatban van most "kis" gondom:
Szóval, ha egy cellából a feltételes formázások által kialakított végleges formátumot szeretném kinyerni, arra van-e valami megoldás?
(kitöltőszín, mintázat, karakter típus, formátum, karakter szín ami perpill. kellene)[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz poffsoft #12832 üzenetére
Csak úgy tudod, hogy makróval végig lépkedsz a tartományon, ugyanazokat a feltételeket adod meg, amik a feltételes formázásban voltak, és megadod a formátumot.
A feltételes formázással színezett cellák színét lekérdezve az eredeti (felt. formázás nélküli) értékeket kapod, és valószínűleg igaz ez a szegélyre, fékövér karakterre, stb. beállításra is. Ki lehet próbálni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Wasquez
senior tag
Sziasztok
Nekem olyan kérdésem volna, hogy egy jelenléti ívet próbálok összerakni, és az időket kéne szummáznom, ehhez mi a legjobb megoldás?
Valamint érdekelne az, hogy azt hogyan lehet megcsinálni, hogy az adott hónapban a hétvégék sorait kijelölje valamilyen megkülönböztető színnel!?PC
-
Delila_1
Topikgazda
válasz Wasquez #12836 üzenetére
Ugyanúgy, a SZUM függvénnyel összegezheted az órákat, mint bármilyen más számokat, de az összegző cella formátuma legyen [ó]:pp. Ezt az Egyéni kategóriában adhatod meg.
A szombatokon és vasárnapokon kívül az ünnepnapoknak is eltérő külleműeknek kell lenniük. Az idei évben 5 szombat lesz munkanap, ezeknek sem jó a hétvégi kinézet.
Sorold fel a füzetedben – bárhol – az idei ünnepnapok dátumát, és nevezd el a tartományt ünnep-nek. Egy másik tartomány az 5 szombat dátumát tartalmazza, ennek a neve mn (munkanap).
A dátumok feltételes formázását add meg a kép szerint.
http://kephost.hu/share-0D18_4F30C0FC.html
A második képlet:
=ÉS(NEM(ÜRES(A2));VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;ünnep;1;0)))))[ 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.
-
luckyboi82
tag
válasz Delila_1 #12830 üzenetére
Ezt nem vágom. A hiperlink szövegét hogy tudnám kicserélni,amikor az nem jelenik meg, csak ha a hiperlink szerkesztését nézem,egyesével.? Ez a gondom,hogy keresni se keresi ezt a szöveget,nemhogy cserélni tudnám. A forrás minden cellánál más és más, nem egy adott xls hivatkozott cellája. Így egyesével megy csak.
-
VásRló
tag
válasz Delila_1 #12831 üzenetére
Na igen, rájöttem, hogy a munkalaphoz kellene rendelni.
Így már megy, kösz.De fura, miért kell ehhez a most függvény?
Ami a problémám, hogy több oszlop van, aminek az adatai kellenének, egymás alatti sorok celláiban.
Tehát pl kell 5 egymás melletti oszlop adata, és 5 egymás alatti sorba kellene. Ezt vajon meg lehet csinálni? -
Delila_1
Topikgazda
válasz luckyboi82 #12838 üzenetére
Félreértettem, azt hittem, más füzetekből csatolsz adatokat.
Sub HipAtcimez()
Dim CV As Hyperlink
For Each CV In ActiveSheet.Hyperlinks
CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
Next
End SubA "Z:\" és a "C:\" helyett a teljes útvonalakat írd be. A cellákban a megjelenő szöveg változatlan marad, de az új útvonalról hívja be a linket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
válasz Delila_1 #12835 üzenetére
Köszi, megoldottam:
találtam egy kész algoritmus-sorozatot:
'This user defined function will return the colour index of the cell reference which is passed as the first argument.
'The number returned will always be between 1 and 52 since this corresponds to the location on the colour palette.
'Once the user defined function has been entered into a code module in the corresponding VBA Project you can use it in your extra column.
'If the cell does not contain any conditional formatting then 0 is returned.
'http://www.bettersolutions.com/excel/EPX299/LI041931911.htmEgy picit átalakítottam, hogy ha nincsen feltételes formázása, akkor az .interior.colorindex-el tér vissza
Most éppen egy combobox elhelyezésével szenvedek a worksheeten, userform nélkül...
Ezzel kapcsolatosan egy kérdésem a jövőre viszont volna:
Ha egy olyan kiválasztás kellene nekem, ahol csakis egy évszámot lehet bevitelként megadni (amelyik évre a besoztás készül), azt hogyan elegáns megoldani? Naptár, combobox, vagy valamilyen legördülő lista?
esetleg van ilyen kész modul ? (évszám bevitel)?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz VásRló #12839 üzenetére
Ez egy eseménykezelő makró. Az Excel az szűrés változását nem kezeli eseményként, viszont a MOST() függvény értéke minden, a lapon történt változásra frissül. Ezt már le tudja kezelni a Worksheet_Calculate.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz poffsoft #12841 üzenetére
A naptár vezérlő teljes dátumot ad, amiből még külön ki kellene nyerned az évet. Érdemes egy egyszerű ComboBoxot bevinni. A tartományt, ami a bevihető éveket tartalmazza, elnevezheted például éveknek, és akkor a ListFillRange tulajdonsághoz ezt írhatod be.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz Delila_1 #12840 üzenetére
Luckyboi82
A
CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
sor helyett
CV.Address = Application.WorksheetFunction.Substitute(CV.Address, "Z:\", "C:\")
sort írj. A ciklusváltozót az egyik helyen nem írtam át a próbánál, elnézést!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rtom
senior tag
Hello!
Egy makrómban az alábbi feltétel akkor is igazzá válik, és így végrehajtódik, ha 0-t írok be a C2; M2 vagy O4 cellákba:
If Range("C2") = Empty Or Range("M2") = Empty Or Range("O4") = Empty Then
Megoldható, hogy a 0 értéket ne üresnek vegye?
Új hozzászólás Aktív témák
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- World of Warcraft Shadowlands Collectors edition EU EN