Hirdetés
- Mini-ITX
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Fejhallgató erősítő és DAC topik
- Hobby elektronika
- Nem lesznek kitömve VRAM-mal az új VGA-k a gyártók szerint
- HiFi műszaki szemmel - sztereó hangrendszerek
- Modding és elektronikai kérdések
- Egy vagy két tápkonnektor lesz az új csúcs-GeForce-on?
- AMD vs. INTEL vs. NVIDIA
- Asztrofotózás
Hirdetés
-
54000 tonna
lo Olvasom félálomban a cikket a fukusimai atomerőműről a Portfólión. 54e tonna így hirtelen nem mondd semmit, kéne valami...
-
Hordozható NAS-sal készül novemberre a UnifyDrive
ph A két M.2-es meghajtót fogadó, kártyaolvasókkal és kétféle videokimenettel ellátott konstrukció működhet routerként, de a virtualizáció sem áll tőle távol.
-
Greenwashing miatt támadják az olaszok a Sheint
it Olaszország vizsgálatot indított a Shein weboldal és app ellen, greenwashing vádjával.
-
PROHARDVER!
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
-
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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - 2990 Ft-tól!
- AKCIÓ! - STEAM kulcsok / Aragami, Transformers, Oddworld, stb. - 2024.08.08.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen