Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- urandom0: Száműztem az AI-t az életemből
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- hcl: Poco F2 Pro facepalm
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
Új hozzászólás Aktív témák
-
martonx
veterán
válasz
visityu
#1224
üzenetére
No ma rászántam azt az egy percet, és a szépség kedvéért nem egy soros lett, és az 1 percből is 5 lett végül. Íme a kód:
Sub osszead()
On Error Resume Next
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End SubFejből is egész jól közelítettem a triviális megoldást. Ez annyival több, hogy hibát is kezel. Az osszead rutint meghívod textbox1 és 2 change eseményekor. Egy köszönöm jól esne

-
martonx
veterán
válasz
visityu
#1224
üzenetére
Mivel a problémád az, hogy két számot kell összeadni a legtriviálisabb megoldás valami ilyesmi fejből, szóval nem biztos hogy pont ez lesz:
textbox3.value = textbox1.value + textbox2.value
esetleg a textbox value-kat int-é alakítod mielőtt összeadod. Na ugye, hogy milyen triviális? Micsoda meglepetés, hogy két változót össze kell adni, nem?
Ha ez az ötletindító 1 sorom nem volt elég, akkor küldd el priviben az exceled, és ígérem rászánom azt az egy percet, hogy belejavítsak a kódodba

Új hozzászólás Aktív témák
- E-roller topik
- Autós topik
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- Azonnali fáradt gőzös kérdések órája
- Kerékpárosok, bringások ide!
- Milyen videókártyát?
- 5.1, 7.1 és gamer fejhallgatók
- Projektor topic
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- További aktív témák...
- iPhone 13 Pro Max 256GB Graphite megkímélt állapotban eladó!
- AMD Radeon RX 7900XTX Vapor-X 24GB GDDR6 Nitro+( Gari 2028-ig)
- WACOM INTUOS Pen & Touch S - Digitalizáló rajztábla
- Új Gamer PC - Ryzen 7 5700 / RTX 5060 / A520M / 16GB RAM / 1TB SSD / 650W
- Új Philips Saeco GranAroma SM6580/00 2 év garancia
- 0perces! Samsung Galaxy Book5 Pro 360 2in1 Core Ultra 7 256V 16GB 1TB 16" WQXGA+ AMOLED TOUCH 1évgar
- Fujitsu LIFEBOOK E449 i3-8130U 12GB 512GB 14" FHD 1 év garancia
- Koenig One Touch Automata kávégép 6 hónap Garancia Beszámítás Házhozszállítás
- Samsung Galaxy S21 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



