Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- GoodSpeed: Egy bihari a Hajdúságban
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- Magga: PLEX: multimédia az egész lakásban
- Doky586: Torrent beállítás kezdőknek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sellerbuyer: Az RGB LED TV leváltja az OLED-et?
- gerner1
Ú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
- P15 Gen2i 15.6" 4K OLED érintő i7-11850H RTX A2000 32GB 1TB NVMe ujjlolv IR kam gar
- HP DL360 G8 /2x 2695v2, 336GB DDR3, 3x600GB SAS 10k/
- ASUS VivoBook Go 15 (X1504ZA) 15.6"FHD IPS-Intel i7-1255U-8GB DDR4 Ram-512GB SSD-Iris Xe Graphics!
- AKCIÓ!!! RITKASÁG! Microsoft Surface Pro 11 Qualcomm Snapdragon X Elite 16GB 512GB OLED 120Hz Gar!
- AKCIÓ!!! RITKASÁG! Microsoft Surface Pro 11 Qualcomm Snapdragon X Elite 16GB 1000GB OLED 120Hz Gar!
- Windows 10 / 11 Pro Retail aktiváló kulcs Azonnal szállítással, számlával, garanciával!
- BESZÁMÍTÁS! MSI H310M i5 9500 16GB DDR4 120GB SSD 2TB HDD RTX 2060 Super 8GB ÚJ Zalman T4 Plus 600W
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3360
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Új és újszerű 17-18 Gamer, irodai, üzleti készülékek nagyon kedvező alkalmi áron Garanciával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő