-
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
-
Delila_1
Topikgazda
válasz bnorci71 #8225 üzenetére
Tényleg elsiklottunk a régi kérdésed fölött.
A laphoz kell rendelned egy makrót -> lapfülön jobb klikk, Kód megjelenítése. A képernyő jobb oldalán kapott üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 28 And Target.Row >= 2 And Target.Row < 15 And _
Target.Column Mod 2 <> 0 Then
Range("A1:AI14").Sort Key1:=Range("AI2"), Order1:=xlDescending, Key2:= _
Range("AH2"), Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End If
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.
-
bnorci71
addikt
válasz Delila_1 #8251 üzenetére
szuper köszönöm
következő full extra kérés és ezzel szerintem 100%-ra kész a tabella
az utolsó oszlopba ha felfelé mozdult a csapat felfelé nyíl ha lefelé lefelé nyíl ha marad akkor nyégyszög vagy karika kerüllne.
Ennek megoldására elképzelésem sincs , gondolom szintén makró kell."If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
biker
nagyúr
válasz Delila_1 #8239 üzenetére
szia
nem vesztem el csak még le akarom tesztelni excelben is, hátha az openoffice kavar be, mert azt látom, hogy jó a képlet, ha a termékek egy részét megtalálja.pl az ooo a szám mezőket úgy sorrendezi, hogy 4, 40, 41.... stb
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
Delila_1
Topikgazda
Ez azért van, mert bár szám külleműek az adataid, szöveg formátumúak. Körülményesen úgy tudnád átalakítani, hogy az egész tartományt szám formátumúra állítod, de egyenként le kellene enterezni utána mindet.
Egyszerűbben is lehet, szorozd meg az adatokat 1-gyel. Excelben ennek a módja: beírsz egy cellába egy 1-est, másolod, kijelölöd a felszorzandó tartományt, jobb klikk, Irányított beillesztés, Szorzás.
Figyelj arra, hogy mindegyik táblázatodban számként szerepeljenek az összehasonlítandó adatok.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
biker
nagyúr
Delila: elküldtem a kérdéses filet. excel alatt (2004 for mac) még annyira sem jó, mint openoffice alatt, ugyanis ott vagy #hiányzik, vagy a helyes érték jön vissza.
Excelben vagy #n/a vagy #href jön vissza, sosem a helyes érték.Ha véletlen lesz időd rá, nagyon megköszönném
És az excel is úgy sorrendezi a szám jellegű mezőimet (kétszer is elenőriztem, számra van állítva, az sql exportnál is INT alapú mező volt!) hogy pl 42998, 42999, 43, 4300, 43000, 43001 stb
ez viszont text-re utal...
wtf?Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
biker
nagyúr
válasz Delila_1 #8254 üzenetére
lásd ez idő alatt írt szólásom.
sql: INT, auto increment, tehát szám.
exportálva a csv-be, ott is oszlop kijelölése, szám formátumElektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
Delila_1
Topikgazda
Legegyszerűbben úgy tudod meg, hogy szöveg-, vagy szám formátumú-e az oszlop, hogy néhányat együtt kijelölsz, a státuszsorban megnézed az összeget. Szöveg formátum esetén ezt nem mutatja.
Excelről írtam, az OO-t nem ismerem.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
Sziasztok!
Excel 2007 macróban hogyan lehet megállítani a macró futását adatbevitel céljából?
Futtatok egy macrót amely végig kell, hogy járjon bizonyos cellákon amelyekbe adatokat kellene bevinni. Minden ilyen cellán meg szeretném állítani, beírni az adatot és Enter leütésére folytatódjon a macró futása a következő cellára.köszi
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz bnorci71 #8252 üzenetére
Eszembe jutott valami, de megint csak este tudom kipróbálni. Érdekes feladat, biztosan más is próbálkozik addig a megoldással.
Hogy ne kelljen a lehetséges megoldóknak visszakeresni:
Az A2:A14 tartományban focicsapatok nevei vannak. A teljes tartomány címsorral együtt A1:AI14, ami az AI oszlop értékei szerint van csökkenő sorrendbe rendezve. Az AI változik, emellé kellenének a nyilak az AJ, vagy AK oszlopba.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
opzozi
tag
Szükségem lenne a segítségetekre. Excel makrókban nem vagyok jártas.
Adott egy excel tábla van benne egy oszlop, amiben linkek vannak. Ez úgy néz ki, hogy a cellában "Link" névvel szerepel és ugye ott van alatta a hivatkozás. Ezt a hivatkozást szeretném megjeleníteni úgy, hogy a "Link" nevet kicserélje az adott hivatkozásra, tehát "http://...."
Xiaomi Poco X3 Pro
-
motinka
tag
Lenne egy újabb kérdésem, biztosan tud valaki rá valami jó megoldást.
Adott táblázat A oszlopának sorait egy vonalkód beolvasóval töltünk ki egy egyedi azonosító számsorral.
Az a papír alap, amiről beolvastuk a vonalkódot az másnap visszaérkezik, és vannak rajta újabb adatok.
Azért hogy a táblázatban ne kelljen keresni a papírt adatait, a vonalkód olvasóval kikeressük a megfelelő sort CTRL+F billentyű azaz kereséssel.Az lenne a kérdésem, hogy lehetne-e ezt egyszerűsíteni, hogy ez a kereső ablak ne ugorjon fel, amennyiben a vonalkód olvasóval beolvastatok egy kódot, hanem egyszerűen csak a tábláztaban ugorjon a megfelelő sorra az aktív ablak, majd ha egy másik kódot olvasok be akkor arra ugorjon, minden felugró ablak nélkül.
örülnék ha lenne megoldás így 1xübb lenne a keresés.
előre is köszönöm segítségeteket
üdv
MoTiNka
-
Imu
csendes tag
Sziasztok!
Egy kis segítség kellene. Van egy táblázatom amibe e pdf állomány objektumként van beszúrva. Azt szeretném hogy egy commandbutton-al vagy vmilyen gombot megnyomva megnyitná ezt a pdf-et Adobe Readerbe.
-
Delila_1
Topikgazda
válasz csferke #8261 üzenetére
A cellára így hivatkozhatsz:
Cells(sor,oszlop)A ciklussal, gondolom, a sorokon mész végig. Sornak a ciklusváltozódat írd be, az oszlopszámot meg fixen megadhatod.
Cells(sor,oszlop)=Válasz
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Hali!
Ezt nem teljesen értem "cellában "Link" névvel szerepel és ugye ott van alatta a hivatkozás."
Arra gondolsz hogy pl A1-ben van a (I)LINK (/I)felirat, A2-ben meg pl (I)http://www.mypage.hu/index.html(/I) ?Fire.
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)
-
félisten
válasz Fire/SOUL/CD #8267 üzenetére
Hali!
Na még1x, szóval ha így néz ki a dolog és abból ilyet szeretnél készíteni, akkor ez a makró megfelel. A makró kód elején add meg, hogy melyik munkalap, melyik oszlopában vannak a linkek. Itt a példában a Munka1 lap A oszlopában vannak a linkek.
Fontos
Először legyen egy másolatod a kívánt munkafüzetről, mert ha mégsem azt csinálná a makró, amit szerettél volna, akkor nem lehet használni az undo parancsot...Private Sub CommandButton1_Click()
Dim SrcSheet As Object
Dim My_Range As Range
My_Sheet = "Munka1" 'Itt megadod, hogy melyik munkalapon van az oszlop
My_Column = "A" 'Itt megadod, hogy melyik oszlopban vannak a linkek
Set SrcSheet = ThisWorkbook.Sheets(My_Sheet)
Set My_Range = SrcSheet.Range(My_Column & "1:" & Range(My_Column & "1").End(xlDown).Address)
Application.ScreenUpdating = False
SrcSheet.Select
On Error Resume Next
For Each CurrCell In My_Range
CurrCell.Hyperlinks(1).TextToDisplay = CurrCell.Hyperlinks(1).Address
Next CurrCell
Set My_Range = Nothing
Set SrcSheet = Nothing
Application.ScreenUpdating = True
End SubFire.
[ 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)
-
biker
nagyúr
Delila: KÖSZI!!!
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
veterán
sziasztok!
egy - valószínűleg elég egyszerű - praktika érdekelne excelben. az hogyan működik, hogy egy diagramban bizonyos y értéknél tudjak húzni egy nagy piros vonalat?
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
opzozi
tag
válasz Fire/SOUL/CD #8267 üzenetére
Link névvel szerepel, ami egy hivatkozás, csak ugye ez mondjuk txt-be konvertálva nem látszik. Ezért szeretném ezt a Linket a valós hivatkozásra lecserélni.
Tehát
Link (http://...) erre a hivatkozásra mutat
és ezt kéne erre:
http://... (http://...)Xiaomi Poco X3 Pro
-
félisten
Hali!
Ma nehéz a felfogásom...
Dobj be 2 képet a cellákról, az elsőt hogy most milyen, a másodikat meg hogy ilyenre, akkor meg fogom érteni és módosítom a makrót...Fire.
UI: Most is sejtem, mit szeretnél, csak a megerősítés jó lenne, mert nem akarom 5x átírni a makrót...
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)
-
aclandiae
senior tag
Sziasztok!
A, az Auto-szűrő html formátumban is működik? ha nem, hogy lehet működésre bírni?
B, hogy lehet a ki nem használt cellákat kitörölni, hogy csak az látszódjon amiben van adat?
C, hogyan lehet levédeni a cellákat, hogy ne lehessen módosítani?
D, hogy lehet az Excelbe olyat megoldani: a weboldal formátumában kijelölgetni 1-1 tétel amit meg akar valaki venni/el akar cserélni, és ez a weboldal pl. jobb szélen - ahol már nincs táblázat, mert csak 6 oszlopos - egy kis listába bekerül a jelölés hatására, majd ha végzett ezt a listát e-mailben elküldi nekem? -
motinka
tag
válasz motinka #8264 üzenetére
Egy régi megoldásotokat felhasználva majdnem megoldottam a problémámat, az alábbiakkal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End SubA vastagított rész akkor lenne igazán jó, ha ekkor erre a cellára ugrás után törölné annak tartalmát és aktiv cella lenne, azaz a kurzor benne van.
Mit kell beleírni még ehhez?köszi előre is a választ
MoTiNka
-
-
motinka
tag
Köszi perfag ( és bocs a múltkori elírásért), közben aludtam egyet és az alábbi szerint működik ahogy szeretném:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3") = ""
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End SubMoTiNka
-
opzozi
tag
válasz Fire/SOUL/CD #8274 üzenetére
Ez az alap állapot:
Egy hivatkozás egy képre.És amire szeretném:
A "Link" helyett maga hivatkozás jelenjen meg. Tehát a "Link" szöveget szeretném cserélni az adott hivatkozásra.Lényegében ennyi.
Xiaomi Poco X3 Pro
-
félisten
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)
-
opzozi
tag
válasz Fire/SOUL/CD #8281 üzenetére
Akkor úgy látszik, ma én nem vagyok formában.
Köszönöm szépen.Xiaomi Poco X3 Pro
-
félisten
Hali!
Hát ebből a megfogalmazásból megint 2 dologra tudok gondolni
1. "A Link szó valóban egy link, és amire mutat, azt szeretném megjeleníteni."
Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?2. "Tehát a tényleges linket egyik cella sem tartalmazza csak maga a "Link" hivatkozása."
Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
(pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)Fire.
[ 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)
-
opzozi
tag
válasz Fire/SOUL/CD #8284 üzenetére
"Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?"
Nem akarom beilleszteni a képet, elég csak a hiperhivatkozás szövegként."Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
(pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)"Pontosan.
Xiaomi Poco X3 Pro
-
félisten
Hali!
A példa kedvéért A1 : A100 tartományban vannak a linkek. Készítünk egy GetURL függvényt (ALT+F11/Insert menu/Module) a megjelenő ablakba illeszd be ez a kódot
Function GetURL(My_Range As Range) As String
If My_Range.Hyperlinks.Count > 0 Then
GetURL = My_Range.Hyperlinks(1).Address
Else: GetURL = My_Range
End If
End FunctionEzt követően B1 cellába meg írd be =GetURL(A1) , majd másold le ameddig szükséges.
Fire.
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)
-
opzozi
tag
-
siti
senior tag
"excel... kinyalja a s@gged, de közben leharapja a t@ködet" (Tsöpi)
sziasztok,
belefutottam a fenti szívásba. angol excelben, "írtam" egy makrót, lényege:
loop-al megnézi a következő üres cellát, majd bebiggyeszt oda egy szimpla =today() függvényt, ennyi. működik.Persze otthon magyar excelem van, az ezzel kezd:
A3 körökörös hivatkozás (innen indul a loop), persze nincs semmi, hibaüzenet leokéz, mert a körkörös hivatkozás nem dob fel semmit.
cellába pedig eddig három dolgot írt ki:
#Érték (random)
0 (ha cella formája Általános)
1900.01.01 (ha cella formája Dátum)
ha belekattintok, ott figyel a =Ma() függvény (persze lefordítottam neki) és ha kilépek a cellából, már adja is a jó értéket.Ez mi a túróért van? Ami angolban megy az miért dob hátast magyarban? Mit hagytam ki?
A makró amúgy:
r = 3
Do While Cells(r, 1).Value <> ""
r = r + 1
Loop
Cells(r, 1).FormulaR1C1 = "=MA()"és még csodálkoznak ha iszom...
Füle -> 9. BRSZK -> 2024. Június 22-23. (hamarosan beérjük a Fast and furious sorozatot)
-
ferec
tag
Sziaszok!
A problémám a következő:Van egy táblázát amelynek minden oszlopába egy-egy munkalap adatai vannak. A 4. sor taralmazza az adott város kódját (BP,JB,JF). Hogy tudok úgy szűrni, hogy csak azok az oszlopok(!) jelenjenek meg amelyeknek a 4. sora az adott városhoz tartozik?
-
Delila_1
Topikgazda
Kapcsold be az Eszözök/Bővítménykezelőben az Analysis kezdetű 2 bővítményt.
Az előbbi makró egyetlen sorral:
Sub dátum()
Cells(Range("A3").End(xlDown).Row + 1, 1) = Date
End Sub[ 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.
-
pentium4
senior tag
sziasztok!
egy kis segitséget kérnék!
van egy táblázatom
1 sor és 5 oszlop
A1 B1 C1 D1 E1
best ár, bolt1, bolt2, bolt3, bolt4
a bolt1-4 cellákba összegek vannak de van van oylan hogy 0 kerül bele, mert pont nincs az adott boltba!
az A1 cellába kell megjeleníteni a legkisebb összeget, ez sikerült is a =MIN() függvénnyel, csakhogy igy a 0át irj ki, és nemtudom hogy hogy kéne beleirni a függvénybe hogy a 0 kivétel legyen!
az hogy a 0 helyett azt irom hogy nincs rakt
ron stb. nem megy, mivel abból a ellából másik 3 számol és ha oda szöveget irok akkor a többi helyre ÉRTÉK-et ir!
remélem tudtok segiteni!
kösziP4
-
sonar
addikt
Sziasztok,
Hogy tudom azt megoldani, hogy egyik cella értékét és formátumát is átvigyem egy másik cellába?
Vagyis, van egy C2 cellám ahol dőlten, meg pirossal van irva vmi az mondjuk a D2-ben is ugyanúgy és ugyanaz legyen? Próbáltam a D2-be beirni, hogy =C2, de ez csak a benne tárolt értéket viszi át, nekem meg kéne a formátum.
Megoldható ez vhogy?üdv
sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- World of Warcraft Shadowlands Collectors edition EU EN
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Eladó Steam kulcsok kedvező áron!
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással