Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #44198 Mutt senior tag csferke #44196
    Új Válasz #44198
    Ú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

    Mutt

    senior tag

    válasz csferke #44196 üzenetére

    Szia,

    Plusz információt az InputBox, vagy jobb az Application.InbutBox metódussal tudsz bekérni. Az utóbbinál megadhatod, hogy milyen információt fogadjon el, pl. csak számokat, csak tartományt stb. A Type:=2 azt jelenti, hogy szöveget vár.

    Ezek után tudod használni a munkalap Change eseménykezelőjét:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngValidation As Range
    Dim szoveg

    'ezen a területen van az adatérvényesítés
    Set rngValidation = Range("A2:A5")

    'a kód csak akkor fusson le, ha az adatérvényesítés területén módosítunk
    If Not Intersect(Target, rngValidation) Is Nothing Then

    'kikapcsoljuk az eseménykezelõt, így amikor módosítunk a területen
    'nem fogja elindítani magát a kód újból
    Application.EnableEvents = False

    'kérjünk be vmilyen szöveget
    szoveg = Application.InputBox("Szöveg", Title:="Infomáció", Type:=2)

    'ha NEM nyomtak Mégsem-et, akkor füzzük a cella tartalmához a szöveget
    If szoveg <> vbFalse Then
    Target = Target & " " & szoveg
    End If

    'eseményeket mostantól újra nézzük
    Application.EnableEvents = True
    End If

    End Sub

    üdv

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