- Honor 400 Pro - gép a képben
- Netfone
- One mobilszolgáltatások
- VoLTE/VoWiFi
- Apple Watch
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Honor Magic5 Pro - kamerák bűvöletében
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Samsung Galaxy A54 - türelemjáték
-
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
-
Fehér Mancs
tag
A kód tökéletesen működik, csak a replace-elt konverzió magyar excelben hibára fut, azt ki kell irtani belőle (valószínűleg máshol meg az előző a jó)
Function SumNum(ByVal txt As String) As double
With CreateObject("VBScript.RegExp")
.Pattern = "\d+(,\d+)?"
.Global = True
For Each m In .execute(txt)
SumNum = SumNum + CDbl(m.Value)
Next
End With
'SumNum = Replace(CStr(SumNum), ".",",")
End Function -
Hali!
Tegyél be egy képet a munkafüzetről, amin látszik minden(vagy legalábbis a lényeg), ha el tudok rajt igazodni, akkor tudok segíteni, csak így visszaolvasva azt sem tudom ki-kivel van...
(Delila_1 is látom segít rendesen, csak mindig valami "apróságról" megfeledkezel, aztán az egész kódot lehet megint módosítani vagy újrairni...)
Fire.
-
Delila_1
veterán
Vedd egyenként a függvényeket.
Az A1-ben van a haho-3,45
B1-be: =szöveg.keres("-";a1)
Ennek 5 lesz az eredénye. A képlet végére írd be a +1-et, a B1 értéke 6 lesz, innen, a 6. karaktertől kell majd a szám.Most a C1-be:
=közép(a1;b1;20)
Ez 3,45-öt ad majd, de szövegként, balra igazítva.
Írd át a képletet =(közép(a1;b1;20)*1 -re, ez számként hozza a 3,45-öt. -
Fehér Mancs
tag
Új hozzászólás Aktív témák
Hirdetés
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Assassin's Creed Shadows Collector's Edition PC
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy S23/Samsung Galaxy S23+/Samsung Galaxy S23 Ultra
- AKCIÓ! Csere-Beszámítás! Manli RTX 3070Ti 8GB GDDR6X Videokártya!
- BESZÁMÍTÁS! 2TB Samsung 980 PRO NVMe SSD meghajtó garanciával hibátlan működéssel
- Iphone 15 Plus 128GB Pink Dobozos 12 Hónap Garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged