Hirdetés

2024. április 26., péntek

Gyorskeresés

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Téma összefoglaló

Téma összefoglaló

  • Utoljára frissítve: 2023-11-13 08:31:56

LOGOUT.hu

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.

Összefoglaló kinyitása ▼

Hozzászólások

(#52501) TheSaint


TheSaint
aktív tag

Erre a porblémára lenne-e esetleg valakinek javaslat, kifogytam sajnos az ötletekből:
Egy táblázatot szűr le egy makró és a szűrt táblázatokat elküldi emailekben.
Minden szépen és flottul megy, de a szűrések után az excel megkergül, nem mükődnek gombok, görgetés szétesik, stb. Mi, hol lehet a gond?
' Munkalapok beállítása
Set ws1 = ThisWorkbook.Sheets("Munka1")
Set ws3 = ThisWorkbook.Sheets("Munka3")
ws1.AutoFilterMode = False
' Szűrési tartomány beállítása a "Munka1" lapon (A-M oszlop)
Set filterRange = ws1.Range("A3:M" & ws1.Cells(ws1.Rows.Count, "K").End(xlUp).Row)
' Kiválasztott nevek definiálása
filterValues = Array("X", "Y")
' E-mail címek táblázatának inicializálása a "Munka3" lapon
Set emailTable = CreateEmailTable(ws3)
' Minden egyedi értékhez készítünk egy külön e-mailt
For Each filterValue In filterValues
' Szűrés a K oszlop alapján a "Munka1" lapon
filterRange.AutoFilter Field:=11, Criteria1:=filterValue
' Csak folytatjuk, ha vannak szűrt sorok
If Application.WorksheetFunction.Subtotal(103, filterRange.Columns(1)) > 1 Then

(#52502) Fferi50 válasza Attilav4 (#52499) üzenetére


Fferi50
őstag

Szia!
A hibát eredményező képletekben használd a HAHIBA függvényt, pl így:
=HAHIBA(hibásértéket adó képlet;"")
Így nem lesz hibaértéked a cellában, hanem üres szöveget kapsz.
Üdv.

(#52503) Fferi50 válasza TheSaint (#52501) üzenetére


Fferi50
őstag

Szia!
Mivel nem látható végig a makró, ezért csak tippelni lehet:
1.Megszünteted a szűrések után az Autoszűrőt?
2.Nézd meg légy szíves az objektumaid (gombok,stb) tulajdonságait, különösen a cellákkal való kapcsolatát. Szerintem ez lenne a helyes:

Üdv.

(#52504) karlkani


karlkani
aktív tag

Sziasztok!

Feltételes formázással akadt egy kis gondom. Adott egy tábla, a 2027_Q2 állampapírhoz készítettem. Képlet =$C1=MA(), érvényesség =$B:$G. Így az aktuális napot mutatja piros kitöltéssel, fehér, félkövér betűvel.

Amit szeretnék
- az adott munkanapon 16:00 után a következő munkanapra ugorjon
- pénteken 16:00 után hétfőre ugorjon (kivéve, ha szombat áthelyezett munkanap)

Meg lehet oldani, vagy felejtsem el? :F

(#52505) bozsozso


bozsozso
őstag

Sziasztok,

Segítséget szeretnék kérni feltételes formázással kapcsoaltban. Van egy oszlopom amiben számok vannak. Azt szeretném elérni, hogy azokat a cellákat jelölje meg ami az előző cellékhoz képest változott. Ha ezt valahogy nyilakkal is meg tudom jeleníteni akkor azt is, hogy lefelé vagy felfelé tér el. De az is jó lenne, ha a le és a felfelé változás más színnel lenne.

Pl.: A oszlopban vannak a számok.

15
20 meg kell jelölni,mert nagyobb mint 15
50 meg kell jelölni,mert nagyobb mint 20
80 meg kell jelölni,mert nagyobb mint 50
40 meg kell jelölni,mert kisebb mint 80
10 meg kell jelölni, mert kisebb mint 40
40 meg kell jelölni,m ert nagyobb mint 10
40 nem kell megjelölni

Azzal próbálkoztam, hogy a kijelölöltem az "A" oszlop megfelelő tartományát és formázás képlettel. A képletbe pedig azt írtam be, hogy "=$A2>$A1" és akkor színezzen. Mivel ez nem a várt hatást mutatta ezért nem is léptem tovább.

Előre is köszönöm a segítséget.

[ Szerkesztve ]

(#52506) lappy válasza bozsozso (#52505) üzenetére


lappy
őstag

https://excel-bazis.hu/tutorial/felteteles-formazas-ikonkeszlet-szukitese ezt nezd meg

Bámulatos hol tart már a tudomány!

(#52507) Attilav4 válasza Fferi50 (#52502) üzenetére


Attilav4
csendes tag

köszönöm :))

(#52508) bozsozso válasza lappy (#52506) üzenetére


bozsozso
őstag

Itt nem találtam megoldást a problémámra, ez csak azt mutatja meg, hogy ha nem minden értéknél akarok ikonkészletet látni. Az alap probléma az, hogy semmilyen módon nem jelöli meg az előző sorban található értékhez képest az eltérést.

(#52509) karlkani válasza bozsozso (#52505) üzenetére


karlkani
aktív tag

Szia!

Az elgondolás pedig jó volt... :)

(#52510) bozsozso válasza karlkani (#52509) üzenetére


bozsozso
őstag

Szuper, köszönöm szépen. Akkor úgy látszik ott szúrtam el, hogy az első cellának nem kell beletartozni a tartományba. :R

(#52511) Delila_1 válasza karlkani (#52504) üzenetére


Delila_1
Topikgazda

=ÉS($C2=MA();HÉT.NAPJA($C2;2)<5;ÓRA(MOST())>15)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52512) Fferi50 válasza karlkani (#52504) üzenetére


Fferi50
őstag

Szia!
Mivel nem csak olyan van, hogy szombaton dolgozni kell, hanem hétköznapra is esik ünnep, ezért kicsit elő kell készíteni a képlethez a munkafüzetet.

1. A hétköznapokra eső ünnepnapokat fel kell sorolni egy oszlopban és érdemes elnevezni. Nálam ez a H oszlopban van és az unnepes nevet kapta a névkezelőben.
2. A szombatra eső munkanapokat is fel kell sorolni, az a K oszlopba került, neve pedig dolgozos.
Ezek után a C1 cella képlete:
=HA(ÉS(ÓRA(MOST())<16;HAHIBA(FKERES(MA();dolgozos;1;0);KALK.MUNKANAP(MA();0;unnepes)=MA()));MA();HAHIBA(FKERES(MA()+1;dolgozos;1;0);KALK.MUNKANAP(MA();1;unnepes)))
Vagyis amennyiben a mai nap munkanap és 16 óra előtt vagyunk, akkor a mai dátum kerül a C1 cellába, egyébként pedig a következő munkanap.
Szombaton (kivéve dolgozós), vasárnap és ünnepnap mindig a következő munkanap kerül a C1 cellába.
Így magán a feltételes formázási szabályodon nem kell változtatni.
Üdv.

[ Szerkesztve ]

(#52513) TheSaint válasza Fferi50 (#52503) üzenetére


TheSaint
aktív tag

Ezek stimmelnek.
Így néz ki a teljes kód, egy adatbázislekérés van a táblázatban. Még sose futottam bele ilyen megmagyarázhatatlan hibába:
Private Sub Workbook_Open()
    ' Adatkapcsolatok frissítése
    ThisWorkbook.RefreshAll
    
    ' Azonnal elindítjuk az időzítőt, amely a háttérben fut
    StartTimer
End Sub
Sub StartTimer()
    ' Időzítő beállítása 15 másodpercre
    Application.OnTime Now + TimeValue("00:00:15"), "ThisWorkbook.ProcessAfterDelay"
End Sub
Sub ProcessAfterDelay()
    ' Ellenőrizze, hogy a munkafüzet meg van-e nyitva
    If ThisWorkbook.Name = "e.xlsm" Then
    
' Változók deklarálása
Dim ws1 As Worksheet ' "Munka1" lap
Dim ws3 As Worksheet ' "Munka3" lap
Dim filterRange As Range
Dim filterValues() As Variant
Dim filterValue As Variant
Dim bodyText As String
Dim emailTable As Object
Dim CDO_Mail As Object
Dim CDO_Config As Object
' CDO konfiguráció beállítása
Set CDO_Mail = CreateObject("CDO.Message")
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.."
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
CDO_Config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
CDO_Config.Fields.Update
Set CDO_Mail.Configuration = CDO_Config
' Munkalapok beállítása
Set ws1 = ThisWorkbook.Sheets("Munka1")
Set ws3 = ThisWorkbook.Sheets("Munka3")
ws1.AutoFilterMode = False
' Szűrési tartomány beállítása a "Munka1" lapon (A-M oszlop)
Set filterRange = ws1.Range("A3:M" & ws1.Cells(ws1.Rows.Count, "K").End(xlUp).Row)
' Kiválasztott nevek definiálása
filterValues = Array("X", "Y")
' E-mail címek táblázatának inicializálása a "Munka3" lapon
Set emailTable = CreateEmailTable(ws3)
' Minden egyedi értékhez készítünk egy külön e-mailt
For Each filterValue In filterValues
' Szűrés a K oszlop alapján a "Munka1" lapon
filterRange.AutoFilter Field:=11, Criteria1:=filterValue
' Csak folytatjuk, ha vannak szűrt sorok
If Application.WorksheetFunction.Subtotal(103, filterRange.Columns(1)) > 1 Then
' E-mail tartalma összeállítása
bodyText = "" & filterValue & " m:" & vbCrLf & vbCrLf
bodyText = bodyText & "" & vbCrLf & vbCrLf
' HTML formátumban konvertált táblázat hozzáadása az üzenethez
bodyText = bodyText & RangetoHTML(filterRange.SpecialCells(xlCellTypeVisible))
' E-mail cím meghatározása a filterValue alapján a "Munka3" lapon
Dim emailCim As String
emailCim = GetEmailFromTable(emailTable, filterValue)
' Csak folytatjuk, ha sikerült e-mail címet meghatározni
If emailCim <> "" Then
' E-mail küldése CDO objektummal
With CDO_Mail
.Subject = "D"
.From = "@.hu"
.To = emailCim
.cc = "@.hu"
.HTMLBody = bodyText ' HTML formátumú tartalom hozzáadása az üzenethez
.Send
End With
End If
End If
' Szűrés törlése
ws1.AutoFilterMode = False
Next filterValue
' CDO objektumok bezárása
Set CDO_Mail = Nothing
Set CDO_Config = Nothing
        ' Időzítő újraindítása 1 percre
        Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.SaveAndCloseWorkbook"
    End If
End Sub
Sub SaveAndCloseWorkbook()
    ' Táblázat mentése és bezárása
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub
Function RangetoHTML(rng As Range)
    ' Függvény a táblázat HTML formátumban történő konvertálásához
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
    
    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
    
    ' Táblázat exportálása HTML fájlba
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With
    
    ' HTML fájlba mentés
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
    
    ' HTML tartalom olvasása
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")
    
    ' Táblázat törlése és ideiglenes munkafüzet bezárása
    TempWB.Close SaveChanges:=False
    Kill TempFile
    
    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
Function CreateEmailTable(ws As Worksheet) As Object
    ' E-mail címek táblázatának létrehozása és feltöltése
    Dim emailTable As Object
    Set emailTable = CreateObject("Scripting.Dictionary")
    
    Dim i As Long
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRow
        Dim nev As String
        Dim email As String
        nev = ws.Cells(i, 2).Value
        email = ws.Cells(i, 3).Value
        emailTable(nev) = email
    Next i
    
    Set CreateEmailTable = emailTable
End Function
Function GetEmailFromTable(emailTable As Object, key As Variant) As String
    ' E-mail cím lekérdezése a táblázatból a megadott kulcs alapján
    On Error Resume Next
    GetEmailFromTable = emailTable(key)
    On Error GoTo 0
End Function

(#52514) Fferi50 válasza karlkani (#52504) üzenetére


Fferi50
őstag

Szia!
Kiegészítés az #52512-höz: A feltételes formázás képletét is meg kell változtatni. Az általam mutatott képletet egy táblázaton kívüli cellába kell tenni. Ez nálam most a C1 cella (ezért gondoltam, hogy nem kell képletet változtatni... ).
Ha az értékek a 2. sortól kezdődnek, akkor a képlet a formázáshoz:
=$C2=$C$1 
Ha a B:G tartomány szeretnéd formázni, akkor a C1 cella helyett az A oszlopba vagy a G oszlop utánra kell a képlettel meghatározott napot tartalmazó cellát tenni.
Üdv.

(#52515) Fferi50 válasza TheSaint (#52513) üzenetére


Fferi50
őstag

Szia!
Nem látok benne olyan problémát, ami okozhatja ezt a jelenséget. Pár kérdésem lenne:
1. milyen környezetben fut és milyen excel verzió?
2. nem értem, hogy miért kell 15 másodpercet várni. Ha a háttérbeni frissítés miatt, akkor a táblázatok BackgroundQuery tulajdonságának False -ra állítása ezt szükségtelenné teszi. Ebben az esetben ugyanis nem fut tovább a makró, amíg a frissítés meg nem történik. Ha engedélyezve van a háttérbeni frissítés, akkor a Refreshing tulajdonság mutatja, hogy folyamatban van-e még a frissítés.
3. Nem értem ezt a sort:
If ThisWorkbook.Name = "e.xlsm" Then
A ThisWorkbook mindig az a munkafüzet, amelyből a makró elindult. A Workbook_Open esemény csak ebből a munkafüzetből indulhat.
4. Miért van a végén az 1 perces időzítéssel a Thisworkbook mentése és bezárása?
Ha bezáródik a futás - emalküldés után, akkor honnan tudod, hogy összezavarodott a gombok és a gördítés?
Mi nyitja meg ezt a munkafüzetet?
Vannak-e eseménykezelők a munkafüzetben?
Üdv.

(#52516) karlkani válasza Delila_1 (#52511) üzenetére


karlkani
aktív tag

Vannak hétköznapra eső ünnepnapok, ebben a formában sajnos nem jó. :(

#52512 Fferi50
Ezért írtam következő munkanapot. Más miatt van egy lapom, ahol fel vannak véve egymás alá az áthelyezett munkanapok (szombatok), munkaszüneti napok (ilyen lesz idén pl.: augusztus 19, hétfő), valamint ünnepnapok (még Delila_1 segített benne :) ).

Nem akarok én semmit írni a C1 cellába. A táblázat már kész, nem akarok rajta változtatni. Azt szeretném, hogy a feltételes formázás ugorjon mindig arra a napra, amit az előzőben leírtam.

Köszönöm mindkettőtöknek! :R

[ Szerkesztve ]

(#52517) Delila_1 válasza karlkani (#52516) üzenetére


Delila_1
Topikgazda

Az ÉS feltételek közé be kell venned, hogy nem ünnepnapról van szó.
DARABHA($C2;Ünnep)=0, ahol az Ünnep az ünnepnapok tartománya.
Ennek alapján már biztosan menni fog a szombati áthelyezett munkanapok figyelembe vétele is.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52518) karlkani válasza Delila_1 (#52517) üzenetére


karlkani
aktív tag

Valami majd csak lesz. Amit írtál az előzőben, azzal tegnapra áll át a "pirosság". $C1-re átírva a mai napot mutatja. Az lenne a lényege, hogy ma 16 óra után a 23-as sor helyett a 24-es sor lenne pirossal kitöltve, egészen holnap 16 óráig...

[ Szerkesztve ]

(#52519) Delila_1 válasza karlkani (#52518) üzenetére


Delila_1
Topikgazda

Holnap összehozom, ha addig nem sikerül.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52520) Fferi50 válasza karlkani (#52516) üzenetére


Fferi50
őstag

Szia!
" van egy lapom, ahol fel vannak véve egymás alá az áthelyezett munkanapok "
Akkor ennek a lapnak egy cellájába beírod a mutatott képletet az általad használt elnevezésekkel. Pl. Munka2 A1 cellába.
Ezután a feltételes formázás képlete: =C1=Munka2!A1
Tehát semmit nem kell a meglevő táblázatodon semmit változtatni.
(Tulajdonképpen a hosszú képletet is beírhatod a feltételes formázáshoz, csak egyszerűbbnek gondolom, ha látható külön is a képlet eredménye.)
Üdv.
(Ps. a képletet kipróbáltad?)

[ Szerkesztve ]

(#52521) karlkani válasza Delila_1 (#52519) üzenetére


karlkani
aktív tag

Azt, hogy 16 óra után a következő napra ugorjon két külön feltétellel megoldottam. Ebbe még bele kéne venni a többi kritériumot, egyelőre hagyom a ... :DDD

#52512, #52514 és #52520 Fferi50
Nálam ezek a dátumok három oszlopban szerepelnek (nem szeretném módosítani, megvan az oka, újat létrehozni sem ilyen formában).
- Áthelyezett_munkanapok
- Munkaszüneti napok
- Ünnepnapok

Módosítottam a képletet. Kipróbáltam a dátumot szombatra, áthelyezett munkanapra, munkaszüneti napra, ünnepnapra állítva. Frankón működik, azonban 12.24-et megadva 12.27 kerül a cellába (12.30 helyett), pedig az szerepel a munkaszüneti napoknál. 12.27-et beállítva 12.30 az eredmény.

Egy harmadik oszlopot belehet tenni a képletbe (8.19, 12.24 és 12.27 kerül oda az "unnepes"-ből)?

:R

[ Szerkesztve ]

(#52522) arsenal1980


arsenal1980
csendes tag

Sziasztok! Abban szeretném kérni a segítségeteket, hogy adott 10 db nagyker. ár lista Excel táblázatok formájában. Meg kellene azt oldanom, hogy a táblázatból a termék nevére rá keresve egy sorban jelenítse meg nekem az árakat, beszállító szerint. Vagy az is jó megoldás lenne, hogyha a legjobb árat jelenítené meg. Legújabb Excel kiadással dolgozom iMac gépen.
Köszönöm előre is a segítséget! :R

(#52523) TheSaint válasza Fferi50 (#52515) üzenetére


TheSaint
aktív tag

1. Oracle adatbázis ODBC-n keresztül, Office 2019 (32bit minden)
2. Voltak gondjaim az adatfrissítéssel, ezzel a megoldással sikerült biztosítsani, hogy frissüljenek az adatok és azokat küldje el.
3. Ebben már nem vagyok én sem biztos, de napközben dolgozom más táblázatokkal, akkor így gondoltam biztosítani, hogy a makró biztosan elinduljon
4. Mert amúgy nincs rá szükség, de hiba esetén akkor még rá tudok nézni gyorsan. Mint írtam, mellette dolgozok más táblázatokkal és azokat is tönkrevágja, lentebb a kép mi a végeredmény. Excel bezár és újranyit oldja csak meg. Windows feladatütemező nyitja meg, ha nem vagyok vagy hétvégén alvó állapotból felébreszti a gépet, elküldi amit kell és vissza alszik. Eseménykezelő nincs.

(#52524) Delila_1 válasza karlkani (#52518) üzenetére


Delila_1
Topikgazda

A formázandó tartomány $B$3:$G$379 (ápr.4-dec.31).
A próbához a MA() függvény helyére $J$1-et írtam a képletbe, így más dátummal is kipróbálhattam. Az időpontnál az ÓRA(MOST())>15 helyett ÓRA(MOST())>8 -t írtam.
A képlet =VAGY(ÉS($C3>=$J$1;HÉT.NAPJA($C3;2)<5;ÓRA(MOST())>8;DARABHA(Ünnep;$C3)=0);ÉS($C3>=$J$1;DARABHA(Munkanap;$C3)>0))
Az első kiszínesített sort kell figyelned, mert a többi, későbbi dátumost is kiszínezi, amelyik megfelel a feltételeknek.
Szín szerinti szűrés!

[ 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.

(#52525) C$igu$sz


C$igu$sz
csendes tag

Sziasztok, adott egy nagyobb excel tábla ahol 2018 és 2024 között több dátum is szerepel, ahol adott dátumon számla kiállítás történt. Szűrni szeretném hogy átlagosan egy napon hány számla készült. Példa 2018.01.30 ebből a dátumból szerepel a táblázatban 3 azaz 3 számla lett kiállítva azon a napon. Összesen 5700 nap van amiből példa alapján is több azonos is van külön sorban. Tudnátok valami függvény ami adott oszlopban megszámolja, hogy hány különböző nap van?

(#52526) Delila_1 válasza C$igu$sz (#52525) üzenetére


Delila_1
Topikgazda

A SZUMHA függvény javaslom.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52527) C$igu$sz válasza Delila_1 (#52526) üzenetére


C$igu$sz
csendes tag

milyen formában, mert a szum része még oké de kritériumnak mit lehet megadni? mivel kb 1250 db különböző dátum van amit összegezni kell.

(#52528) C$igu$sz válasza C$igu$sz (#52527) üzenetére


C$igu$sz
csendes tag

(#52529) Delila_1 válasza C$igu$sz (#52528) üzenetére


Delila_1
Topikgazda

Rosszul írtam, a DARABHA függvény jó a napok megszámlálására. Egy új oszlopba:
=DARABHA(B$2:$B$15;B2)
A 15 helyett az utolsó sorod számát írd.

Azt is megteheted, hogy a B oszlopot átmásolod egy új helyre, majd ezt kijelölve Adatok | Ismétlődések eltávolítása menüpontot hajtot végre. Ekkor minden dátumodból 1 darab jelenik meg, ennek a darabszámát keresheted meg a B oszlopban.
Én a J oszlopba másoltam, J2-től lefelé, a K2 képlete képlete =DARABHA(B:B;J2)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52530) Fferi50 válasza karlkani (#52521) üzenetére


Fferi50
őstag

Szia!
Már ne haragudj meg, de nem értem, mi akadálya van annak, hogy a munkaszüneti napok és az ünnepnapok egy új oszlopban együttt szerepeljenek?
Ha jól értem, azt a munkalapot, amin ezek vannak nem a "nagyközönségnek" szántad, de ha mégis, akkor is lehetőség van elrejteni az oszlopot, vagy akár egy másik, elrejthető munkalapra írni az adatokat.
Ha a "nem munkanapokat" egy új oszlopba írod és elnevezed, akkor nem kell semmit változtatni a képleten. A KALK.MUNKANAP függvény összefüggő oszlopot tud használni.
Azt gondolom ez még nem rúgja fel az elveidet.
Miért kell nehezíteni azt, amit egyébként "viszonylag egyszerűen" lehet megoldani.
Megpróbáltam, de főleg a karácsonyi 6 napos miatt még nem sikerült működő megoldást találni.
Üdv.

[ Szerkesztve ]

(#52531) Fferi50 válasza TheSaint (#52523) üzenetére


Fferi50
őstag

Szia!
Azt próbáltad már, hogy amikor ez a munkafüzet fut, akkor ne legyenek nyitva más munkafüzetek?
Üdv.

(#52532) Fferi50 válasza karlkani (#52521) üzenetére


Fferi50
őstag

Szia!
Az előző hozzászólásomat tekintsd kérlek jóindulatú információnak. ;)
Maradhat az eredeti képleted, csak az ünnepnapok nevét és tartalmát kell megváltoztatnod.
A KALK.MUNKANAP függvény elfogad tömbkonstansokat is harmadik paraméterként.
Ezt a lehetőséget kihasználva add meg a névkezelőben pl. a következő nevet:
mindunnep (persze ez maradhat a korábbi név is, ha másra nem használod).
A hivatkozásba pedig másold be ezt:
={45292;45366;45380;45383;45413;45432;45524;45597;45651;45652;45658;45523;45650;45653}

Azután fogadd el a változtatást - de utána nézd meg légy szíves, hogy ne legyen idézőjelben amit beírtál - hajlamos erre az Excel. Az idézőjeleket az elejéről-végéről töröld ki, legkönnyebb úgy, hogy a jobb oldalon levő kibontó nyílra kattintasz (ha kurzorral mozogsz, belerondít sajnos...).
Mit tartalmaz ez a sor? Az ünnepnapok szám alakját, benne az áthelyezetteket is, nem kell sorrendben lenniük.
Ezt úgy kaphatod meg - amit bizonyára te is tudsz - hogy a dátumokat tartalmazó cellák formátumát általánosra (vagy szám, 0 tizedesre) változtatod.
Mivel tömbről van szó {} kapcsos zárójelbe kell tenni, ha kézzel viszed be.
Ezután a képletben - ha új nevet hoztál létre - az új nevet írd be.
Üdv.

[ Szerkesztve ]

(#52533) TheSaint válasza Fferi50 (#52531) üzenetére


TheSaint
aktív tag

Igen próbáltam, annyi a különbség, hogy a gombok például néha müködnek, nem találok ott hirtelen problémát, de a kép, görgetés, maunkalapváltás mindig szétesik... érthetetlen..

(#52534) Delila_1 válasza arsenal1980 (#52522) üzenetére


Delila_1
Topikgazda

Sikerült összehozni, de eléggé összetett. Ha privátban megadod a címed, elküldöm 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.

(#52535) Fferi50 válasza TheSaint (#52533) üzenetére


Fferi50
őstag

Szia!
Milyen Excel verziód van?
Egyszer régen volt egy olyan hiba - ami ehhez nagyon hasonló volt, amit a formkezelő hibája okozott - növekedtek, zsugorodtak elmásztak a gombok.
Ha jól emlékszem a Microsoft Forms 2.0 object library --- FM20.dll volt a bűnös, azt kellett lecserélni - ill. még egy hozzá kapcsolódó dll-t.
Bár nem hiszem, hogy most is ez lenne a gond, de talán érdemes lenne utána nézned a MS Support oldalán.
Üdv.

(#52536) karlkani válasza Delila_1 (#52524) üzenetére


karlkani
aktív tag

Köszönöm! :R

#52530 Fferi50
Nincs akadálya. Azért van így vezetve, mert különféle színek vannak hozzájuk rendelve feltételes formázásnál, meg számolok is velük, de ez itt most lényegtelen. Azért kérdeztem, hogy lehet-e 3 oszloposra módosítani a képletet. Végül is, igazad van, beírom a dátumokat erre a lapra KETTŐ oszlopba, majd elrejtem, jövőre meg módosítom... :)

#52532 Fferi50
Megnézem ezt is, köszönöm! :R

(#52537) Delila_1 válasza karlkani (#52536) üzenetére


Delila_1
Topikgazda

Örülünk. :)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52538) C$igu$sz válasza Delila_1 (#52529) üzenetére


C$igu$sz
csendes tag

Szia, köszönöm. A második megoldás egyszerűbb volt így az lett a nyerő.

(#52539) Delila_1 válasza C$igu$sz (#52538) üzenetére


Delila_1
Topikgazda

Szívesen. :)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#52540) BagyiAti


BagyiAti
csendes tag

Sziasztok,

O365-ben ha közös használatot állítok be, akkor eltűnik a "szín szerinti szűrés" opció. Erre esetleg van valami megoldás? Feltételes formázással vannak színezve sorok, majd az alapján szűrök szín szerint bizonyos szempontok alapján. Igazából eddig nem is vettem észre ezt, csak most igény lett a közös használatra..

(#52541) Fferi50 válasza BagyiAti (#52540) üzenetére


Fferi50
őstag

Szia!
Sajnos azt írják, hogy a formázás szerinti szűrés és rendezés nem használható közös munkafüzetben.
A színre szűrés helyett arra a feltételre kell szűrni, amely az adott színt (formátumot) eredményezi a feltételes formázás során.
Maga a feltételes formázás működik, makróból elérhető a DisplayFormat tulajdonság, amely mindig az épp megjelenített formátumot - a feltételes formázást is - tartalmazza.
Üdv.

(#52542) BagyiAti válasza Fferi50 (#52541) üzenetére


BagyiAti
csendes tag

Szia,

Köszönöm az ötletet, át is alakítom :)

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)
Copyright © 2000-2024 PROHARDVER Informatikai Kft.