-
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 pero19910606 #18417 üzenetére
Ehhez meg kell adnod a kérdéses időszakban előforduló ünnepnapok dátumát valahol a füzetben.Érdemes a tartománynak nevet adni, pl. Ünnepek legyen a neve.
Felviszed egy oszlopba az időszak dátumait, majd feltételes formázást adsz az oszlopnak. A felt. formázás képlete
=VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;Ünnepek;1;0))))
Adsz egy színes hátteret.Autoszűrővel kiszűröd a a színt, és ezeket a sorokat törlöd. Ezzel a módszerrel a hétvégi 2 nap sem szerepel majd a listádban.
A helyedben bevinném a munkanap-áthelyezések dátumát is, a tartománynak Munkanap nevet adnék. A feltételes formázásban ezekre a napokra keresnék rá az FKERES függvénnyel, és ezeknek egy más színű hátteret adnék. Ezeket nem törölném.
Az ünnepnapok dátumait évekre előre megtalálod a http://www.nefelejtsdel.hu lapon.
[ 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 pero19910606 #18420 üzenetére
Ha 2007-esnél régebbi verziót használsz, az A oszlopban lévő összes dátum mellé írd be a következő képletet:
=HA(NEM(HIBÁS(FKERES(A2;Munkanapok;1;0)));0;HA(VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;Ünnepek;1;0))));1;0))Ez 1 értéket ad a hétvégék és ünnepnapok mellé, a hétköznapokhoz (beleértve a munkanap áthelyezéseket is) nulla értéket ad. Autoszűrővel kihozod, és törlöd az egyesek sorait.
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
Feltettem n-edjére egy fájlt, ami több nyelven tartalmazza az Excel függvényeit. Régi fájl, nem tartalmazza a legújabb függvényeket. Itt megtalálod.
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 Agostino #18453 üzenetére
Az oszlop, amiben a képleteid vannak, általános cellaformátumú legyen.
Az elsőnél add meg ezt, a képletet a szerkesztőlécen enterezd le, és ezután másold a képletet.Ha csak simán átállítod az oszlop formátumát, még nem hiszi el (az Excel), egyenként le kellene enterezned a sorokat. A fenti módszerrel elég a felsőt, mert másoláskor a formátumot is viszi magával.
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 #18455 üzenetére
A keresett érték legyen olyan formátumú, amilyen az FKERES tartományának az első oszlopa.
Tudod, gyakori hiba, hogy valamelyik adat végére egy nem látható karaktert, pl. szóközt gépelt be valaki.Próbáld meg, hogy a tartományt megszabadítod ezektől a karakterektől a TRIM függvénnyel egy új oszlopban, majd az újat irányítottan, értékként az eredeti helyére illeszted.
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 swoody #18466 üzenetére
Készítettem egy új függvényt. Amelyik füzetbe beviszed, ott működni fog a Tukor nevű függvény. Ha a personal füzetedbe teszed be – a personal szóra keresve több leírást találsz itt a fórumon –, akkor minden füzetedben dolgozhatsz vele.
Function Tukor(cella As String)
Dim betu As Integer, ujnev As String
For betu = Len(cella) To 1 Step -1
ujnev = ujnev & Mid(cella, betu, 1)
Next
Tukor = ujnev
End FunctionAz A1 cellában lévő értéket úgy tükrözi, hogy egy másik cellába ezt írod: =Tukor(A1)
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 #18474 üzenetére
Számolsz a számokkal az oszlopodban? Ha nem, a FIX függvénnyel alakítsd át egy segédoszlopban szöveggé az adatokat, majd irányítottan, értékként helyezd az eredeti helyé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.
-
Delila_1
Topikgazda
válasz ElemiKoczka #18479 üzenetére
Szia.
Ha az A1 cellában van a 100-as értéked, a B1 legyen =A1/24. A cellaformátum pedig [ó]:pp
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 #18503 üzenetére
Az új "sokat" ( ) eleve szöveg formátumú cellákba vidd be, akkor nem kell külön cirkuszolni a szöveggé alakításukkal. Most, hogy már a teljes oszlopot szöveg tip-ra állítottad, nincs más dolgod, mint bevinni az adatokat.
A FIX függvény numerikus adatot alakít át alfanumerikusra.
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 nimmy001 #18505 üzenetére
Tudom, hogy lehet makróval íratni makrót, de nem ismerem a módját.
Mi lenne, ha personalba írnád a makróidat, és azoknak a gépére is bemásolnád (egyszer kell megtenni), akiknek majd továbbítod a fájlt?
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
Tedd be a képeket, ahogy sikerül, és egy makróval az összeset egyszerre méretezheted.
Sub Egyforma_meret()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 77.25
Selection.ShapeRange.Width = 113.25
Application.CutCopyMode = False
End SubA szélesség, és magasság értéket változtathatod, hogy a kívánt értéket elérd. Ha egész számot adsz, a végére #-ot tegyél, pl. 83#.
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
A cella háttérszínének módosítása az Excel szempontjából nem számít eseménynek, ezért nem rendelhetsz hozzá esemény kezelő makrót.
Ha a cella adata is változna, megoldható lenne.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
Mégis sikerült összehozni valamit.
Az első lapon duplaklikkre sárga lesz a háttér, a másodikon az azonos című cella felveszi az SZ értéket.Az első makrót az első laphoz rendeld, a másodikat modulba tedd.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cella$
If Not Intersect(Target, Range("A3:H3")) Is Nothing Then
cella$ = Target.Address
Range(cella$).Interior.ColorIndex = 36
SZ (cella$)
End If
End SubSub SZ(cella$)
Sheets("Munka2").Range(cella$) = "SZ"
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.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz s3toraph #18545 üzenetére
A D2:G23 felt. formázásának pár perce megadtam a képletét. Az I2:BP2 tartományé =DARABTELI($D$20:$G$23;I2)>0, ehhez zöld színt rendeltem.
Nem használtam segéd táblá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.
-
Delila_1
Topikgazda
válasz s3toraph #18549 üzenetére
A formátum másolása éppen úgy történik, mint a lapokon a képleteké. Igen, azért igaz a többi cellára is, mert a D20-at nem fixen adtam meg.
A régebbi verziókban ha ráálltál egy másolt formátumú cellára, jelen esetben pl. a D21-re, a képlet ott D21-re változott. A 2007-es verzióban vezették be ezt az idétlenséget, hogy nem a hivatkozott cellát mutatja, pedig azzal számol.Szerk:
Na és a 2. kérdés: =DARABTELI(Munka2!$I$2:$BP$2;D20)>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.
-
-
Delila_1
Topikgazda
válasz s3toraph #18556 üzenetére
Elnézést! Véletlenül 2010-esben csináltam meg. Most kipróbáltam 2007-ben, ott másképp hozhatod létre a színezést.
Az I2:BP2 tartománynak adj nevet. A hatalmas fantáziámra utaló Tartomány nevet adtam neki, ezt beírva a képletbe már működik.=DARABTELI(Tartomány;D20)>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.
-
Delila_1
Topikgazda
válasz bandus #18592 üzenetére
A1-ben van az egyik összeg, B1-ben a másik.
Az =B1>A1 képlet IGAZ eredményt ad, ha a B1 a nagyobb, és HAMISat, ha fordítva.
Érdemes még megadni, hogy egyezőség esetén mi legyen.
Az =B1>=A1 képlet eredménye azonos értékeknél IGAZ, egyenlőségjel nélkül HAMIS.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 baderoli #18596 üzenetére
Nem képlet, hanem feltételes formázás kell ide.
A formátum képlete (feltéve, hogy a D2 cellát akarod színezni) =D2>MA(). Ezt kiterjeszted a többi cellára is a D oszlopban.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 baderoli #18598 üzenetére
A feltételes formátumot hívd be, és ott add meg a képletet, ne a cellában. Ott megadhatod a formát is. Részletesebben csak akkor tudom leírni a munka menetét, ha megadod, melyik verziójú Excelt alkalmazod.
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 baderoli #18600 üzenetére
Kijelölöd a formázandó tartományt (D2-től le, ameddig kell).
Kezdőlap | Stílusok | Feltételes formázás | Új szabály | A formázandó cellák kijelölése képlettel.Az "Értékek formázása, ha ez a képlet igaz:" rovatba beírod: =D2>MA()
A "Formátum..." gomb előhozza a formázási lehetőségeket, ezekből válogathatsz. 1-2 enter után kész.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 bandus #18605 üzenetére
A gyűjtő füzetben arra a lapra, ahova be akarod gyűjteni az adatokat, tegyél ki 2 választó kapcsolót.
A nevük legyen Utvonal1 és Utvonal2. Ehhez a laphoz rendeld az első makrót.Private Sub Utvonal1_Change()
Dim utvonal As String
If Utvonal1 Then utvonal = "C:\Elso utvonal\" Else utvonal = "C:\Masodik utvonal\"
TobbFuzetbe utvonal
End SubA saját útvonalaidat írd be hozzájuk.
Modulba jön a második makró.
Sub TobbFuzetbe(utvonal)
Application.ScreenUpdating = False 'Képernyőfrissítés letiltása
Application.DisplayAlerts = False 'Kérdések letiltása
'Helyfoglalás
Dim usor, FN, WBGy As Workbook, WBU As Workbook, WSGy As Worksheet, WSU As Worksheet
'Értékadás
Set WBGy = ActiveWorkbook 'Gyűjtő füzet
Set WSGy = WBGy.Sheets(1) 'Gyűjtőnek az a lapja, ahova másolni kell
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
'Fájlok behívása
Workbooks.Open Filename:=utvonal & FN
Set WBU = ActiveWorkbook 'utvonal-ról behívott füzet
Set WSU = WBU.Sheets(1) 'behívott füzet lapja, ahonnan másolsz
WSU.Visible = True 'láthatóság engedélyezése
WSU.Activate 'ez legyen az aktív lap
'első üres sor a gyűjtő füzetben
usor = WSGy.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A1:A25").Copy WSGy.Range("A" & usor) 'másolás
ActiveWindow.Close False 'behívott fájl bezárása módosítás nélkül
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True 'Kérdések engedélyezése
Application.ScreenUpdating = True 'Képernyőfrissítés engedélyezése
End SubA sorokhoz írtam magyarázatot.
Mindegyik füzetben az első lapot vittem be a Set utasításokban, de ezen változtathatsz.
Set WSGy = WBGy.Sheets(1)
Set WSU = WBU.Sheets(1)Az 1-es érték helyére a füzetben elfoglalt helyzetüket add meg.
[ 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 dobri320 #18608 üzenetére
A laphoz kell rendelned a makrót. A képnek Kép1 nevet adtam, és a B1 cellára kattintva jelenik meg, más cellát kijelölve eltűnik.
A Kép1 helyett tehetsz be alakzatot, és akkor annak a nevét írd be a helyére.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Shapes("Kép1").Visible = True
Else
ActiveSheet.Shapes("Kép1").Visible = False
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.
Új hozzászólás Aktív témák
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs