Hirdetés
-
Ellopták a Tesla akkumulátor-titkait
it Beperelte egy korábbi beszállítóját a Tesla, és azzal vádolja, hogy üzleti titkokat lopott a Tesla akkumulátorgyártási technológiájával kapcsolatban.
-
Stellar Blade - Túl az 1 millión
gp Külön érdekesség, hogy a Metacritic oldalán a felhasználók ennek a PS5-ös játéknak adták a legjobb pontokat.
-
Mégsem ér 16 GB-ot a 8 GB RAM az Apple gépekben
ph Persze ez eddig is logikus volt, de most már az Apple oldalán is érezhető egy funkció kapcsán a limitáció.
-
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
-
válasz
#05304832 #15075 üzenetére
Pont az van, amit írtam, azaz vannak olyan cellák, amiből hiányzik a tizedeselválasztó, mert valamelyik fatökű lepkevadász egyszer 0-val, másszor meg 0.0-val jelöli a semmit...
Ha lesz még hiba, azt már Te javítod a makróban, ez megint működik
Dim MyDestRange As Range
Dim MyCell As Range
Dim MyArray() As String, MyDig As String
'Itt van beállítva, hogy G2-ben van az első cella
'és egybefüggően az M oszlopig tart
'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
Application.ScreenUpdating = False
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) Then
xstr = .Text
If InStr(xstr, ".") > 0 Then
xstr = Replace(xstr, ".", ",", vbTextCompare)
MyArray = Split(xstr, ",")
MyDig = "#0."
For i = 1 To Len(MyArray(1))
MyDig = MyDig + "0"
Next i
Else
MyDig = "#0.0"
End If
.Value = xstr * 1#
.NumberFormat = MyDig
End If
End With
Next MyCell
Application.ScreenUpdating = TrueMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Autós topik látogatók beszélgetős, offolós topikja
- Eredeti játékok OFF topik
- Home server / házi szerver építése
- Revolut
- Politika
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Bemutatkozik a Socket 939 és az Athlon 64 3800+
- OTP Bank topic
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- További aktív témák...