Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #41277 Fferi50 Topikgazda RAiN91 #41276
    Új Válasz #41277
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fferi50

    Topikgazda

    válasz RAiN91 #41276 üzenetére

    Szia!

    Az alábbi makrót másold a munkalap kódlapjára. (Jobb egérgomb a fülön, majd kód megjelenítése.)

    Option Explicit
    Public hol As Byte
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$1" Then
    Application.EnableEvents = False
    Range("A1").Offset(0, hol).Value = Target.Value
    If hol < 2 Then hol = hol + 1 Else hol = 0
    Application.EnableEvents = True
    End If
    DoEvents
    End Sub
    A makró az F1 cellában bekövetkező változásokat követi le, az általad leírt módon az A1-B1-C1 cellában. A $F$1 helyére írd azt a címet ilyen formában, ahol a változások végbemennek, az A1 helyére írd azt az első cellát, ahova a változásokat szeretnéd beírni. A hol változó 0 és 2 között változik, értékétől függően kerül az A1-B1-C1 cellába az érték az Offset tulajdonság alapján.
    Más cellákban bekövetkezett változásokra nem reagál.
    Azt nem tudom, hogy az általad jelzett gyakoriságú változások miatt a "villódzásokon" kívül fogsz-e látni bármit is.
    A DoEvents utasítás azért került bele, hogy a Ctrl+Break billentyűkkel le tud állítani a makró futását.

    Üdv.

Új hozzászólás Aktív témák