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

• #44198 Mutt senior tag csferke #44196

  Új Válasz 2020-06-05 14:15:47 #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