Telefonszámunk: 1-472-0679

[Resolved] MOST függvény használata

Kezdőlap Fórumok Excel témák [Resolved] MOST függvény használata

Topic Resolution: Resolved

Ennek a témakörnek tartalma 28 hozzászólás, 9 résztvevő. Utolsó frissítés:  NIN 6 napja, 23 órája telt el a bejegyzés óta.

14 bejegyzés megtekintése - 16-29 / 29
  • Szerző
    Bejegyzés
  • #4245

    horvimi
    Kulcsmester

    Én nem hinném, hogy a LibreOffice makró szinten kompatibilis lenne az Excel-lel.

    #4246

    bandras
    Résztvevő

    Oh, ettől tartottam :/

    #4984

    MCMLXXXII
    Résztvevő

    sziasztok abban szeretném a segítségeteket kérni hogy csináltam egy anyagleltár táblázatot és szeretném hozzá rendelni az adott időt egy cellához de sehogy nem akar össze jönni amit itt leírtatok tökéletesen működik csak nekem nem jó, nekem vízszintesen kellene

    Attachments:
    You must be logged in to view attached files.
    #4988

    horvimi
    Kulcsmester

    Ha jól értem, akkor a MUnka3 lapon azt akarod, hogy ha egymás mellé írják be az értékeket az E oszloptól jobbra, akkor minden beírt adat alá tegye be az aktuális időt.
    Ehhez csak annyi módosítás kell, hogy a megfelelő helyen a Target.Offset(0,1) helyett azt írd, hogy
    Target.Offset(1,0). Azaz a módosított cellához képest 1 sorral lejjebb s nulla oszloppal arrább írja be az időt.

    Private Sub Worksheet_Change(ByVal Target As Range)
        
            Application.EnableEvents = False
                
               Target.Offset(1, 0) = Time
            
            Application.EnableEvents = True
    End Sub

    Visszatöltöttem,
    Erre gondoltál?

    Imre

    • A hozzászólás módosításra került: 4 hónapja telt el a bejegyzés óta- horvimi.
    Attachments:
    You must be logged in to view attached files.
    #5122

    BaLee
    Résztvevő

    Szia(sztok),

    ez egy nagyon hasznos topic. A cégemnél más makro-t használunk ugyanere a feladatra de mivel mindenre van több megoldás ez részlet kérdés.
    Amit én keresek és amiben a segítségeteket kérem, az egy kiegészítése lenne ennek a feladatnak. Azt szeretném megoldani, hogy szereplő megoldások reagáljanak a számított értékváltozásra. Arra gondolok, hogy a Target.Column cellái amennyiben képletet tartalmaz és azok számolnak, ezt az értékváltozást is jó lenne ha tudnánk kezelni.
    Kérlek ha tudtok ennyi időt még szánjatok erre a topic-ra, nagy segítség lenne.

    Balázs

    #5196

    delila
    Résztvevő

    Szia!

    Csupán annyit kell változtatnod a kódon, hogy Target.Column-ként annak az oszlopnak a számát adod meg, amelyiknek az értékváltozását követi a képleted eredménye.

    Pl. ha a B2 képlete =A2*6, akkor az A oszlop módosulását kell figyelned, vagyis a Target.column = 1, mert az első oszlopba írsz be értéket.

    #5217

    BaLee
    Résztvevő

    szia @delila!

    Köszönöm a választ a lezárt topic ellenére is, nagyra értékelem. 🙂 Erre már én is gondoltam. A helyzet az, hogy ezt azért nem tudom alkalmazni, mert 9 cella együttes <>”” értéke adja ennek a cellának az értékét, és nem tudom előre melyik mikor kerül kitöltésre.
    Arra is gondoltam, hogy

    If Target.Column = A1 And A2 …. And A9 Then

    csak ezt nem tudom, hogy így helyes-e, valamint ebben az esetben hogyan kell megadjam a cél oszlopot? – nyilván nem lehet offset, mert nem egy oszlophoz képest működik a makró.

    A feladat lényege, hogy kiírja az időpontot pl. A12-be amikor a hivatkozott cellák A1;A3;A5…A17 utolsó üres cellája is kitöltésre kerül.

    #5218

    delila
    Résztvevő

    Szia!

    Kicsit zavarosan írtad le az óhajodat, mert az A12-be szeretnéd beíratni az időpontot, mikor az A1:A17 tartomány ki van töltve. A tartományban benne van az a cella, ahol az utolsó bevitel idejét szeretnéd látni.

    A laphoz rendelt makró az A1:A17 kitöltését figyeli, és az utolsó adat bevitelekor a B2 cellába írja be az időpontot. A CountA a DARAB2 függvény angol megfelelője.

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, [A1:A17]) Is Nothing And _
            Application.WorksheetFunction.CountA(Range("A1:A17")) = 17 Then
                Range("B2") = Now
        End If
    End Sub

    Kedved és igényed szerint módosíthatod a figyelt terület, és az időpont helyének meghatározását.

    • A hozzászólás módosításra került: 1 hét, 6 napja telt el a bejegyzés óta- delila.
    #5242

    NIN
    Résztvevő

    Tisztelt Delila!
    Tisztelt Segítő!

    Nagyon örülök a fórumnak és a Te hathatós segítségednek!

    Szeretnék segítséget kérni tőled.

    2 problémám van:

    Első:
    ű

    Létrehoztam egy lenyíló ablakot /táblázatot / B1 oszlopban, melyből választhatóak a lehetőségek soronként

    -Nincs kiadva
    -Rendelés alatt
    -Kiadva munkába
    -Szállítás alatt
    -Kész

    alap esetben “Nincs kiadva” jelenik meg

    Azt szeretném, elérni, hogy ha megváltozik a szöveg
    -Rendelés alatt
    -Kiadva munkába
    -Szállítás alatt

    Akkor kiírja a C1 oszlopban az aktuális dátumot és időt – év.hónap.nap-óra.perc – statikusan / ne “MOST” és “Ma” függvényként.

    Ha viszont a szöveg
    -Kész státuszra vált, akkor a a D1 cellába írja be az aktuális dátumot és időt.

    Heltétel az , hogy státusz váltásnál ne írja felül “C1” cella adatait

    röviden: szeretném a munka megkezdését és a befejezését regisztrálni.

    Másik probléma pedig egy legördülő menü:

    Szeretnék egy olyan választó menüt ahol 4 lépcsőben nyílik le az ablak:

    Pl:

    Első szint Jármúvek kategóriája

    Autó
    Teherautó
    Motor

    Kettes szint

    Márkák

    Audi
    Trabant
    Lada

    Temészetesen csak az adott járműtípus listája jelenjen meg

    harmadik szint

    A választot pl.: autómárka típusa jelenjen meg

    Pl.:
    Lada szamara
    Lada Niva

    Negyedik kategória pedig Pl.: motor típusa
    Pl.:
    1200 cm3
    1500 cm3

    Úgy gondolom ezeket a kategóriákat külön külön létrehozott táblázatokból lehet behivatkozni/ feltölteni.

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

    Üdvözlettel Norbert

    #5243

    delila
    Résztvevő

    A második kérdésedről Horvát Imi már biztosan írt régebben, majd segít megtalálni a cikket. Szerintem abból jobban megérted majd, mintha én próbálkoznék vele.

    Az elsőhöz írtam egy rövid makrót, amit a lapodhoz kell rendelned. Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutsz a VB szerkesztőbe. Bal oldalon az aktuális lapod lesz kijelölve, a jobb oldali üres területre másold a makrót.

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 2 Then
            Application.EnableEvents = False
            If Target = "Kész" Then Cells(Target.Row, "D") = Now Else Cells(Target.Row, "C") = Now
            Application.EnableEvents = True
        End If
    End Sub

    Még annyit, hogy a B1, a C1 nem oszlopok, hanem cellák címei. Az oszlop B, vagy C.

    #5244

    NIN
    Résztvevő

    Köszönöm szépen a gyors választ!

    Működik!

    Nagyon nagy segítség volt!

    Említeted Horvát Imit. Ha jól értelmezem várjak a jementkezésére? “majd segít megtalálni a cikket”

    További szép napot!

    Norbi

    #5245

    NIN
    Résztvevő

    Tisztelt delila!
    Tisztelt Fórumozók!

    Szeretnék segítésegt kérni!

    Első problémám, hogy munkafüzetben létrehozott lapokkon a képletek nem érvényesülnek – elösször szépen működnek, utána nem, hiába írom be ismét a képleteket!

    Nem értem az okát!

    Másk, az első kérdéshez kapcsolódó kérés

    Tud valaki segíteni az a mellékletben található munkalap működőképes összerakásában?

    Részlezeiben működik /működött eddig /, de bizonyos kereséseket és beviteli mező kialakítása nem megy!

    Ha részmegoldásokban tud valaki segíteni, azt is megköszönöm. Összeollózom majd az egészet 🙂

    Előre is köszönöm!

    Norbi

    Attachments:
    You must be logged in to view attached files.
    #5249

    horvimi
    Kulcsmester

    Kedves Norbi!

    Írtam levelet.
    Kérlek, az új kérdéseket új topic indításával tedd fel!
    Itt, egy másik Topic alján ne számíts válaszra.

    Köszönöm,

    Imre

    #5250

    NIN
    Résztvevő

    Tisztelt Imre!

    Köszönöm leveled és a segítséget!

    Ebből is látszik, hogy kezdő vagyok az Excelben , pláne a fórumozásban!

    Üdvözlettel Norbi

14 bejegyzés megtekintése - 16-29 / 29

Be kell jelentkezni a hozzászóláshoz.