-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
-
-
Jaj köszönöm! Működik minden...
Delila: Oké betettem, így már villámgyorsan rendez!
Viszont van egy "AJAJ" problémám. A táblázat celláit, amely a script alapján írja bele randomra amit kell, képek takarják. Ha nagyítok/kicsinyítek akkor hirtelen a képek eltünnek majd visszajönnek. Ez nem jó, mert így lehet látni a cellák tartalmát egy pillanatra. Ez ellen nem lehet valamit csinálni?
-
Szia!
A munkalap activate eseménykezelőjébe kell betenned a makró meghívását.
Munkalapfülön jobb egérgomb - kód megjelenítése - bal oldalon a lenyílóban Worksheet kiválasztása, utána jobb oldali lenyílóban activate kiválasztása. A megjelenő sub end sub sorok közé beírod a makród nevét.Ezek után minden olyan alkalommal, amikor aktívvá teszed a lapot (másik lapról ide átjössz), lefut a makród.
A másik kérdésedre igen a válasz.
Üdv.
Jaj köszönöm! Működik minden...
Delila: Oké betettem, így már villámgyorsan rendez!
Viszont van egy "AJAJ" problémám. A táblázat celláit, amely a script alapján írja bele randomra amit kell, képek takarják. Ha nagyítok/kicsinyítek akkor hirtelen a képek eltünnek majd visszajönnek. Ez nem jó, mert így lehet látni a cellák tartalmát egy pillanatra. Ez ellen nem lehet valamit csinálni?
-
Crystalheart
őstag
-
Most igen, előbb volt kép.
A mostaniból tudtam meg, hogy az F és G oszlopokban képletek vannak, és ezek törteket adnak eredményül.
A kigyűjtésben a DARABTELI függvény kritériumába egész számot írtunk, hát persze, hogy nem talált megfelelőt.A könnyebb utat választottam. Felvettem 2 segédoszlopot. Az elsőben (H) nullát íratok oda, ahol az F és G is üres(nek látszik), ahol pedig az F-ben érték van, oda a kerekített értékét íratom. Ebben az oszlopban számol a K:L tábla.
Az I oszlop a G értékeit kerekíti, ezt az N:O számlálja össze.tökéletesen működik
köszönöm szépen!+
arra van valami megoldás hogy ne veszítse el a függvényeket ha egy másik excelbe másolok ? -
Szia!
Még egyszer köszönöm (meg a többieknek is) a kódot. #27602. számú hozzászólás kódját alkalmazom, mert a céljaimnak ez bőven jó. Annyi hogy kiterjesztettem 36 sorra és csináltam egy mátrixot ami a kevert számokat kirakja nekem randomra (FKERES-el megoldottam könnyedén). Egyedüli kis mütyürke problémám hogy egy picit lassú. Tegnap még tök gyorsan dutott a makró. Ma meg indítom a makrót hogy csináljon egy új keverést és olyan 3-5 másodpercet várnom kell legalább. Nem értem mi a gondja. Tehát 1-36 közötti számokat rendez a kódod szerint. Nem hiszem hogy ilyen lassan kéne futnia.
És egy másik kérdés. Azt hogy lehet megoldani hogy ha elindítom az Excel dokumentumot, akkor a Makró automatán egyszer fusson le. Bár igazából az lenne a legtutibb ha ez az automata makrófutás annyiszor következne be, ahányszor arra a munkalapra kattintok amelybe megvan írva a VBA kód.
Egy másik (nehezebb) kérdés. Excel-be VBA segítségével programozható animált Progressbar?
-
Szia!
Még egyszer köszönöm (meg a többieknek is) a kódot. #27602. számú hozzászólás kódját alkalmazom, mert a céljaimnak ez bőven jó. Annyi hogy kiterjesztettem 36 sorra és csináltam egy mátrixot ami a kevert számokat kirakja nekem randomra (FKERES-el megoldottam könnyedén). Egyedüli kis mütyürke problémám hogy egy picit lassú. Tegnap még tök gyorsan dutott a makró. Ma meg indítom a makrót hogy csináljon egy új keverést és olyan 3-5 másodpercet várnom kell legalább. Nem értem mi a gondja. Tehát 1-36 közötti számokat rendez a kódod szerint. Nem hiszem hogy ilyen lassan kéne futnia.
És egy másik kérdés. Azt hogy lehet megoldani hogy ha elindítom az Excel dokumentumot, akkor a Makró automatán egyszer fusson le. Bár igazából az lenne a legtutibb ha ez az automata makrófutás annyiszor következne be, ahányszor arra a munkalapra kattintok amelybe megvan írva a VBA kód.
Egy másik (nehezebb) kérdés. Excel-be VBA segítségével programozható animált Progressbar?
-
A makró átmásolja az A1:A9 tartományt a B1:B9-be. Véletlenszámokat ír a C1:C9-be, ami szerint rendezi a B oszlopot, majd törli az ideiglenes C-t.
A rendezést makrórögzítéssel vittem be.Sub Kever()
Dim sor As Integer
Range("A1:A9").Copy Range("B1")
For sor = 1 To 9
Cells(sor, "C") = "=RAND()"
Cells(sor, "C") = Cells(sor, "C").Value
Next
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("C1:C9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("B1:C9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C1:C9").ClearContents
End SubBetehetsz egy képernyőfrissítés tiltását az elejére, hogy ne látsszanak a véletlenek, a végén pedig engedélyezed.
Application.ScreenUpdating=False
Szia!
Még egyszer köszönöm (meg a többieknek is) a kódot. #27602. számú hozzászólás kódját alkalmazom, mert a céljaimnak ez bőven jó. Annyi hogy kiterjesztettem 36 sorra és csináltam egy mátrixot ami a kevert számokat kirakja nekem randomra (FKERES-el megoldottam könnyedén). Egyedüli kis mütyürke problémám hogy egy picit lassú. Tegnap még tök gyorsan dutott a makró. Ma meg indítom a makrót hogy csináljon egy új keverést és olyan 3-5 másodpercet várnom kell legalább. Nem értem mi a gondja. Tehát 1-36 közötti számokat rendez a kódod szerint. Nem hiszem hogy ilyen lassan kéne futnia.
És egy másik kérdés. Azt hogy lehet megoldani hogy ha elindítom az Excel dokumentumot, akkor a Makró automatán egyszer fusson le. Bár igazából az lenne a legtutibb ha ez az automata makrófutás annyiszor következne be, ahányszor arra a munkalapra kattintok amelybe megvan írva a VBA kód.
Egy másik (nehezebb) kérdés. Excel-be VBA segítségével programozható animált Progressbar?
-
A lenti makró az A1 cellában lévő rajzszámhoz tartozó képhez készít hiperlinket a B1 cellába. A makróban kell megadni az elérési útvonalat, és a kép kiterjesztését.
Sub rajz()
Dim utvonal As String
utvonal = "F:\jpg\Fotó\" 'ide kell a saját útvonalad
ActiveSheet.Hyperlinks.Add Anchor:=Range("B1"), Address:= _
utvonal & Range("A1").Value & ".jpg", TextToDisplay:=Range("A1").Value
End SubAhhoz, hogy az összes rajzszámhoz beírhassuk a hiperlinket, meg kell adnod, melyik oszlopban vannak a rajzszámok, melyik oszlopba kéred a hiperlinket.
Az is fontos, hogy a rajzszámos oszlop hányadik sorában kezdődnek a számok, és hogy vannak-e olyan sorok, amikben nincs rajzszám.Köszi, kipróbálom!
Fferi50 Mivel nem értettem hogy mit is kellene rögzítenem és nem tudom mi az "paraméterezni", így nem.
-
-
Felvettem egy segédoszlopot, a H-t. Itt nullát ad, ha az F és G is üres. A zöld hátterű oszlop helyett ebben számoltatom össze az egyes értékek előfordulásának a darabszámát a J és K oszlopban. A pirosakat az M és N számolja meg.
A K3 és M3, valamint a H2 képletét lemásoltam az alattuk lévő sorokba.
Remélem, kifér a kép teljes egészében.
-
Szia!
Nekem ez bevált: =INDEX(A:A;DARAB2(A:A))
Természetesen, ha az "A" oszlop nem minden eleme játszik, akkor leszűkítheted a tartományt, pl.: =INDEX(A3:A100;DARAB2(A3:A100))Köszönöm srácok
D5, Mutt, Fferi50egy újabb probléma merült fel, névszerint hogy a másik táblázatban több oszlopban vannak az adatok
Se az index, se az indirekt nem nagyon fogadja el, ha több oszlopot akarok beadni
Mindig jobbra haladva kellene egy adott oszlop adott tartományát átvizsgálni, ha ez tele, akkor ugorjon a következő megadott tartományra és ha az nincs tele, akkor az utolsó nem üres cella értékére lenne szükség.
Ha ez az tartomány is tele van, akkor megint a következőre, stb.Ez is meg lehet oldani még makró nélkül?
Másodsorban azt szeretném kérdezni, hogy valami jó anyagot tudnátok ajánlani a függvényhasználatok megtanulásához és makróíráshoz?
Egyrészt zavar, hogy nem értem hogyan is működik amit írtok megoldást.
Másrészt gyakran futok ilyen problémákba és a topikot nem akarnám mindig ezzel terhelni + nekem is jobb lenne, ha instant meg tudnám oldani. -
-
Kozben rajottem, az volt a gond, amire gondoltam. A munkalap neveben volt szokoz, szam, neha & jel. Azokat kiszedtem, igy mukodik rendesen.
En is szeretnek hasonlo tudast elerni, ismerkedem a makroval, probalok minel tobb kepletet megismerni.
-
Szia!
A válasz IGEN, meg lehet csinálni.
Bővebben: A rajzszámot tartalmazó cellát kijelölöd, jobb egérgomb, hivatkozás - kiválasztod a megfelelő fájlt, kitöltöd a szükséges mezőket, majd ok.
Ezt az egészet makrórögzítővel felveszed, majd "paraméterezed" és lefuttatod minden cellára nézve.
Ha a makrót rögzítetted és ide felteszed, segítünk a paraméterezésben.Üdv.
Köszi, de sajnos nekem ez bonyolult
. -
Hello!
a zöld és piros oszlopot
meg lehet valahogy úgy csinálni hogy összeszámolja
hogy a zöld oszlopban1-es számból van 2 db
2-es számból van 8 db
.
.
.pirosnál ugyan így
de pl a 19. sorban 2 üres van ezt 0 nak kellene (de nem úgy hogy a piros is és a zöld is kap egy nullát
hanem csak 1 -et kapjon ) érzékelnie és a nullákat is össze kellene számolniés ezeket szeretném egy külön diagramon megoldani (még nem tudom melyik lesz a megfelelő hozzá)
plusz ugye jó lenne ha nem tudna belekavarni a függvényes adatokba
köszi!
Felvettem egy segédoszlopot, a H-t. Itt nullát ad, ha az F és G is üres. A zöld hátterű oszlop helyett ebben számoltatom össze az egyes értékek előfordulásának a darabszámát a J és K oszlopban. A pirosakat az M és N számolja meg.
A K3 és M3, valamint a H2 képletét lemásoltam az alattuk lévő sorokba.
Remélem, kifér a kép teljes egészében.
-
-
Szia!
Úgy gondolom, megszületett a kielégítő megoldás:
A makró:
Sub termeklistas()
Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
Set ws = Sheets("Munka1")
yy = 1
For Each sh In Worksheets
xx = 1
If sh.Name <> ws.Name Then
Do While True
If sh.Cells(xx, "B").Value = "" Then Exit Do
ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
ws.Cells(yy, "O").Value = sh.Name & "!"
ws.Cells(yy, "P").Value = xx - 1
xx = xx + 51
yy = yy + 1
Loop
End If
Next
End SubA makró az N oszlopba beírja a termékkódot, az O oszlopba a munkalap nevét, felkiáltójellel kiegészítve, a P oszlopba pedig az adott termék hol kezdődik a munkalapon -1.
Hibaellenőrzés (mármint, hogy valóban termékkód van-e minden 51. cellában, nincs benne, azt a listából láthatod, ha átnézed).
Ezek után a képletek:
R1 cella (M)[/=FKERES($B$1;$N$1:$P$10;2;0)M]
S1 cella (M)=FKERES($B$1;$N$1:$P$10;3;0)(/M)
B3 cella (M)=INDIREKT($R$1 & "B" & $S$1+SOR())(/M)
C3 cella (M)=INDIREKT($R$1 & "C" & $S$1+SOR())(/M)Az első sor tovább értelemszerűen változtatva csak a B,ill. C helyére írva az aktuális oszlopot.
Ezután lefelé másolhatod a képleteket.A B1 cella érvényesítése: lista - forrás N1:P10
Ezután a listából kiválasztod a termékkódot, a lap pedig automatikusan kitöltődik.
A $P$10-ben a 10 helyett az utolsó "tele" cella sorszámát kell írni. (Minden másra ott a MasterCard
)A makróra a lefuttatás után, amennyiben jónak találod az eredményt, nincs szükséged. Ha meg szeretnéd tartani, akkor makróbarátként kell elmenteni a munkafüzetet.
Remélem, sikerülni fog.
Üdv.
Egy ZSENI vagy, tokeletes lett!!!!!!!!!!!!!!!
Ezer hala es koszonet!!!
-
Igen, egymast kovetik 51 soros beosztasban.
Az elso 51 sor az elso termeke, a kovetkezo termek 52-102-es sorokban helyezkedik el, a harmadik 103-153-ban, egymas mellett soha nincsenek.Szia!
Úgy gondolom, megszületett a kielégítő megoldás:
A makró:
Sub termeklistas()
Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
Set ws = Sheets("Munka1")
yy = 1
For Each sh In Worksheets
xx = 1
If sh.Name <> ws.Name Then
Do While True
If sh.Cells(xx, "B").Value = "" Then Exit Do
ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
ws.Cells(yy, "O").Value = sh.Name & "!"
ws.Cells(yy, "P").Value = xx - 1
xx = xx + 51
yy = yy + 1
Loop
End If
Next
End SubA makró az N oszlopba beírja a termékkódot, az O oszlopba a munkalap nevét, felkiáltójellel kiegészítve, a P oszlopba pedig az adott termék hol kezdődik a munkalapon -1.
Hibaellenőrzés (mármint, hogy valóban termékkód van-e minden 51. cellában, nincs benne, azt a listából láthatod, ha átnézed).
Ezek után a képletek:
R1 cella (M)[/=FKERES($B$1;$N$1:$P$10;2;0)M]
S1 cella (M)=FKERES($B$1;$N$1:$P$10;3;0)(/M)
B3 cella (M)=INDIREKT($R$1 & "B" & $S$1+SOR())(/M)
C3 cella (M)=INDIREKT($R$1 & "C" & $S$1+SOR())(/M)Az első sor tovább értelemszerűen változtatva csak a B,ill. C helyére írva az aktuális oszlopot.
Ezután lefelé másolhatod a képleteket.A B1 cella érvényesítése: lista - forrás N1:P10
Ezután a listából kiválasztod a termékkódot, a lap pedig automatikusan kitöltődik.
A $P$10-ben a 10 helyett az utolsó "tele" cella sorszámát kell írni. (Minden másra ott a MasterCard
)A makróra a lefuttatás után, amennyiben jónak találod az eredményt, nincs szükséged. Ha meg szeretnéd tartani, akkor makróbarátként kell elmenteni a munkafüzetet.
Remélem, sikerülni fog.
Üdv.
-
Szia!
A munkalapokon való elhelyezkedés mennyire "szabályos", azaz mindig egymás alatt vannak és soha nem egymás mellett a termékek?
Ez így egy kicsit bonyolítja a helyzetet, de nem megoldhatatlan. Természetesen a makró így nem azt csinálja, amit szeretnénk.
Mondjuk a 4 termékes munkalap képét feltehetnéd, hogy látni lehessen az elhelyezkedés logikáját.
Üdv.
-
Bocsi, ugy ertettem, hogy mindegyik termek rendelkezik egy olyan 51 soros adatlappal, mint a kepen szerepel, de ezek egymas alatt helyezkednek el a kulonbozo munkalapokon, amelyek termekkategoriankent vannak kialakitva (kb. 20db).
Tehat az elso 1-51 sorokban, masodik 52-102 sorokban es igy tovabb. Ezekbol van kozel 800db. Ebbol az elso munkalapon van pl 110, mig a masodikon csak 4db. Sajnos eleg vegyes. -
Szia!
Ha jól emlékszem, azt írtad a legelején, hogy minden terméknek külön terméklapja van. Ez azt jelenti, hogy már 800-nál több munkalapot tartalmaz a munkafüzeted.
Nincs mese, egyszer végig kell menni rajta és megnézni, melyik termék melyik lapon van - különben nem tudod ezt a "behívósdit" megcsinálni.
Erre itt egy makró:
Sub vegigkeres()
Dim sh As Worksheet, ws As Worksheet, xx As Integer
Set ws = Sheets("Főlap") ' ide a Főlap helyére annak a munkalapnak a nevét írod, amelyre a kigyűjtést szeretnéd.
xx = 2
For Each sh In Worksheets
If sh.Name <> ws.Name Then
ws.Cells(xx, "N").Value = sh.Cells(1, "B").Value
ws.Cells(xx, "O").Value = sh.Name
xx = xx + 1
End If
Next
End SubEzt akár egy általános modulba, akár a "Főlap" kódlapjára bemásolhatod - ez utóbbi: jobb egérgomb a lapnéven alul, kód megjelenítése, bemásolás.
Egyszer lefuttatod, akkor az N-O oszlopba beírja a munkafüzetben talált termékkódokat (a munkalapok B1 cellájában levő értéket, mellé pedig annak a munkalapnak a nevét, amelyen találta). Vigyázat, nem ellenőrzi, ha esetleg duplikált termékkód fordul elő.
Ezután a Főlapod B1 cellájának érvényesítésére megadhatod az N oszlopban levő értékeket.Ha mindez megvan, a makróra már nincs is szükséged, mentheted makrómentesen a füzetet.
Üdv.
-
Szia!
A sheetlistát ki kell egészíteni a termék kódokkal, beszúrsz még egy oszlopot az N elé és oda beírod azt a temékkódot, amelyik a mellette levő sheet-en van. Tehát a sheetlistád az N:O oszlopokban lesz.
A Q1 cellát kinevezhetjük "munkacellának". Ebben a képlet: =Fkeres($B$1;$N$1:$O$21;2;0) Természetesen a sorok száma a ténylegesen kitöltött soroké legyen.B3 cella képlete: =INDIREKT($Q$1 & "!B" & SOR())
A C3 - F3 - H3 - J3 cellák képlete ugyanaz, csak a B helyére a megfelelő oszlopot írod.A B1
1 cellánál gondolom érvényesítéssel listából lehet választani.Ezután már tudod másolni a képletet lefelé irányba.
Remélem, sikerül.
Üdv.
-
A makró az U oszlopba írja ki a nevet és a jogosultságot.
Sub Jogosultsag()
Dim sor As Long, usor As Long, oszlop As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
Cells(sor, "U") = "[" & Cells(sor, "A") & "] "
For oszlop = 7 To 20
If Cells(sor, oszlop) = "true" Then
Cells(sor, "U") = Cells(sor, "U") & "[" & Cells(1, oszlop) & "] "
End If
Next
Next
End Sub -
-
-
Szia!
A sheetlistát ki kell egészíteni a termék kódokkal, beszúrsz még egy oszlopot az N elé és oda beírod azt a temékkódot, amelyik a mellette levő sheet-en van. Tehát a sheetlistád az N:O oszlopokban lesz.
A Q1 cellát kinevezhetjük "munkacellának". Ebben a képlet: =Fkeres($B$1;$N$1:$O$21;2;0) Természetesen a sorok száma a ténylegesen kitöltött soroké legyen.B3 cella képlete: =INDIREKT($Q$1 & "!B" & SOR())
A C3 - F3 - H3 - J3 cellák képlete ugyanaz, csak a B helyére a megfelelő oszlopot írod.A B1
1 cellánál gondolom érvényesítéssel listából lehet választani.Ezután már tudod másolni a képletet lefelé irányba.
Remélem, sikerül.
Üdv.
Kozel 800 termekkodom van es nem is tudom altalaban, hogy melyik sheet-en van.
-
Üdv
szükségem lenne egy cellában feltüntetni egy másik oszlopban lévő legutolsó cella értékét.
Az oszlophoz minden nap adódik egy új érték, tehát meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.próbálkoztam már az FKERES és HOL.VAN függényekkel és ezek kombinációjával, de nem sokra jutottam.
lehetőleg függvény kellene, nem makró
ha valaki tud segíteni -
Üdv
szükségem lenne egy cellában feltüntetni egy másik oszlopban lévő legutolsó cella értékét.
Az oszlophoz minden nap adódik egy új érték, tehát meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.próbálkoztam már az FKERES és HOL.VAN függényekkel és ezek kombinációjával, de nem sokra jutottam.
lehetőleg függvény kellene, nem makró
ha valaki tud segíteni -
Üdv
szükségem lenne egy cellában feltüntetni egy másik oszlopban lévő legutolsó cella értékét.
Az oszlophoz minden nap adódik egy új érték, tehát meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.próbálkoztam már az FKERES és HOL.VAN függényekkel és ezek kombinációjával, de nem sokra jutottam.
lehetőleg függvény kellene, nem makró
ha valaki tud segíteni -
Zola007
veterán
Üdv
szükségem lenne egy cellában feltüntetni egy másik oszlopban lévő legutolsó cella értékét.
Az oszlophoz minden nap adódik egy új érték, tehát meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.próbálkoztam már az FKERES és HOL.VAN függényekkel és ezek kombinációjával, de nem sokra jutottam.
lehetőleg függvény kellene, nem makró
ha valaki tud segíteni -
Sajnos, oda korlatozva vagyok...
Csinaltam egy kepet, igy nez ki minden adatlap. A B1 : C1 cellaban van a termek kodja, jobb oldalon felsoroltam a sheet-ek nevet. Remelem ez igy elegendo informacio.
Szia!
A sheetlistát ki kell egészíteni a termék kódokkal, beszúrsz még egy oszlopot az N elé és oda beírod azt a temékkódot, amelyik a mellette levő sheet-en van. Tehát a sheetlistád az N:O oszlopokban lesz.
A Q1 cellát kinevezhetjük "munkacellának". Ebben a képlet: =Fkeres($B$1;$N$1:$O$21;2;0) Természetesen a sorok száma a ténylegesen kitöltött soroké legyen.B3 cella képlete: =INDIREKT($Q$1 & "!B" & SOR())
A C3 - F3 - H3 - J3 cellák képlete ugyanaz, csak a B helyére a megfelelő oszlopot írod.A B1
1 cellánál gondolom érvényesítéssel listából lehet választani.Ezután már tudod másolni a képletet lefelé irányba.
Remélem, sikerül.
Üdv.
-
Szia!
Fel lehet tenni a fájlt pl. a Data.hu oldalra, a linket meg csatolod. De más hasonló oldalak is vannak.
Üdv.
Sajnos, oda korlatozva vagyok...
Csinaltam egy kepet, igy nez ki minden adatlap. A B1 : C1 cellaban van a termek kodja, jobb oldalon felsoroltam a sheet-ek nevet. Remelem ez igy elegendo informacio. -
Szia!
Igen, hiszen csak úgy tudod az adatokat átvenni az adott terméklapról.
Viszont ha ügyesen írod be, akkor lehet húzni a függvényt.
A "munkacella" (amit S1-nek adtam meg) az mindig ugyanaz, tehát annak $S$1 módon kell megadni a címét. A tartalmát pedig Fkeres képlettel adod meg. (=Fkeres(temék;terméklapoklistája;1;0)).Az oldalrovatokat és a fejrovatokat természetesen nem kell képlettel megadni.
Üdv.
-
Szia!
Egy tartományba beírod a termék munkalapok nevét.
Fkeressel megkeresed az adott termékhez kapcsolódó munkalapot egy munkacellába.
Majd az indirekt függvényt használva megkapod az adott táblából az adatot.
A munkacella (S1) tartalma Termék1Az A5 cellában a képlet =indirekt(S1 & "!A5")
Üdv.
Total nem ertem.
Odaig jutottam, hogy osszeirtam a munkalapok nevet. A gond az, hogy magat az indirect fuggvenyt nem hasznaltam meg...
-
Szia!
Igen, hiszen csak úgy tudod az adatokat átvenni az adott terméklapról.
Viszont ha ügyesen írod be, akkor lehet húzni a függvényt.
A "munkacella" (amit S1-nek adtam meg) az mindig ugyanaz, tehát annak $S$1 módon kell megadni a címét. A tartalmát pedig Fkeres képlettel adod meg. (=Fkeres(temék;terméklapoklistája;1;0)).Az oldalrovatokat és a fejrovatokat természetesen nem kell képlettel megadni.
Üdv.
Koszi szepen, megprobalom.
Egyelore nem vilagos, hogy fog kinezni. Ha elakadok, meg lehet kerdezek. -
Hmm, még mindig okvetlenkedek kicsit, bocsi
Ez még nem tökéletes mert így valóban kilistázza az összes terméket, de azoknál, ahol egy sem volt eladva, ott is beteszi az összeghez az egységárat (mert ugye a terméklistából veszi). Így meg olyan mintha minden termékből legalább egy el lett volna adva, s ez is eltolja a számokat
Áááá, azt hiszem megvan
Jobb katt > PivotTable Options > Display > Show items with no data on rows
Ezer köszi a segítséget még egyszer, nagyon sok problémától menekülünk így meg
-
Szia!
Egy tartományba beírod a termék munkalapok nevét.
Fkeressel megkeresed az adott termékhez kapcsolódó munkalapot egy munkacellába.
Majd az indirekt függvényt használva megkapod az adott táblából az adatot.
A munkacella (S1) tartalma Termék1Az A5 cellában a képlet =indirekt(S1 & "!A5")
Üdv.
-
Sziasztok,
Van egy munkafuzetem tobb munkalappal (termekcsaladonkent). Minden termekre keszitettem egy koltsegszamito adatlapot a termekkomponensek alapjan. Ezekbol az adatlapokbol mara tobbszaz osszegyult. Mindegyik azonos felepitesu.
Szeretnek letrehozni egy adatlapot, ahova ha beirnam a termekkodjat, akkor kikeresne hozzatartozo adatokat.
Milyen megoldas lenne erre?
Minden adatlap 51 soros es 12 oszlop szelessegu, ezek egymast kovetik a kulonbozo munkalapokon. -
ez nagyon egyszerű, csak a mezőlistában változtasd meg, hogy honnan szedje az árat (ne a kavezo tablaból hanem a termekek táblából) vagyis szedd ki a pipat a kavezo ár mezőjéből és tedd be a termekek ár mezőjébe) (Analyze - Show - Field list)
Utólagos engedelmeddel rámentettem a onedrive-odra a változtatást
Hmm, még mindig okvetlenkedek kicsit, bocsi
Ez még nem tökéletes mert így valóban kilistázza az összes terméket, de azoknál, ahol egy sem volt eladva, ott is beteszi az összeghez az egységárat (mert ugye a terméklistából veszi). Így meg olyan mintha minden termékből legalább egy el lett volna adva, s ez is eltolja a számokat
-
-
Sziasztok!
Segítséget szeretnék kérni egy problémához, amellyel nem boldogulok.
Adott egy táblázat, amelyben pl. különböző kertészetekben megvásárolható fatípusok és az áraik találhatók.
Ezekhez az adatokhoz nem nyúlhatok.
Még akkor sem, ha némelyiket elírták, vagy helyesírási hiba van benne.
Egy másik munkalapra kigyűjtöttem a különböző nevű fatípusokat (A oszlop), majd javítottam amelyiket szükséges volt (B oszlop). Így persze lettek azonos sorok. A C oszlopba kigyűjtöttem az ismétlődés nélküli típusokat. És itt akadtam el, mert meg kellene adnom egy képletet, amellyel ki tudom számolni a típusonkénti átlagárat.
Arra gondoltam, talán úgy lehetne, hogy a C-beli értékeket megkerestetem a B-ben és amely sorokban megtalálja ugyanazon sorokat veszem az A-ból és az azokhoz tartozó árak átlagát számolom az előző munkalapról. HOL.VAN-nal viszont csak az első előfordulást kapom meg.
Van ötletetek?
Előre is köszönöm a segítséget. -
Szia!
Szerintem ezt több lépésben tudod csak megnézni.
1. Selection.Cells.Count=1 akkor biztosan nincs összevonva, mert az összevont cellákat nem tudod egyedüliként kijelölni.
2. Selection.Cells.Count>1, akkor meg kell nézni a Selection.MergeCells tulajdonságot (értékeit írtam korábban).Üdv.
-
Szia,
értem, ezért mondtam, hogy az előző módszerem favágós.
Másképpen próbálom elmondani a problémát:
A selection-ban lévő cellákról kell megállapítanom, hogy 1 db single cella vagy 1 db összevont cellák a tartalma.
vagyis ha egy area (feltételezzük, hogy mindig egy area, nem többszörös kijelölés), de két összevont cellák, az is hiba
(a példámnál a "B1:B3", és a "C1:C3", amiről tudjuk, hogy összevont cellák).
-
Szia!
Bocs, de én úgy gondolom, hogy a B1:B3 selection az nem egyenlő összevont cellákból álló tartománnyal, hanem csak 3 cellával. Ez igaz a C1:C3 tartományra is, Illetve, mindkét tartományban ettől függetlenül lehetnek összevont cellák!!
Ezért mindenképpen meg kell nézni a MergeCells tulajdonságot.
Ez úgy viselkedik, ha a kijelölt tartomány összevont, akkor True, ha vegyes, akkor Null, ha nincs benne összevont cella, akkor False az értéke.Azt, hogy összefüggő-e a kijelölés, az Areas tulajdonsággal tudod megnézni. Ha Selection.Areas.Count<>1, akkor a kijelölés nem összefüggő. A Count megmondja, hány részből áll a kijelölés, ezeken külön-külön kell végigmenni.
Az Activecell.Mergearea.Cells.Count pedig csak azt az egy cellát nézi, amit éppen kijelöltél - többszörös kijelölésnél is! - tehát félrevezető eredményt ad.
Üdv.
Szia,
értem, ezért mondtam, hogy az előző módszerem favágós.
Másképpen próbálom elmondani a problémát:
A selection-ban lévő cellákról kell megállapítanom, hogy 1 db single cella vagy 1 db összevont cellák a tartalma.
vagyis ha egy area (feltételezzük, hogy mindig egy area, nem többszörös kijelölés), de két összevont cellák, az is hiba
(a példámnál a "B1:B3", és a "C1:C3", amiről tudjuk, hogy összevont cellák). -
Nincs rá lehetőség, és más programmal sincs. Igazság szerint nem is teljesen értem, hogy ez mire.lenne jó
lekerekített sarkú drawing objektumokat el tudsz helyezni, de magukat a cellákat természetesen nem tudod lekerekíteni.Ilyesmit szeretnék készíteni Excelben:
Mondjuk nem annyira fontos, csak kíváncsi vagyok milyen korlátok vannak.
-
Hello!
Van lehetőség olyan formázásra, hogy a cella szélei vízszintesen, vagy függőlegesen lekerekítettnek tűnjenek? Tehát 2 különböző szín használata miatt. Vagy ehhez valami más program szükséges?Nincs rá lehetőség, és más programmal sincs. Igazság szerint nem is teljesen értem, hogy ez mire.lenne jó
lekerekített sarkú drawing objektumokat el tudsz helyezni, de magukat a cellákat természetesen nem tudod lekerekíteni. -
-
Sziasztok!
Egy kis segítséget szeretnék kérni megint tőletek
Excelhez nem értek így nem tudok benne függvényeket írni.
A problémám az lenne, hogy van kést oszlopom az egyik cikkszámok a másik darabszám.
A darabszám lehet kisebb mint nulla vagy 1/2/3/4 valamint "több mint 5". A kérdésem az lenne, hogyan lehetne megcsinálni, hogy ha kisebb mint nulla a szám nulla legyen ott ha a "több mint 5" akkor 5.
A számlázó rendszer nem tudja értelmezni a több mint 5 szöveget. -
cekkk
veterán
Sziasztok!
Egy kis segítséget szeretnék kérni megint tőletek
Excelhez nem értek így nem tudok benne függvényeket írni.
A problémám az lenne, hogy van kést oszlopom az egyik cikkszámok a másik darabszám.
A darabszám lehet kisebb mint nulla vagy 1/2/3/4 valamint "több mint 5". A kérdésem az lenne, hogyan lehetne megcsinálni, hogy ha kisebb mint nulla a szám nulla legyen ott ha a "több mint 5" akkor 5.
A számlázó rendszer nem tudja értelmezni a több mint 5 szöveget.
)
Új hozzászólás Aktív témák
- Forza horizon 6 prémiumot vásárolnék
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Star Wars The Old Republic Collectors Edition
- Ultimate előfizetés akár 3471 Ft/hó áron! Azonnali, automatizált aktiválással, csak Nálam!
- KERESEK Magyar GARIS VGA-t: 7900XTX NITRO+ / 7900GRE Pulse / 4070Ti SUPER 2x Ventus
- AKCIÓ! Motorola Sound Flow XT2549-1 hangszóró hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A22/Samsung Galaxy A23/Samsung Galaxy A25/Samsung Galaxy A05s
- Bomba ár! Asus ZenBook UX433 - i7-10G I 16GB I 512SSD I 14" FHD I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest