- Xiaomi Mi 10T Pro - a házon belüli ellenfél
- iPhone topik
- Ezek a OnePlus 12 és 12R európai árai
- Egyre közelebb a Poco F6 startja
- Vodafone mobilszolgáltatások
- Yettel topik
- Mindent megtudtunk az új Nokia 3210-ről
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Apple iPhone 15 Pro Max - Attack on Titan
- Google Pixel 6/7/8 topik
Hirdetés
-
Az Apple megszerezné a klubvilágbajnokság közvetítési jogait
ph A vállalat ezért irgalmatlan pénzt fizetne a FIFA-nak, és ezzel rajzolná át az online streaming platformok háborújában a frontvonalakat.
-
Mindent megtudtunk az új Nokia 3210-ről
ma Részletes képek, specifikációk és euróban megadott ár is van a legendás modell újraélesztett verziójához.
-
Lunar Lander Beyond teszt
gp Nagyon sok évtizeddel az eredeti Lunar Lander megjelenése óta ismét ezen a címen jelent meg Atari logóval egy játék. Vajon mennyit javult a játékdesign a hetvenes évek óta?
-
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
-
Musuz
csendes tag
Sziasztok.
Segítségre lenne szükségem.A következő a szitu: a munka1 lapon létrehoztam 1 táblát 19 oszloppal,az oszlopok első soraiban a nevekkel, (plahrein,Australia,Malaysia,stb).Az alatta levő 23 sorban szavak és számok vannak.Egy üres cellában létrehoztam a pályanevek legördülő listáját,és azt szeretném elérni,hogy ha kiválasztok egy nevet,akkor a lista cellája alatt lévő 23 sorban megjelenjenek az adatok,persze a választott pályanévnek megfelelően.A oszlop B oszlop C oszlop
szöveg szöveg [Bahrain]-ez itt a legördülő lista,és alatta szeretném látni az adatokat
aero f wing 1
r wing 1
stb. stb. 48/52
stb.és itt van a tábla (19 oszlop/24 sor)
bahrein I australia I malaysia I stb
1 I 2 I 3 I stb.
1 I 1 I 1 I stb.Remélem nagyjából érthető.Eddig az FKERES függvénnyel próbálkoztam de csak egy oszlop adatait sikerült megjeleníteni,de már olyan sokat próbáltam,hogy már azt se tudom megismételni.Légyszi aki tud segítsen. Köszönöm.
Laci.[ Szerkesztve ]
-
slashing
senior tag
Hát az fkeressel nem fog menni mivel ahhoz át kéne forgatnod a lenti táblázatot neked a vkeres függvény kell. Az előbbi oszlop metszéspontban keres az utóbbi meg sor metszéspontban.
=VKERES($C$5;$A$33:$S$56;2;HAMIS) húzd le a képletet 29-ig aztán a végén lévő kettes írd át hármas-ra majd négyesre stb.. stb...
[ Szerkesztve ]
-
mh197
senior tag
Sziasztok!
Segítséget szeretnék kérni excelben.
Az adott munkafüzet celláit védeni kellene a cellaformázás ellen, de nem minden cellát. Jelenleg a lapvédelmet ha bekapcsolom, akkor hiába veszem ki a pipát a védelem - > "zárolt" helyről, akkor azok a cellák attól ugyanúgy nem formázhatóak cellaformázással, jobb klikk esetén azokra a cellákra ugyanúgy inaktív marad a cellaformázás menüpont. Tudom, hogy a lapvédelemnél be lehet pipálni, hogy a védelem bekapcsolása esetén lehessen a cellákat formázni, de az meg azért nem jó, mert 5 db cellán kívül ez ellen az összeset védeni kellene.
Miért kell a cellaformázhatósága: van egy makró benne, hogy cserélődjenek a színek az alábbiak szerint:
Public Idozites As Double
Sub Villogas_ki()
Range("F5:G6").Font.ColorIndex = xlAutomatic
Range("F5:G6").Font.Color = RGB(255, 0, 0)
Range("F5:G6").Interior.Color = RGB(255, 204, 153)
Application.OnTime Idozites, "Szincsere", , False
End SubSub Szincsere()
If Range("F5:G6").Font.Color = RGB(255, 0, 0) Then
Range("F5:G6").Font.Color = RGB(0, 0, 255)
Range("F5:G6").Interior.Color = RGB(255, 0, 0)
Else
Range("F5:G6").Font.Color = RGB(255, 0, 0)
Range("F5:G6").Interior.Color = RGB(255, 204, 153)
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End Sub---
Public Most_villog As Boolean
Private Sub Workbook_Open()
MsgBox "Üdvözlöm a feladat nyilvántartásban!"
If Range("A2") <> "0" And Most_villog = False Then
Call Szincsere
Most_villog = True
ElseIf Range("A2") = "0" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
End If
End SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "A 'mentés másként' funkció NEM HASZNÁLHATÓ!!!"
MsgBox "A táblázat NEM KERÜLT MENTÉSRE! Mentse ISMÉT a 'mentés' gombbal!!!", vbInformation
Cancel = True
End If
If Range("A2") = "0" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
ElseIf Range("A2") <> "0" And Most_villog = False Then
Call Szincsere
Most_villog = True
End If
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Biztosan be akarja zárni a feladat nyilvántartást ?", 36, "Confirm") = vbNo Then
Cancel = True
End If
End SubAhogy ebben látható az F5:G6 tartomány színe változna az A2 értéke függvényében. Lényegében az adott munkafüzetben az F5:G6 tartományban lévő cellákon kívül mindegyiknek védettnek kellene lenni cellaformázás ellen, ha a lapvédelmet bekapcsolom. Mindez azért kellene, mert ha az F5:G6 tartomány cellaformázás ellen védetté válik a lapvédelem bekapcsolásával, akkor a "színcsere" nem tud futni ezeken a cellákon..
Erre van esetleg valakinek itt ötlete, hogyan lehetne megoldani??
Előre is köszönök minden építő jellegű hozzászólást!
Szép hétvégét!
[ Szerkesztve ]
-
Delila_1
Topikgazda
A makró(k) elején az
ActiveSheet.Protect Password:="hűdetitkosjelszó", UserInterfaceOnly:=True
sor engedélyezi MAKRÓBÓL a zárolt cellák módosítását. Jelszó nélkül védett laphoz elég az
ActiveSheet.Protect UserInterfaceOnly:=True
Az OFF-ban írt szöveg rosszul olvasható. Makró közléséhez inkább a Programkód gomb szolgáltatását kellene alkalmaznod, az a tagolásokat is mutatja.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mdk01
addikt
Mit rontok el?
=HA(Összesített!T5=VAGY(22/0,4;22/0,8;22/1);Összesített!P5;"-")
Gondolom látszik mit szeretnék.
Egyszerűbb lenne Összesített!T5 után felsorolni hogy mely értékek alapján legyen IGAZ az érték, de nem tudom milyen karakterrel lehet ezt vele megértetni.Köszönöm
-
Delila_1
Topikgazda
-
mdk01
addikt
válasz Delila_1 #22510 üzenetére
Igen, próbáltam úgy is, de semmi...#ÉRTÉK!
=HA(Összesített!T5=VAGY("22/0,4";"22/0,8";"22/1");Összesített!P5;"-")Így működik, csak kellene mellé még a másik két érték is(22/0,8 és 22/1), amit vmilyen karakterrel vagy függvénnyel felkellene soroltatni.
=HA(Összesített!T5="22/0,4";Összesített!P5;"-") -
Delila_1
Topikgazda
-
mh197
senior tag
válasz Delila_1 #22506 üzenetére
Egyébként van még egy gondom, amit lehet nem lehet orvosolni..
Ha az egyik excel munkafüzetben hivatkozok egy másik excel munkafüzetre, akkor ugye a hivatkozásban elmenti az adott gépen a hivatkozott munkafüzet elérési útvonalát. pl.: C:/dokumentum/excel/munkafüzet2/...
Mind a két excel munkafüzet egy mappában található. Ekkor ha a mappát a két excel fájlal együtt átteszem másik helyre a gépen, vagy pl másik gépre átmásolom, ahol más lesz az elérési út, akkor az adatok->hivatkozások helyen frissíteni kell az elérési útvonalat.
Meg lehet azt oldani valahogy, hogy ha a két fájl mindig egy mappában van, de pl azt a mappát másik gépre más elérési útra másolom, akkor attól ne kelljen frissíteni a hivatkozásokat? Valahogy úgy megadni a hivatkozott munkafüzetet, hogy azt az adott néven ugyanabban a mappában keresse, de ne vizsgálja az elérési utat.
Lehet, hogy nem kivitelezhető, de gondoltam megkérdem, hátha van erre is megoldás, csak én nem ismerem..
-
slashing
senior tag
szerintem ha egy könyvtáron bellül van akkor nem kell teljes elérési útat használni Pl.:
=[A te fájlod.xlsx]Munka1!A1
de a legegyszerűbb úgy csinálni hogy mikor a képletet írod közben megnyitod a másik füzetet is és simán átkattintasz annak a füzetnek az cellájába majd vissza mész az eredeti füzetedre és akkor automatikusan megadja az elérési utat.
[ Szerkesztve ]
-
mh197
senior tag
válasz slashing #22516 üzenetére
Igen, ezt ismerem, hogy átkattintok, és így hivatkozom. De próbáld ki ezt akkor, ha ezt követően elmented és bezárod a két fájlt. Utána a mappát másold át valahová márs helyre, amiben ez a két fájl van, pl másik gépre, és más mappába. Na ha ekkor megnyitod a két fájlt, akkor frissíteni kell az elérési utat.. Ezt akarnám valahogy kikerülni, hogy ne kelljen frissíteni.
-
mh197
senior tag
válasz Delila_1 #22508 üzenetére
Mégis van egy "apróbb" gond még az előzővel. Ha berakom a makróba az általad javasolt sort, utána elmentem, akkor nem megy az autoszűrő. A lapvédelmet úgy módosítja, hogy az autoszűrő -ből kiveszi a pipát, ha mentem a fájlt.
Erre van valami megoldás, hogy az autoszűrőt ne vegye ki, vagyis lehessen a lapvédelem ellenére szűrni?
Azt próbáltam, hogy amikor a lapvédelmet ráteszem, úgy mentem, hogy bepipálom az autoszűrőt, de ha utána mentem, akkor magától kiveszi onnan, és már nem is megy a szűrés utána tovább.. -
Delila_1
Topikgazda
Az előzőre: saját gépen más mappába téve a 2 fájlt nincs gond, másik gépen nem tudom kipróbálni.
Rögzítsd a lapvédelmet, ami beírja, mit engedélyezel, és mit nem. A szűrőt az AllowFiltering:=True opció engedélyezi. Ezt írd be a makró végére.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
samfishR
senior tag
Sziasztok!
Adott 2 oszlop. Az egyikben legördülős listából kell kiválasztani az értékeket. Úgy szeretném megoldani, hogy a mellette lévő oszlop automatikusan ki legyen töltve megadott értékkel attól függően, hogy az első oszlopban mit választottam ki. Pl a képen az első oszlop E1100, a második oszlopnak meg automatikusan ki kellene töltődnie, hogy E11. Hogy lehetne megoldani? Köszönöm előre is!
-
ztoldy
senior tag
Sziasztok!
Azt tudom valahogyan ellenőrizni, hogy egy sorozatban minden szám megtalálható-e?
Példa: van dobozszámom mondjuk 0032-től egészen 0800-ig a C oszlopban (egy dobozszám többször is szerepelhet, amennyiben egy dobozban több minden is található) és azt szeretném megtudni, hogy ebben a B oszlopban mindegyik dobozszám fel lett-e használva 0032-0800-ig vagy mondjuk a 0723 és a 0452 hiányzik.Köszönöm a segítséget!
https://www.refundo.hu/?ref=175161
-
Delila_1
Topikgazda
válasz ztoldy #22528 üzenetére
Nézd meg a DARABTELI függvényt, azzal megoldhatod. Egy oszlopban felsorolod a lehetséges dobozszámokat, legyen pl. X1-tól X valahányig.
Y1 képlete =darabteli(B:B;X1). Ezt végig lemásolod az X adataid mellé. Ahol nulla értéket kapsz, ott az a doboz nem szerepel a B oszlopban.
A nullánál nagyobb értékek azt az értéket adják, hogy a doboz hányszor szerepel a B-ben.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
samfishR
senior tag
Sziasztok!
Újabb kérdéssel fordulok Hozzátok. Hogy lehet azt kikapcsolni, hogy ahol 0-val osztok ne legyen a cellában #ZÉRÓOSZTÓ ? 0-t szeretném, ha kiírna. melóhelyen találtam egy ilyen excel filet és abban így volt megcsinálva. Köszönöm!
-
-
Fferi50
őstag
válasz samfishR #22530 üzenetére
Szia!
Ezt többféleképpen is elkerülheted:
1. megvizsgálod, hogy az osztó 0-e, ha igen, akkor nem osztasz, hanem beírod a 0 értéket: pl.
=ha(A2=0;0;A1/A2)
2. használod a hahiba függvényt (Excel 2010 -től): =hahiba(A1/A2;0)
3. ha még nincs, akkor a ha és a hibás függvény kombinálása: =ha(hibás(A1/A2);0;A1/A2)Üdv.
-
mdk01
addikt
Olyat lehet csinálni hogy kijelölök két cellát és azt mondom cserélje fel a tartalmukat?
Köszönöm -
slashing
senior tag
találtam egy ilyet:
de csak 1 cellával működik viszont úgy néz ki hogy mindegy melyik két kijelölt cellán futtatod a makrót. Swap cell kulcsszóval keresgélj hátha van jobb isSub Swap2Values()
Dim Value1 As Range, Value2 As Range
Dim TempValue1 As String, TempValue2 As String
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
MsgBox "Please select only 2 cells. For other options check back soon!"
End
End If
If Selection.Areas.Count > 1 Then
Set Value1 = Selection.Areas(1).Cells(1, 1)
Set Value2 = Selection.Areas(2).Cells(1, 1)
ElseIf Selection.Rows.Count > Selection.Columns.Count Then
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("A2")
Else
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("B1")
End If
TempValue1 = Value1
TempValue2 = Value2
Value1 = TempValue2
Value2 = TempValue1
End Sub -
Bobrooney
senior tag
Sziasztok!
Egy szűrő adatait hogy tudom kinyerni programgkódba (akár 1 tömbe), úgy hogy az adatok csak egyszer szerepeljenek? Gondolom a szűrőt kell babrálni de, még nem jöttem rá.
Csatoltam egy képet: -
samfishR
senior tag
válasz samfishR #22526 üzenetére
Sziasztok, ehhez a kérdésemhez kapcsolódik egy újabb:
a bal oldali oszlopban mindig ezek közül az értékek közül van megadva 1-1:
C4500
E1100
E1170
E1180
E1190
E2000
F1100
F1112
F1900
G2112
G2300
H3212
K1100
K3310
L4910
P229
Q5400
Q6240
R1100
R3400
R3600
R3800
W4900A melette jobbra lévő oszlopba már nem elég csak az első 2 karakter (pl E1, G2), hanem úgy kellene, hogy ha egy konkrét betűvel, pl E-vel kezdődik az adott cella, akkor a mellette lévőbe csak az E betűt írja be, míg egy másiknál, pl az R1100 esetében kellene mind a 2 első karakter, pl az lenne R1..... Remélem érthetően írtam le
-
Delila_1
Topikgazda
válasz samfishR #22536 üzenetére
Vegyél fel egy segédtáblát, ahol megadod, melyik betűnél hány karaktert mutasson az A oszlop adataiból. Nálam ez az F:G tartomány.
A B1 cella képletét látod a szerkesztőlécen.Bobrooney
Nem jött össze a kép csatolása. Valószínűleg az irányított, újabb verziókban speciális szűrésre gondolsz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Bobrooney
senior tag
válasz Delila_1 #22537 üzenetére
Nem, simán ha rámész a szűrőre, minden a hozzá tartozó adatot csak egyszer jelenít meg.
Erre a listára gondoltam: // Remélem most jó lesz a kép
Nem kell semmi speckó szűrés, csak a lista kiválasztható adataira lenne szükségem.
Meg elehetne oldani ilyen olyan kereséssel és több ciklusos hasonlítással, ezt szeretném elkerülni.[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Bobrooney #22542 üzenetére
Ha jól látom, az F oszlopból akarod kinyerni az egyedi értékeket. Erre jó a speciális szűrő, amit makróval is előállíthatsz.
A lenti pár sor a Z oszlopba ír, címsorral együtt, majd a kinyert adatokat a tomb nevű tömbbe rakja. A végén kiírja a tomb() harmadik értékét, próbaként.Sub TombbeEgyedi()
Dim usor As Long, tomb()
usor = Range("F" & Rows.Count).End(xlUp).Row
Range("F1:F" & usor).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("Z1"), Unique:=True
usor = Range("Z" & Rows.Count).End(xlUp).Row
tomb = Application.Transpose(Range("Z2:Z" & usor))
MsgBox tomb(3)
End SubMikor betöltötted a tomb()-be az adatokat, megadhatod a makróban a további felhasználásra az utasításokat. Ehhez már nincs szükség a Z oszlopra, törölheted.
Szerk.:
Közben kibővítetted a kérdést. Valószínű, hogy érvényesítéshez kellenek az egyedi értékek. A Z oszlopból megadhatod a tartományt.[ 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.
-
-
Delila_1
Topikgazda
válasz Bobrooney #22545 üzenetére
Szívesen. Az
usor = Range("Z" & Rows.Count).End(xlUp).Row
tomb = Application.Transpose(Range("Z2:Z" & usor))
MsgBox tomb(3)rész helyett betehetsz egy rendezést, és egy névadást. A névadásból hagyd ki a Z1 cellát, az hivatalból az oszlop címe. Az érvényesítésnél a nevet adhatod meg forrásként.
Ha eleve ofszettel adod meg a nevet a Z adatainak, a makróban csak rendezni kell az adatokat a szűrés után.
[ 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.
-
Fferi50
őstag
válasz Bobrooney #22542 üzenetére
Szia!
Excel 2007-től működik az adatok ismétlődések eltávolítása.
Ennek felhasználásával:
Átmásolod az eredeti listádat egy új helyre - ahonnan majd használni szeretnéd.
Utána az új helyen adatok - ismétlődések eltávolítása menüpont használata.
Makróban pl.
ActiveSheet.Range.("Y11200").RemoveDuplicates columns:=1 header:=xlYes vagy xlNo attól függően, hogy van-e fejléc.
Előtte pedig Application.DisplayAlerts=False
Utána: Application.DisplayAlerts=True
Ez a két sor arra kell, hogy ne "üzengessen", hány adatot távolított el.Üdv.
-
Delila_1
Topikgazda
válasz slashing #22534 üzenetére
A kérdés feltevője nem válaszolt a megoldásodra, de én bespájzoltam, egy apró egyszerűsítéssel:
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
helyett
If Selection.Cells.Count <> 2 Then
Nagyon tetszik a makró.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Xiaomi Mi 10T Pro - a házon belüli ellenfél
- iPhone topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- Ezek a OnePlus 12 és 12R európai árai
- Egyre közelebb a Poco F6 startja
- Lunar Lander Beyond teszt
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- WLAN, WiFi, vezeték nélküli hálózat
- Autós topik
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- World of Warcraft Shadowlands Collectors edition EU EN
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest