-
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
-
lenkei83
tag
Sziasztok!
Powerpointban ez beszínezi az egész seriescollectiont:
ActivePresentation.Slides(1).Shapes(1).chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbBlue
Hogy lehet ebből olyat varázsolni, hogy a
SeriesCollection(1)
egyetlen elemét színezze csak át?
Excelben megy, powerpointban nem tudok rájönni.köszi
P. -
EmberXY
addikt
Sziasztok!
Olyan problémával találkoztam, hogy ha egy adott munkalapon oszlopot szeretnék beszúrni, akkor a következő hibaüzenetet kapom:Ha a CTRL + END-et használom, egy teljesen üres cellára visz, nem értem, hogy mi a problémája... A lapon van néhány cella összevonás, egy fejléc rögzítés, de semmi extra, más lapokon is hasonló formázások mellett simán tudok oszlopot beszúrni. Valamit én csinálok rosszul?
Up the Irons!
-
Fferi50
őstag
válasz EmberXY #35654 üzenetére
Szia!
Néha előfordul, hogy az Excel szemetel.... Attól, hogy nem látsz semmit a cellában, még lehet formázás, feltételes formázás, stb. ami érvényes a cellára.
Próbáld meg kitörölni a most nem használt oszlopokat és sorokat a munkalap végéig. Azután szerintem mennie kell a beszúrásnak.
Üdv.
-
Geryson
addikt
Csak vissza kell kérdeznem...
Van egy ilyen tartalmú cella: 42CRMO4-022 és ebből 2 képlet csinál belőle az alábbi eredményt:
=KÖZÉP(A477;1;SZÖVEG.KERES("-";A477;1)-1)
= 42CRMO4=KÖZÉP(A477;SZÖVEG.KERES("-";A477)+1;20)*1
= 22Sajnos viszont van más stílusú/tartalmú cella is: 42CRMO4-022(QT)
Ebből melyik képlet tudna nekem hasonló bontást csinálni, hogy az eredményem "42CRMO4+QT" és 22 legyen?
[ Szerkesztve ]
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Geryson #35658 üzenetére
Alap: 42CRMO4-022(QT)
=BAL(A1;SZÖVEG.KERES("-";A1)-1) & "+" & KÖZÉP(A1;SZÖVEG.KERES("(";A1)+1;SZÖVEG.KERES(")";A1)-SZÖVEG.KERES("(";A1)-1)
eredménye:
42CRMO4+QT=KÖZÉP(A1;SZÖVEG.KERES("-";A1)+1;HOSSZ(A1)-SZÖVEG.KERES("(";A1))*1
eredménye: 22
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 Geryson #35660 üzenetére
Szívesen.
Sajnos arra, ha AS rendszerben (ahogy sikerül) vannak az adatok, nincs univerzális, jó képlet. Vagy van, de kilóg a vége az ablakon, és nagyon leterheli a memóriát.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lenkei83
tag
válasz Fferi50 #35656 üzenetére
Szia!
De van, közben rájöttem mi a gond, de a megoldást még nem találtam ki.
Combobox change-hez van hozzárendelve a színezés, viszont amikor kiválasztok a comboboxban egy másik értéket, az csak end sub után lesz aktív point. Vagyis amíg nem fut le teljesen a chang event, addig a diagram előző point értékeit veszi figyelembe és ez alapján színez. Viszont az előző dián lévő point az új combo választás szerint szerepelhet teljesen más helyen a diában és így teljesen bután néz ki a dia.Érthető ez így?
üdv:
P. -
Carasc0
őstag
Sziasztok!
Egy érdekes Excelbeni probléma elé kerültem. Remélem van megoldás rá!
A probléma kifejtése:
Adott egy cella. Legyen A1. Ebben a cellában az alábbi algoritmust akarom megvalósítani:
Ameddig az A1 cella tartalma értéke nem X, addig szerkeszthető, különben nem.
Tehát ameddig nem kerül X a cellába, addig bármit be lehet írni, de amint valaki X-et ír be, a cella nem szerkeszthető többet.
Erre keresek valami okosságot.
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35665 üzenetére
Vedd le a zárolást az A1 celláról, meg a többiről, amikbe írhat a felhasználó.
Rendeld a laphoz a lenti makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "Gólyacsőr" Then '***********
Range("A1").Locked = True
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '************
End If
End If
End SubA csillagokkal jelzett sorokon kell változtatnod. Az elsőben a "Gólyacsőr" helyére azt írd be, aminek a bevitele után nem akarod engedni az A1 módosítását, a másodikban az "aaa" helyén legyen a saját lapvédelmed jelszava.
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 Carasc0 #35667 üzenetére
Nem ennyire egyszerű. Az
If Target.Address="$A$1" Then
sor helyére
If Not Intersect(Target, [A1:B20]) Is Nothing Then
sort írj, ahol az [A1:B20] a vizsgált tartományod legyen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Carasc0
őstag
válasz Delila_1 #35668 üzenetére
Szia!
Nem teljesen értem mi lehet a baj, de nem úgy működik ahogy vártam. Egyrészt csak 1x fut le a kód. Ha utána kézzel feloldom a munkalapot onnantól nem mükszik.
Megpróbálom részletezni amit szeretnék.
Legyen az A1 cella. Ebbe a cellába nem kézzel írnak bele, hanem az értéke egy HA függvénnyel van megadva. Na most ha a HA függvény pont úgy fut le, hogy pont az-az érték kerül az A1-be ami által már nem szabad hogy szerkeszthető legyen, na akkor kell a scriptnek lefutnia. De ha a függő cellában változik az érték, akkor is maradjon az A1 cella NE szerkeszthető. Magyarul ha egyszer megkapja az A1 cella a kívánt értéket, akkor onnantól kezdve a HA függvény ne legyen rá érvényes.
Az a baj hogy ezt nem tudom letesztelni, mivel a script csak 1x fut le. Utána nem.
FRISS!
Csak akkor fut le még egyszer a script ha kézzel írom be a zárolással járó értéket!
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35669 üzenetére
Ez a makró akkor fut le, ha a lapon bármelyik cellába billentyűzetről viszel be adatot. Mivel nem az A1-be pötyögtetsz, azt a cellát kell figyeltetni, amelyiknek az értékétől függően az A1 ilyen, vagy olyan értéket vehet fel.
Add meg konkrétan, melyik cellákat módosítod, és ezeknek a hatására melyik tartomány módosul. Továbbá, hogy milyen érték(ek)nél kell zárolni a tartományt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Carasc0
őstag
válasz Delila_1 #35670 üzenetére
Kilogikáztam!
Igen, a függő cellát kell Targetnak megadnom! Már a célban vagyunk, de van egy óriási hiba. Én azt akarom elérni hogy amikor A1 cella megkapja az X-et a target cella értéke alapján, akkor az A1 cella értéke maradjon örökre X. Mert ugyan zárolva lesz, de ha a Target-ban más értéket adok meg, akkor a zárolt cellában is megfog változni!
Nem csak az A1-et, hanem azt a cellát is zárolni kell, amelyiknek a hatására az A1 felvette a kritikus értéket.
Na azt nem akarom! Az egy általam kézzel változtatott cella.
Máshogy fogalmazok!
Az A1 cellában egy HA függvény működik. Megoldható-e az, hogy ha az A1 cella megkapja a kritikus értéket, akkor az A1 cella értéke ne HA függvény legyen, hanem a megkapott kritikus érték mint konstans. Végülis ugyanazt az eredményt kapom. Nem a zárolás a lényeg végülis. Hanem hogy amint megkapta a kritikus értéket a cella, az az érték büdösödjön meg benne és ne változzon tovább más cella hatására.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35672 üzenetére
Lásd az előző választ.
Add meg a tartományt, ahova beviszed az adatokat, és azt a tartományt, ami ezek hatására felveheti a kritikus értéket.
Ez a bizonyos érték "X" karakter?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Carasc0
őstag
Ok konkrétizálom a dolgot 1db cellára!
Kritikus érték az "I" betű.
Van egy cellám az AZ16:=HA(I16>=3;"I";"N")
Én azt akarom, hogy ha egyszer az I16 cellába beírok 3 vagy annál nagyobb értéket, akkor az AZ16 cella tartalma váltson I betűre úgy, hogy ha utána bármilyen értéket is írok az I16-ba, akkor maradjon az I betű az AZ16-ban.
Jelenleg az történik hogy:
1. Beírom I16-ba hogy 3
2. AZ16 értéke I lesz és zárolásra kerül a cella mert a script lefut
3. Megváltoztatom az I16-ot 2-re.
4. AZ16 értéke N betű lesz. <--- Na ezt ne legyen.Delila_1
Ennél összetettebb, mert tartomány zárolásáról van szó, az A1 csak egy kis egyszerűsítés.
Nem kell tartomány. OFF-ld. Elég ha 1 cellára mükszik, akkor többit is megbütykölöm már!
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35675 üzenetére
Az AZ16 eleve legyen zárolt, az I16 pedig nem.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '**********
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
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.
-
Carasc0
őstag
válasz Delila_1 #35677 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
End SubNa ez kellett nekem! Én a zárolást csak azért hoztam fel, mert azt hittem azzal lehet megoldani a problémát. Tehát nem kellett a zárolás. No most ez a kód kéne nekem tartományra. Írom a példát:
I16 >>> AZ16
I17 >>> AZ17
I18 >>> AZ18
stb..Az kritikus érték természetesen továbbra is >=3.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35680 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '****
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
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.
-
Carasc0
őstag
válasz Delila_1 #35681 üzenetére
Köszönöm tökéletesen működik!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
End SubÍgy viszont már nem! Ugyanis nekem több tartományra kéne érvényesítenem a dolgot. A BE oszlopos tartománynál már más a kritikus érték. Így nem engedi.
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #35682 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 And Target < 5 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
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.
-
Carasc0
őstag
válasz Delila_1 #35683 üzenetére
Tökéletes, de miért dob néha Type Mismatch hibát, mikor kézzel törlöm ki az I oszlopban az értékeket?
If Target >= 3 Then
<---- erre a sorra adja be.Nézd meg, nem szöveg formátumúra van-e a cella állítva?
Nem! Szám formátumra van belőve, 0 tizedesjeggyel. (
I16:I35
tartományt néztem)[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
csongi
veterán
(#35637)
Ez túlságosan komplikált?[ Szerkesztve ]
-
nemlehet
őstag
Sziasztok!
Van egy táblázatom aminek 1 oszlopa dátum szerint feltételes formázással színkódolva van. Szeretnék egy hasonló dátum szerinti feltételes formázást a táblázat egy másik oszlopára is de egyszerűen nem működik.
Szóval az kéne nekem, hogy:
Qx<ma() -> legyen sárga
Qx<ma()-30 -> legyen narancs
Qx<ma()-90 -> legyen pirosEz a T oszlopra (csak itt nem a T oszlop tartalmát vizsgálva) ebben a formában működik, a Q-ra viszont nem. Egyszerűen nem értem mi a baj.
Amiket próbáltam:
-biztos jól van beírva
-egy másik táblázatban ugyan ez simán működik (hogy ugyan azt az oszlopot vizsgálom és formázom)
-átmásoltam a T oszlop formázását a Q-ba, de az se jó valamiért ha átírom a feltételt.Kísérleteztem tovább, nekem úgy tűnik, hogy a Q oszlop esetén a megadott tartomány legelső cellájára vizsgálja a feltételt (tehát mindig Q3-ra), a másiknál meg soronként (tehát T3, majd T4, majd T5) és formáz. Számomra érthetetlen ez, mert ugyan azt írtam be, ugyan úgy...
[ Szerkesztve ]
Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3
-
-
nemlehet
őstag
válasz Delila_1 #35689 üzenetére
Nem jó így se. Egyszerűen az oszlop összes cellájára a Q3 cella teljesülését vizsgálja. Nem bírom felfogni, hogy a másik oszlopban miért működik máshogy mint ebben.
Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3
-
nemlehet
őstag
válasz Delila_1 #35691 üzenetére
Az alsó az ami ugyan ebben a táblában a másik oszlopra működik. Próbáltam többféleképp dollárjelezni, próbáltam más színekkel hátha az a baja, hogy már "foglalt".
Szerk: Most megnéztem egy ha függvénnyel, hogy az milyen eredményt dob ki:
=HA(Q12<MA();"igen";"nem")
2012-es dátumra is azt dobja ki, hogy "nem", tehát akkor itt valami cellaformátum probléma lesz. Csak azt nem értem, hogy ez is ugyan úgy, ugyan arra a dátum formátumra van rakva mint a másik oszlop.[ Szerkesztve ]
Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3
-
nemlehet
őstag
válasz Delila_1 #35693 üzenetére
Annyira nem fontos, úgy is zárolva van, nem tudják elhúzgálni, de majd beírom.
Most ahogy nézem itt valami nagy furcsaság van. Nézegetem a cellaformátumokat és most feltűnt, hogy hiába állítom át bármire ugyan úgy ugyan azt a dátumot írja ki.
Tehát pl átrakom általánosra akkor a többi oszlopban a dátumból lesz ez a 42xxx szám, ebben viszont ugyan úgy marad 2012-12-10 (vagy ami dátum épp be van írva). Szóval olyan mintha beragadt volna szövegként a cella tartalma arra meg értelemszerűen nem tudja vizsgálni a MA függvényt.Sőt, ha csinálok egy olyat, hogy egy másik cellába olyat, hogy =Q3 (ugye, hogy megjelenjen benne a Q3 tartalma) akkor az sem működik. Ilyet még nem pipáltam.....
[ Szerkesztve ]
Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3
-
Sgt. Chris
aktív tag
Üdv Urak!
Eddig azt hittem, hogy amire nekem kell annyira pont ismerem a Office csomagot. De most van egy problémám, amit nem tudok megoldani...
Szóval van egy sima excel tábla, amelyikből körlevelet készítek word ben...a táblában szerepelnek dátumok (határidők, születési dátumok, stb.) de ha ezt a cellát a körlevélben behivatkozom, akkor már US verzióban jelenik meg... Példa: 2017.07.06. az excelben, a worldben 07/06/2017....
Nekem ez nem jó, a magyar, vagyis az Excel féle dátumforma kellene...de nem sikerül sehogy.
A cellában hiba állítom be a cella típusát dátumnak, az se segít.A megoldásnak nagyon örülnék....(Tuti nem olyan bonyolult, amilyennek most tűnik)
ASUS ROG Strix B350-F, AMD Ryzen 5 1600, 2*8GB DDR4 Corsair Vengeance LPX, ASUS RX470 4GB STRIX, Samsung EVO 970 250GB+Adata SP920 128GB SSD, 1TB+2TB WD HDD, FSP Hyper 600W
-
Fferi50
őstag
válasz Sgt. Chris #35696 üzenetére
Szia!
A dátummező beszúrásnál megadhatod, hogy milyen formátumban jelenjen meg a dátum.
{MERGEFIELD Dátum\@"yyyy.MM.dd" \*MERGEFORMAT}A kapcsos zárójel jelzi a mezőt (World teszi ki).
Üdv.
[ Szerkesztve ]
-
-
johny989
csendes tag
Sziasztok! Olyan problémám van hogy van egy "Fő" munkafüzetem és "al" munkafüzetem. A "fő" munkafüzetben egy adott cellára hivatkozok az "al" munkafüzetre. Amikor megnyitom a "fő" munkafüzetet majd után az "al" munkafüzetet a "fő" munkafüzetben elszáll #HIV-vel. Már beállítottam hogy nem frissítse automatikusan, fel vettem kapcsolatok közé, a tartományt is megosztottam. Mit tudok még tenni? Egyáltalán erre van megoldás? és Mindig azt veszem észre hogy a #HIV mindig az "al" munkafüzet munkalapjánál van a képletben. Ötlet?
Köszönettel
johny989
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steames kulcsok jó áron eladóak!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft Office 2019 Otthoni és vállalati verzió (PC / MAC)
- Régi PC Játékok - Rome Total War/Barbarian Invasion/SpellForce/Simcity 4
- World of Warcraft 15th Anniversary Collectors Edition - BONTATLAN - shipper barna kartonban - ÚJ
- Keresem az Alan Wake Collectors Editions pc-re.
- Eredeti Windows 10, Windows 11, Office Akció: Office 2021, Office 2019, Office 2016 csak Retail